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