Mercurial > hg > CbC > CbC_gcc

annotate gcc/ada/libgnat/a-chlat1.ads @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ------------------------------------------------------------------------------
kono
parents:
diff changeset
2 -- --
kono
parents:
diff changeset
3 -- GNAT RUN-TIME COMPONENTS --
kono
parents:
diff changeset
4 -- --
kono
parents:
diff changeset
5 -- A D A . C H A R A C T E R S . L A T I N _ 1 --
kono
parents:
diff changeset
6 -- --
kono
parents:
diff changeset
7 -- S p e c --
kono
parents:
diff changeset
8 -- --
kono
parents:
diff changeset
9 -- This specification is derived from the Ada Reference Manual for use with --
kono
parents:
diff changeset
10 -- GNAT. In accordance with the copyright of that document, you can freely --
kono
parents:
diff changeset
11 -- copy and modify this specification, provided that if you redistribute a --
kono
parents:
diff changeset
12 -- modified version, any changes that you have made are clearly indicated. --
kono
parents:
diff changeset
13 -- --
kono
parents:
diff changeset
14 ------------------------------------------------------------------------------
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 pragma Compiler_Unit_Warning;
kono
parents:
diff changeset
17
kono
parents:
diff changeset
18 package Ada.Characters.Latin_1 is
kono
parents:
diff changeset
19 pragma Pure;
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 ------------------------
kono
parents:
diff changeset
22 -- Control Characters --
kono
parents:
diff changeset
23 ------------------------
kono
parents:
diff changeset
24
kono
parents:
diff changeset
25 NUL : constant Character := Character'Val (0);
kono
parents:
diff changeset
26 SOH : constant Character := Character'Val (1);
kono
parents:
diff changeset
27 STX : constant Character := Character'Val (2);
kono
parents:
diff changeset
28 ETX : constant Character := Character'Val (3);
kono
parents:
diff changeset
29 EOT : constant Character := Character'Val (4);
kono
parents:
diff changeset
30 ENQ : constant Character := Character'Val (5);
kono
parents:
diff changeset
31 ACK : constant Character := Character'Val (6);
kono
parents:
diff changeset
32 BEL : constant Character := Character'Val (7);
kono
parents:
diff changeset
33 BS : constant Character := Character'Val (8);
kono
parents:
diff changeset
34 HT : constant Character := Character'Val (9);
kono
parents:
diff changeset
35 LF : constant Character := Character'Val (10);
kono
parents:
diff changeset
36 VT : constant Character := Character'Val (11);
kono
parents:
diff changeset
37 FF : constant Character := Character'Val (12);
kono
parents:
diff changeset
38 CR : constant Character := Character'Val (13);
kono
parents:
diff changeset
39 SO : constant Character := Character'Val (14);
kono
parents:
diff changeset
40 SI : constant Character := Character'Val (15);
kono
parents:
diff changeset
41
kono
parents:
diff changeset
42 DLE : constant Character := Character'Val (16);
kono
parents:
diff changeset
43 DC1 : constant Character := Character'Val (17);
kono
parents:
diff changeset
44 DC2 : constant Character := Character'Val (18);
kono
parents:
diff changeset
45 DC3 : constant Character := Character'Val (19);
kono
parents:
diff changeset
46 DC4 : constant Character := Character'Val (20);
kono
parents:
diff changeset
47 NAK : constant Character := Character'Val (21);
kono
parents:
diff changeset
48 SYN : constant Character := Character'Val (22);
kono
parents:
diff changeset
49 ETB : constant Character := Character'Val (23);
kono
parents:
diff changeset
50 CAN : constant Character := Character'Val (24);
kono
parents:
diff changeset
51 EM : constant Character := Character'Val (25);
kono
parents:
diff changeset
52 SUB : constant Character := Character'Val (26);
kono
parents:
diff changeset
53 ESC : constant Character := Character'Val (27);
kono
parents:
diff changeset
54 FS : constant Character := Character'Val (28);
kono
parents:
diff changeset
55 GS : constant Character := Character'Val (29);
kono
parents:
diff changeset
56 RS : constant Character := Character'Val (30);
kono
parents:
diff changeset
57 US : constant Character := Character'Val (31);
kono
parents:
diff changeset
58
kono
parents:
diff changeset
59 --------------------------------
kono
parents:
diff changeset
60 -- ISO 646 Graphic Characters --
kono
parents:
diff changeset
61 --------------------------------
kono
parents:
diff changeset
62
kono
parents:
diff changeset
63 Space : constant Character := ' '; -- Character'Val(32)
kono
parents:
diff changeset
64 Exclamation : constant Character := '!'; -- Character'Val(33)
kono
parents:
diff changeset
65 Quotation : constant Character := '"'; -- Character'Val(34)
kono
parents:
diff changeset
66 Number_Sign : constant Character := '#'; -- Character'Val(35)
kono
parents:
diff changeset
67 Dollar_Sign : constant Character := '$'; -- Character'Val(36)
kono
parents:
diff changeset
68 Percent_Sign : constant Character := '%'; -- Character'Val(37)
kono
parents:
diff changeset
69 Ampersand : constant Character := '&'; -- Character'Val(38)
kono
parents:
diff changeset
70 Apostrophe : constant Character := '''; -- Character'Val(39)
kono
parents:
diff changeset
71 Left_Parenthesis : constant Character := '('; -- Character'Val(40)
kono
parents:
diff changeset
72 Right_Parenthesis : constant Character := ')'; -- Character'Val(41)
kono
parents:
diff changeset
73 Asterisk : constant Character := '*'; -- Character'Val(42)
kono
parents:
diff changeset
74 Plus_Sign : constant Character := '+'; -- Character'Val(43)
kono
parents:
diff changeset
75 Comma : constant Character := ','; -- Character'Val(44)
kono
parents:
diff changeset
76 Hyphen : constant Character := '-'; -- Character'Val(45)
kono
parents:
diff changeset
77 Minus_Sign : Character renames Hyphen;
kono
parents:
diff changeset
78 Full_Stop : constant Character := '.'; -- Character'Val(46)
kono
parents:
diff changeset
79 Solidus : constant Character := '/'; -- Character'Val(47)
kono
parents:
diff changeset
80
kono
parents:
diff changeset
81 -- Decimal digits '0' though '9' are at positions 48 through 57
kono
parents:
diff changeset
82
kono
parents:
diff changeset
83 Colon : constant Character := ':'; -- Character'Val(58)
kono
parents:
diff changeset
84 Semicolon : constant Character := ';'; -- Character'Val(59)
kono
parents:
diff changeset
85 Less_Than_Sign : constant Character := '<'; -- Character'Val(60)
kono
parents:
diff changeset
86 Equals_Sign : constant Character := '='; -- Character'Val(61)
kono
parents:
diff changeset
87 Greater_Than_Sign : constant Character := '>'; -- Character'Val(62)
kono
parents:
diff changeset
88 Question : constant Character := '?'; -- Character'Val(63)
kono
parents:
diff changeset
89 Commercial_At : constant Character := '@'; -- Character'Val(64)
kono
parents:
diff changeset
90
kono
parents:
diff changeset
91 -- Letters 'A' through 'Z' are at positions 65 through 90
kono
parents:
diff changeset
92
kono
parents:
diff changeset
93 Left_Square_Bracket : constant Character := '['; -- Character'Val (91)
kono
parents:
diff changeset
94 Reverse_Solidus : constant Character := '\'; -- Character'Val (92)
kono
parents:
diff changeset
95 Right_Square_Bracket : constant Character := ']'; -- Character'Val (93)
kono
parents:
diff changeset
96 Circumflex : constant Character := '^'; -- Character'Val (94)
kono
parents:
diff changeset
97 Low_Line : constant Character := '_'; -- Character'Val (95)
kono
parents:
diff changeset
98
kono
parents:
diff changeset
99 Grave : constant Character := '`'; -- Character'Val (96)
kono
parents:
diff changeset
100 LC_A : constant Character := 'a'; -- Character'Val (97)
kono
parents:
diff changeset
101 LC_B : constant Character := 'b'; -- Character'Val (98)
kono
parents:
diff changeset
102 LC_C : constant Character := 'c'; -- Character'Val (99)
kono
parents:
diff changeset
103 LC_D : constant Character := 'd'; -- Character'Val (100)
kono
parents:
diff changeset
104 LC_E : constant Character := 'e'; -- Character'Val (101)
kono
parents:
diff changeset
105 LC_F : constant Character := 'f'; -- Character'Val (102)
kono
parents:
diff changeset
106 LC_G : constant Character := 'g'; -- Character'Val (103)
kono
parents:
diff changeset
107 LC_H : constant Character := 'h'; -- Character'Val (104)
kono
parents:
diff changeset
108 LC_I : constant Character := 'i'; -- Character'Val (105)
kono
parents:
diff changeset
109 LC_J : constant Character := 'j'; -- Character'Val (106)
kono
parents:
diff changeset
110 LC_K : constant Character := 'k'; -- Character'Val (107)
kono
parents:
diff changeset
111 LC_L : constant Character := 'l'; -- Character'Val (108)
kono
parents:
diff changeset
112 LC_M : constant Character := 'm'; -- Character'Val (109)
kono
parents:
diff changeset
113 LC_N : constant Character := 'n'; -- Character'Val (110)
kono
parents:
diff changeset
114 LC_O : constant Character := 'o'; -- Character'Val (111)
kono
parents:
diff changeset
115 LC_P : constant Character := 'p'; -- Character'Val (112)
kono
parents:
diff changeset
116 LC_Q : constant Character := 'q'; -- Character'Val (113)
kono
parents:
diff changeset
117 LC_R : constant Character := 'r'; -- Character'Val (114)
kono
parents:
diff changeset
118 LC_S : constant Character := 's'; -- Character'Val (115)
kono
parents:
diff changeset
119 LC_T : constant Character := 't'; -- Character'Val (116)
kono
parents:
diff changeset
120 LC_U : constant Character := 'u'; -- Character'Val (117)
kono
parents:
diff changeset
121 LC_V : constant Character := 'v'; -- Character'Val (118)
kono
parents:
diff changeset
122 LC_W : constant Character := 'w'; -- Character'Val (119)
kono
parents:
diff changeset
123 LC_X : constant Character := 'x'; -- Character'Val (120)
kono
parents:
diff changeset
124 LC_Y : constant Character := 'y'; -- Character'Val (121)
kono
parents:
diff changeset
125 LC_Z : constant Character := 'z'; -- Character'Val (122)
kono
parents:
diff changeset
126 Left_Curly_Bracket : constant Character := '{'; -- Character'Val (123)
kono
parents:
diff changeset
127 Vertical_Line : constant Character := '|'; -- Character'Val (124)
kono
parents:
diff changeset
128 Right_Curly_Bracket : constant Character := '}'; -- Character'Val (125)
kono
parents:
diff changeset
129 Tilde : constant Character := '~'; -- Character'Val (126)
kono
parents:
diff changeset
130 DEL : constant Character := Character'Val (127);
kono
parents:
diff changeset
131
kono
parents:
diff changeset
132 ---------------------------------
kono
parents:
diff changeset
133 -- ISO 6429 Control Characters --
kono
parents:
diff changeset
134 ---------------------------------
kono
parents:
diff changeset
135
kono
parents:
diff changeset
136 IS4 : Character renames FS;
kono
parents:
diff changeset
137 IS3 : Character renames GS;
kono
parents:
diff changeset
138 IS2 : Character renames RS;
kono
parents:
diff changeset
139 IS1 : Character renames US;
kono
parents:
diff changeset
140
kono
parents:
diff changeset
141 Reserved_128 : constant Character := Character'Val (128);
kono
parents:
diff changeset
142 Reserved_129 : constant Character := Character'Val (129);
kono
parents:
diff changeset
143 BPH : constant Character := Character'Val (130);
kono
parents:
diff changeset
144 NBH : constant Character := Character'Val (131);
kono
parents:
diff changeset
145 Reserved_132 : constant Character := Character'Val (132);
kono
parents:
diff changeset
146 NEL : constant Character := Character'Val (133);
kono
parents:
diff changeset
147 SSA : constant Character := Character'Val (134);
kono
parents:
diff changeset
148 ESA : constant Character := Character'Val (135);
kono
parents:
diff changeset
149 HTS : constant Character := Character'Val (136);
kono
parents:
diff changeset
150 HTJ : constant Character := Character'Val (137);
kono
parents:
diff changeset
151 VTS : constant Character := Character'Val (138);
kono
parents:
diff changeset
152 PLD : constant Character := Character'Val (139);
kono
parents:
diff changeset
153 PLU : constant Character := Character'Val (140);
kono
parents:
diff changeset
154 RI : constant Character := Character'Val (141);
kono
parents:
diff changeset
155 SS2 : constant Character := Character'Val (142);
kono
parents:
diff changeset
156 SS3 : constant Character := Character'Val (143);
kono
parents:
diff changeset
157
kono
parents:
diff changeset
158 DCS : constant Character := Character'Val (144);
kono
parents:
diff changeset
159 PU1 : constant Character := Character'Val (145);
kono
parents:
diff changeset
160 PU2 : constant Character := Character'Val (146);
kono
parents:
diff changeset
161 STS : constant Character := Character'Val (147);
kono
parents:
diff changeset
162 CCH : constant Character := Character'Val (148);
kono
parents:
diff changeset
163 MW : constant Character := Character'Val (149);
kono
parents:
diff changeset
164 SPA : constant Character := Character'Val (150);
kono
parents:
diff changeset
165 EPA : constant Character := Character'Val (151);
kono
parents:
diff changeset
166
kono
parents:
diff changeset
167 SOS : constant Character := Character'Val (152);
kono
parents:
diff changeset
168 Reserved_153 : constant Character := Character'Val (153);
kono
parents:
diff changeset
169 SCI : constant Character := Character'Val (154);
kono
parents:
diff changeset
170 CSI : constant Character := Character'Val (155);
kono
parents:
diff changeset
171 ST : constant Character := Character'Val (156);
kono
parents:
diff changeset
172 OSC : constant Character := Character'Val (157);
kono
parents:
diff changeset
173 PM : constant Character := Character'Val (158);
kono
parents:
diff changeset
174 APC : constant Character := Character'Val (159);
kono
parents:
diff changeset
175
kono
parents:
diff changeset
176 ------------------------------
kono
parents:
diff changeset
177 -- Other Graphic Characters --
kono
parents:
diff changeset
178 ------------------------------
kono
parents:
diff changeset
179
kono
parents:
diff changeset
180 -- Character positions 160 (16#A0#) .. 175 (16#AF#)
kono
parents:
diff changeset
181
kono
parents:
diff changeset
182 No_Break_Space : constant Character := Character'Val (160);
kono
parents:
diff changeset
183 NBSP : Character renames No_Break_Space;
kono
parents:
diff changeset
184 Inverted_Exclamation : constant Character := Character'Val (161);
kono
parents:
diff changeset
185 Cent_Sign : constant Character := Character'Val (162);
kono
parents:
diff changeset
186 Pound_Sign : constant Character := Character'Val (163);
kono
parents:
diff changeset
187 Currency_Sign : constant Character := Character'Val (164);
kono
parents:
diff changeset
188 Yen_Sign : constant Character := Character'Val (165);
kono
parents:
diff changeset
189 Broken_Bar : constant Character := Character'Val (166);
kono
parents:
diff changeset
190 Section_Sign : constant Character := Character'Val (167);
kono
parents:
diff changeset
191 Diaeresis : constant Character := Character'Val (168);
kono
parents:
diff changeset
192 Copyright_Sign : constant Character := Character'Val (169);
kono
parents:
diff changeset
193 Feminine_Ordinal_Indicator : constant Character := Character'Val (170);
kono
parents:
diff changeset
194 Left_Angle_Quotation : constant Character := Character'Val (171);
kono
parents:
diff changeset
195 Not_Sign : constant Character := Character'Val (172);
kono
parents:
diff changeset
196 Soft_Hyphen : constant Character := Character'Val (173);
kono
parents:
diff changeset
197 Registered_Trade_Mark_Sign : constant Character := Character'Val (174);
kono
parents:
diff changeset
198 Macron : constant Character := Character'Val (175);
kono
parents:
diff changeset
199
kono
parents:
diff changeset
200 -- Character positions 176 (16#B0#) .. 191 (16#BF#)
kono
parents:
diff changeset
201
kono
parents:
diff changeset
202 Degree_Sign : constant Character := Character'Val (176);
kono
parents:
diff changeset
203 Ring_Above : Character renames Degree_Sign;
kono
parents:
diff changeset
204 Plus_Minus_Sign : constant Character := Character'Val (177);
kono
parents:
diff changeset
205 Superscript_Two : constant Character := Character'Val (178);
kono
parents:
diff changeset
206 Superscript_Three : constant Character := Character'Val (179);
kono
parents:
diff changeset
207 Acute : constant Character := Character'Val (180);
kono
parents:
diff changeset
208 Micro_Sign : constant Character := Character'Val (181);
kono
parents:
diff changeset
209 Pilcrow_Sign : constant Character := Character'Val (182);
kono
parents:
diff changeset
210 Paragraph_Sign : Character renames Pilcrow_Sign;
kono
parents:
diff changeset
211 Middle_Dot : constant Character := Character'Val (183);
kono
parents:
diff changeset
212 Cedilla : constant Character := Character'Val (184);
kono
parents:
diff changeset
213 Superscript_One : constant Character := Character'Val (185);
kono
parents:
diff changeset
214 Masculine_Ordinal_Indicator : constant Character := Character'Val (186);
kono
parents:
diff changeset
215 Right_Angle_Quotation : constant Character := Character'Val (187);
kono
parents:
diff changeset
216 Fraction_One_Quarter : constant Character := Character'Val (188);
kono
parents:
diff changeset
217 Fraction_One_Half : constant Character := Character'Val (189);
kono
parents:
diff changeset
218 Fraction_Three_Quarters : constant Character := Character'Val (190);
kono
parents:
diff changeset
219 Inverted_Question : constant Character := Character'Val (191);
kono
parents:
diff changeset
220
kono
parents:
diff changeset
221 -- Character positions 192 (16#C0#) .. 207 (16#CF#)
kono
parents:
diff changeset
222
kono
parents:
diff changeset
223 UC_A_Grave : constant Character := Character'Val (192);
kono
parents:
diff changeset
224 UC_A_Acute : constant Character := Character'Val (193);
kono
parents:
diff changeset
225 UC_A_Circumflex : constant Character := Character'Val (194);
kono
parents:
diff changeset
226 UC_A_Tilde : constant Character := Character'Val (195);
kono
parents:
diff changeset
227 UC_A_Diaeresis : constant Character := Character'Val (196);
kono
parents:
diff changeset
228 UC_A_Ring : constant Character := Character'Val (197);
kono
parents:
diff changeset
229 UC_AE_Diphthong : constant Character := Character'Val (198);
kono
parents:
diff changeset
230 UC_C_Cedilla : constant Character := Character'Val (199);
kono
parents:
diff changeset
231 UC_E_Grave : constant Character := Character'Val (200);
kono
parents:
diff changeset
232 UC_E_Acute : constant Character := Character'Val (201);
kono
parents:
diff changeset
233 UC_E_Circumflex : constant Character := Character'Val (202);
kono
parents:
diff changeset
234 UC_E_Diaeresis : constant Character := Character'Val (203);
kono
parents:
diff changeset
235 UC_I_Grave : constant Character := Character'Val (204);
kono
parents:
diff changeset
236 UC_I_Acute : constant Character := Character'Val (205);
kono
parents:
diff changeset
237 UC_I_Circumflex : constant Character := Character'Val (206);
kono
parents:
diff changeset
238 UC_I_Diaeresis : constant Character := Character'Val (207);
kono
parents:
diff changeset
239
kono
parents:
diff changeset
240 -- Character positions 208 (16#D0#) .. 223 (16#DF#)
kono
parents:
diff changeset
241
kono
parents:
diff changeset
242 UC_Icelandic_Eth : constant Character := Character'Val (208);
kono
parents:
diff changeset
243 UC_N_Tilde : constant Character := Character'Val (209);
kono
parents:
diff changeset
244 UC_O_Grave : constant Character := Character'Val (210);
kono
parents:
diff changeset
245 UC_O_Acute : constant Character := Character'Val (211);
kono
parents:
diff changeset
246 UC_O_Circumflex : constant Character := Character'Val (212);
kono
parents:
diff changeset
247 UC_O_Tilde : constant Character := Character'Val (213);
kono
parents:
diff changeset
248 UC_O_Diaeresis : constant Character := Character'Val (214);
kono
parents:
diff changeset
249 Multiplication_Sign : constant Character := Character'Val (215);
kono
parents:
diff changeset
250 UC_O_Oblique_Stroke : constant Character := Character'Val (216);
kono
parents:
diff changeset
251 UC_U_Grave : constant Character := Character'Val (217);
kono
parents:
diff changeset
252 UC_U_Acute : constant Character := Character'Val (218);
kono
parents:
diff changeset
253 UC_U_Circumflex : constant Character := Character'Val (219);
kono
parents:
diff changeset
254 UC_U_Diaeresis : constant Character := Character'Val (220);
kono
parents:
diff changeset
255 UC_Y_Acute : constant Character := Character'Val (221);
kono
parents:
diff changeset
256 UC_Icelandic_Thorn : constant Character := Character'Val (222);
kono
parents:
diff changeset
257 LC_German_Sharp_S : constant Character := Character'Val (223);
kono
parents:
diff changeset
258
kono
parents:
diff changeset
259 -- Character positions 224 (16#E0#) .. 239 (16#EF#)
kono
parents:
diff changeset
260
kono
parents:
diff changeset
261 LC_A_Grave : constant Character := Character'Val (224);
kono
parents:
diff changeset
262 LC_A_Acute : constant Character := Character'Val (225);
kono
parents:
diff changeset
263 LC_A_Circumflex : constant Character := Character'Val (226);
kono
parents:
diff changeset
264 LC_A_Tilde : constant Character := Character'Val (227);
kono
parents:
diff changeset
265 LC_A_Diaeresis : constant Character := Character'Val (228);
kono
parents:
diff changeset
266 LC_A_Ring : constant Character := Character'Val (229);
kono
parents:
diff changeset
267 LC_AE_Diphthong : constant Character := Character'Val (230);
kono
parents:
diff changeset
268 LC_C_Cedilla : constant Character := Character'Val (231);
kono
parents:
diff changeset
269 LC_E_Grave : constant Character := Character'Val (232);
kono
parents:
diff changeset
270 LC_E_Acute : constant Character := Character'Val (233);
kono
parents:
diff changeset
271 LC_E_Circumflex : constant Character := Character'Val (234);
kono
parents:
diff changeset
272 LC_E_Diaeresis : constant Character := Character'Val (235);
kono
parents:
diff changeset
273 LC_I_Grave : constant Character := Character'Val (236);
kono
parents:
diff changeset
274 LC_I_Acute : constant Character := Character'Val (237);
kono
parents:
diff changeset
275 LC_I_Circumflex : constant Character := Character'Val (238);
kono
parents:
diff changeset
276 LC_I_Diaeresis : constant Character := Character'Val (239);
kono
parents:
diff changeset
277
kono
parents:
diff changeset
278 -- Character positions 240 (16#F0#) .. 255 (16#FF)
kono
parents:
diff changeset
279 LC_Icelandic_Eth : constant Character := Character'Val (240);
kono
parents:
diff changeset
280 LC_N_Tilde : constant Character := Character'Val (241);
kono
parents:
diff changeset
281 LC_O_Grave : constant Character := Character'Val (242);
kono
parents:
diff changeset
282 LC_O_Acute : constant Character := Character'Val (243);
kono
parents:
diff changeset
283 LC_O_Circumflex : constant Character := Character'Val (244);
kono
parents:
diff changeset
284 LC_O_Tilde : constant Character := Character'Val (245);
kono
parents:
diff changeset
285 LC_O_Diaeresis : constant Character := Character'Val (246);
kono
parents:
diff changeset
286 Division_Sign : constant Character := Character'Val (247);
kono
parents:
diff changeset
287 LC_O_Oblique_Stroke : constant Character := Character'Val (248);
kono
parents:
diff changeset
288 LC_U_Grave : constant Character := Character'Val (249);
kono
parents:
diff changeset
289 LC_U_Acute : constant Character := Character'Val (250);
kono
parents:
diff changeset
290 LC_U_Circumflex : constant Character := Character'Val (251);
kono
parents:
diff changeset
291 LC_U_Diaeresis : constant Character := Character'Val (252);
kono
parents:
diff changeset
292 LC_Y_Acute : constant Character := Character'Val (253);
kono
parents:
diff changeset
293 LC_Icelandic_Thorn : constant Character := Character'Val (254);
kono
parents:
diff changeset
294 LC_Y_Diaeresis : constant Character := Character'Val (255);
kono
parents:
diff changeset
295
kono
parents:
diff changeset
296 end Ada.Characters.Latin_1;