1------------------------------------------------------------------------------ 2-- -- 3-- GNAT COMPILER COMPONENTS -- 4-- -- 5-- C S E T S -- 6-- -- 7-- B o d y -- 8-- -- 9-- Copyright (C) 1992-2020, 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 26with Opt; use Opt; 27 28with System.WCh_Con; use System.WCh_Con; 29 30package 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_FF, 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_FF, 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 839 X_A0 => X_B5, -- a acute 840 X_A1 => X_D6, -- i acute 841 X_A2 => X_E0, -- o acute 842 X_A3 => X_E9, -- u acute 843 X_A4 => X_A5, -- n tilde 844 X_A5 => X_A5, -- N tilde 845 X_A6 => X_A6, -- a underline 846 X_A7 => X_A7, -- o underline 847 848 X_B5 => X_B5, -- A acute 849 X_B6 => X_B6, -- A circumflex 850 X_B7 => X_B7, -- A grave 851 852 X_C6 => X_C7, -- a tilde 853 X_C7 => X_C7, -- A tilde 854 855 X_D0 => X_D1, -- eth 856 X_D1 => X_D1, -- Eth 857 X_D2 => X_D2, -- E circumflex 858 X_D3 => X_D3, -- E umlaut 859 X_D4 => X_D4, -- E grave 860 X_D5 => X_D5, -- dotless i, no uppercase 861 X_D6 => X_D6, -- I acute 862 X_D7 => X_D7, -- I circumflex 863 X_D8 => X_D8, -- I umlaut 864 X_DE => X_DE, -- I grave 865 866 X_E0 => X_E0, -- O acute 867 X_E1 => X_E1, -- german dbl s, no uppercase 868 X_E2 => X_E2, -- O circumflex 869 X_E3 => X_E3, -- O grave 870 X_E4 => X_E4, -- o tilde 871 X_E5 => X_E5, -- O tilde 872 X_E7 => X_E8, -- thorn 873 X_E8 => X_E8, -- Thorn 874 X_E9 => X_E9, -- U acute 875 X_EA => X_EA, -- U circumflex 876 X_EB => X_EB, -- U grave 877 X_EC => X_ED, -- y acute 878 X_ED => X_ED, -- Y acute 879 880 '0' => '0', 881 '1' => '1', 882 '2' => '2', 883 '3' => '3', 884 '4' => '4', 885 '5' => '5', 886 '6' => '6', 887 '7' => '7', 888 '8' => '8', 889 '9' => '9', 890 891 '_' => '_', 892 893 others => ' '); 894 895 ----------------------------------------- 896 -- Definitions for Full Upper Half Set -- 897 ----------------------------------------- 898 899 -- The full upper half set allows all upper half characters as letters, 900 -- and does not recognize any upper/lower case equivalences in this half. 901 902 Fold_Full_Upper_Half : constant Translate_Table := Translate_Table'( 903 904 'a' => 'A', 905 'b' => 'B', 906 'c' => 'C', 907 'd' => 'D', 908 'e' => 'E', 909 'f' => 'F', 910 'g' => 'G', 911 'h' => 'H', 912 'i' => 'I', 913 'j' => 'J', 914 'k' => 'K', 915 'l' => 'L', 916 'm' => 'M', 917 'n' => 'N', 918 'o' => 'O', 919 'p' => 'P', 920 'q' => 'Q', 921 'r' => 'R', 922 's' => 'S', 923 't' => 'T', 924 'u' => 'U', 925 'v' => 'V', 926 'w' => 'W', 927 'x' => 'X', 928 'y' => 'Y', 929 'z' => 'Z', 930 931 'A' => 'A', 932 'B' => 'B', 933 'C' => 'C', 934 'D' => 'D', 935 'E' => 'E', 936 'F' => 'F', 937 'G' => 'G', 938 'H' => 'H', 939 'I' => 'I', 940 'J' => 'J', 941 'K' => 'K', 942 'L' => 'L', 943 'M' => 'M', 944 'N' => 'N', 945 'O' => 'O', 946 'P' => 'P', 947 'Q' => 'Q', 948 'R' => 'R', 949 'S' => 'S', 950 'T' => 'T', 951 'U' => 'U', 952 'V' => 'V', 953 'W' => 'W', 954 'X' => 'X', 955 'Y' => 'Y', 956 'Z' => 'Z', 957 958 X_80 => X_80, X_90 => X_90, X_A0 => X_A0, X_B0 => X_B0, 959 X_81 => X_81, X_91 => X_91, X_A1 => X_A1, X_B1 => X_B1, 960 X_82 => X_82, X_92 => X_92, X_A2 => X_A2, X_B2 => X_B2, 961 X_83 => X_83, X_93 => X_93, X_A3 => X_A3, X_B3 => X_B3, 962 X_84 => X_84, X_94 => X_94, X_A4 => X_A4, X_B4 => X_B4, 963 X_85 => X_85, X_95 => X_95, X_A5 => X_A5, X_B5 => X_B5, 964 X_86 => X_86, X_96 => X_96, X_A6 => X_A6, X_B6 => X_B6, 965 X_87 => X_87, X_97 => X_97, X_A7 => X_A7, X_B7 => X_B7, 966 X_88 => X_88, X_98 => X_98, X_A8 => X_A8, X_B8 => X_B8, 967 X_89 => X_89, X_99 => X_99, X_A9 => X_A9, X_B9 => X_B9, 968 X_8A => X_8A, X_9A => X_9A, X_AA => X_AA, X_BA => X_BA, 969 X_8B => X_8B, X_9B => X_9B, X_AB => X_AB, X_BB => X_BB, 970 X_8C => X_8C, X_9C => X_9C, X_AC => X_AC, X_BC => X_BC, 971 X_8D => X_8D, X_9D => X_9D, X_AD => X_AD, X_BD => X_BD, 972 X_8E => X_8E, X_9E => X_9E, X_AE => X_AE, X_BE => X_BE, 973 X_8F => X_8F, X_9F => X_9F, X_AF => X_AF, X_BF => X_BF, 974 975 X_C0 => X_C0, X_D0 => X_D0, X_E0 => X_E0, X_F0 => X_F0, 976 X_C1 => X_C1, X_D1 => X_D1, X_E1 => X_E1, X_F1 => X_F1, 977 X_C2 => X_C2, X_D2 => X_D2, X_E2 => X_E2, X_F2 => X_F2, 978 X_C3 => X_C3, X_D3 => X_D3, X_E3 => X_E3, X_F3 => X_F3, 979 X_C4 => X_C4, X_D4 => X_D4, X_E4 => X_E4, X_F4 => X_F4, 980 X_C5 => X_C5, X_D5 => X_D5, X_E5 => X_E5, X_F5 => X_F5, 981 X_C6 => X_C6, X_D6 => X_D6, X_E6 => X_E6, X_F6 => X_F6, 982 X_C7 => X_C7, X_D7 => X_D7, X_E7 => X_E7, X_F7 => X_F7, 983 X_C8 => X_C8, X_D8 => X_D8, X_E8 => X_E8, X_F8 => X_F8, 984 X_C9 => X_C9, X_D9 => X_D9, X_E9 => X_E9, X_F9 => X_F9, 985 X_CA => X_CA, X_DA => X_DA, X_EA => X_EA, X_FA => X_FA, 986 X_CB => X_CB, X_DB => X_DB, X_EB => X_EB, X_FB => X_FB, 987 X_CC => X_CC, X_DC => X_DC, X_EC => X_EC, X_FC => X_FC, 988 X_CD => X_CD, X_DD => X_DD, X_ED => X_ED, X_FD => X_FD, 989 X_CE => X_CE, X_DE => X_DE, X_EE => X_EE, X_FE => X_FE, 990 X_CF => X_CF, X_DF => X_DF, X_EF => X_EF, X_FF => X_FF, 991 992 '0' => '0', 993 '1' => '1', 994 '2' => '2', 995 '3' => '3', 996 '4' => '4', 997 '5' => '5', 998 '6' => '6', 999 '7' => '7', 1000 '8' => '8', 1001 '9' => '9', 1002 1003 '_' => '_', 1004 1005 others => ' '); 1006 1007 --------------------------------------- 1008 -- Definitions for No Upper Half Set -- 1009 --------------------------------------- 1010 1011 -- The no upper half set allows no upper half characters as letters, and 1012 -- thus there are no upper/lower case equivalences in this half. This set 1013 -- corresponds to the Ada 83 rules. 1014 1015 Fold_No_Upper_Half : constant Translate_Table := Translate_Table'( 1016 1017 'a' => 'A', 1018 'b' => 'B', 1019 'c' => 'C', 1020 'd' => 'D', 1021 'e' => 'E', 1022 'f' => 'F', 1023 'g' => 'G', 1024 'h' => 'H', 1025 'i' => 'I', 1026 'j' => 'J', 1027 'k' => 'K', 1028 'l' => 'L', 1029 'm' => 'M', 1030 'n' => 'N', 1031 'o' => 'O', 1032 'p' => 'P', 1033 'q' => 'Q', 1034 'r' => 'R', 1035 's' => 'S', 1036 't' => 'T', 1037 'u' => 'U', 1038 'v' => 'V', 1039 'w' => 'W', 1040 'x' => 'X', 1041 'y' => 'Y', 1042 'z' => 'Z', 1043 1044 'A' => 'A', 1045 'B' => 'B', 1046 'C' => 'C', 1047 'D' => 'D', 1048 'E' => 'E', 1049 'F' => 'F', 1050 'G' => 'G', 1051 'H' => 'H', 1052 'I' => 'I', 1053 'J' => 'J', 1054 'K' => 'K', 1055 'L' => 'L', 1056 'M' => 'M', 1057 'N' => 'N', 1058 'O' => 'O', 1059 'P' => 'P', 1060 'Q' => 'Q', 1061 'R' => 'R', 1062 'S' => 'S', 1063 'T' => 'T', 1064 'U' => 'U', 1065 'V' => 'V', 1066 'W' => 'W', 1067 'X' => 'X', 1068 'Y' => 'Y', 1069 'Z' => 'Z', 1070 1071 '0' => '0', 1072 '1' => '1', 1073 '2' => '2', 1074 '3' => '3', 1075 '4' => '4', 1076 '5' => '5', 1077 '6' => '6', 1078 '7' => '7', 1079 '8' => '8', 1080 '9' => '9', 1081 1082 '_' => '_', 1083 1084 others => ' '); 1085 1086 ---------------- 1087 -- Initialize -- 1088 ---------------- 1089 1090 procedure Initialize is 1091 begin 1092 -- Set Fold_Upper table from source code indication 1093 1094 if Identifier_Character_Set = '1' 1095 or else Identifier_Character_Set = 'w' 1096 then 1097 Fold_Upper := Fold_Latin_1; 1098 1099 elsif Identifier_Character_Set = '2' then 1100 Fold_Upper := Fold_Latin_2; 1101 1102 elsif Identifier_Character_Set = '3' then 1103 Fold_Upper := Fold_Latin_3; 1104 1105 elsif Identifier_Character_Set = '4' then 1106 Fold_Upper := Fold_Latin_4; 1107 1108 elsif Identifier_Character_Set = '5' then 1109 Fold_Upper := Fold_Cyrillic; 1110 1111 elsif Identifier_Character_Set = 'p' then 1112 Fold_Upper := Fold_IBM_PC_437; 1113 1114 elsif Identifier_Character_Set = '8' then 1115 Fold_Upper := Fold_IBM_PC_850; 1116 1117 elsif Identifier_Character_Set = '9' then 1118 Fold_Upper := Fold_Latin_9; 1119 1120 elsif Identifier_Character_Set = 'f' then 1121 Fold_Upper := Fold_Full_Upper_Half; 1122 1123 else -- Identifier_Character_Set = 'n' 1124 Fold_Upper := Fold_No_Upper_Half; 1125 end if; 1126 1127 -- Use Fold_Upper table to compute Fold_Lower table 1128 1129 Fold_Lower := Fold_Upper; 1130 1131 for J in Character loop 1132 if J /= Fold_Upper (J) then 1133 Fold_Lower (Fold_Upper (J)) := J; 1134 Fold_Lower (J) := J; 1135 end if; 1136 end loop; 1137 1138 Fold_Lower (' ') := ' '; 1139 1140 -- Build Identifier_Char table from used entries of Fold_Upper 1141 1142 for J in Character loop 1143 Identifier_Char (J) := (Fold_Upper (J) /= ' '); 1144 end loop; 1145 1146 -- Always add [ as an identifier character to deal with the brackets 1147 -- notation for wide characters used in identifiers. Note that if 1148 -- we are not allowing wide characters in identifiers, then any use 1149 -- of this notation will be flagged as an error in Scan_Identifier. 1150 1151 Identifier_Char ('[') := True; 1152 1153 -- Add entry for ESC if wide characters in use with a wide character 1154 -- encoding method active that uses the ESC code for encoding. 1155 1156 if Identifier_Character_Set = 'w' 1157 and then Wide_Character_Encoding_Method in WC_ESC_Encoding_Method 1158 then 1159 Identifier_Char (ASCII.ESC) := True; 1160 end if; 1161 end Initialize; 1162 1163 -------------------------- 1164 -- Is_Lower_Case_Letter -- 1165 -------------------------- 1166 1167 function Is_Lower_Case_Letter (C : Character) return Boolean is 1168 begin 1169 return C /= Fold_Upper (C); 1170 end Is_Lower_Case_Letter; 1171 1172 -------------------------- 1173 -- Is_Upper_Case_Letter -- 1174 -------------------------- 1175 1176 function Is_Upper_Case_Letter (C : Character) return Boolean is 1177 begin 1178 return C /= Fold_Lower (C); 1179 end Is_Upper_Case_Letter; 1180 1181end Csets; 1182