1 /* Determine a canonical name for the current locale's character encoding. 2 3 Copyright (C) 2000-2006, 2008-2020 Free Software Foundation, Inc. 4 5 This program is free software; you can redistribute it and/or modify 6 it under the terms of the GNU General Public License as published by 7 the Free Software Foundation; either version 3, or (at your option) 8 any later version. 9 10 This program is distributed in the hope that it will be useful, 11 but WITHOUT ANY WARRANTY; without even the implied warranty of 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 GNU General Public License for more details. 14 15 You should have received a copy of the GNU General Public License along 16 with this program; if not, see <https://www.gnu.org/licenses/>. */ 17 18 /* Written by Bruno Haible <bruno@clisp.org>. */ 19 20 #include <config.h> 21 22 /* Specification. */ 23 #include "localcharset.h" 24 25 #include <stddef.h> 26 #include <stdio.h> 27 #include <string.h> 28 #include <stdlib.h> 29 30 #if defined __APPLE__ && defined __MACH__ && HAVE_LANGINFO_CODESET 31 # define DARWIN7 /* Darwin 7 or newer, i.e. Mac OS X 10.3 or newer */ 32 #endif 33 34 #if defined _WIN32 && !defined __CYGWIN__ 35 # define WINDOWS_NATIVE 36 # include <locale.h> 37 #endif 38 39 #if defined __EMX__ 40 /* Assume EMX program runs on OS/2, even if compiled under DOS. */ 41 # ifndef OS2 42 # define OS2 43 # endif 44 #endif 45 46 #if !defined WINDOWS_NATIVE 47 # if HAVE_LANGINFO_CODESET 48 # include <langinfo.h> 49 # else 50 # if 0 /* see comment regarding use of setlocale(), below */ 51 # include <locale.h> 52 # endif 53 # endif 54 # ifdef __CYGWIN__ 55 # define WIN32_LEAN_AND_MEAN 56 # include <windows.h> 57 # endif 58 #elif defined WINDOWS_NATIVE 59 # define WIN32_LEAN_AND_MEAN 60 # include <windows.h> 61 /* For the use of setlocale() below, the Gnulib override in setlocale.c is 62 not needed; see the platform lists in setlocale_null.m4. */ 63 # undef setlocale 64 #endif 65 #if defined OS2 66 # define INCL_DOS 67 # include <os2.h> 68 #endif 69 70 /* For MB_CUR_MAX_L */ 71 #if defined DARWIN7 72 # include <xlocale.h> 73 #endif 74 75 76 #if HAVE_LANGINFO_CODESET || defined WINDOWS_NATIVE || defined OS2 77 78 /* On these platforms, we use a mapping from non-canonical encoding name 79 to GNU canonical encoding name. */ 80 81 /* With glibc-2.1 or newer, we don't need any canonicalization, 82 because glibc has iconv and both glibc and libiconv support all 83 GNU canonical names directly. */ 84 # if !((defined __GNU_LIBRARY__ && __GLIBC__ >= 2) || defined __UCLIBC__) 85 86 struct table_entry 87 { 88 const char alias[11+1]; 89 const char canonical[11+1]; 90 }; 91 92 /* Table of platform-dependent mappings, sorted in ascending order. */ 93 static const struct table_entry alias_table[] = 94 { 95 # if defined __FreeBSD__ /* FreeBSD */ 96 /*{ "ARMSCII-8", "ARMSCII-8" },*/ 97 { "Big5", "BIG5" }, 98 { "C", "ASCII" }, 99 /*{ "CP1131", "CP1131" },*/ 100 /*{ "CP1251", "CP1251" },*/ 101 /*{ "CP866", "CP866" },*/ 102 /*{ "GB18030", "GB18030" },*/ 103 /*{ "GB2312", "GB2312" },*/ 104 /*{ "GBK", "GBK" },*/ 105 /*{ "ISCII-DEV", "?" },*/ 106 { "ISO8859-1", "ISO-8859-1" }, 107 { "ISO8859-13", "ISO-8859-13" }, 108 { "ISO8859-15", "ISO-8859-15" }, 109 { "ISO8859-2", "ISO-8859-2" }, 110 { "ISO8859-5", "ISO-8859-5" }, 111 { "ISO8859-7", "ISO-8859-7" }, 112 { "ISO8859-9", "ISO-8859-9" }, 113 /*{ "KOI8-R", "KOI8-R" },*/ 114 /*{ "KOI8-U", "KOI8-U" },*/ 115 { "SJIS", "SHIFT_JIS" }, 116 { "US-ASCII", "ASCII" }, 117 { "eucCN", "GB2312" }, 118 { "eucJP", "EUC-JP" }, 119 { "eucKR", "EUC-KR" } 120 # define alias_table_defined 121 # endif 122 # if defined __NetBSD__ /* NetBSD */ 123 { "646", "ASCII" }, 124 /*{ "ARMSCII-8", "ARMSCII-8" },*/ 125 /*{ "BIG5", "BIG5" },*/ 126 { "Big5-HKSCS", "BIG5-HKSCS" }, 127 /*{ "CP1251", "CP1251" },*/ 128 /*{ "CP866", "CP866" },*/ 129 /*{ "GB18030", "GB18030" },*/ 130 /*{ "GB2312", "GB2312" },*/ 131 { "ISO8859-1", "ISO-8859-1" }, 132 { "ISO8859-13", "ISO-8859-13" }, 133 { "ISO8859-15", "ISO-8859-15" }, 134 { "ISO8859-2", "ISO-8859-2" }, 135 { "ISO8859-4", "ISO-8859-4" }, 136 { "ISO8859-5", "ISO-8859-5" }, 137 { "ISO8859-7", "ISO-8859-7" }, 138 /*{ "KOI8-R", "KOI8-R" },*/ 139 /*{ "KOI8-U", "KOI8-U" },*/ 140 /*{ "PT154", "PT154" },*/ 141 { "SJIS", "SHIFT_JIS" }, 142 { "eucCN", "GB2312" }, 143 { "eucJP", "EUC-JP" }, 144 { "eucKR", "EUC-KR" }, 145 { "eucTW", "EUC-TW" } 146 # define alias_table_defined 147 # endif 148 # if defined __OpenBSD__ /* OpenBSD */ 149 { "646", "ASCII" }, 150 { "ISO8859-1", "ISO-8859-1" }, 151 { "ISO8859-13", "ISO-8859-13" }, 152 { "ISO8859-15", "ISO-8859-15" }, 153 { "ISO8859-2", "ISO-8859-2" }, 154 { "ISO8859-4", "ISO-8859-4" }, 155 { "ISO8859-5", "ISO-8859-5" }, 156 { "ISO8859-7", "ISO-8859-7" }, 157 { "US-ASCII", "ASCII" } 158 # define alias_table_defined 159 # endif 160 # if defined __APPLE__ && defined __MACH__ /* Mac OS X */ 161 /* Darwin 7.5 has nl_langinfo(CODESET), but sometimes its value is 162 useless: 163 - It returns the empty string when LANG is set to a locale of the 164 form ll_CC, although ll_CC/LC_CTYPE is a symlink to an UTF-8 165 LC_CTYPE file. 166 - The environment variables LANG, LC_CTYPE, LC_ALL are not set by 167 the system; nl_langinfo(CODESET) returns "US-ASCII" in this case. 168 - The documentation says: 169 "... all code that calls BSD system routines should ensure 170 that the const *char parameters of these routines are in UTF-8 171 encoding. All BSD system functions expect their string 172 parameters to be in UTF-8 encoding and nothing else." 173 It also says 174 "An additional caveat is that string parameters for files, 175 paths, and other file-system entities must be in canonical 176 UTF-8. In a canonical UTF-8 Unicode string, all decomposable 177 characters are decomposed ..." 178 but this is not true: You can pass non-decomposed UTF-8 strings 179 to file system functions, and it is the OS which will convert 180 them to decomposed UTF-8 before accessing the file system. 181 - The Apple Terminal application displays UTF-8 by default. 182 - However, other applications are free to use different encodings: 183 - xterm uses ISO-8859-1 by default. 184 - TextEdit uses MacRoman by default. 185 We prefer UTF-8 over decomposed UTF-8-MAC because one should 186 minimize the use of decomposed Unicode. Unfortunately, through the 187 Darwin file system, decomposed UTF-8 strings are leaked into user 188 space nevertheless. 189 Then there are also the locales with encodings other than US-ASCII 190 and UTF-8. These locales can be occasionally useful to users (e.g. 191 when grepping through ISO-8859-1 encoded text files), when all their 192 file names are in US-ASCII. 193 */ 194 { "ARMSCII-8", "ARMSCII-8" }, 195 { "Big5", "BIG5" }, 196 { "Big5HKSCS", "BIG5-HKSCS" }, 197 { "CP1131", "CP1131" }, 198 { "CP1251", "CP1251" }, 199 { "CP866", "CP866" }, 200 { "CP949", "CP949" }, 201 { "GB18030", "GB18030" }, 202 { "GB2312", "GB2312" }, 203 { "GBK", "GBK" }, 204 /*{ "ISCII-DEV", "?" },*/ 205 { "ISO8859-1", "ISO-8859-1" }, 206 { "ISO8859-13", "ISO-8859-13" }, 207 { "ISO8859-15", "ISO-8859-15" }, 208 { "ISO8859-2", "ISO-8859-2" }, 209 { "ISO8859-4", "ISO-8859-4" }, 210 { "ISO8859-5", "ISO-8859-5" }, 211 { "ISO8859-7", "ISO-8859-7" }, 212 { "ISO8859-9", "ISO-8859-9" }, 213 { "KOI8-R", "KOI8-R" }, 214 { "KOI8-U", "KOI8-U" }, 215 { "PT154", "PT154" }, 216 { "SJIS", "SHIFT_JIS" }, 217 { "eucCN", "GB2312" }, 218 { "eucJP", "EUC-JP" }, 219 { "eucKR", "EUC-KR" } 220 # define alias_table_defined 221 # endif 222 # if defined _AIX /* AIX */ 223 /*{ "GBK", "GBK" },*/ 224 { "IBM-1046", "CP1046" }, 225 { "IBM-1124", "CP1124" }, 226 { "IBM-1129", "CP1129" }, 227 { "IBM-1252", "CP1252" }, 228 { "IBM-850", "CP850" }, 229 { "IBM-856", "CP856" }, 230 { "IBM-921", "ISO-8859-13" }, 231 { "IBM-922", "CP922" }, 232 { "IBM-932", "CP932" }, 233 { "IBM-943", "CP943" }, 234 { "IBM-eucCN", "GB2312" }, 235 { "IBM-eucJP", "EUC-JP" }, 236 { "IBM-eucKR", "EUC-KR" }, 237 { "IBM-eucTW", "EUC-TW" }, 238 { "ISO8859-1", "ISO-8859-1" }, 239 { "ISO8859-15", "ISO-8859-15" }, 240 { "ISO8859-2", "ISO-8859-2" }, 241 { "ISO8859-5", "ISO-8859-5" }, 242 { "ISO8859-6", "ISO-8859-6" }, 243 { "ISO8859-7", "ISO-8859-7" }, 244 { "ISO8859-8", "ISO-8859-8" }, 245 { "ISO8859-9", "ISO-8859-9" }, 246 { "TIS-620", "TIS-620" }, 247 /*{ "UTF-8", "UTF-8" },*/ 248 { "big5", "BIG5" } 249 # define alias_table_defined 250 # endif 251 # if defined __hpux /* HP-UX */ 252 { "SJIS", "SHIFT_JIS" }, 253 { "arabic8", "HP-ARABIC8" }, 254 { "big5", "BIG5" }, 255 { "cp1251", "CP1251" }, 256 { "eucJP", "EUC-JP" }, 257 { "eucKR", "EUC-KR" }, 258 { "eucTW", "EUC-TW" }, 259 { "gb18030", "GB18030" }, 260 { "greek8", "HP-GREEK8" }, 261 { "hebrew8", "HP-HEBREW8" }, 262 { "hkbig5", "BIG5-HKSCS" }, 263 { "hp15CN", "GB2312" }, 264 { "iso88591", "ISO-8859-1" }, 265 { "iso885913", "ISO-8859-13" }, 266 { "iso885915", "ISO-8859-15" }, 267 { "iso88592", "ISO-8859-2" }, 268 { "iso88594", "ISO-8859-4" }, 269 { "iso88595", "ISO-8859-5" }, 270 { "iso88596", "ISO-8859-6" }, 271 { "iso88597", "ISO-8859-7" }, 272 { "iso88598", "ISO-8859-8" }, 273 { "iso88599", "ISO-8859-9" }, 274 { "kana8", "HP-KANA8" }, 275 { "koi8r", "KOI8-R" }, 276 { "roman8", "HP-ROMAN8" }, 277 { "tis620", "TIS-620" }, 278 { "turkish8", "HP-TURKISH8" }, 279 { "utf8", "UTF-8" } 280 # define alias_table_defined 281 # endif 282 # if defined __sgi /* IRIX */ 283 { "ISO8859-1", "ISO-8859-1" }, 284 { "ISO8859-15", "ISO-8859-15" }, 285 { "ISO8859-2", "ISO-8859-2" }, 286 { "ISO8859-5", "ISO-8859-5" }, 287 { "ISO8859-7", "ISO-8859-7" }, 288 { "ISO8859-9", "ISO-8859-9" }, 289 { "eucCN", "GB2312" }, 290 { "eucJP", "EUC-JP" }, 291 { "eucKR", "EUC-KR" }, 292 { "eucTW", "EUC-TW" } 293 # define alias_table_defined 294 # endif 295 # if defined __osf__ /* OSF/1 */ 296 /*{ "GBK", "GBK" },*/ 297 { "ISO8859-1", "ISO-8859-1" }, 298 { "ISO8859-15", "ISO-8859-15" }, 299 { "ISO8859-2", "ISO-8859-2" }, 300 { "ISO8859-4", "ISO-8859-4" }, 301 { "ISO8859-5", "ISO-8859-5" }, 302 { "ISO8859-7", "ISO-8859-7" }, 303 { "ISO8859-8", "ISO-8859-8" }, 304 { "ISO8859-9", "ISO-8859-9" }, 305 { "KSC5601", "CP949" }, 306 { "SJIS", "SHIFT_JIS" }, 307 { "TACTIS", "TIS-620" }, 308 /*{ "UTF-8", "UTF-8" },*/ 309 { "big5", "BIG5" }, 310 { "cp850", "CP850" }, 311 { "dechanyu", "DEC-HANYU" }, 312 { "dechanzi", "GB2312" }, 313 { "deckanji", "DEC-KANJI" }, 314 { "deckorean", "EUC-KR" }, 315 { "eucJP", "EUC-JP" }, 316 { "eucKR", "EUC-KR" }, 317 { "eucTW", "EUC-TW" }, 318 { "sdeckanji", "EUC-JP" } 319 # define alias_table_defined 320 # endif 321 # if defined __sun /* Solaris */ 322 { "5601", "EUC-KR" }, 323 { "646", "ASCII" }, 324 /*{ "BIG5", "BIG5" },*/ 325 { "Big5-HKSCS", "BIG5-HKSCS" }, 326 { "GB18030", "GB18030" }, 327 /*{ "GBK", "GBK" },*/ 328 { "ISO8859-1", "ISO-8859-1" }, 329 { "ISO8859-11", "TIS-620" }, 330 { "ISO8859-13", "ISO-8859-13" }, 331 { "ISO8859-15", "ISO-8859-15" }, 332 { "ISO8859-2", "ISO-8859-2" }, 333 { "ISO8859-3", "ISO-8859-3" }, 334 { "ISO8859-4", "ISO-8859-4" }, 335 { "ISO8859-5", "ISO-8859-5" }, 336 { "ISO8859-6", "ISO-8859-6" }, 337 { "ISO8859-7", "ISO-8859-7" }, 338 { "ISO8859-8", "ISO-8859-8" }, 339 { "ISO8859-9", "ISO-8859-9" }, 340 { "PCK", "SHIFT_JIS" }, 341 { "TIS620.2533", "TIS-620" }, 342 /*{ "UTF-8", "UTF-8" },*/ 343 { "ansi-1251", "CP1251" }, 344 { "cns11643", "EUC-TW" }, 345 { "eucJP", "EUC-JP" }, 346 { "gb2312", "GB2312" }, 347 { "koi8-r", "KOI8-R" } 348 # define alias_table_defined 349 # endif 350 # if defined __minix /* Minix */ 351 { "646", "ASCII" } 352 # define alias_table_defined 353 # endif 354 # if defined WINDOWS_NATIVE || defined __CYGWIN__ /* Windows */ 355 { "CP1361", "JOHAB" }, 356 { "CP20127", "ASCII" }, 357 { "CP20866", "KOI8-R" }, 358 { "CP20936", "GB2312" }, 359 { "CP21866", "KOI8-RU" }, 360 { "CP28591", "ISO-8859-1" }, 361 { "CP28592", "ISO-8859-2" }, 362 { "CP28593", "ISO-8859-3" }, 363 { "CP28594", "ISO-8859-4" }, 364 { "CP28595", "ISO-8859-5" }, 365 { "CP28596", "ISO-8859-6" }, 366 { "CP28597", "ISO-8859-7" }, 367 { "CP28598", "ISO-8859-8" }, 368 { "CP28599", "ISO-8859-9" }, 369 { "CP28605", "ISO-8859-15" }, 370 { "CP38598", "ISO-8859-8" }, 371 { "CP51932", "EUC-JP" }, 372 { "CP51936", "GB2312" }, 373 { "CP51949", "EUC-KR" }, 374 { "CP51950", "EUC-TW" }, 375 { "CP54936", "GB18030" }, 376 { "CP65001", "UTF-8" }, 377 { "CP936", "GBK" } 378 # define alias_table_defined 379 # endif 380 # if defined OS2 /* OS/2 */ 381 /* The list of encodings is taken from "List of OS/2 Codepages" 382 by Alex Taylor: 383 <http://altsan.org/os2/toolkits/uls/index.html#codepages>. 384 See also "__convcp() of kLIBC": 385 <https://github.com/bitwiseworks/libc/blob/master/src/emx/src/lib/locale/__convcp.c>. */ 386 { "CP1004", "CP1252" }, 387 /*{ "CP1041", "CP943" },*/ 388 /*{ "CP1088", "CP949" },*/ 389 { "CP1089", "ISO-8859-6" }, 390 /*{ "CP1114", "CP950" },*/ 391 /*{ "CP1115", "GB2312" },*/ 392 { "CP1208", "UTF-8" }, 393 /*{ "CP1380", "GB2312" },*/ 394 { "CP1381", "GB2312" }, 395 { "CP1383", "GB2312" }, 396 { "CP1386", "GBK" }, 397 /*{ "CP301", "CP943" },*/ 398 { "CP3372", "EUC-JP" }, 399 { "CP4946", "CP850" }, 400 /*{ "CP5048", "JIS_X0208-1990" },*/ 401 /*{ "CP5049", "JIS_X0212-1990" },*/ 402 /*{ "CP5067", "KS_C_5601-1987" },*/ 403 { "CP813", "ISO-8859-7" }, 404 { "CP819", "ISO-8859-1" }, 405 { "CP878", "KOI8-R" }, 406 /*{ "CP897", "CP943" },*/ 407 { "CP912", "ISO-8859-2" }, 408 { "CP913", "ISO-8859-3" }, 409 { "CP914", "ISO-8859-4" }, 410 { "CP915", "ISO-8859-5" }, 411 { "CP916", "ISO-8859-8" }, 412 { "CP920", "ISO-8859-9" }, 413 { "CP921", "ISO-8859-13" }, 414 { "CP923", "ISO-8859-15" }, 415 /*{ "CP941", "CP943" },*/ 416 /*{ "CP947", "CP950" },*/ 417 /*{ "CP951", "CP949" },*/ 418 /*{ "CP952", "JIS_X0208-1990" },*/ 419 /*{ "CP953", "JIS_X0212-1990" },*/ 420 { "CP954", "EUC-JP" }, 421 { "CP964", "EUC-TW" }, 422 { "CP970", "EUC-KR" }, 423 /*{ "CP971", "KS_C_5601-1987" },*/ 424 { "IBM-1004", "CP1252" }, 425 /*{ "IBM-1006", "?" },*/ 426 /*{ "IBM-1008", "?" },*/ 427 /*{ "IBM-1041", "CP943" },*/ 428 /*{ "IBM-1051", "?" },*/ 429 /*{ "IBM-1088", "CP949" },*/ 430 { "IBM-1089", "ISO-8859-6" }, 431 /*{ "IBM-1098", "?" },*/ 432 /*{ "IBM-1114", "CP950" },*/ 433 /*{ "IBM-1115", "GB2312" },*/ 434 /*{ "IBM-1116", "?" },*/ 435 /*{ "IBM-1117", "?" },*/ 436 /*{ "IBM-1118", "?" },*/ 437 /*{ "IBM-1119", "?" },*/ 438 { "IBM-1124", "CP1124" }, 439 { "IBM-1125", "CP1125" }, 440 { "IBM-1131", "CP1131" }, 441 { "IBM-1208", "UTF-8" }, 442 { "IBM-1250", "CP1250" }, 443 { "IBM-1251", "CP1251" }, 444 { "IBM-1252", "CP1252" }, 445 { "IBM-1253", "CP1253" }, 446 { "IBM-1254", "CP1254" }, 447 { "IBM-1255", "CP1255" }, 448 { "IBM-1256", "CP1256" }, 449 { "IBM-1257", "CP1257" }, 450 /*{ "IBM-1275", "?" },*/ 451 /*{ "IBM-1276", "?" },*/ 452 /*{ "IBM-1277", "?" },*/ 453 /*{ "IBM-1280", "?" },*/ 454 /*{ "IBM-1281", "?" },*/ 455 /*{ "IBM-1282", "?" },*/ 456 /*{ "IBM-1283", "?" },*/ 457 /*{ "IBM-1380", "GB2312" },*/ 458 { "IBM-1381", "GB2312" }, 459 { "IBM-1383", "GB2312" }, 460 { "IBM-1386", "GBK" }, 461 /*{ "IBM-301", "CP943" },*/ 462 { "IBM-3372", "EUC-JP" }, 463 { "IBM-367", "ASCII" }, 464 { "IBM-437", "CP437" }, 465 { "IBM-4946", "CP850" }, 466 /*{ "IBM-5048", "JIS_X0208-1990" },*/ 467 /*{ "IBM-5049", "JIS_X0212-1990" },*/ 468 /*{ "IBM-5067", "KS_C_5601-1987" },*/ 469 { "IBM-813", "ISO-8859-7" }, 470 { "IBM-819", "ISO-8859-1" }, 471 { "IBM-850", "CP850" }, 472 /*{ "IBM-851", "?" },*/ 473 { "IBM-852", "CP852" }, 474 { "IBM-855", "CP855" }, 475 { "IBM-856", "CP856" }, 476 { "IBM-857", "CP857" }, 477 /*{ "IBM-859", "?" },*/ 478 { "IBM-860", "CP860" }, 479 { "IBM-861", "CP861" }, 480 { "IBM-862", "CP862" }, 481 { "IBM-863", "CP863" }, 482 { "IBM-864", "CP864" }, 483 { "IBM-865", "CP865" }, 484 { "IBM-866", "CP866" }, 485 /*{ "IBM-868", "?" },*/ 486 { "IBM-869", "CP869" }, 487 { "IBM-874", "CP874" }, 488 { "IBM-878", "KOI8-R" }, 489 /*{ "IBM-895", "?" },*/ 490 /*{ "IBM-897", "CP943" },*/ 491 /*{ "IBM-907", "?" },*/ 492 /*{ "IBM-909", "?" },*/ 493 { "IBM-912", "ISO-8859-2" }, 494 { "IBM-913", "ISO-8859-3" }, 495 { "IBM-914", "ISO-8859-4" }, 496 { "IBM-915", "ISO-8859-5" }, 497 { "IBM-916", "ISO-8859-8" }, 498 { "IBM-920", "ISO-8859-9" }, 499 { "IBM-921", "ISO-8859-13" }, 500 { "IBM-922", "CP922" }, 501 { "IBM-923", "ISO-8859-15" }, 502 { "IBM-932", "CP932" }, 503 /*{ "IBM-941", "CP943" },*/ 504 /*{ "IBM-942", "?" },*/ 505 { "IBM-943", "CP943" }, 506 /*{ "IBM-947", "CP950" },*/ 507 { "IBM-949", "CP949" }, 508 { "IBM-950", "CP950" }, 509 /*{ "IBM-951", "CP949" },*/ 510 /*{ "IBM-952", "JIS_X0208-1990" },*/ 511 /*{ "IBM-953", "JIS_X0212-1990" },*/ 512 { "IBM-954", "EUC-JP" }, 513 /*{ "IBM-955", "?" },*/ 514 { "IBM-964", "EUC-TW" }, 515 { "IBM-970", "EUC-KR" }, 516 /*{ "IBM-971", "KS_C_5601-1987" },*/ 517 { "IBM-eucCN", "GB2312" }, 518 { "IBM-eucJP", "EUC-JP" }, 519 { "IBM-eucKR", "EUC-KR" }, 520 { "IBM-eucTW", "EUC-TW" }, 521 { "IBM33722", "EUC-JP" }, 522 { "ISO8859-1", "ISO-8859-1" }, 523 { "ISO8859-2", "ISO-8859-2" }, 524 { "ISO8859-3", "ISO-8859-3" }, 525 { "ISO8859-4", "ISO-8859-4" }, 526 { "ISO8859-5", "ISO-8859-5" }, 527 { "ISO8859-6", "ISO-8859-6" }, 528 { "ISO8859-7", "ISO-8859-7" }, 529 { "ISO8859-8", "ISO-8859-8" }, 530 { "ISO8859-9", "ISO-8859-9" }, 531 /*{ "JISX0201-1976", "JISX0201-1976" },*/ 532 /*{ "JISX0208-1978", "?" },*/ 533 /*{ "JISX0208-1983", "JIS_X0208-1983" },*/ 534 /*{ "JISX0208-1990", "JIS_X0208-1990" },*/ 535 /*{ "JISX0212-1990", "JIS_X0212-1990" },*/ 536 /*{ "KSC5601-1987", "KS_C_5601-1987" },*/ 537 { "SJIS-1", "CP943" }, 538 { "SJIS-2", "CP943" }, 539 { "eucJP", "EUC-JP" }, 540 { "eucKR", "EUC-KR" }, 541 { "eucTW-1993", "EUC-TW" } 542 # define alias_table_defined 543 # endif 544 # if defined VMS /* OpenVMS */ 545 /* The list of encodings is taken from the OpenVMS 7.3-1 documentation 546 "Compaq C Run-Time Library Reference Manual for OpenVMS systems" 547 section 10.7 "Handling Different Character Sets". */ 548 { "DECHANYU", "DEC-HANYU" }, 549 { "DECHANZI", "GB2312" }, 550 { "DECKANJI", "DEC-KANJI" }, 551 { "DECKOREAN", "EUC-KR" }, 552 { "ISO8859-1", "ISO-8859-1" }, 553 { "ISO8859-2", "ISO-8859-2" }, 554 { "ISO8859-5", "ISO-8859-5" }, 555 { "ISO8859-7", "ISO-8859-7" }, 556 { "ISO8859-8", "ISO-8859-8" }, 557 { "ISO8859-9", "ISO-8859-9" }, 558 { "SDECKANJI", "EUC-JP" }, 559 { "SJIS", "SHIFT_JIS" }, 560 { "eucJP", "EUC-JP" }, 561 { "eucTW", "EUC-TW" } 562 # define alias_table_defined 563 # endif 564 # ifndef alias_table_defined 565 /* Just a dummy entry, to avoid a C syntax error. */ 566 { "", "" } 567 # endif 568 }; 569 570 # endif 571 572 #else 573 574 /* On these platforms, we use a mapping from locale name to GNU canonical 575 encoding name. */ 576 577 struct table_entry 578 { 579 const char locale[17+1]; 580 const char canonical[11+1]; 581 }; 582 583 /* Table of platform-dependent mappings, sorted in ascending order. */ 584 static const struct table_entry locale_table[] = 585 { 586 # if defined __FreeBSD__ /* FreeBSD 4.2 */ 587 { "cs_CZ.ISO_8859-2", "ISO-8859-2" }, 588 { "da_DK.DIS_8859-15", "ISO-8859-15" }, 589 { "da_DK.ISO_8859-1", "ISO-8859-1" }, 590 { "de_AT.DIS_8859-15", "ISO-8859-15" }, 591 { "de_AT.ISO_8859-1", "ISO-8859-1" }, 592 { "de_CH.DIS_8859-15", "ISO-8859-15" }, 593 { "de_CH.ISO_8859-1", "ISO-8859-1" }, 594 { "de_DE.DIS_8859-15", "ISO-8859-15" }, 595 { "de_DE.ISO_8859-1", "ISO-8859-1" }, 596 { "en_AU.DIS_8859-15", "ISO-8859-15" }, 597 { "en_AU.ISO_8859-1", "ISO-8859-1" }, 598 { "en_CA.DIS_8859-15", "ISO-8859-15" }, 599 { "en_CA.ISO_8859-1", "ISO-8859-1" }, 600 { "en_GB.DIS_8859-15", "ISO-8859-15" }, 601 { "en_GB.ISO_8859-1", "ISO-8859-1" }, 602 { "en_US.DIS_8859-15", "ISO-8859-15" }, 603 { "en_US.ISO_8859-1", "ISO-8859-1" }, 604 { "es_ES.DIS_8859-15", "ISO-8859-15" }, 605 { "es_ES.ISO_8859-1", "ISO-8859-1" }, 606 { "fi_FI.DIS_8859-15", "ISO-8859-15" }, 607 { "fi_FI.ISO_8859-1", "ISO-8859-1" }, 608 { "fr_BE.DIS_8859-15", "ISO-8859-15" }, 609 { "fr_BE.ISO_8859-1", "ISO-8859-1" }, 610 { "fr_CA.DIS_8859-15", "ISO-8859-15" }, 611 { "fr_CA.ISO_8859-1", "ISO-8859-1" }, 612 { "fr_CH.DIS_8859-15", "ISO-8859-15" }, 613 { "fr_CH.ISO_8859-1", "ISO-8859-1" }, 614 { "fr_FR.DIS_8859-15", "ISO-8859-15" }, 615 { "fr_FR.ISO_8859-1", "ISO-8859-1" }, 616 { "hr_HR.ISO_8859-2", "ISO-8859-2" }, 617 { "hu_HU.ISO_8859-2", "ISO-8859-2" }, 618 { "is_IS.DIS_8859-15", "ISO-8859-15" }, 619 { "is_IS.ISO_8859-1", "ISO-8859-1" }, 620 { "it_CH.DIS_8859-15", "ISO-8859-15" }, 621 { "it_CH.ISO_8859-1", "ISO-8859-1" }, 622 { "it_IT.DIS_8859-15", "ISO-8859-15" }, 623 { "it_IT.ISO_8859-1", "ISO-8859-1" }, 624 { "ja_JP.EUC", "EUC-JP" }, 625 { "ja_JP.SJIS", "SHIFT_JIS" }, 626 { "ja_JP.Shift_JIS", "SHIFT_JIS" }, 627 { "ko_KR.EUC", "EUC-KR" }, 628 { "la_LN.ASCII", "ASCII" }, 629 { "la_LN.DIS_8859-15", "ISO-8859-15" }, 630 { "la_LN.ISO_8859-1", "ISO-8859-1" }, 631 { "la_LN.ISO_8859-2", "ISO-8859-2" }, 632 { "la_LN.ISO_8859-4", "ISO-8859-4" }, 633 { "lt_LN.ASCII", "ASCII" }, 634 { "lt_LN.DIS_8859-15", "ISO-8859-15" }, 635 { "lt_LN.ISO_8859-1", "ISO-8859-1" }, 636 { "lt_LN.ISO_8859-2", "ISO-8859-2" }, 637 { "lt_LT.ISO_8859-4", "ISO-8859-4" }, 638 { "nl_BE.DIS_8859-15", "ISO-8859-15" }, 639 { "nl_BE.ISO_8859-1", "ISO-8859-1" }, 640 { "nl_NL.DIS_8859-15", "ISO-8859-15" }, 641 { "nl_NL.ISO_8859-1", "ISO-8859-1" }, 642 { "no_NO.DIS_8859-15", "ISO-8859-15" }, 643 { "no_NO.ISO_8859-1", "ISO-8859-1" }, 644 { "pl_PL.ISO_8859-2", "ISO-8859-2" }, 645 { "pt_PT.DIS_8859-15", "ISO-8859-15" }, 646 { "pt_PT.ISO_8859-1", "ISO-8859-1" }, 647 { "ru_RU.CP866", "CP866" }, 648 { "ru_RU.ISO_8859-5", "ISO-8859-5" }, 649 { "ru_RU.KOI8-R", "KOI8-R" }, 650 { "ru_SU.CP866", "CP866" }, 651 { "ru_SU.ISO_8859-5", "ISO-8859-5" }, 652 { "ru_SU.KOI8-R", "KOI8-R" }, 653 { "sl_SI.ISO_8859-2", "ISO-8859-2" }, 654 { "sv_SE.DIS_8859-15", "ISO-8859-15" }, 655 { "sv_SE.ISO_8859-1", "ISO-8859-1" }, 656 { "uk_UA.KOI8-U", "KOI8-U" }, 657 { "zh_CN.EUC", "GB2312" }, 658 { "zh_TW.BIG5", "BIG5" }, 659 { "zh_TW.Big5", "BIG5" } 660 # define locale_table_defined 661 # endif 662 # if defined __DJGPP__ /* DOS / DJGPP 2.03 */ 663 /* The encodings given here may not all be correct. 664 If you find that the encoding given for your language and 665 country is not the one your DOS machine actually uses, just 666 correct it in this file, and send a mail to 667 Juan Manuel Guerrero <juan.guerrero@gmx.de> 668 and <bug-gnulib@gnu.org>. */ 669 { "C", "ASCII" }, 670 { "ar", "CP864" }, 671 { "ar_AE", "CP864" }, 672 { "ar_DZ", "CP864" }, 673 { "ar_EG", "CP864" }, 674 { "ar_IQ", "CP864" }, 675 { "ar_IR", "CP864" }, 676 { "ar_JO", "CP864" }, 677 { "ar_KW", "CP864" }, 678 { "ar_MA", "CP864" }, 679 { "ar_OM", "CP864" }, 680 { "ar_QA", "CP864" }, 681 { "ar_SA", "CP864" }, 682 { "ar_SY", "CP864" }, 683 { "be", "CP866" }, 684 { "be_BE", "CP866" }, 685 { "bg", "CP866" }, /* not CP855 ?? */ 686 { "bg_BG", "CP866" }, /* not CP855 ?? */ 687 { "ca", "CP850" }, 688 { "ca_ES", "CP850" }, 689 { "cs", "CP852" }, 690 { "cs_CZ", "CP852" }, 691 { "da", "CP865" }, /* not CP850 ?? */ 692 { "da_DK", "CP865" }, /* not CP850 ?? */ 693 { "de", "CP850" }, 694 { "de_AT", "CP850" }, 695 { "de_CH", "CP850" }, 696 { "de_DE", "CP850" }, 697 { "el", "CP869" }, 698 { "el_GR", "CP869" }, 699 { "en", "CP850" }, 700 { "en_AU", "CP850" }, /* not CP437 ?? */ 701 { "en_CA", "CP850" }, 702 { "en_GB", "CP850" }, 703 { "en_NZ", "CP437" }, 704 { "en_US", "CP437" }, 705 { "en_ZA", "CP850" }, /* not CP437 ?? */ 706 { "eo", "CP850" }, 707 { "eo_EO", "CP850" }, 708 { "es", "CP850" }, 709 { "es_AR", "CP850" }, 710 { "es_BO", "CP850" }, 711 { "es_CL", "CP850" }, 712 { "es_CO", "CP850" }, 713 { "es_CR", "CP850" }, 714 { "es_CU", "CP850" }, 715 { "es_DO", "CP850" }, 716 { "es_EC", "CP850" }, 717 { "es_ES", "CP850" }, 718 { "es_GT", "CP850" }, 719 { "es_HN", "CP850" }, 720 { "es_MX", "CP850" }, 721 { "es_NI", "CP850" }, 722 { "es_PA", "CP850" }, 723 { "es_PE", "CP850" }, 724 { "es_PY", "CP850" }, 725 { "es_SV", "CP850" }, 726 { "es_UY", "CP850" }, 727 { "es_VE", "CP850" }, 728 { "et", "CP850" }, 729 { "et_EE", "CP850" }, 730 { "eu", "CP850" }, 731 { "eu_ES", "CP850" }, 732 { "fi", "CP850" }, 733 { "fi_FI", "CP850" }, 734 { "fr", "CP850" }, 735 { "fr_BE", "CP850" }, 736 { "fr_CA", "CP850" }, 737 { "fr_CH", "CP850" }, 738 { "fr_FR", "CP850" }, 739 { "ga", "CP850" }, 740 { "ga_IE", "CP850" }, 741 { "gd", "CP850" }, 742 { "gd_GB", "CP850" }, 743 { "gl", "CP850" }, 744 { "gl_ES", "CP850" }, 745 { "he", "CP862" }, 746 { "he_IL", "CP862" }, 747 { "hr", "CP852" }, 748 { "hr_HR", "CP852" }, 749 { "hu", "CP852" }, 750 { "hu_HU", "CP852" }, 751 { "id", "CP850" }, /* not CP437 ?? */ 752 { "id_ID", "CP850" }, /* not CP437 ?? */ 753 { "is", "CP861" }, /* not CP850 ?? */ 754 { "is_IS", "CP861" }, /* not CP850 ?? */ 755 { "it", "CP850" }, 756 { "it_CH", "CP850" }, 757 { "it_IT", "CP850" }, 758 { "ja", "CP932" }, 759 { "ja_JP", "CP932" }, 760 { "kr", "CP949" }, /* not CP934 ?? */ 761 { "kr_KR", "CP949" }, /* not CP934 ?? */ 762 { "lt", "CP775" }, 763 { "lt_LT", "CP775" }, 764 { "lv", "CP775" }, 765 { "lv_LV", "CP775" }, 766 { "mk", "CP866" }, /* not CP855 ?? */ 767 { "mk_MK", "CP866" }, /* not CP855 ?? */ 768 { "mt", "CP850" }, 769 { "mt_MT", "CP850" }, 770 { "nb", "CP865" }, /* not CP850 ?? */ 771 { "nb_NO", "CP865" }, /* not CP850 ?? */ 772 { "nl", "CP850" }, 773 { "nl_BE", "CP850" }, 774 { "nl_NL", "CP850" }, 775 { "nn", "CP865" }, /* not CP850 ?? */ 776 { "nn_NO", "CP865" }, /* not CP850 ?? */ 777 { "no", "CP865" }, /* not CP850 ?? */ 778 { "no_NO", "CP865" }, /* not CP850 ?? */ 779 { "pl", "CP852" }, 780 { "pl_PL", "CP852" }, 781 { "pt", "CP850" }, 782 { "pt_BR", "CP850" }, 783 { "pt_PT", "CP850" }, 784 { "ro", "CP852" }, 785 { "ro_RO", "CP852" }, 786 { "ru", "CP866" }, 787 { "ru_RU", "CP866" }, 788 { "sk", "CP852" }, 789 { "sk_SK", "CP852" }, 790 { "sl", "CP852" }, 791 { "sl_SI", "CP852" }, 792 { "sq", "CP852" }, 793 { "sq_AL", "CP852" }, 794 { "sr", "CP852" }, /* CP852 or CP866 or CP855 ?? */ 795 { "sr_CS", "CP852" }, /* CP852 or CP866 or CP855 ?? */ 796 { "sr_YU", "CP852" }, /* CP852 or CP866 or CP855 ?? */ 797 { "sv", "CP850" }, 798 { "sv_SE", "CP850" }, 799 { "th", "CP874" }, 800 { "th_TH", "CP874" }, 801 { "tr", "CP857" }, 802 { "tr_TR", "CP857" }, 803 { "uk", "CP1125" }, 804 { "uk_UA", "CP1125" }, 805 { "zh_CN", "GBK" }, 806 { "zh_TW", "CP950" } /* not CP938 ?? */ 807 # define locale_table_defined 808 # endif 809 # ifndef locale_table_defined 810 /* Just a dummy entry, to avoid a C syntax error. */ 811 { "", "" } 812 # endif 813 }; 814 815 #endif 816 817 818 /* Determine the current locale's character encoding, and canonicalize it 819 into one of the canonical names listed below. 820 The result must not be freed; it is statically allocated. The result 821 becomes invalid when setlocale() is used to change the global locale, or 822 when the value of one of the environment variables LC_ALL, LC_CTYPE, LANG 823 is changed; threads in multithreaded programs should not do this. 824 If the canonical name cannot be determined, the result is a non-canonical 825 name. */ 826 827 #ifdef STATIC 828 STATIC 829 #endif 830 const char * 831 locale_charset (void) 832 { 833 const char *codeset; 834 835 /* This function must be multithread-safe. To achieve this without using 836 thread-local storage, we use a simple strcpy or memcpy to fill this static 837 buffer. Filling it through, for example, strcpy + strcat would not be 838 guaranteed to leave the buffer's contents intact if another thread is 839 currently accessing it. If necessary, the contents is first assembled in 840 a stack-allocated buffer. */ 841 842 #if HAVE_LANGINFO_CODESET || defined WINDOWS_NATIVE || defined OS2 843 844 # if HAVE_LANGINFO_CODESET 845 846 /* Most systems support nl_langinfo (CODESET) nowadays. */ 847 codeset = nl_langinfo (CODESET); 848 849 # ifdef __CYGWIN__ 850 /* Cygwin < 1.7 does not have locales. nl_langinfo (CODESET) always 851 returns "US-ASCII". Return the suffix of the locale name from the 852 environment variables (if present) or the codepage as a number. */ 853 if (codeset != NULL && strcmp (codeset, "US-ASCII") == 0) 854 { 855 const char *locale; 856 static char resultbuf[2 + 10 + 1]; 857 858 locale = getenv ("LC_ALL"); 859 if (locale == NULL || locale[0] == '\0') 860 { 861 locale = getenv ("LC_CTYPE"); 862 if (locale == NULL || locale[0] == '\0') 863 locale = getenv ("LANG"); 864 } 865 if (locale != NULL && locale[0] != '\0') 866 { 867 /* If the locale name contains an encoding after the dot, return 868 it. */ 869 const char *dot = strchr (locale, '.'); 870 871 if (dot != NULL) 872 { 873 const char *modifier; 874 875 dot++; 876 /* Look for the possible @... trailer and remove it, if any. */ 877 modifier = strchr (dot, '@'); 878 if (modifier == NULL) 879 return dot; 880 if (modifier - dot < sizeof (resultbuf)) 881 { 882 /* This way of filling resultbuf is multithread-safe. */ 883 memcpy (resultbuf, dot, modifier - dot); 884 resultbuf [modifier - dot] = '\0'; 885 return resultbuf; 886 } 887 } 888 } 889 890 /* The Windows API has a function returning the locale's codepage as a 891 number: GetACP(). This encoding is used by Cygwin, unless the user 892 has set the environment variable CYGWIN=codepage:oem (which very few 893 people do). 894 Output directed to console windows needs to be converted (to 895 GetOEMCP() if the console is using a raster font, or to 896 GetConsoleOutputCP() if it is using a TrueType font). Cygwin does 897 this conversion transparently (see winsup/cygwin/fhandler_console.cc), 898 converting to GetConsoleOutputCP(). This leads to correct results, 899 except when SetConsoleOutputCP has been called and a raster font is 900 in use. */ 901 { 902 char buf[2 + 10 + 1]; 903 904 sprintf (buf, "CP%u", GetACP ()); 905 strcpy (resultbuf, buf); 906 codeset = resultbuf; 907 } 908 } 909 # endif 910 911 if (codeset == NULL) 912 /* The canonical name cannot be determined. */ 913 codeset = ""; 914 915 # elif defined WINDOWS_NATIVE 916 917 char buf[2 + 10 + 1]; 918 static char resultbuf[2 + 10 + 1]; 919 920 /* The Windows API has a function returning the locale's codepage as 921 a number, but the value doesn't change according to what the 922 'setlocale' call specified. So we use it as a last resort, in 923 case the string returned by 'setlocale' doesn't specify the 924 codepage. */ 925 char *current_locale = setlocale (LC_CTYPE, NULL); 926 char *pdot = strrchr (current_locale, '.'); 927 928 if (pdot && 2 + strlen (pdot + 1) + 1 <= sizeof (buf)) 929 sprintf (buf, "CP%s", pdot + 1); 930 else 931 { 932 /* The Windows API has a function returning the locale's codepage as a 933 number: GetACP(). 934 When the output goes to a console window, it needs to be provided in 935 GetOEMCP() encoding if the console is using a raster font, or in 936 GetConsoleOutputCP() encoding if it is using a TrueType font. 937 But in GUI programs and for output sent to files and pipes, GetACP() 938 encoding is the best bet. */ 939 sprintf (buf, "CP%u", GetACP ()); 940 } 941 /* For a locale name such as "French_France.65001", in Windows 10, 942 setlocale now returns "French_France.utf8" instead. */ 943 if (strcmp (buf + 2, "65001") == 0 || strcmp (buf + 2, "utf8") == 0) 944 codeset = "UTF-8"; 945 else 946 { 947 strcpy (resultbuf, buf); 948 codeset = resultbuf; 949 } 950 951 # elif defined OS2 952 953 const char *locale; 954 static char resultbuf[2 + 10 + 1]; 955 ULONG cp[3]; 956 ULONG cplen; 957 958 codeset = NULL; 959 960 /* Allow user to override the codeset, as set in the operating system, 961 with standard language environment variables. */ 962 locale = getenv ("LC_ALL"); 963 if (locale == NULL || locale[0] == '\0') 964 { 965 locale = getenv ("LC_CTYPE"); 966 if (locale == NULL || locale[0] == '\0') 967 locale = getenv ("LANG"); 968 } 969 if (locale != NULL && locale[0] != '\0') 970 { 971 /* If the locale name contains an encoding after the dot, return it. */ 972 const char *dot = strchr (locale, '.'); 973 974 if (dot != NULL) 975 { 976 const char *modifier; 977 978 dot++; 979 /* Look for the possible @... trailer and remove it, if any. */ 980 modifier = strchr (dot, '@'); 981 if (modifier == NULL) 982 return dot; 983 if (modifier - dot < sizeof (resultbuf)) 984 { 985 /* This way of filling resultbuf is multithread-safe. */ 986 memcpy (resultbuf, dot, modifier - dot); 987 resultbuf [modifier - dot] = '\0'; 988 return resultbuf; 989 } 990 } 991 992 /* For the POSIX locale, don't use the system's codepage. */ 993 if (strcmp (locale, "C") == 0 || strcmp (locale, "POSIX") == 0) 994 codeset = ""; 995 } 996 997 if (codeset == NULL) 998 { 999 /* OS/2 has a function returning the locale's codepage as a number. */ 1000 if (DosQueryCp (sizeof (cp), cp, &cplen)) 1001 codeset = ""; 1002 else 1003 { 1004 char buf[2 + 10 + 1]; 1005 1006 sprintf (buf, "CP%u", cp[0]); 1007 strcpy (resultbuf, buf); 1008 codeset = resultbuf; 1009 } 1010 } 1011 1012 # else 1013 1014 # error "Add code for other platforms here." 1015 1016 # endif 1017 1018 /* Resolve alias. */ 1019 { 1020 # ifdef alias_table_defined 1021 /* On some platforms, UTF-8 locales are the most frequently used ones. 1022 Speed up the common case and slow down the less common cases by 1023 testing for this case first. */ 1024 # if defined __OpenBSD__ || (defined __APPLE__ && defined __MACH__) || defined __sun || defined __CYGWIN__ 1025 if (strcmp (codeset, "UTF-8") == 0) 1026 goto done_table_lookup; 1027 else 1028 # endif 1029 { 1030 const struct table_entry * const table = alias_table; 1031 size_t const table_size = 1032 sizeof (alias_table) / sizeof (struct table_entry); 1033 /* The table is sorted. Perform a binary search. */ 1034 size_t hi = table_size; 1035 size_t lo = 0; 1036 while (lo < hi) 1037 { 1038 /* Invariant: 1039 for i < lo, strcmp (table[i].alias, codeset) < 0, 1040 for i >= hi, strcmp (table[i].alias, codeset) > 0. */ 1041 size_t mid = (hi + lo) >> 1; /* >= lo, < hi */ 1042 int cmp = strcmp (table[mid].alias, codeset); 1043 if (cmp < 0) 1044 lo = mid + 1; 1045 else if (cmp > 0) 1046 hi = mid; 1047 else 1048 { 1049 /* Found an i with 1050 strcmp (table[i].alias, codeset) == 0. */ 1051 codeset = table[mid].canonical; 1052 goto done_table_lookup; 1053 } 1054 } 1055 } 1056 if (0) 1057 done_table_lookup: ; 1058 else 1059 # endif 1060 { 1061 /* Did not find it in the table. */ 1062 /* On Mac OS X, all modern locales use the UTF-8 encoding. 1063 BeOS and Haiku have a single locale, and it has UTF-8 encoding. */ 1064 # if (defined __APPLE__ && defined __MACH__) || defined __BEOS__ || defined __HAIKU__ 1065 codeset = "UTF-8"; 1066 # else 1067 /* Don't return an empty string. GNU libc and GNU libiconv interpret 1068 the empty string as denoting "the locale's character encoding", 1069 thus GNU libiconv would call this function a second time. */ 1070 if (codeset[0] == '\0') 1071 codeset = "ASCII"; 1072 # endif 1073 } 1074 } 1075 1076 #else 1077 1078 /* On old systems which lack it, use setlocale or getenv. */ 1079 const char *locale = NULL; 1080 1081 /* But most old systems don't have a complete set of locales. Some 1082 (like DJGPP) have only the C locale. Therefore we don't use setlocale 1083 here; it would return "C" when it doesn't support the locale name the 1084 user has set. */ 1085 # if 0 1086 locale = setlocale (LC_CTYPE, NULL); 1087 # endif 1088 if (locale == NULL || locale[0] == '\0') 1089 { 1090 locale = getenv ("LC_ALL"); 1091 if (locale == NULL || locale[0] == '\0') 1092 { 1093 locale = getenv ("LC_CTYPE"); 1094 if (locale == NULL || locale[0] == '\0') 1095 locale = getenv ("LANG"); 1096 if (locale == NULL) 1097 locale = ""; 1098 } 1099 } 1100 1101 /* Map locale name to canonical encoding name. */ 1102 { 1103 # ifdef locale_table_defined 1104 const struct table_entry * const table = locale_table; 1105 size_t const table_size = 1106 sizeof (locale_table) / sizeof (struct table_entry); 1107 /* The table is sorted. Perform a binary search. */ 1108 size_t hi = table_size; 1109 size_t lo = 0; 1110 while (lo < hi) 1111 { 1112 /* Invariant: 1113 for i < lo, strcmp (table[i].locale, locale) < 0, 1114 for i >= hi, strcmp (table[i].locale, locale) > 0. */ 1115 size_t mid = (hi + lo) >> 1; /* >= lo, < hi */ 1116 int cmp = strcmp (table[mid].locale, locale); 1117 if (cmp < 0) 1118 lo = mid + 1; 1119 else if (cmp > 0) 1120 hi = mid; 1121 else 1122 { 1123 /* Found an i with 1124 strcmp (table[i].locale, locale) == 0. */ 1125 codeset = table[mid].canonical; 1126 goto done_table_lookup; 1127 } 1128 } 1129 if (0) 1130 done_table_lookup: ; 1131 else 1132 # endif 1133 { 1134 /* Did not find it in the table. */ 1135 /* On Mac OS X, all modern locales use the UTF-8 encoding. 1136 BeOS and Haiku have a single locale, and it has UTF-8 encoding. */ 1137 # if (defined __APPLE__ && defined __MACH__) || defined __BEOS__ || defined __HAIKU__ 1138 codeset = "UTF-8"; 1139 # else 1140 /* The canonical name cannot be determined. */ 1141 /* Don't return an empty string. GNU libc and GNU libiconv interpret 1142 the empty string as denoting "the locale's character encoding", 1143 thus GNU libiconv would call this function a second time. */ 1144 codeset = "ASCII"; 1145 # endif 1146 } 1147 } 1148 1149 #endif 1150 1151 #ifdef DARWIN7 1152 /* Mac OS X sets MB_CUR_MAX to 1 when LC_ALL=C, and "UTF-8" 1153 (the default codeset) does not work when MB_CUR_MAX is 1. */ 1154 if (strcmp (codeset, "UTF-8") == 0 && MB_CUR_MAX_L (uselocale (NULL)) <= 1) 1155 codeset = "ASCII"; 1156 #endif 1157 1158 return codeset; 1159 } 1160