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