?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Add hppa-openbsd target
[official-gcc.git] / gcc / ada / a-swmwco.ads
blob870167e471c4e500e0e258adccd9e76f7450d6ef
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT RUN-TIME COMPONENTS --
4 -- --
5 -- A D A . S T R I N G S . W I D E _ M A P S . W I D E _ C O N S T A N T S --
6 -- --
7 -- S p e c --
8 -- --
9 -- --
10 -- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
11 -- --
12 -- This specification is derived from the Ada Reference Manual for use with --
13 -- GNAT. The copyright notice above, and the license provisions that follow --
14 -- apply solely to the contents of the part following the private keyword. --
15 -- --
16 -- GNAT is free software; you can redistribute it and/or modify it under --
17 -- terms of the GNU General Public License as published by the Free Soft- --
18 -- ware Foundation; either version 2, or (at your option) any later ver- --
19 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
20 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
21 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
22 -- for more details. You should have received a copy of the GNU General --
23 -- Public License distributed with GNAT; see file COPYING. If not, write --
24 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
25 -- MA 02111-1307, USA. --
26 -- --
27 -- As a special exception, if other files instantiate generics from this --
28 -- unit, or you link this unit with other files to produce an executable, --
29 -- this unit does not by itself cause the resulting executable to be --
30 -- covered by the GNU General Public License. This exception does not --
31 -- however invalidate any other reasons why the executable file might be --
32 -- covered by the GNU Public License. --
33 -- --
34 -- GNAT was originally developed by the GNAT team at New York University. --
35 -- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
36 -- --
37 ------------------------------------------------------------------------------
38
39 with Ada.Characters.Wide_Latin_1;
40
41 package Ada.Strings.Wide_Maps.Wide_Constants is
42 pragma Preelaborate (Wide_Constants);
43
44 Control_Set : constant Wide_Maps.Wide_Character_Set;
45 Graphic_Set : constant Wide_Maps.Wide_Character_Set;
46 Letter_Set : constant Wide_Maps.Wide_Character_Set;
47 Lower_Set : constant Wide_Maps.Wide_Character_Set;
48 Upper_Set : constant Wide_Maps.Wide_Character_Set;
49 Basic_Set : constant Wide_Maps.Wide_Character_Set;
50 Decimal_Digit_Set : constant Wide_Maps.Wide_Character_Set;
51 Hexadecimal_Digit_Set : constant Wide_Maps.Wide_Character_Set;
52 Alphanumeric_Set : constant Wide_Maps.Wide_Character_Set;
53 Special_Graphic_Set : constant Wide_Maps.Wide_Character_Set;
54 ISO_646_Set : constant Wide_Maps.Wide_Character_Set;
55 Character_Set : constant Wide_Maps.Wide_Character_Set;
56
57 Lower_Case_Map : constant Wide_Maps.Wide_Character_Mapping;
58 -- Maps to lower case for letters, else identity
59
60 Upper_Case_Map : constant Wide_Maps.Wide_Character_Mapping;
61 -- Maps to upper case for letters, else identity
62
63 Basic_Map : constant Wide_Maps.Wide_Character_Mapping;
64 -- Maps to basic letter for letters, else identity
65
66 private
67 package W renames Ada.Characters.Wide_Latin_1;
68
69 subtype WC is Wide_Character;
70
71 Control_Ranges : aliased constant Wide_Character_Ranges :=
72 ((W.NUL, W.US),
73 (W.DEL, W.APC));
74
75 Control_Set : constant Wide_Character_Set :=
76 (AF.Controlled with
77 Control_Ranges'Unrestricted_Access);
78
79 Graphic_Ranges : aliased constant Wide_Character_Ranges :=
80 ((W.Space, W.Tilde),
81 (WC'Val (256), WC'Last));
82
83 Graphic_Set : constant Wide_Character_Set :=
84 (AF.Controlled with
85 Graphic_Ranges'Unrestricted_Access);
86
87 Letter_Ranges : aliased constant Wide_Character_Ranges :=
88 (('A', 'Z'),
89 (W.LC_A, W.LC_Z),
90 (W.UC_A_Grave, W.UC_O_Diaeresis),
91 (W.UC_O_Oblique_Stroke, W.LC_O_Diaeresis),
92 (W.LC_O_Oblique_Stroke, W.LC_Y_Diaeresis));
93
94 Letter_Set : constant Wide_Character_Set :=
95 (AF.Controlled with
96 Letter_Ranges'Unrestricted_Access);
97
98 Lower_Ranges : aliased constant Wide_Character_Ranges :=
99 (1 => (W.LC_A, W.LC_Z),
100 2 => (W.LC_German_Sharp_S, W.LC_O_Diaeresis),
101 3 => (W.LC_O_Oblique_Stroke, W.LC_Y_Diaeresis));
102
103 Lower_Set : constant Wide_Character_Set :=
104 (AF.Controlled with
105 Lower_Ranges'Unrestricted_Access);
106
107 Upper_Ranges : aliased constant Wide_Character_Ranges :=
108 (1 => ('A', 'Z'),
109 2 => (W.UC_A_Grave, W.UC_O_Diaeresis),
110 3 => (W.UC_O_Oblique_Stroke, W.UC_Icelandic_Thorn));
111
112 Upper_Set : constant Wide_Character_Set :=
113 (AF.Controlled with
114 Upper_Ranges'Unrestricted_Access);
115
116 Basic_Ranges : aliased constant Wide_Character_Ranges :=
117 (1 => ('A', 'Z'),
118 2 => (W.LC_A, W.LC_Z),
119 3 => (W.UC_AE_Diphthong, W.UC_AE_Diphthong),
120 4 => (W.LC_AE_Diphthong, W.LC_AE_Diphthong),
121 5 => (W.LC_German_Sharp_S, W.LC_German_Sharp_S),
122 6 => (W.UC_Icelandic_Thorn, W.UC_Icelandic_Thorn),
123 7 => (W.LC_Icelandic_Thorn, W.LC_Icelandic_Thorn),
124 8 => (W.UC_Icelandic_Eth, W.UC_Icelandic_Eth),
125 9 => (W.LC_Icelandic_Eth, W.LC_Icelandic_Eth));
126
127 Basic_Set : constant Wide_Character_Set :=
128 (AF.Controlled with
129 Basic_Ranges'Unrestricted_Access);
130
131 Decimal_Digit_Ranges : aliased constant Wide_Character_Ranges :=
132 (1 => ('0', '9'));
133
134 Decimal_Digit_Set : constant Wide_Character_Set :=
135 (AF.Controlled with
136 Decimal_Digit_Ranges'Unrestricted_Access);
137
138 Hexadecimal_Digit_Ranges : aliased constant Wide_Character_Ranges :=
139 (1 => ('0', '9'),
140 2 => ('A', 'F'),
141 3 => (W.LC_A, W.LC_F));
142
143 Hexadecimal_Digit_Set : constant Wide_Character_Set :=
144 (AF.Controlled with
145 Hexadecimal_Digit_Ranges'Unrestricted_Access);
146
147 Alphanumeric_Ranges : aliased constant Wide_Character_Ranges :=
148 (1 => ('0', '9'),
149 2 => ('A', 'Z'),
150 3 => (W.LC_A, W.LC_Z),
151 4 => (W.UC_A_Grave, W.UC_O_Diaeresis),
152 5 => (W.UC_O_Oblique_Stroke, W.LC_O_Diaeresis),
153 6 => (W.LC_O_Oblique_Stroke, W.LC_Y_Diaeresis));
154
155 Alphanumeric_Set : constant Wide_Character_Set :=
156 (AF.Controlled with
157 Alphanumeric_Ranges'Unrestricted_Access);
158
159 Special_Graphic_Ranges : aliased constant Wide_Character_Ranges :=
160 (1 => (Wide_Space, W.Solidus),
161 2 => (W.Colon, W.Commercial_At),
162 3 => (W.Left_Square_Bracket, W.Grave),
163 4 => (W.Left_Curly_Bracket, W.Tilde),
164 5 => (W.No_Break_Space, W.Inverted_Question),
165 6 => (W.Multiplication_Sign, W.Multiplication_Sign),
166 7 => (W.Division_Sign, W.Division_Sign));
167
168 Special_Graphic_Set : constant Wide_Character_Set :=
169 (AF.Controlled with
170 Special_Graphic_Ranges'Unrestricted_Access);
171
172 ISO_646_Ranges : aliased constant Wide_Character_Ranges :=
173 (1 => (W.NUL, W.DEL));
174
175 ISO_646_Set : constant Wide_Character_Set :=
176 (AF.Controlled with
177 ISO_646_Ranges'Unrestricted_Access);
178
179 Character_Ranges : aliased constant Wide_Character_Ranges :=
180 (1 => (W.NUL, WC'Val (255)));
181
182 Character_Set : constant Wide_Character_Set :=
183 (AF.Controlled with
184 Character_Ranges'Unrestricted_Access);
185
186
187 Lower_Case_Mapping : aliased constant Wide_Character_Mapping_Values :=
188 (Length => 56,
189
190 Domain =>
191 "ABCDEFGHIJKLMNOPQRSTUVWXYZ" &
192 W.UC_A_Grave &
193 W.UC_A_Acute &
194 W.UC_A_Circumflex &
195 W.UC_A_Tilde &
196 W.UC_A_Diaeresis &
197 W.UC_A_Ring &
198 W.UC_AE_Diphthong &
199 W.UC_C_Cedilla &
200 W.UC_E_Grave &
201 W.UC_E_Acute &
202 W.UC_E_Circumflex &
203 W.UC_E_Diaeresis &
204 W.UC_I_Grave &
205 W.UC_I_Acute &
206 W.UC_I_Circumflex &
207 W.UC_I_Diaeresis &
208 W.UC_Icelandic_Eth &
209 W.UC_N_Tilde &
210 W.UC_O_Grave &
211 W.UC_O_Acute &
212 W.UC_O_Circumflex &
213 W.UC_O_Tilde &
214 W.UC_O_Diaeresis &
215 W.UC_O_Oblique_Stroke &
216 W.UC_U_Grave &
217 W.UC_U_Acute &
218 W.UC_U_Circumflex &
219 W.UC_U_Diaeresis &
220 W.UC_Y_Acute &
221 W.UC_Icelandic_Thorn,
222
223 Rangev =>
224 "abcdefghijklmnopqrstuvwxyz" &
225 W.LC_A_Grave &
226 W.LC_A_Acute &
227 W.LC_A_Circumflex &
228 W.LC_A_Tilde &
229 W.LC_A_Diaeresis &
230 W.LC_A_Ring &
231 W.LC_AE_Diphthong &
232 W.LC_C_Cedilla &
233 W.LC_E_Grave &
234 W.LC_E_Acute &
235 W.LC_E_Circumflex &
236 W.LC_E_Diaeresis &
237 W.LC_I_Grave &
238 W.LC_I_Acute &
239 W.LC_I_Circumflex &
240 W.LC_I_Diaeresis &
241 W.LC_Icelandic_Eth &
242 W.LC_N_Tilde &
243 W.LC_O_Grave &
244 W.LC_O_Acute &
245 W.LC_O_Circumflex &
246 W.LC_O_Tilde &
247 W.LC_O_Diaeresis &
248 W.LC_O_Oblique_Stroke &
249 W.LC_U_Grave &
250 W.LC_U_Acute &
251 W.LC_U_Circumflex &
252 W.LC_U_Diaeresis &
253 W.LC_Y_Acute &
254 W.LC_Icelandic_Thorn);
255
256 Lower_Case_Map : constant Wide_Character_Mapping :=
257 (AF.Controlled with
258 Map => Lower_Case_Mapping'Unrestricted_Access);
259
260 Upper_Case_Mapping : aliased constant Wide_Character_Mapping_Values :=
261 (Length => 56,
262
263 Domain =>
264 "abcdefghijklmnopqrstuvwxyz" &
265 W.LC_A_Grave &
266 W.LC_A_Acute &
267 W.LC_A_Circumflex &
268 W.LC_A_Tilde &
269 W.LC_A_Diaeresis &
270 W.LC_A_Ring &
271 W.LC_AE_Diphthong &
272 W.LC_C_Cedilla &
273 W.LC_E_Grave &
274 W.LC_E_Acute &
275 W.LC_E_Circumflex &
276 W.LC_E_Diaeresis &
277 W.LC_I_Grave &
278 W.LC_I_Acute &
279 W.LC_I_Circumflex &
280 W.LC_I_Diaeresis &
281 W.LC_Icelandic_Eth &
282 W.LC_N_Tilde &
283 W.LC_O_Grave &
284 W.LC_O_Acute &
285 W.LC_O_Circumflex &
286 W.LC_O_Tilde &
287 W.LC_O_Diaeresis &
288 W.LC_O_Oblique_Stroke &
289 W.LC_U_Grave &
290 W.LC_U_Acute &
291 W.LC_U_Circumflex &
292 W.LC_U_Diaeresis &
293 W.LC_Y_Acute &
294 W.LC_Icelandic_Thorn,
295
296 Rangev =>
297 "ABCDEFGHIJKLMNOPQRSTUVWXYZ" &
298 W.UC_A_Grave &
299 W.UC_A_Acute &
300 W.UC_A_Circumflex &
301 W.UC_A_Tilde &
302 W.UC_A_Diaeresis &
303 W.UC_A_Ring &
304 W.UC_AE_Diphthong &
305 W.UC_C_Cedilla &
306 W.UC_E_Grave &
307 W.UC_E_Acute &
308 W.UC_E_Circumflex &
309 W.UC_E_Diaeresis &
310 W.UC_I_Grave &
311 W.UC_I_Acute &
312 W.UC_I_Circumflex &
313 W.UC_I_Diaeresis &
314 W.UC_Icelandic_Eth &
315 W.UC_N_Tilde &
316 W.UC_O_Grave &
317 W.UC_O_Acute &
318 W.UC_O_Circumflex &
319 W.UC_O_Tilde &
320 W.UC_O_Diaeresis &
321 W.UC_O_Oblique_Stroke &
322 W.UC_U_Grave &
323 W.UC_U_Acute &
324 W.UC_U_Circumflex &
325 W.UC_U_Diaeresis &
326 W.UC_Y_Acute &
327 W.UC_Icelandic_Thorn);
328
329 Upper_Case_Map : constant Wide_Character_Mapping :=
330 (AF.Controlled with
331 Upper_Case_Mapping'Unrestricted_Access);
332
333 Basic_Mapping : aliased constant Wide_Character_Mapping_Values :=
334 (Length => 55,
335
336 Domain =>
337 W.UC_A_Grave &
338 W.UC_A_Acute &
339 W.UC_A_Circumflex &
340 W.UC_A_Tilde &
341 W.UC_A_Diaeresis &
342 W.UC_A_Ring &
343 W.UC_C_Cedilla &
344 W.UC_E_Grave &
345 W.UC_E_Acute &
346 W.UC_E_Circumflex &
347 W.UC_E_Diaeresis &
348 W.UC_I_Grave &
349 W.UC_I_Acute &
350 W.UC_I_Circumflex &
351 W.UC_I_Diaeresis &
352 W.UC_N_Tilde &
353 W.UC_O_Grave &
354 W.UC_O_Acute &
355 W.UC_O_Circumflex &
356 W.UC_O_Tilde &
357 W.UC_O_Diaeresis &
358 W.UC_O_Oblique_Stroke &
359 W.UC_U_Grave &
360 W.UC_U_Acute &
361 W.UC_U_Circumflex &
362 W.UC_U_Diaeresis &
363 W.UC_Y_Acute &
364 W.LC_A_Grave &
365 W.LC_A_Acute &
366 W.LC_A_Circumflex &
367 W.LC_A_Tilde &
368 W.LC_A_Diaeresis &
369 W.LC_A_Ring &
370 W.LC_C_Cedilla &
371 W.LC_E_Grave &
372 W.LC_E_Acute &
373 W.LC_E_Circumflex &
374 W.LC_E_Diaeresis &
375 W.LC_I_Grave &
376 W.LC_I_Acute &
377 W.LC_I_Circumflex &
378 W.LC_I_Diaeresis &
379 W.LC_N_Tilde &
380 W.LC_O_Grave &
381 W.LC_O_Acute &
382 W.LC_O_Circumflex &
383 W.LC_O_Tilde &
384 W.LC_O_Diaeresis &
385 W.LC_O_Oblique_Stroke &
386 W.LC_U_Grave &
387 W.LC_U_Acute &
388 W.LC_U_Circumflex &
389 W.LC_U_Diaeresis &
390 W.LC_Y_Acute &
391 W.LC_Y_Diaeresis,
392
393 Rangev =>
394 'A' & -- UC_A_Grave
395 'A' & -- UC_A_Acute
396 'A' & -- UC_A_Circumflex
397 'A' & -- UC_A_Tilde
398 'A' & -- UC_A_Diaeresis
399 'A' & -- UC_A_Ring
400 'C' & -- UC_C_Cedilla
401 'E' & -- UC_E_Grave
402 'E' & -- UC_E_Acute
403 'E' & -- UC_E_Circumflex
404 'E' & -- UC_E_Diaeresis
405 'I' & -- UC_I_Grave
406 'I' & -- UC_I_Acute
407 'I' & -- UC_I_Circumflex
408 'I' & -- UC_I_Diaeresis
409 'N' & -- UC_N_Tilde
410 'O' & -- UC_O_Grave
411 'O' & -- UC_O_Acute
412 'O' & -- UC_O_Circumflex
413 'O' & -- UC_O_Tilde
414 'O' & -- UC_O_Diaeresis
415 'O' & -- UC_O_Oblique_Stroke
416 'U' & -- UC_U_Grave
417 'U' & -- UC_U_Acute
418 'U' & -- UC_U_Circumflex
419 'U' & -- UC_U_Diaeresis
420 'Y' & -- UC_Y_Acute
421 'a' & -- LC_A_Grave
422 'a' & -- LC_A_Acute
423 'a' & -- LC_A_Circumflex
424 'a' & -- LC_A_Tilde
425 'a' & -- LC_A_Diaeresis
426 'a' & -- LC_A_Ring
427 'c' & -- LC_C_Cedilla
428 'e' & -- LC_E_Grave
429 'e' & -- LC_E_Acute
430 'e' & -- LC_E_Circumflex
431 'e' & -- LC_E_Diaeresis
432 'i' & -- LC_I_Grave
433 'i' & -- LC_I_Acute
434 'i' & -- LC_I_Circumflex
435 'i' & -- LC_I_Diaeresis
436 'n' & -- LC_N_Tilde
437 'o' & -- LC_O_Grave
438 'o' & -- LC_O_Acute
439 'o' & -- LC_O_Circumflex
440 'o' & -- LC_O_Tilde
441 'o' & -- LC_O_Diaeresis
442 'o' & -- LC_O_Oblique_Stroke
443 'u' & -- LC_U_Grave
444 'u' & -- LC_U_Acute
445 'u' & -- LC_U_Circumflex
446 'u' & -- LC_U_Diaeresis
447 'y' & -- LC_Y_Acute
448 'y'); -- LC_Y_Diaeresis
449
450 Basic_Map : constant Wide_Character_Mapping :=
451 (AF.Controlled with
452 Basic_Mapping'Unrestricted_Access);
453
454 end Ada.Strings.Wide_Maps.Wide_Constants;
Mirror of the offical gcc git repository hosted at gcc.gnu.org