OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [ada/] [csets.adb] - Blame information for rev 768

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 706 jeremybenn 
------------------------------------------------------------------------------
2 
--                                                                          --
3 
--                         GNAT COMPILER COMPONENTS                         --
4 
--                                                                          --
5 
--                                C S E T S                                 --
6 
--                                                                          --
7 
--                                 B o d y                                  --
8 
--                                                                          --
9 
--          Copyright (C) 1992-2010, Free Software Foundation, Inc.         --
10 
--                                                                          --
11 
-- GNAT is free software;  you can  redistribute it  and/or modify it under --
12 
-- terms of the  GNU General Public License as published  by the Free Soft- --
13 
-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
14 
-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
15 
-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
16 
-- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
17 
--                                                                          --
18 
-- As a special exception under Section 7 of GPL version 3, you are granted --
19 
-- additional permissions described in the GCC Runtime Library Exception,   --
20 
-- version 3.1, as published by the Free Software Foundation.               --
21 
--                                                                          --
22 
-- You should have received a copy of the GNU General Public License and    --
23 
-- a copy of the GCC Runtime Library Exception along with this program;     --
24 
-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
25 
-- <http://www.gnu.org/licenses/>.                                          --
26 
--                                                                          --
27 
-- GNAT was originally developed  by the GNAT team at  New York University. --
28 
-- Extensive contributions were provided by Ada Core Technologies Inc.      --
29 
--                                                                          --
30 
------------------------------------------------------------------------------
31 
 
32 
with Opt;   use Opt;
33 
 
34 
with System.WCh_Con; use System.WCh_Con;
35 
 
36 
package body Csets is
37 
 
38 
   X_80 : constant Character := Character'Val (16#80#);
39 
   X_81 : constant Character := Character'Val (16#81#);
40 
   X_82 : constant Character := Character'Val (16#82#);
41 
   X_83 : constant Character := Character'Val (16#83#);
42 
   X_84 : constant Character := Character'Val (16#84#);
43 
   X_85 : constant Character := Character'Val (16#85#);
44 
   X_86 : constant Character := Character'Val (16#86#);
45 
   X_87 : constant Character := Character'Val (16#87#);
46 
   X_88 : constant Character := Character'Val (16#88#);
47 
   X_89 : constant Character := Character'Val (16#89#);
48 
   X_8A : constant Character := Character'Val (16#8A#);
49 
   X_8B : constant Character := Character'Val (16#8B#);
50 
   X_8C : constant Character := Character'Val (16#8C#);
51 
   X_8D : constant Character := Character'Val (16#8D#);
52 
   X_8E : constant Character := Character'Val (16#8E#);
53 
   X_8F : constant Character := Character'Val (16#8F#);
54 
   X_90 : constant Character := Character'Val (16#90#);
55 
   X_91 : constant Character := Character'Val (16#91#);
56 
   X_92 : constant Character := Character'Val (16#92#);
57 
   X_93 : constant Character := Character'Val (16#93#);
58 
   X_94 : constant Character := Character'Val (16#94#);
59 
   X_95 : constant Character := Character'Val (16#95#);
60 
   X_96 : constant Character := Character'Val (16#96#);
61 
   X_97 : constant Character := Character'Val (16#97#);
62 
   X_98 : constant Character := Character'Val (16#98#);
63 
   X_99 : constant Character := Character'Val (16#99#);
64 
   X_9A : constant Character := Character'Val (16#9A#);
65 
   X_9B : constant Character := Character'Val (16#9B#);
66 
   X_9C : constant Character := Character'Val (16#9C#);
67 
   X_9D : constant Character := Character'Val (16#9D#);
68 
   X_9E : constant Character := Character'Val (16#9E#);
69 
   X_9F : constant Character := Character'Val (16#9F#);
70 
   X_A0 : constant Character := Character'Val (16#A0#);
71 
   X_A1 : constant Character := Character'Val (16#A1#);
72 
   X_A2 : constant Character := Character'Val (16#A2#);
73 
   X_A3 : constant Character := Character'Val (16#A3#);
74 
   X_A4 : constant Character := Character'Val (16#A4#);
75 
   X_A5 : constant Character := Character'Val (16#A5#);
76 
   X_A6 : constant Character := Character'Val (16#A6#);
77 
   X_A7 : constant Character := Character'Val (16#A7#);
78 
   X_A8 : constant Character := Character'Val (16#A8#);
79 
   X_A9 : constant Character := Character'Val (16#A9#);
80 
   X_AA : constant Character := Character'Val (16#AA#);
81 
   X_AB : constant Character := Character'Val (16#AB#);
82 
   X_AC : constant Character := Character'Val (16#AC#);
83 
   X_AD : constant Character := Character'Val (16#AD#);
84 
   X_AE : constant Character := Character'Val (16#AE#);
85 
   X_AF : constant Character := Character'Val (16#AF#);
86 
   X_B0 : constant Character := Character'Val (16#B0#);
87 
   X_B1 : constant Character := Character'Val (16#B1#);
88 
   X_B2 : constant Character := Character'Val (16#B2#);
89 
   X_B3 : constant Character := Character'Val (16#B3#);
90 
   X_B4 : constant Character := Character'Val (16#B4#);
91 
   X_B5 : constant Character := Character'Val (16#B5#);
92 
   X_B6 : constant Character := Character'Val (16#B6#);
93 
   X_B7 : constant Character := Character'Val (16#B7#);
94 
   X_B8 : constant Character := Character'Val (16#B8#);
95 
   X_B9 : constant Character := Character'Val (16#B9#);
96 
   X_BA : constant Character := Character'Val (16#BA#);
97 
   X_BB : constant Character := Character'Val (16#BB#);
98 
   X_BC : constant Character := Character'Val (16#BC#);
99 
   X_BD : constant Character := Character'Val (16#BD#);
100 
   X_BE : constant Character := Character'Val (16#BE#);
101 
   X_BF : constant Character := Character'Val (16#BF#);
102 
   X_C0 : constant Character := Character'Val (16#C0#);
103 
   X_C1 : constant Character := Character'Val (16#C1#);
104 
   X_C2 : constant Character := Character'Val (16#C2#);
105 
   X_C3 : constant Character := Character'Val (16#C3#);
106 
   X_C4 : constant Character := Character'Val (16#C4#);
107 
   X_C5 : constant Character := Character'Val (16#C5#);
108 
   X_C6 : constant Character := Character'Val (16#C6#);
109 
   X_C7 : constant Character := Character'Val (16#C7#);
110 
   X_C8 : constant Character := Character'Val (16#C8#);
111 
   X_C9 : constant Character := Character'Val (16#C9#);
112 
   X_CA : constant Character := Character'Val (16#CA#);
113 
   X_CB : constant Character := Character'Val (16#CB#);
114 
   X_CC : constant Character := Character'Val (16#CC#);
115 
   X_CD : constant Character := Character'Val (16#CD#);
116 
   X_CE : constant Character := Character'Val (16#CE#);
117 
   X_CF : constant Character := Character'Val (16#CF#);
118 
   X_D0 : constant Character := Character'Val (16#D0#);
119 
   X_D1 : constant Character := Character'Val (16#D1#);
120 
   X_D2 : constant Character := Character'Val (16#D2#);
121 
   X_D3 : constant Character := Character'Val (16#D3#);
122 
   X_D4 : constant Character := Character'Val (16#D4#);
123 
   X_D5 : constant Character := Character'Val (16#D5#);
124 
   X_D6 : constant Character := Character'Val (16#D6#);
125 
   X_D7 : constant Character := Character'Val (16#D7#);
126 
   X_D8 : constant Character := Character'Val (16#D8#);
127 
   X_D9 : constant Character := Character'Val (16#D9#);
128 
   X_DA : constant Character := Character'Val (16#DA#);
129 
   X_DB : constant Character := Character'Val (16#DB#);
130 
   X_DC : constant Character := Character'Val (16#DC#);
131 
   X_DD : constant Character := Character'Val (16#DD#);
132 
   X_DE : constant Character := Character'Val (16#DE#);
133 
   X_DF : constant Character := Character'Val (16#DF#);
134 
   X_E0 : constant Character := Character'Val (16#E0#);
135 
   X_E1 : constant Character := Character'Val (16#E1#);
136 
   X_E2 : constant Character := Character'Val (16#E2#);
137 
   X_E3 : constant Character := Character'Val (16#E3#);
138 
   X_E4 : constant Character := Character'Val (16#E4#);
139 
   X_E5 : constant Character := Character'Val (16#E5#);
140 
   X_E6 : constant Character := Character'Val (16#E6#);
141 
   X_E7 : constant Character := Character'Val (16#E7#);
142 
   X_E8 : constant Character := Character'Val (16#E8#);
143 
   X_E9 : constant Character := Character'Val (16#E9#);
144 
   X_EA : constant Character := Character'Val (16#EA#);
145 
   X_EB : constant Character := Character'Val (16#EB#);
146 
   X_EC : constant Character := Character'Val (16#EC#);
147 
   X_ED : constant Character := Character'Val (16#ED#);
148 
   X_EE : constant Character := Character'Val (16#EE#);
149 
   X_EF : constant Character := Character'Val (16#EF#);
150 
   X_F0 : constant Character := Character'Val (16#F0#);
151 
   X_F1 : constant Character := Character'Val (16#F1#);
152 
   X_F2 : constant Character := Character'Val (16#F2#);
153 
   X_F3 : constant Character := Character'Val (16#F3#);
154 
   X_F4 : constant Character := Character'Val (16#F4#);
155 
   X_F5 : constant Character := Character'Val (16#F5#);
156 
   X_F6 : constant Character := Character'Val (16#F6#);
157 
   X_F7 : constant Character := Character'Val (16#F7#);
158 
   X_F8 : constant Character := Character'Val (16#F8#);
159 
   X_F9 : constant Character := Character'Val (16#F9#);
160 
   X_FA : constant Character := Character'Val (16#FA#);
161 
   X_FB : constant Character := Character'Val (16#FB#);
162 
   X_FC : constant Character := Character'Val (16#FC#);
163 
   X_FD : constant Character := Character'Val (16#FD#);
164 
   X_FE : constant Character := Character'Val (16#FE#);
165 
   X_FF : constant Character := Character'Val (16#FF#);
166 
 
167 
   ------------------------------------------
168 
   -- Definitions for Latin-1 (ISO 8859-1) --
169 
   ------------------------------------------
170 
 
171 
   Fold_Latin_1 : constant Translate_Table := Translate_Table'(
172 
 
173 
      'a' => 'A',  X_E0 => X_C0,  X_F0 => X_D0,
174 
      'b' => 'B',  X_E1 => X_C1,  X_F1 => X_D1,
175 
      'c' => 'C',  X_E2 => X_C2,  X_F2 => X_D2,
176 
      'd' => 'D',  X_E3 => X_C3,  X_F3 => X_D3,
177 
      'e' => 'E',  X_E4 => X_C4,  X_F4 => X_D4,
178 
      'f' => 'F',  X_E5 => X_C5,  X_F5 => X_D5,
179 
      'g' => 'G',  X_E6 => X_C6,  X_F6 => X_D6,
180 
      'h' => 'H',  X_E7 => X_C7,
181 
      'i' => 'I',  X_E8 => X_C8,  X_F8 => X_D8,
182 
      'j' => 'J',  X_E9 => X_C9,  X_F9 => X_D9,
183 
      'k' => 'K',  X_EA => X_CA,  X_FA => X_DA,
184 
      'l' => 'L',  X_EB => X_CB,  X_FB => X_DB,
185 
      'm' => 'M',  X_EC => X_CC,  X_FC => X_DC,
186 
      'n' => 'N',  X_ED => X_CD,  X_FD => X_DD,
187 
      'o' => 'O',  X_EE => X_CE,  X_FE => X_DE,
188 
      'p' => 'P',  X_EF => X_CF,
189 
      'q' => 'Q',
190 
      'r' => 'R',
191 
      's' => 'S',
192 
      't' => 'T',
193 
      'u' => 'U',
194 
      'v' => 'V',
195 
      'w' => 'W',
196 
      'x' => 'X',
197 
      'y' => 'Y',
198 
      'z' => 'Z',
199 
 
200 
      'A' => 'A',  X_C0 => X_C0,  X_D0 => X_D0,
201 
      'B' => 'B',  X_C1 => X_C1,  X_D1 => X_D1,
202 
      'C' => 'C',  X_C2 => X_C2,  X_D2 => X_D2,
203 
      'D' => 'D',  X_C3 => X_C3,  X_D3 => X_D3,
204 
      'E' => 'E',  X_C4 => X_C4,  X_D4 => X_D4,
205 
      'F' => 'F',  X_C5 => X_C5,  X_D5 => X_D5,
206 
      'G' => 'G',  X_C6 => X_C6,  X_D6 => X_D6,
207 
      'H' => 'H',  X_C7 => X_C7,
208 
      'I' => 'I',  X_C8 => X_C8,  X_D8 => X_D8,
209 
      'J' => 'J',  X_C9 => X_C9,  X_D9 => X_D9,
210 
      'K' => 'K',  X_CA => X_CA,  X_DA => X_DA,
211 
      'L' => 'L',  X_CB => X_CB,  X_DB => X_DB,
212 
      'M' => 'M',  X_CC => X_CC,  X_DC => X_DC,
213 
      'N' => 'N',  X_CD => X_CD,  X_DD => X_DD,
214 
      'O' => 'O',  X_CE => X_CE,  X_DE => X_DE,
215 
      'P' => 'P',  X_CF => X_CF,  X_DF => X_DF,  X_FF => X_FF,
216 
      'Q' => 'Q',
217 
      'R' => 'R',
218 
      'S' => 'S',
219 
      'T' => 'T',
220 
      'U' => 'U',
221 
      'V' => 'V',
222 
      'W' => 'W',
223 
      'X' => 'X',
224 
      'Y' => 'Y',
225 
      'Z' => 'Z',
226 
 
227 
      '0' => '0',
228 
      '1' => '1',
229 
      '2' => '2',
230 
      '3' => '3',
231 
      '4' => '4',
232 
      '5' => '5',
233 
      '6' => '6',
234 
      '7' => '7',
235 
      '8' => '8',
236 
      '9' => '9',
237 
 
238 
      '_' => '_',
239 
 
240 
      others => ' ');
241 
 
242 
   ------------------------------------------
243 
   -- Definitions for Latin-2 (ISO 8859-2) --
244 
   ------------------------------------------
245 
 
246 
   Fold_Latin_2 : constant Translate_Table := Translate_Table'(
247 
 
248 
      'a' => 'A',  X_E0 => X_C0,  X_F0 => X_D0,
249 
      'b' => 'B',  X_E1 => X_C1,  X_F1 => X_D1,  X_B1 => X_A1,
250 
      'c' => 'C',  X_E2 => X_C2,  X_F2 => X_D2,
251 
      'd' => 'D',  X_E3 => X_C3,  X_F3 => X_D3,  X_B3 => X_A3,
252 
      'e' => 'E',  X_E4 => X_C4,  X_F4 => X_D4,
253 
      'f' => 'F',  X_E5 => X_C5,  X_F5 => X_D5,  X_B5 => X_A5,
254 
      'g' => 'G',  X_E6 => X_C6,  X_F6 => X_D6,  X_B6 => X_A6,
255 
      'h' => 'H',  X_E7 => X_C7,
256 
      'i' => 'I',  X_E8 => X_C8,  X_F8 => X_D8,
257 
      'j' => 'J',  X_E9 => X_C9,  X_F9 => X_D9,  X_B9 => X_A9,
258 
      'k' => 'K',  X_EA => X_CA,  X_FA => X_DA,  X_BA => X_AA,
259 
      'l' => 'L',  X_EB => X_CB,  X_FB => X_DB,  X_BB => X_AB,
260 
      'm' => 'M',  X_EC => X_CC,  X_FC => X_DC,  X_BC => X_AC,
261 
      'n' => 'N',  X_ED => X_CD,  X_FD => X_DD,
262 
      'o' => 'O',  X_EE => X_CE,  X_FE => X_DE,  X_BE => X_AE,
263 
      'p' => 'P',  X_EF => X_CF,  X_FF => X_DF,  X_BF => X_AF,
264 
      'q' => 'Q',
265 
      'r' => 'R',
266 
      's' => 'S',
267 
      't' => 'T',
268 
      'u' => 'U',
269 
      'v' => 'V',
270 
      'w' => 'W',
271 
      'x' => 'X',
272 
      'y' => 'Y',
273 
      'z' => 'Z',
274 
 
275 
      'A' => 'A',  X_C0 => X_C0,  X_D0 => X_D0,
276 
      'B' => 'B',  X_C1 => X_C1,  X_D1 => X_D1,  X_A1 => X_A1,
277 
      'C' => 'C',  X_C2 => X_C2,  X_D2 => X_D2,
278 
      'D' => 'D',  X_C3 => X_C3,  X_D3 => X_D3,  X_A3 => X_A3,
279 
      'E' => 'E',  X_C4 => X_C4,  X_D4 => X_D4,
280 
      'F' => 'F',  X_C5 => X_C5,  X_D5 => X_D5,  X_A5 => X_A5,
281 
      'G' => 'G',  X_C6 => X_C6,  X_D6 => X_D6,  X_A6 => X_A6,
282 
      'H' => 'H',  X_C7 => X_C7,
283 
      'I' => 'I',  X_C8 => X_C8,  X_D8 => X_D8,
284 
      'J' => 'J',  X_C9 => X_C9,  X_D9 => X_D9,  X_A9 => X_A9,
285 
      'K' => 'K',  X_CA => X_CA,  X_DA => X_DA,  X_AA => X_AA,
286 
      'L' => 'L',  X_CB => X_CB,  X_DB => X_DB,  X_AB => X_AB,
287 
      'M' => 'M',  X_CC => X_CC,  X_DC => X_DC,  X_AC => X_AC,
288 
      'N' => 'N',  X_CD => X_CD,  X_DD => X_DD,
289 
      'O' => 'O',  X_CE => X_CE,  X_DE => X_DE,  X_AE => X_AE,
290 
      'P' => 'P',  X_CF => X_CF,  X_DF => X_DF,  X_AF => X_AF,
291 
      'Q' => 'Q',
292 
      'R' => 'R',
293 
      'S' => 'S',
294 
      'T' => 'T',
295 
      'U' => 'U',
296 
      'V' => 'V',
297 
      'W' => 'W',
298 
      'X' => 'X',
299 
      'Y' => 'Y',
300 
      'Z' => 'Z',
301 
 
302 
      '0' => '0',
303 
      '1' => '1',
304 
      '2' => '2',
305 
      '3' => '3',
306 
      '4' => '4',
307 
      '5' => '5',
308 
      '6' => '6',
309 
      '7' => '7',
310 
      '8' => '8',
311 
      '9' => '9',
312 
 
313 
      '_' => '_',
314 
 
315 
      others => ' ');
316 
 
317 
   ------------------------------------------
318 
   -- Definitions for Latin-3 (ISO 8859-3) --
319 
   ------------------------------------------
320 
 
321 
   Fold_Latin_3 : constant Translate_Table := Translate_Table'(
322 
 
323 
      'a' => 'A',  X_E0 => X_C0,
324 
      'b' => 'B',  X_E1 => X_C1,  X_F1 => X_D1,  X_B1 => X_A1,
325 
      'c' => 'C',  X_E2 => X_C2,  X_F2 => X_D2,
326 
      'd' => 'D',                 X_F3 => X_D3,
327 
      'e' => 'E',  X_E4 => X_C4,  X_F4 => X_D4,
328 
      'f' => 'F',  X_E5 => X_C5,  X_F5 => X_D5,  X_B5 => X_A5,
329 
      'g' => 'G',  X_E6 => X_C6,  X_F6 => X_D6,  X_B6 => X_A6,
330 
      'h' => 'H',  X_E7 => X_C7,
331 
      'i' => 'I',  X_E8 => X_C8,  X_F8 => X_D8,
332 
      'j' => 'J',  X_E9 => X_C9,  X_F9 => X_D9,  X_B9 => X_A9,
333 
      'k' => 'K',  X_EA => X_CA,  X_FA => X_DA,  X_BA => X_AA,
334 
      'l' => 'L',  X_EB => X_CB,  X_FB => X_DB,  X_BB => X_AB,
335 
      'm' => 'M',  X_EC => X_CC,  X_FC => X_DC,  X_BC => X_AC,
336 
      'n' => 'N',  X_ED => X_CD,  X_FD => X_DD,
337 
      'o' => 'O',  X_EE => X_CE,  X_FE => X_DE,
338 
      'p' => 'P',  X_EF => X_CF,                 X_BF => X_AF,
339 
      'q' => 'Q',
340 
      'r' => 'R',
341 
      's' => 'S',
342 
      't' => 'T',
343 
      'u' => 'U',
344 
      'v' => 'V',
345 
      'w' => 'W',
346 
      'x' => 'X',
347 
      'y' => 'Y',
348 
      'z' => 'Z',
349 
 
350 
      'A' => 'A',  X_C0 => X_C0,
351 
      'B' => 'B',  X_C1 => X_C1,  X_D1 => X_D1,  X_A1 => X_A1,
352 
      'C' => 'C',  X_C2 => X_C2,  X_D2 => X_D2,
353 
      'D' => 'D',                 X_D3 => X_D3,
354 
      'E' => 'E',  X_C4 => X_C4,  X_D4 => X_D4,
355 
      'F' => 'F',  X_C5 => X_C5,  X_D5 => X_D5,  X_A5 => X_A5,
356 
      'G' => 'G',  X_C6 => X_C6,  X_D6 => X_D6,  X_A6 => X_A6,
357 
      'H' => 'H',  X_C7 => X_C7,
358 
      'I' => 'I',  X_C8 => X_C8,  X_D8 => X_D8,
359 
      'J' => 'J',  X_C9 => X_C9,  X_D9 => X_D9,  X_A9 => X_A9,
360 
      'K' => 'K',  X_CA => X_CA,  X_DA => X_DA,  X_AA => X_AA,
361 
      'L' => 'L',  X_CB => X_CB,  X_DB => X_DB,  X_AB => X_AB,
362 
      'M' => 'M',  X_CC => X_CC,  X_DC => X_DC,  X_AC => X_AC,
363 
      'N' => 'N',  X_CD => X_CD,  X_DD => X_DD,
364 
      'O' => 'O',  X_CE => X_CE,  X_DE => X_DE,
365 
      'P' => 'P',  X_CF => X_CF,                 X_AF => X_AF,
366 
      'Q' => 'Q',
367 
      'R' => 'R',
368 
      'S' => 'S',
369 
      'T' => 'T',
370 
      'U' => 'U',
371 
      'V' => 'V',
372 
      'W' => 'W',
373 
      'X' => 'X',
374 
      'Y' => 'Y',
375 
      'Z' => 'Z',
376 
 
377 
      '0' => '0',
378 
      '1' => '1',
379 
      '2' => '2',
380 
      '3' => '3',
381 
      '4' => '4',
382 
      '5' => '5',
383 
      '6' => '6',
384 
      '7' => '7',
385 
      '8' => '8',
386 
      '9' => '9',
387 
 
388 
      '_' => '_',
389 
 
390 
      others => ' ');
391 
 
392 
   ------------------------------------------
393 
   -- Definitions for Latin-4 (ISO 8859-4) --
394 
   ------------------------------------------
395 
 
396 
   Fold_Latin_4 : constant Translate_Table := Translate_Table'(
397 
 
398 
      'a' => 'A',  X_E0 => X_C0,  X_F0 => X_D0,
399 
      'b' => 'B',  X_E1 => X_C1,  X_F1 => X_D1,  X_B1 => X_A1,
400 
      'c' => 'C',  X_E2 => X_C2,  X_F2 => X_D2,
401 
      'd' => 'D',  X_E3 => X_C3,  X_F3 => X_D3,  X_B3 => X_A3,
402 
      'e' => 'E',  X_E4 => X_C4,  X_F4 => X_D4,
403 
      'f' => 'F',  X_E5 => X_C5,  X_F5 => X_D5,  X_B5 => X_A5,
404 
      'g' => 'G',  X_E6 => X_C6,  X_F6 => X_D6,  X_B6 => X_A6,
405 
      'h' => 'H',  X_E7 => X_C7,
406 
      'i' => 'I',  X_E8 => X_C8,  X_F8 => X_D8,
407 
      'j' => 'J',  X_E9 => X_C9,  X_F9 => X_D9,  X_B9 => X_A9,
408 
      'k' => 'K',  X_EA => X_CA,  X_FA => X_DA,  X_BA => X_AA,
409 
      'l' => 'L',  X_EB => X_CB,  X_FB => X_DB,  X_BB => X_AB,
410 
      'm' => 'M',  X_EC => X_CC,  X_FC => X_DC,  X_BC => X_AC,
411 
      'n' => 'N',  X_ED => X_CD,  X_FD => X_DD,
412 
      'o' => 'O',  X_EE => X_CE,  X_FE => X_DE,  X_BE => X_AE,
413 
      'p' => 'P',  X_EF => X_CF,
414 
      'q' => 'Q',
415 
      'r' => 'R',
416 
      's' => 'S',
417 
      't' => 'T',
418 
      'u' => 'U',
419 
      'v' => 'V',
420 
      'w' => 'W',
421 
      'x' => 'X',
422 
      'y' => 'Y',
423 
      'z' => 'Z',
424 
 
425 
      'A' => 'A',  X_C0 => X_C0,  X_D0 => X_D0,
426 
      'B' => 'B',  X_C1 => X_C1,  X_D1 => X_D1,  X_A1 => X_A1,
427 
      'C' => 'C',  X_C2 => X_C2,  X_D2 => X_D2,
428 
      'D' => 'D',  X_C3 => X_C3,  X_D3 => X_D3,  X_A3 => X_A3,
429 
      'E' => 'E',  X_C4 => X_C4,  X_D4 => X_D4,
430 
      'F' => 'F',  X_C5 => X_C5,  X_D5 => X_D5,  X_A5 => X_A5,
431 
      'G' => 'G',  X_C6 => X_C6,  X_D6 => X_D6,  X_A6 => X_A6,
432 
      'H' => 'H',  X_C7 => X_C7,
433 
      'I' => 'I',  X_C8 => X_C8,  X_D8 => X_D8,
434 
      'J' => 'J',  X_C9 => X_C9,  X_D9 => X_D9,  X_A9 => X_A9,
435 
      'K' => 'K',  X_CA => X_CA,  X_DA => X_DA,  X_AA => X_AA,
436 
      'L' => 'L',  X_CB => X_CB,  X_DB => X_DB,  X_AB => X_AB,
437 
      'M' => 'M',  X_CC => X_CC,  X_DC => X_DC,  X_AC => X_AC,
438 
      'N' => 'N',  X_CD => X_CD,  X_DD => X_DD,
439 
      'O' => 'O',  X_CE => X_CE,  X_DE => X_DE,  X_AE => X_AE,
440 
      'P' => 'P',  X_CF => X_CF,
441 
      'Q' => 'Q',
442 
      'R' => 'R',
443 
      'S' => 'S',
444 
      'T' => 'T',
445 
      'U' => 'U',
446 
      'V' => 'V',
447 
      'W' => 'W',
448 
      'X' => 'X',
449 
      'Y' => 'Y',
450 
      'Z' => 'Z',
451 
 
452 
      '0' => '0',
453 
      '1' => '1',
454 
      '2' => '2',
455 
      '3' => '3',
456 
      '4' => '4',
457 
      '5' => '5',
458 
      '6' => '6',
459 
      '7' => '7',
460 
      '8' => '8',
461 
      '9' => '9',
462 
 
463 
      '_' => '_',
464 
 
465 
      others => ' ');
466 
 
467 
   ---------------------------------------------------
468 
   -- Definitions for Latin-5 (Cyrillic ISO-8859-5) --
469 
   ---------------------------------------------------
470 
 
471 
   Fold_Latin_5 : constant Translate_Table := Translate_Table'(
472 
 
473 
      'a' => 'A',  X_D0 => X_B0,  X_E0 => X_C0,
474 
      'b' => 'B',  X_D1 => X_B1,  X_E1 => X_C1,  X_F1 => X_A1,
475 
      'c' => 'C',  X_D2 => X_B2,  X_E2 => X_C2,  X_F2 => X_A2,
476 
      'd' => 'D',  X_D3 => X_B3,  X_E3 => X_C3,  X_F3 => X_A3,
477 
      'e' => 'E',  X_D4 => X_B4,  X_E4 => X_C4,  X_F4 => X_A4,
478 
      'f' => 'F',  X_D5 => X_B5,  X_E5 => X_C5,  X_F5 => X_A5,
479 
      'g' => 'G',  X_D6 => X_B6,  X_E6 => X_C6,  X_F6 => X_A6,
480 
      'h' => 'H',  X_D7 => X_B7,  X_E7 => X_C7,  X_F7 => X_A7,
481 
      'i' => 'I',  X_D8 => X_B8,  X_E8 => X_C8,  X_F8 => X_A8,
482 
      'j' => 'J',  X_D9 => X_B9,  X_E9 => X_C9,  X_F9 => X_A9,
483 
      'k' => 'K',  X_DA => X_BA,  X_EA => X_CA,  X_FA => X_AA,
484 
      'l' => 'L',  X_DB => X_BB,  X_EB => X_CB,  X_FB => X_AB,
485 
      'm' => 'M',  X_DC => X_BC,  X_EC => X_CC,  X_FC => X_AC,
486 
      'n' => 'N',  X_DD => X_BD,  X_ED => X_CD,
487 
      'o' => 'O',  X_DE => X_BE,  X_EE => X_CE,  X_FE => X_AE,
488 
      'p' => 'P',  X_DF => X_BF,  X_EF => X_CF,  X_FF => X_AF,
489 
      'q' => 'Q',
490 
      'r' => 'R',
491 
      's' => 'S',
492 
      't' => 'T',
493 
      'u' => 'U',
494 
      'v' => 'V',
495 
      'w' => 'W',
496 
      'x' => 'X',
497 
      'y' => 'Y',
498 
      'z' => 'Z',
499 
 
500 
      'A' => 'A',  X_B0 => X_B0,  X_C0 => X_C0,
501 
      'B' => 'B',  X_B1 => X_B1,  X_C1 => X_C1,  X_A1 => X_A1,
502 
      'C' => 'C',  X_B2 => X_B2,  X_C2 => X_C2,  X_A2 => X_A2,
503 
      'D' => 'D',  X_B3 => X_B3,  X_C3 => X_C3,  X_A3 => X_A3,
504 
      'E' => 'E',  X_B4 => X_B4,  X_C4 => X_C4,  X_A4 => X_A4,
505 
      'F' => 'F',  X_B5 => X_B5,  X_C5 => X_C5,  X_A5 => X_A5,
506 
      'G' => 'G',  X_B6 => X_B6,  X_C6 => X_C6,  X_A6 => X_A6,
507 
      'H' => 'H',  X_B7 => X_B7,  X_C7 => X_C7,  X_A7 => X_A7,
508 
      'I' => 'I',  X_B8 => X_B8,  X_C8 => X_C8,  X_A8 => X_A8,
509 
      'J' => 'J',  X_B9 => X_B9,  X_C9 => X_C9,  X_A9 => X_A9,
510 
      'K' => 'K',  X_BA => X_BA,  X_CA => X_CA,  X_AA => X_AA,
511 
      'L' => 'L',  X_BB => X_BB,  X_CB => X_CB,  X_AB => X_AB,
512 
      'M' => 'M',  X_BC => X_BC,  X_CC => X_CC,  X_AC => X_AC,
513 
      'N' => 'N',  X_BD => X_BD,  X_CD => X_CD,
514 
      'O' => 'O',  X_BE => X_BE,  X_CE => X_CE,  X_AE => X_AE,
515 
      'P' => 'P',  X_BF => X_BF,  X_CF => X_CF,  X_AF => X_AF,
516 
      'Q' => 'Q',
517 
      'R' => 'R',
518 
      'S' => 'S',
519 
      'T' => 'T',
520 
      'U' => 'U',
521 
      'V' => 'V',
522 
      'W' => 'W',
523 
      'X' => 'X',
524 
      'Y' => 'Y',
525 
      'Z' => 'Z',
526 
 
527 
      '0' => '0',
528 
      '1' => '1',
529 
      '2' => '2',
530 
      '3' => '3',
531 
      '4' => '4',
532 
      '5' => '5',
533 
      '6' => '6',
534 
      '7' => '7',
535 
      '8' => '8',
536 
      '9' => '9',
537 
 
538 
      '_' => '_',
539 
 
540 
      others => ' ');
541 
 
542 
   ------------------------------------------
543 
   -- Definitions for Latin-9 (ISO 8859-9) --
544 
   ------------------------------------------
545 
 
546 
   Fold_Latin_9 : constant Translate_Table := Translate_Table'(
547 
 
548 
      'a' => 'A',  X_E0 => X_C0,  X_F0 => X_D0,
549 
      'b' => 'B',  X_E1 => X_C1,  X_F1 => X_D1,
550 
      'c' => 'C',  X_E2 => X_C2,  X_F2 => X_D2,
551 
      'd' => 'D',  X_E3 => X_C3,  X_F3 => X_D3,
552 
      'e' => 'E',  X_E4 => X_C4,  X_F4 => X_D4,
553 
      'f' => 'F',  X_E5 => X_C5,  X_F5 => X_D5,
554 
      'g' => 'G',  X_E6 => X_C6,  X_F6 => X_D6,
555 
      'h' => 'H',  X_E7 => X_C7,
556 
      'i' => 'I',  X_E8 => X_C8,  X_F8 => X_D8,
557 
      'j' => 'J',  X_E9 => X_C9,  X_F9 => X_D9,
558 
      'k' => 'K',  X_EA => X_CA,  X_FA => X_DA,
559 
      'l' => 'L',  X_EB => X_CB,  X_FB => X_DB,
560 
      'm' => 'M',  X_EC => X_CC,  X_FC => X_DC,
561 
      'n' => 'N',  X_ED => X_CD,  X_FD => X_DD,
562 
      'o' => 'O',  X_EE => X_CE,  X_FE => X_DE,
563 
      'p' => 'P',  X_EF => X_CF,
564 
      'q' => 'Q',  X_A8 => X_A6,
565 
      'r' => 'R',  X_B8 => X_B4,
566 
      's' => 'S',  X_BD => X_BC,
567 
      't' => 'T',  X_BE => X_FF,
568 
      'u' => 'U',
569 
      'v' => 'V',
570 
      'w' => 'W',
571 
      'x' => 'X',
572 
      'y' => 'Y',
573 
      'z' => 'Z',
574 
 
575 
      'A' => 'A',  X_C0 => X_C0,  X_D0 => X_D0,
576 
      'B' => 'B',  X_C1 => X_C1,  X_D1 => X_D1,
577 
      'C' => 'C',  X_C2 => X_C2,  X_D2 => X_D2,
578 
      'D' => 'D',  X_C3 => X_C3,  X_D3 => X_D3,
579 
      'E' => 'E',  X_C4 => X_C4,  X_D4 => X_D4,
580 
      'F' => 'F',  X_C5 => X_C5,  X_D5 => X_D5,
581 
      'G' => 'G',  X_C6 => X_C6,  X_D6 => X_D6,
582 
      'H' => 'H',  X_C7 => X_C7,
583 
      'I' => 'I',  X_C8 => X_C8,  X_D8 => X_D8,
584 
      'J' => 'J',  X_C9 => X_C9,  X_D9 => X_D9,
585 
      'K' => 'K',  X_CA => X_CA,  X_DA => X_DA,
586 
      'L' => 'L',  X_CB => X_CB,  X_DB => X_DB,
587 
      'M' => 'M',  X_CC => X_CC,  X_DC => X_DC,
588 
      'N' => 'N',  X_CD => X_CD,  X_DD => X_DD,
589 
      'O' => 'O',  X_CE => X_CE,  X_DE => X_DE,
590 
      'P' => 'P',  X_CF => X_CF,  X_DF => X_DF,  X_FF => X_FF,
591 
      'Q' => 'Q',  X_A6 => X_A6,
592 
      'R' => 'R',  X_B4 => X_B4,
593 
      'S' => 'S',  X_BC => X_BC,
594 
      'T' => 'T',
595 
      'U' => 'U',
596 
      'V' => 'V',
597 
      'W' => 'W',
598 
      'X' => 'X',
599 
      'Y' => 'Y',
600 
      'Z' => 'Z',
601 
 
602 
      '0' => '0',
603 
      '1' => '1',
604 
      '2' => '2',
605 
      '3' => '3',
606 
      '4' => '4',
607 
      '5' => '5',
608 
      '6' => '6',
609 
      '7' => '7',
610 
      '8' => '8',
611 
      '9' => '9',
612 
 
613 
      '_' => '_',
614 
 
615 
      others => ' ');
616 
 
617 
   --------------------------------------------
618 
   -- Definitions for IBM PC (Code Page 437) --
619 
   --------------------------------------------
620 
 
621 
   --  Note: Code page 437 is the typical default in Windows for PC's in the
622 
   --  US, it corresponds to the original PC character set. See also the
623 
   --  definitions for code page 850.
624 
 
625 
   Fold_IBM_PC_437 : constant Translate_Table := Translate_Table'(
626 
 
627 
      'a' => 'A',
628 
      'b' => 'B',
629 
      'c' => 'C',
630 
      'd' => 'D',
631 
      'e' => 'E',
632 
      'f' => 'F',
633 
      'g' => 'G',
634 
      'h' => 'H',
635 
      'i' => 'I',
636 
      'j' => 'J',
637 
      'k' => 'K',
638 
      'l' => 'L',
639 
      'm' => 'M',
640 
      'n' => 'N',
641 
      'o' => 'O',
642 
      'p' => 'P',
643 
      'q' => 'Q',
644 
      'r' => 'R',
645 
      's' => 'S',
646 
      't' => 'T',
647 
      'u' => 'U',
648 
      'v' => 'V',
649 
      'w' => 'W',
650 
      'x' => 'X',
651 
      'y' => 'Y',
652 
      'z' => 'Z',
653 
 
654 
      'A' => 'A',
655 
      'B' => 'B',
656 
      'C' => 'C',
657 
      'D' => 'D',
658 
      'E' => 'E',
659 
      'F' => 'F',
660 
      'G' => 'G',
661 
      'H' => 'H',
662 
      'I' => 'I',
663 
      'J' => 'J',
664 
      'K' => 'K',
665 
      'L' => 'L',
666 
      'M' => 'M',
667 
      'N' => 'N',
668 
      'O' => 'O',
669 
      'P' => 'P',
670 
      'Q' => 'Q',
671 
      'R' => 'R',
672 
      'S' => 'S',
673 
      'T' => 'T',
674 
      'U' => 'U',
675 
      'V' => 'V',
676 
      'W' => 'W',
677 
      'X' => 'X',
678 
      'Y' => 'Y',
679 
      'Z' => 'Z',
680 
 
681 
      X_80 => X_80,  -- C cedilla
682 
      X_81 => X_9A,  -- u umlaut
683 
      X_82 => X_90,  -- e acute
684 
      X_83 => X_83,  -- a circumflex
685 
      X_84 => X_8E,  -- a umlaut
686 
      X_85 => X_85,  -- a grave
687 
      X_86 => X_8F,  -- a ring
688 
      X_87 => X_80,  -- c cedilla
689 
      X_88 => X_88,  -- e circumflex
690 
      X_89 => X_89,  -- e umlaut
691 
      X_8A => X_8A,  -- e grave
692 
      X_8B => X_8B,  -- i umlaut
693 
      X_8C => X_8C,  -- i circumflex
694 
      X_8D => X_8D,  -- i grave
695 
      X_8E => X_8E,  -- A umlaut
696 
      X_8F => X_8F,  -- A ring
697 
 
698 
      X_90 => X_90,  -- E acute
699 
      X_91 => X_92,  -- ae
700 
      X_92 => X_92,  -- AE
701 
      X_93 => X_93,  -- o circumflex
702 
      X_94 => X_99,  -- o umlaut
703 
      X_95 => X_95,  -- o grave
704 
      X_96 => X_96,  -- u circumflex
705 
      X_97 => X_97,  -- u grave
706 
      X_98 => X_98,  -- y umlaut
707 
      X_99 => X_99,  -- O umlaut
708 
      X_9A => X_9A,  -- U umlaut
709 
 
710 
      X_A0 => X_A0,  -- a acute
711 
      X_A1 => X_A1,  -- i acute
712 
      X_A2 => X_A2,  -- o acute
713 
      X_A3 => X_A3,  -- u acute
714 
      X_A4 => X_A5,  -- n tilde
715 
      X_A5 => X_A5,  -- N tilde
716 
      X_A6 => X_A6,  -- a underline
717 
      X_A7 => X_A7,  -- o underline
718 
 
719 
      X_E0 => X_E0,  -- lower case alpha
720 
      X_E1 => X_E1,  -- lower case beta
721 
      X_E2 => X_E2,  -- upper case gamma
722 
      X_E3 => X_E3,  -- lower case pi
723 
      X_E4 => X_E4,  -- upper case sigma (lower/upper sigma not equivalent)
724 
      X_E5 => X_E5,  -- lower case sigma (lower/upper sigma not equivalent)
725 
      X_E6 => X_E6,  -- lower case mu
726 
      X_E7 => X_E7,  -- lower case tau
727 
      X_E8 => X_E8,  -- upper case phi   (lower/upper phi not equivalent)
728 
      X_E9 => X_E9,  -- lower case theta
729 
      X_EA => X_EA,  -- upper case omega
730 
      X_EB => X_EB,  -- lower case delta
731 
      X_ED => X_ED,  -- lower case phi   (lower/upper phi not equivalent)
732 
      X_EE => X_EE,  -- lower case epsilon
733 
 
734 
      X_FC => X_FC,  -- lower case eta
735 
 
736 
      '0' => '0',
737 
      '1' => '1',
738 
      '2' => '2',
739 
      '3' => '3',
740 
      '4' => '4',
741 
      '5' => '5',
742 
      '6' => '6',
743 
      '7' => '7',
744 
      '8' => '8',
745 
      '9' => '9',
746 
 
747 
      '_' => '_',
748 
 
749 
      others => ' ');
750 
 
751 
   --------------------------------------------
752 
   -- Definitions for IBM PC (Code Page 850) --
753 
   --------------------------------------------
754 
 
755 
   --  Note: Code page 850 is the typical default in Windows for PC's in
756 
   --  Europe, it is an extension of the original PC character set to include
757 
   --  the additional characters defined in ISO Latin-1. See also the
758 
   --  definitions for code page 437.
759 
 
760 
   Fold_IBM_PC_850 : constant Translate_Table := Translate_Table'(
761 
 
762 
      'a' => 'A',
763 
      'b' => 'B',
764 
      'c' => 'C',
765 
      'd' => 'D',
766 
      'e' => 'E',
767 
      'f' => 'F',
768 
      'g' => 'G',
769 
      'h' => 'H',
770 
      'i' => 'I',
771 
      'j' => 'J',
772 
      'k' => 'K',
773 
      'l' => 'L',
774 
      'm' => 'M',
775 
      'n' => 'N',
776 
      'o' => 'O',
777 
      'p' => 'P',
778 
      'q' => 'Q',
779 
      'r' => 'R',
780 
      's' => 'S',
781 
      't' => 'T',
782 
      'u' => 'U',
783 
      'v' => 'V',
784 
      'w' => 'W',
785 
      'x' => 'X',
786 
      'y' => 'Y',
787 
      'z' => 'Z',
788 
 
789 
      'A' => 'A',
790 
      'B' => 'B',
791 
      'C' => 'C',
792 
      'D' => 'D',
793 
      'E' => 'E',
794 
      'F' => 'F',
795 
      'G' => 'G',
796 
      'H' => 'H',
797 
      'I' => 'I',
798 
      'J' => 'J',
799 
      'K' => 'K',
800 
      'L' => 'L',
801 
      'M' => 'M',
802 
      'N' => 'N',
803 
      'O' => 'O',
804 
      'P' => 'P',
805 
      'Q' => 'Q',
806 
      'R' => 'R',
807 
      'S' => 'S',
808 
      'T' => 'T',
809 
      'U' => 'U',
810 
      'V' => 'V',
811 
      'W' => 'W',
812 
      'X' => 'X',
813 
      'Y' => 'Y',
814 
      'Z' => 'Z',
815 
 
816 
      X_80 => X_80,  -- C cedilla
817 
      X_81 => X_9A,  -- u umlaut
818 
      X_82 => X_90,  -- e acute
819 
      X_83 => X_B6,  -- a circumflex
820 
      X_84 => X_8E,  -- a umlaut
821 
      X_85 => X_B7,  -- a grave
822 
      X_86 => X_8F,  -- a ring
823 
      X_87 => X_80,  -- c cedilla
824 
      X_88 => X_D2,  -- e circumflex
825 
      X_89 => X_D3,  -- e umlaut
826 
      X_8A => X_D4,  -- e grave
827 
      X_8B => X_D8,  -- i umlaut
828 
      X_8C => X_D7,  -- i circumflex
829 
      X_8D => X_DE,  -- i grave
830 
      X_8E => X_8E,  -- A umlaut
831 
      X_8F => X_8F,  -- A ring
832 
 
833 
      X_90 => X_90,  -- E acute
834 
      X_91 => X_92,  -- ae
835 
      X_92 => X_92,  -- AE
836 
      X_93 => X_E2,  -- o circumflex
837 
      X_94 => X_99,  -- o umlaut
838 
      X_95 => X_E3,  -- o grave
839 
      X_96 => X_EA,  -- u circumflex
840 
      X_97 => X_EB,  -- u grave
841 
      X_98 => X_98,  -- y umlaut
842 
      X_99 => X_99,  -- O umlaut
843 
      X_9A => X_9A,  -- U umlaut
844 
 
845 
      X_A0 => X_B5,  -- a acute
846 
      X_A1 => X_D6,  -- i acute
847 
      X_A2 => X_E0,  -- o acute
848 
      X_A3 => X_E9,  -- u acute
849 
      X_A4 => X_A5,  -- n tilde
850 
      X_A5 => X_A5,  -- N tilde
851 
      X_A6 => X_A6,  -- a underline
852 
      X_A7 => X_A7,  -- o underline
853 
 
854 
      X_B5 => X_B5,  -- A acute
855 
      X_B6 => X_B6,  -- A circumflex
856 
      X_B7 => X_B7,  -- A grave
857 
 
858 
      X_C6 => X_C7,  -- a tilde
859 
      X_C7 => X_C7,  -- A tilde
860 
 
861 
      X_D0 => X_D1,  -- eth
862 
      X_D1 => X_D1,  -- Eth
863 
      X_D2 => X_D2,  -- E circumflex
864 
      X_D3 => X_D3,  -- E umlaut
865 
      X_D4 => X_D4,  -- E grave
866 
      X_D5 => X_D5,  -- dotless i, no uppercase
867 
      X_D6 => X_D6,  -- I acute
868 
      X_D7 => X_D7,  -- I circumflex
869 
      X_D8 => X_D8,  -- I umlaut
870 
      X_DE => X_DE,  -- I grave
871 
 
872 
      X_E0 => X_E0,  -- O acute
873 
      X_E1 => X_E1,  -- german dbl s, no uppercase
874 
      X_E2 => X_E2,  -- O circumflex
875 
      X_E3 => X_E3,  -- O grave
876 
      X_E4 => X_E4,  -- o tilde
877 
      X_E5 => X_E5,  -- O tilde
878 
      X_E7 => X_E8,  -- thorn
879 
      X_E8 => X_E8,  -- Thorn
880 
      X_E9 => X_E9,  -- U acute
881 
      X_EA => X_EA,  -- U circumflex
882 
      X_EB => X_EB,  -- U grave
883 
      X_EC => X_ED,  -- y acute
884 
      X_ED => X_ED,  -- Y acute
885 
 
886 
      '0' => '0',
887 
      '1' => '1',
888 
      '2' => '2',
889 
      '3' => '3',
890 
      '4' => '4',
891 
      '5' => '5',
892 
      '6' => '6',
893 
      '7' => '7',
894 
      '8' => '8',
895 
      '9' => '9',
896 
 
897 
      '_' => '_',
898 
 
899 
      others => ' ');
900 
 
901 
   -----------------------------------------
902 
   -- Definitions for Full Upper Half Set --
903 
   -----------------------------------------
904 
 
905 
   --  The full upper half set allows all upper half characters as letters,
906 
   --  and does not recognize any upper/lower case equivalences in this half.
907 
 
908 
   Fold_Full_Upper_Half : constant Translate_Table := Translate_Table'(
909 
 
910 
      'a' => 'A',
911 
      'b' => 'B',
912 
      'c' => 'C',
913 
      'd' => 'D',
914 
      'e' => 'E',
915 
      'f' => 'F',
916 
      'g' => 'G',
917 
      'h' => 'H',
918 
      'i' => 'I',
919 
      'j' => 'J',
920 
      'k' => 'K',
921 
      'l' => 'L',
922 
      'm' => 'M',
923 
      'n' => 'N',
924 
      'o' => 'O',
925 
      'p' => 'P',
926 
      'q' => 'Q',
927 
      'r' => 'R',
928 
      's' => 'S',
929 
      't' => 'T',
930 
      'u' => 'U',
931 
      'v' => 'V',
932 
      'w' => 'W',
933 
      'x' => 'X',
934 
      'y' => 'Y',
935 
      'z' => 'Z',
936 
 
937 
      'A' => 'A',
938 
      'B' => 'B',
939 
      'C' => 'C',
940 
      'D' => 'D',
941 
      'E' => 'E',
942 
      'F' => 'F',
943 
      'G' => 'G',
944 
      'H' => 'H',
945 
      'I' => 'I',
946 
      'J' => 'J',
947 
      'K' => 'K',
948 
      'L' => 'L',
949 
      'M' => 'M',
950 
      'N' => 'N',
951 
      'O' => 'O',
952 
      'P' => 'P',
953 
      'Q' => 'Q',
954 
      'R' => 'R',
955 
      'S' => 'S',
956 
      'T' => 'T',
957 
      'U' => 'U',
958 
      'V' => 'V',
959 
      'W' => 'W',
960 
      'X' => 'X',
961 
      'Y' => 'Y',
962 
      'Z' => 'Z',
963 
 
964 
      X_80 => X_80,  X_90 => X_90,  X_A0 => X_A0,  X_B0 => X_B0,
965 
      X_81 => X_81,  X_91 => X_91,  X_A1 => X_A1,  X_B1 => X_B1,
966 
      X_82 => X_82,  X_92 => X_92,  X_A2 => X_A2,  X_B2 => X_B2,
967 
      X_83 => X_83,  X_93 => X_93,  X_A3 => X_A3,  X_B3 => X_B3,
968 
      X_84 => X_84,  X_94 => X_94,  X_A4 => X_A4,  X_B4 => X_B4,
969 
      X_85 => X_85,  X_95 => X_95,  X_A5 => X_A5,  X_B5 => X_B5,
970 
      X_86 => X_86,  X_96 => X_96,  X_A6 => X_A6,  X_B6 => X_B6,
971 
      X_87 => X_87,  X_97 => X_97,  X_A7 => X_A7,  X_B7 => X_B7,
972 
      X_88 => X_88,  X_98 => X_98,  X_A8 => X_A8,  X_B8 => X_B8,
973 
      X_89 => X_89,  X_99 => X_99,  X_A9 => X_A9,  X_B9 => X_B9,
974 
      X_8A => X_8A,  X_9A => X_9A,  X_AA => X_AA,  X_BA => X_BA,
975 
      X_8B => X_8B,  X_9B => X_9B,  X_AB => X_AB,  X_BB => X_BB,
976 
      X_8C => X_8C,  X_9C => X_9C,  X_AC => X_AC,  X_BC => X_BC,
977 
      X_8D => X_8D,  X_9D => X_9D,  X_AD => X_AD,  X_BD => X_BD,
978 
      X_8E => X_8E,  X_9E => X_9E,  X_AE => X_AE,  X_BE => X_BE,
979 
      X_8F => X_8F,  X_9F => X_9F,  X_AF => X_AF,  X_BF => X_BF,
980 
 
981 
      X_C0 => X_C0,  X_D0 => X_D0,  X_E0 => X_E0,  X_F0 => X_F0,
982 
      X_C1 => X_C1,  X_D1 => X_D1,  X_E1 => X_E1,  X_F1 => X_F1,
983 
      X_C2 => X_C2,  X_D2 => X_D2,  X_E2 => X_E2,  X_F2 => X_F2,
984 
      X_C3 => X_C3,  X_D3 => X_D3,  X_E3 => X_E3,  X_F3 => X_F3,
985 
      X_C4 => X_C4,  X_D4 => X_D4,  X_E4 => X_E4,  X_F4 => X_F4,
986 
      X_C5 => X_C5,  X_D5 => X_D5,  X_E5 => X_E5,  X_F5 => X_F5,
987 
      X_C6 => X_C6,  X_D6 => X_D6,  X_E6 => X_E6,  X_F6 => X_F6,
988 
      X_C7 => X_C7,  X_D7 => X_D7,  X_E7 => X_E7,  X_F7 => X_F7,
989 
      X_C8 => X_C8,  X_D8 => X_D8,  X_E8 => X_E8,  X_F8 => X_F8,
990 
      X_C9 => X_C9,  X_D9 => X_D9,  X_E9 => X_E9,  X_F9 => X_F9,
991 
      X_CA => X_CA,  X_DA => X_DA,  X_EA => X_EA,  X_FA => X_FA,
992 
      X_CB => X_CB,  X_DB => X_DB,  X_EB => X_EB,  X_FB => X_FB,
993 
      X_CC => X_CC,  X_DC => X_DC,  X_EC => X_EC,  X_FC => X_FC,
994 
      X_CD => X_CD,  X_DD => X_DD,  X_ED => X_ED,  X_FD => X_FD,
995 
      X_CE => X_CE,  X_DE => X_DE,  X_EE => X_EE,  X_FE => X_FE,
996 
      X_CF => X_CF,  X_DF => X_DF,  X_EF => X_EF,  X_FF => X_FF,
997 
 
998 
      '0' => '0',
999 
      '1' => '1',
1000 
      '2' => '2',
1001 
      '3' => '3',
1002 
      '4' => '4',
1003 
      '5' => '5',
1004 
      '6' => '6',
1005 
      '7' => '7',
1006 
      '8' => '8',
1007 
      '9' => '9',
1008 
 
1009 
      '_' => '_',
1010 
 
1011 
      others => ' ');
1012 
 
1013 
   ---------------------------------------
1014 
   -- Definitions for No Upper Half Set --
1015 
   ---------------------------------------
1016 
 
1017 
   --  The no upper half set allows no upper half characters as letters, and
1018 
   --  thus there are no upper/lower case equivalences in this half. This set
1019 
   --  corresponds to the Ada 83 rules.
1020 
 
1021 
   Fold_No_Upper_Half : constant Translate_Table := Translate_Table'(
1022 
 
1023 
      'a' => 'A',
1024 
      'b' => 'B',
1025 
      'c' => 'C',
1026 
      'd' => 'D',
1027 
      'e' => 'E',
1028 
      'f' => 'F',
1029 
      'g' => 'G',
1030 
      'h' => 'H',
1031 
      'i' => 'I',
1032 
      'j' => 'J',
1033 
      'k' => 'K',
1034 
      'l' => 'L',
1035 
      'm' => 'M',
1036 
      'n' => 'N',
1037 
      'o' => 'O',
1038 
      'p' => 'P',
1039 
      'q' => 'Q',
1040 
      'r' => 'R',
1041 
      's' => 'S',
1042 
      't' => 'T',
1043 
      'u' => 'U',
1044 
      'v' => 'V',
1045 
      'w' => 'W',
1046 
      'x' => 'X',
1047 
      'y' => 'Y',
1048 
      'z' => 'Z',
1049 
 
1050 
      'A' => 'A',
1051 
      'B' => 'B',
1052 
      'C' => 'C',
1053 
      'D' => 'D',
1054 
      'E' => 'E',
1055 
      'F' => 'F',
1056 
      'G' => 'G',
1057 
      'H' => 'H',
1058 
      'I' => 'I',
1059 
      'J' => 'J',
1060 
      'K' => 'K',
1061 
      'L' => 'L',
1062 
      'M' => 'M',
1063 
      'N' => 'N',
1064 
      'O' => 'O',
1065 
      'P' => 'P',
1066 
      'Q' => 'Q',
1067 
      'R' => 'R',
1068 
      'S' => 'S',
1069 
      'T' => 'T',
1070 
      'U' => 'U',
1071 
      'V' => 'V',
1072 
      'W' => 'W',
1073 
      'X' => 'X',
1074 
      'Y' => 'Y',
1075 
      'Z' => 'Z',
1076 
 
1077 
      '0' => '0',
1078 
      '1' => '1',
1079 
      '2' => '2',
1080 
      '3' => '3',
1081 
      '4' => '4',
1082 
      '5' => '5',
1083 
      '6' => '6',
1084 
      '7' => '7',
1085 
      '8' => '8',
1086 
      '9' => '9',
1087 
 
1088 
      '_' => '_',
1089 
 
1090 
      others => ' ');
1091 
 
1092 
   ----------------
1093 
   -- Initialize --
1094 
   ----------------
1095 
 
1096 
   procedure Initialize is
1097 
   begin
1098 
      --  Set Fold_Upper table from source code indication
1099 
 
1100 
      if Identifier_Character_Set = '1'
1101 
        or else Identifier_Character_Set = 'w'
1102 
      then
1103 
         Fold_Upper := Fold_Latin_1;
1104 
 
1105 
      elsif Identifier_Character_Set = '2' then
1106 
         Fold_Upper := Fold_Latin_2;
1107 
 
1108 
      elsif Identifier_Character_Set = '3' then
1109 
         Fold_Upper := Fold_Latin_3;
1110 
 
1111 
      elsif Identifier_Character_Set = '4' then
1112 
         Fold_Upper := Fold_Latin_4;
1113 
 
1114 
      elsif Identifier_Character_Set = '5' then
1115 
         Fold_Upper := Fold_Latin_5;
1116 
 
1117 
      elsif Identifier_Character_Set = 'p' then
1118 
         Fold_Upper := Fold_IBM_PC_437;
1119 
 
1120 
      elsif Identifier_Character_Set = '8' then
1121 
         Fold_Upper := Fold_IBM_PC_850;
1122 
 
1123 
      elsif Identifier_Character_Set = '9' then
1124 
         Fold_Upper := Fold_Latin_9;
1125 
 
1126 
      elsif Identifier_Character_Set = 'f' then
1127 
         Fold_Upper := Fold_Full_Upper_Half;
1128 
 
1129 
      else -- Identifier_Character_Set = 'n'
1130 
         Fold_Upper := Fold_No_Upper_Half;
1131 
      end if;
1132 
 
1133 
      --  Use Fold_Upper table to compute Fold_Lower table
1134 
 
1135 
      Fold_Lower := Fold_Upper;
1136 
 
1137 
      for J in Character loop
1138 
         if J /= Fold_Upper (J) then
1139 
            Fold_Lower (Fold_Upper (J)) := J;
1140 
            Fold_Lower (J) := J;
1141 
         end if;
1142 
      end loop;
1143 
 
1144 
      Fold_Lower (' ') := ' ';
1145 
 
1146 
      --  Build Identifier_Char table from used entries of Fold_Upper
1147 
 
1148 
      for J in Character loop
1149 
         Identifier_Char (J) := (Fold_Upper (J) /= ' ');
1150 
      end loop;
1151 
 
1152 
      --  Always add [ as an identifier character to deal with the brackets
1153 
      --  notation for wide characters used in identifiers. Note that if
1154 
      --  we are not allowing wide characters in identifiers, then any use
1155 
      --  of this notation will be flagged as an error in Scan_Identifier.
1156 
 
1157 
      Identifier_Char ('[') := True;
1158 
 
1159 
      --  Add entry for ESC if wide characters in use with a wide character
1160 
      --  encoding method active that uses the ESC code for encoding.
1161 
 
1162 
      if Identifier_Character_Set = 'w'
1163 
        and then Wide_Character_Encoding_Method in WC_ESC_Encoding_Method
1164 
      then
1165 
         Identifier_Char (ASCII.ESC) := True;
1166 
      end if;
1167 
   end Initialize;
1168 
 
1169 
   --------------------------
1170 
   -- Is_Lower_Case_Letter --
1171 
   --------------------------
1172 
 
1173 
   function Is_Lower_Case_Letter (C : Character) return Boolean is
1174 
   begin
1175 
      return C /= Fold_Upper (C);
1176 
   end Is_Lower_Case_Letter;
1177 
 
1178 
   --------------------------
1179 
   -- Is_Upper_Case_Letter --
1180 
   --------------------------
1181 
 
1182 
   function Is_Upper_Case_Letter (C : Character) return Boolean is
1183 
   begin
1184 
      return C /= Fold_Lower (C);
1185 
   end Is_Upper_Case_Letter;
1186 
 
1187 
end Csets;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.