gcc/ada/csets.adb

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