lib/localename.c

   1 /* Determine name of the currently selected locale.
   2    Copyright (C) 1995-2014 Free Software Foundation, Inc.
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU Lesser General Public License as published by
   6    the Free Software Foundation; either version 2.1 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU Lesser General Public License for more details.
  13
  14    You should have received a copy of the GNU Lesser General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  16
  17 /* Written by Ulrich Drepper <drepper@gnu.org>, 1995.  */
  18 /* Native Windows code written by Tor Lillqvist <tml@iki.fi>.  */
  19 /* Mac OS X code written by Bruno Haible <bruno@clisp.org>.  */
  20
  21 #include <config.h>
  22
  23 /* Specification.  */
  24 #ifdef IN_LIBINTL
  25 # include "gettextP.h"
  26 #else
  27 # include "localename.h"
  28 #endif
  29
  30 #include <limits.h>
  31 #include <stddef.h>
  32 #include <stdlib.h>
  33 #include <locale.h>
  34 #include <string.h>
  35
  36 #if HAVE_USELOCALE
  37 /* Mac OS X 10.5 defines the locale_t type in <xlocale.h>.  */
  38 # if defined __APPLE__ && defined __MACH__
  39 #  include <xlocale.h>
  40 # endif
  41 # include <langinfo.h>
  42 # if !defined IN_LIBINTL
  43 #  include "glthread/lock.h"
  44 # endif
  45 #endif
  46
  47 #if HAVE_CFLOCALECOPYCURRENT || HAVE_CFPREFERENCESCOPYAPPVALUE
  48 # include <CoreFoundation/CFString.h>
  49 # if HAVE_CFLOCALECOPYCURRENT
  50 #  include <CoreFoundation/CFLocale.h>
  51 # elif HAVE_CFPREFERENCESCOPYAPPVALUE
  52 #  include <CoreFoundation/CFPreferences.h>
  53 # endif
  54 #endif
  55
  56 #if defined _WIN32 || defined __WIN32__
  57 # define WINDOWS_NATIVE
  58 # if !defined IN_LIBINTL
  59 #  include "glthread/lock.h"
  60 # endif
  61 #endif
  62
  63 #if defined WINDOWS_NATIVE || defined __CYGWIN__ /* Native Windows or Cygwin */
  64 # define WIN32_LEAN_AND_MEAN
  65 # include <windows.h>
  66 # include <winnls.h>
  67 /* List of language codes, sorted by value:
  68    0x01 LANG_ARABIC
  69    0x02 LANG_BULGARIAN
  70    0x03 LANG_CATALAN
  71    0x04 LANG_CHINESE
  72    0x05 LANG_CZECH
  73    0x06 LANG_DANISH
  74    0x07 LANG_GERMAN
  75    0x08 LANG_GREEK
  76    0x09 LANG_ENGLISH
  77    0x0a LANG_SPANISH
  78    0x0b LANG_FINNISH
  79    0x0c LANG_FRENCH
  80    0x0d LANG_HEBREW
  81    0x0e LANG_HUNGARIAN
  82    0x0f LANG_ICELANDIC
  83    0x10 LANG_ITALIAN
  84    0x11 LANG_JAPANESE
  85    0x12 LANG_KOREAN
  86    0x13 LANG_DUTCH
  87    0x14 LANG_NORWEGIAN
  88    0x15 LANG_POLISH
  89    0x16 LANG_PORTUGUESE
  90    0x17 LANG_ROMANSH
  91    0x18 LANG_ROMANIAN
  92    0x19 LANG_RUSSIAN
  93    0x1a LANG_CROATIAN == LANG_SERBIAN
  94    0x1b LANG_SLOVAK
  95    0x1c LANG_ALBANIAN
  96    0x1d LANG_SWEDISH
  97    0x1e LANG_THAI
  98    0x1f LANG_TURKISH
  99    0x20 LANG_URDU
 100    0x21 LANG_INDONESIAN
 101    0x22 LANG_UKRAINIAN
 102    0x23 LANG_BELARUSIAN
 103    0x24 LANG_SLOVENIAN
 104    0x25 LANG_ESTONIAN
 105    0x26 LANG_LATVIAN
 106    0x27 LANG_LITHUANIAN
 107    0x28 LANG_TAJIK
 108    0x29 LANG_FARSI
 109    0x2a LANG_VIETNAMESE
 110    0x2b LANG_ARMENIAN
 111    0x2c LANG_AZERI
 112    0x2d LANG_BASQUE
 113    0x2e LANG_SORBIAN
 114    0x2f LANG_MACEDONIAN
 115    0x30 LANG_SUTU
 116    0x31 LANG_TSONGA
 117    0x32 LANG_TSWANA
 118    0x33 LANG_VENDA
 119    0x34 LANG_XHOSA
 120    0x35 LANG_ZULU
 121    0x36 LANG_AFRIKAANS
 122    0x37 LANG_GEORGIAN
 123    0x38 LANG_FAEROESE
 124    0x39 LANG_HINDI
 125    0x3a LANG_MALTESE
 126    0x3b LANG_SAMI
 127    0x3c LANG_GAELIC
 128    0x3d LANG_YIDDISH
 129    0x3e LANG_MALAY
 130    0x3f LANG_KAZAK
 131    0x40 LANG_KYRGYZ
 132    0x41 LANG_SWAHILI
 133    0x42 LANG_TURKMEN
 134    0x43 LANG_UZBEK
 135    0x44 LANG_TATAR
 136    0x45 LANG_BENGALI
 137    0x46 LANG_PUNJABI
 138    0x47 LANG_GUJARATI
 139    0x48 LANG_ORIYA
 140    0x49 LANG_TAMIL
 141    0x4a LANG_TELUGU
 142    0x4b LANG_KANNADA
 143    0x4c LANG_MALAYALAM
 144    0x4d LANG_ASSAMESE
 145    0x4e LANG_MARATHI
 146    0x4f LANG_SANSKRIT
 147    0x50 LANG_MONGOLIAN
 148    0x51 LANG_TIBETAN
 149    0x52 LANG_WELSH
 150    0x53 LANG_CAMBODIAN
 151    0x54 LANG_LAO
 152    0x55 LANG_BURMESE
 153    0x56 LANG_GALICIAN
 154    0x57 LANG_KONKANI
 155    0x58 LANG_MANIPURI
 156    0x59 LANG_SINDHI
 157    0x5a LANG_SYRIAC
 158    0x5b LANG_SINHALESE
 159    0x5c LANG_CHEROKEE
 160    0x5d LANG_INUKTITUT
 161    0x5e LANG_AMHARIC
 162    0x5f LANG_TAMAZIGHT
 163    0x60 LANG_KASHMIRI
 164    0x61 LANG_NEPALI
 165    0x62 LANG_FRISIAN
 166    0x63 LANG_PASHTO
 167    0x64 LANG_TAGALOG
 168    0x65 LANG_DIVEHI
 169    0x66 LANG_EDO
 170    0x67 LANG_FULFULDE
 171    0x68 LANG_HAUSA
 172    0x69 LANG_IBIBIO
 173    0x6a LANG_YORUBA
 174    0x6d LANG_BASHKIR
 175    0x6e LANG_LUXEMBOURGISH
 176    0x6f LANG_GREENLANDIC
 177    0x70 LANG_IGBO
 178    0x71 LANG_KANURI
 179    0x72 LANG_OROMO
 180    0x73 LANG_TIGRINYA
 181    0x74 LANG_GUARANI
 182    0x75 LANG_HAWAIIAN
 183    0x76 LANG_LATIN
 184    0x77 LANG_SOMALI
 185    0x78 LANG_YI
 186    0x79 LANG_PAPIAMENTU
 187    0x7a LANG_MAPUDUNGUN
 188    0x7c LANG_MOHAWK
 189    0x7e LANG_BRETON
 190    0x82 LANG_OCCITAN
 191    0x83 LANG_CORSICAN
 192    0x84 LANG_ALSATIAN
 193    0x85 LANG_YAKUT
 194    0x86 LANG_KICHE
 195    0x87 LANG_KINYARWANDA
 196    0x88 LANG_WOLOF
 197    0x8c LANG_DARI
 198    0x91 LANG_SCOTTISH_GAELIC
 199 */
 200 /* Mingw headers don't have latest language and sublanguage codes.  */
 201 # ifndef LANG_AFRIKAANS
 202 # define LANG_AFRIKAANS 0x36
 203 # endif
 204 # ifndef LANG_ALBANIAN
 205 # define LANG_ALBANIAN 0x1c
 206 # endif
 207 # ifndef LANG_ALSATIAN
 208 # define LANG_ALSATIAN 0x84
 209 # endif
 210 # ifndef LANG_AMHARIC
 211 # define LANG_AMHARIC 0x5e
 212 # endif
 213 # ifndef LANG_ARABIC
 214 # define LANG_ARABIC 0x01
 215 # endif
 216 # ifndef LANG_ARMENIAN
 217 # define LANG_ARMENIAN 0x2b
 218 # endif
 219 # ifndef LANG_ASSAMESE
 220 # define LANG_ASSAMESE 0x4d
 221 # endif
 222 # ifndef LANG_AZERI
 223 # define LANG_AZERI 0x2c
 224 # endif
 225 # ifndef LANG_BASHKIR
 226 # define LANG_BASHKIR 0x6d
 227 # endif
 228 # ifndef LANG_BASQUE
 229 # define LANG_BASQUE 0x2d
 230 # endif
 231 # ifndef LANG_BELARUSIAN
 232 # define LANG_BELARUSIAN 0x23
 233 # endif
 234 # ifndef LANG_BENGALI
 235 # define LANG_BENGALI 0x45
 236 # endif
 237 # ifndef LANG_BRETON
 238 # define LANG_BRETON 0x7e
 239 # endif
 240 # ifndef LANG_BURMESE
 241 # define LANG_BURMESE 0x55
 242 # endif
 243 # ifndef LANG_CAMBODIAN
 244 # define LANG_CAMBODIAN 0x53
 245 # endif
 246 # ifndef LANG_CATALAN
 247 # define LANG_CATALAN 0x03
 248 # endif
 249 # ifndef LANG_CHEROKEE
 250 # define LANG_CHEROKEE 0x5c
 251 # endif
 252 # ifndef LANG_CORSICAN
 253 # define LANG_CORSICAN 0x83
 254 # endif
 255 # ifndef LANG_DARI
 256 # define LANG_DARI 0x8c
 257 # endif
 258 # ifndef LANG_DIVEHI
 259 # define LANG_DIVEHI 0x65
 260 # endif
 261 # ifndef LANG_EDO
 262 # define LANG_EDO 0x66
 263 # endif
 264 # ifndef LANG_ESTONIAN
 265 # define LANG_ESTONIAN 0x25
 266 # endif
 267 # ifndef LANG_FAEROESE
 268 # define LANG_FAEROESE 0x38
 269 # endif
 270 # ifndef LANG_FARSI
 271 # define LANG_FARSI 0x29
 272 # endif
 273 # ifndef LANG_FRISIAN
 274 # define LANG_FRISIAN 0x62
 275 # endif
 276 # ifndef LANG_FULFULDE
 277 # define LANG_FULFULDE 0x67
 278 # endif
 279 # ifndef LANG_GAELIC
 280 # define LANG_GAELIC 0x3c
 281 # endif
 282 # ifndef LANG_GALICIAN
 283 # define LANG_GALICIAN 0x56
 284 # endif
 285 # ifndef LANG_GEORGIAN
 286 # define LANG_GEORGIAN 0x37
 287 # endif
 288 # ifndef LANG_GREENLANDIC
 289 # define LANG_GREENLANDIC 0x6f
 290 # endif
 291 # ifndef LANG_GUARANI
 292 # define LANG_GUARANI 0x74
 293 # endif
 294 # ifndef LANG_GUJARATI
 295 # define LANG_GUJARATI 0x47
 296 # endif
 297 # ifndef LANG_HAUSA
 298 # define LANG_HAUSA 0x68
 299 # endif
 300 # ifndef LANG_HAWAIIAN
 301 # define LANG_HAWAIIAN 0x75
 302 # endif
 303 # ifndef LANG_HEBREW
 304 # define LANG_HEBREW 0x0d
 305 # endif
 306 # ifndef LANG_HINDI
 307 # define LANG_HINDI 0x39
 308 # endif
 309 # ifndef LANG_IBIBIO
 310 # define LANG_IBIBIO 0x69
 311 # endif
 312 # ifndef LANG_IGBO
 313 # define LANG_IGBO 0x70
 314 # endif
 315 # ifndef LANG_INDONESIAN
 316 # define LANG_INDONESIAN 0x21
 317 # endif
 318 # ifndef LANG_INUKTITUT
 319 # define LANG_INUKTITUT 0x5d
 320 # endif
 321 # ifndef LANG_KANNADA
 322 # define LANG_KANNADA 0x4b
 323 # endif
 324 # ifndef LANG_KANURI
 325 # define LANG_KANURI 0x71
 326 # endif
 327 # ifndef LANG_KASHMIRI
 328 # define LANG_KASHMIRI 0x60
 329 # endif
 330 # ifndef LANG_KAZAK
 331 # define LANG_KAZAK 0x3f
 332 # endif
 333 # ifndef LANG_KICHE
 334 # define LANG_KICHE 0x86
 335 # endif
 336 # ifndef LANG_KINYARWANDA
 337 # define LANG_KINYARWANDA 0x87
 338 # endif
 339 # ifndef LANG_KONKANI
 340 # define LANG_KONKANI 0x57
 341 # endif
 342 # ifndef LANG_KYRGYZ
 343 # define LANG_KYRGYZ 0x40
 344 # endif
 345 # ifndef LANG_LAO
 346 # define LANG_LAO 0x54
 347 # endif
 348 # ifndef LANG_LATIN
 349 # define LANG_LATIN 0x76
 350 # endif
 351 # ifndef LANG_LATVIAN
 352 # define LANG_LATVIAN 0x26
 353 # endif
 354 # ifndef LANG_LITHUANIAN
 355 # define LANG_LITHUANIAN 0x27
 356 # endif
 357 # ifndef LANG_LUXEMBOURGISH
 358 # define LANG_LUXEMBOURGISH 0x6e
 359 # endif
 360 # ifndef LANG_MACEDONIAN
 361 # define LANG_MACEDONIAN 0x2f
 362 # endif
 363 # ifndef LANG_MALAY
 364 # define LANG_MALAY 0x3e
 365 # endif
 366 # ifndef LANG_MALAYALAM
 367 # define LANG_MALAYALAM 0x4c
 368 # endif
 369 # ifndef LANG_MALTESE
 370 # define LANG_MALTESE 0x3a
 371 # endif
 372 # ifndef LANG_MANIPURI
 373 # define LANG_MANIPURI 0x58
 374 # endif
 375 # ifndef LANG_MAORI
 376 # define LANG_MAORI 0x81
 377 # endif
 378 # ifndef LANG_MAPUDUNGUN
 379 # define LANG_MAPUDUNGUN 0x7a
 380 # endif
 381 # ifndef LANG_MARATHI
 382 # define LANG_MARATHI 0x4e
 383 # endif
 384 # ifndef LANG_MOHAWK
 385 # define LANG_MOHAWK 0x7c
 386 # endif
 387 # ifndef LANG_MONGOLIAN
 388 # define LANG_MONGOLIAN 0x50
 389 # endif
 390 # ifndef LANG_NEPALI
 391 # define LANG_NEPALI 0x61
 392 # endif
 393 # ifndef LANG_OCCITAN
 394 # define LANG_OCCITAN 0x82
 395 # endif
 396 # ifndef LANG_ORIYA
 397 # define LANG_ORIYA 0x48
 398 # endif
 399 # ifndef LANG_OROMO
 400 # define LANG_OROMO 0x72
 401 # endif
 402 # ifndef LANG_PAPIAMENTU
 403 # define LANG_PAPIAMENTU 0x79
 404 # endif
 405 # ifndef LANG_PASHTO
 406 # define LANG_PASHTO 0x63
 407 # endif
 408 # ifndef LANG_PUNJABI
 409 # define LANG_PUNJABI 0x46
 410 # endif
 411 # ifndef LANG_QUECHUA
 412 # define LANG_QUECHUA 0x6b
 413 # endif
 414 # ifndef LANG_ROMANSH
 415 # define LANG_ROMANSH 0x17
 416 # endif
 417 # ifndef LANG_SAMI
 418 # define LANG_SAMI 0x3b
 419 # endif
 420 # ifndef LANG_SANSKRIT
 421 # define LANG_SANSKRIT 0x4f
 422 # endif
 423 # ifndef LANG_SCOTTISH_GAELIC
 424 # define LANG_SCOTTISH_GAELIC 0x91
 425 # endif
 426 # ifndef LANG_SERBIAN
 427 # define LANG_SERBIAN 0x1a
 428 # endif
 429 # ifndef LANG_SINDHI
 430 # define LANG_SINDHI 0x59
 431 # endif
 432 # ifndef LANG_SINHALESE
 433 # define LANG_SINHALESE 0x5b
 434 # endif
 435 # ifndef LANG_SLOVAK
 436 # define LANG_SLOVAK 0x1b
 437 # endif
 438 # ifndef LANG_SOMALI
 439 # define LANG_SOMALI 0x77
 440 # endif
 441 # ifndef LANG_SORBIAN
 442 # define LANG_SORBIAN 0x2e
 443 # endif
 444 # ifndef LANG_SOTHO
 445 # define LANG_SOTHO 0x6c
 446 # endif
 447 # ifndef LANG_SUTU
 448 # define LANG_SUTU 0x30
 449 # endif
 450 # ifndef LANG_SWAHILI
 451 # define LANG_SWAHILI 0x41
 452 # endif
 453 # ifndef LANG_SYRIAC
 454 # define LANG_SYRIAC 0x5a
 455 # endif
 456 # ifndef LANG_TAGALOG
 457 # define LANG_TAGALOG 0x64
 458 # endif
 459 # ifndef LANG_TAJIK
 460 # define LANG_TAJIK 0x28
 461 # endif
 462 # ifndef LANG_TAMAZIGHT
 463 # define LANG_TAMAZIGHT 0x5f
 464 # endif
 465 # ifndef LANG_TAMIL
 466 # define LANG_TAMIL 0x49
 467 # endif
 468 # ifndef LANG_TATAR
 469 # define LANG_TATAR 0x44
 470 # endif
 471 # ifndef LANG_TELUGU
 472 # define LANG_TELUGU 0x4a
 473 # endif
 474 # ifndef LANG_THAI
 475 # define LANG_THAI 0x1e
 476 # endif
 477 # ifndef LANG_TIBETAN
 478 # define LANG_TIBETAN 0x51
 479 # endif
 480 # ifndef LANG_TIGRINYA
 481 # define LANG_TIGRINYA 0x73
 482 # endif
 483 # ifndef LANG_TSONGA
 484 # define LANG_TSONGA 0x31
 485 # endif
 486 # ifndef LANG_TSWANA
 487 # define LANG_TSWANA 0x32
 488 # endif
 489 # ifndef LANG_TURKMEN
 490 # define LANG_TURKMEN 0x42
 491 # endif
 492 # ifndef LANG_UIGHUR
 493 # define LANG_UIGHUR 0x80
 494 # endif
 495 # ifndef LANG_UKRAINIAN
 496 # define LANG_UKRAINIAN 0x22
 497 # endif
 498 # ifndef LANG_URDU
 499 # define LANG_URDU 0x20
 500 # endif
 501 # ifndef LANG_UZBEK
 502 # define LANG_UZBEK 0x43
 503 # endif
 504 # ifndef LANG_VENDA
 505 # define LANG_VENDA 0x33
 506 # endif
 507 # ifndef LANG_VIETNAMESE
 508 # define LANG_VIETNAMESE 0x2a
 509 # endif
 510 # ifndef LANG_WELSH
 511 # define LANG_WELSH 0x52
 512 # endif
 513 # ifndef LANG_WOLOF
 514 # define LANG_WOLOF 0x88
 515 # endif
 516 # ifndef LANG_XHOSA
 517 # define LANG_XHOSA 0x34
 518 # endif
 519 # ifndef LANG_YAKUT
 520 # define LANG_YAKUT 0x85
 521 # endif
 522 # ifndef LANG_YI
 523 # define LANG_YI 0x78
 524 # endif
 525 # ifndef LANG_YIDDISH
 526 # define LANG_YIDDISH 0x3d
 527 # endif
 528 # ifndef LANG_YORUBA
 529 # define LANG_YORUBA 0x6a
 530 # endif
 531 # ifndef LANG_ZULU
 532 # define LANG_ZULU 0x35
 533 # endif
 534 # ifndef SUBLANG_AFRIKAANS_SOUTH_AFRICA
 535 # define SUBLANG_AFRIKAANS_SOUTH_AFRICA 0x01
 536 # endif
 537 # ifndef SUBLANG_ALBANIAN_ALBANIA
 538 # define SUBLANG_ALBANIAN_ALBANIA 0x01
 539 # endif
 540 # ifndef SUBLANG_ALSATIAN_FRANCE
 541 # define SUBLANG_ALSATIAN_FRANCE 0x01
 542 # endif
 543 # ifndef SUBLANG_AMHARIC_ETHIOPIA
 544 # define SUBLANG_AMHARIC_ETHIOPIA 0x01
 545 # endif
 546 # ifndef SUBLANG_ARABIC_SAUDI_ARABIA
 547 # define SUBLANG_ARABIC_SAUDI_ARABIA 0x01
 548 # endif
 549 # ifndef SUBLANG_ARABIC_IRAQ
 550 # define SUBLANG_ARABIC_IRAQ 0x02
 551 # endif
 552 # ifndef SUBLANG_ARABIC_EGYPT
 553 # define SUBLANG_ARABIC_EGYPT 0x03
 554 # endif
 555 # ifndef SUBLANG_ARABIC_LIBYA
 556 # define SUBLANG_ARABIC_LIBYA 0x04
 557 # endif
 558 # ifndef SUBLANG_ARABIC_ALGERIA
 559 # define SUBLANG_ARABIC_ALGERIA 0x05
 560 # endif
 561 # ifndef SUBLANG_ARABIC_MOROCCO
 562 # define SUBLANG_ARABIC_MOROCCO 0x06
 563 # endif
 564 # ifndef SUBLANG_ARABIC_TUNISIA
 565 # define SUBLANG_ARABIC_TUNISIA 0x07
 566 # endif
 567 # ifndef SUBLANG_ARABIC_OMAN
 568 # define SUBLANG_ARABIC_OMAN 0x08
 569 # endif
 570 # ifndef SUBLANG_ARABIC_YEMEN
 571 # define SUBLANG_ARABIC_YEMEN 0x09
 572 # endif
 573 # ifndef SUBLANG_ARABIC_SYRIA
 574 # define SUBLANG_ARABIC_SYRIA 0x0a
 575 # endif
 576 # ifndef SUBLANG_ARABIC_JORDAN
 577 # define SUBLANG_ARABIC_JORDAN 0x0b
 578 # endif
 579 # ifndef SUBLANG_ARABIC_LEBANON
 580 # define SUBLANG_ARABIC_LEBANON 0x0c
 581 # endif
 582 # ifndef SUBLANG_ARABIC_KUWAIT
 583 # define SUBLANG_ARABIC_KUWAIT 0x0d
 584 # endif
 585 # ifndef SUBLANG_ARABIC_UAE
 586 # define SUBLANG_ARABIC_UAE 0x0e
 587 # endif
 588 # ifndef SUBLANG_ARABIC_BAHRAIN
 589 # define SUBLANG_ARABIC_BAHRAIN 0x0f
 590 # endif
 591 # ifndef SUBLANG_ARABIC_QATAR
 592 # define SUBLANG_ARABIC_QATAR 0x10
 593 # endif
 594 # ifndef SUBLANG_ARMENIAN_ARMENIA
 595 # define SUBLANG_ARMENIAN_ARMENIA 0x01
 596 # endif
 597 # ifndef SUBLANG_ASSAMESE_INDIA
 598 # define SUBLANG_ASSAMESE_INDIA 0x01
 599 # endif
 600 # ifndef SUBLANG_AZERI_LATIN
 601 # define SUBLANG_AZERI_LATIN 0x01
 602 # endif
 603 # ifndef SUBLANG_AZERI_CYRILLIC
 604 # define SUBLANG_AZERI_CYRILLIC 0x02
 605 # endif
 606 # ifndef SUBLANG_BASHKIR_RUSSIA
 607 # define SUBLANG_BASHKIR_RUSSIA 0x01
 608 # endif
 609 # ifndef SUBLANG_BASQUE_BASQUE
 610 # define SUBLANG_BASQUE_BASQUE 0x01
 611 # endif
 612 # ifndef SUBLANG_BELARUSIAN_BELARUS
 613 # define SUBLANG_BELARUSIAN_BELARUS 0x01
 614 # endif
 615 # ifndef SUBLANG_BENGALI_INDIA
 616 # define SUBLANG_BENGALI_INDIA 0x01
 617 # endif
 618 # ifndef SUBLANG_BENGALI_BANGLADESH
 619 # define SUBLANG_BENGALI_BANGLADESH 0x02
 620 # endif
 621 # ifndef SUBLANG_BOSNIAN_BOSNIA_HERZEGOVINA_LATIN
 622 # define SUBLANG_BOSNIAN_BOSNIA_HERZEGOVINA_LATIN 0x05
 623 # endif
 624 # ifndef SUBLANG_BOSNIAN_BOSNIA_HERZEGOVINA_CYRILLIC
 625 # define SUBLANG_BOSNIAN_BOSNIA_HERZEGOVINA_CYRILLIC 0x08
 626 # endif
 627 # ifndef SUBLANG_BRETON_FRANCE
 628 # define SUBLANG_BRETON_FRANCE 0x01
 629 # endif
 630 # ifndef SUBLANG_BULGARIAN_BULGARIA
 631 # define SUBLANG_BULGARIAN_BULGARIA 0x01
 632 # endif
 633 # ifndef SUBLANG_CAMBODIAN_CAMBODIA
 634 # define SUBLANG_CAMBODIAN_CAMBODIA 0x01
 635 # endif
 636 # ifndef SUBLANG_CATALAN_SPAIN
 637 # define SUBLANG_CATALAN_SPAIN 0x01
 638 # endif
 639 # ifndef SUBLANG_CORSICAN_FRANCE
 640 # define SUBLANG_CORSICAN_FRANCE 0x01
 641 # endif
 642 # ifndef SUBLANG_CROATIAN_CROATIA
 643 # define SUBLANG_CROATIAN_CROATIA 0x01
 644 # endif
 645 # ifndef SUBLANG_CROATIAN_BOSNIA_HERZEGOVINA_LATIN
 646 # define SUBLANG_CROATIAN_BOSNIA_HERZEGOVINA_LATIN 0x04
 647 # endif
 648 # ifndef SUBLANG_CHINESE_MACAU
 649 # define SUBLANG_CHINESE_MACAU 0x05
 650 # endif
 651 # ifndef SUBLANG_CZECH_CZECH_REPUBLIC
 652 # define SUBLANG_CZECH_CZECH_REPUBLIC 0x01
 653 # endif
 654 # ifndef SUBLANG_DANISH_DENMARK
 655 # define SUBLANG_DANISH_DENMARK 0x01
 656 # endif
 657 # ifndef SUBLANG_DARI_AFGHANISTAN
 658 # define SUBLANG_DARI_AFGHANISTAN 0x01
 659 # endif
 660 # ifndef SUBLANG_DIVEHI_MALDIVES
 661 # define SUBLANG_DIVEHI_MALDIVES 0x01
 662 # endif
 663 # ifndef SUBLANG_DUTCH_SURINAM
 664 # define SUBLANG_DUTCH_SURINAM 0x03
 665 # endif
 666 # ifndef SUBLANG_ENGLISH_SOUTH_AFRICA
 667 # define SUBLANG_ENGLISH_SOUTH_AFRICA 0x07
 668 # endif
 669 # ifndef SUBLANG_ENGLISH_JAMAICA
 670 # define SUBLANG_ENGLISH_JAMAICA 0x08
 671 # endif
 672 # ifndef SUBLANG_ENGLISH_CARIBBEAN
 673 # define SUBLANG_ENGLISH_CARIBBEAN 0x09
 674 # endif
 675 # ifndef SUBLANG_ENGLISH_BELIZE
 676 # define SUBLANG_ENGLISH_BELIZE 0x0a
 677 # endif
 678 # ifndef SUBLANG_ENGLISH_TRINIDAD
 679 # define SUBLANG_ENGLISH_TRINIDAD 0x0b
 680 # endif
 681 # ifndef SUBLANG_ENGLISH_ZIMBABWE
 682 # define SUBLANG_ENGLISH_ZIMBABWE 0x0c
 683 # endif
 684 # ifndef SUBLANG_ENGLISH_PHILIPPINES
 685 # define SUBLANG_ENGLISH_PHILIPPINES 0x0d
 686 # endif
 687 # ifndef SUBLANG_ENGLISH_INDONESIA
 688 # define SUBLANG_ENGLISH_INDONESIA 0x0e
 689 # endif
 690 # ifndef SUBLANG_ENGLISH_HONGKONG
 691 # define SUBLANG_ENGLISH_HONGKONG 0x0f
 692 # endif
 693 # ifndef SUBLANG_ENGLISH_INDIA
 694 # define SUBLANG_ENGLISH_INDIA 0x10
 695 # endif
 696 # ifndef SUBLANG_ENGLISH_MALAYSIA
 697 # define SUBLANG_ENGLISH_MALAYSIA 0x11
 698 # endif
 699 # ifndef SUBLANG_ENGLISH_SINGAPORE
 700 # define SUBLANG_ENGLISH_SINGAPORE 0x12
 701 # endif
 702 # ifndef SUBLANG_ESTONIAN_ESTONIA
 703 # define SUBLANG_ESTONIAN_ESTONIA 0x01
 704 # endif
 705 # ifndef SUBLANG_FAEROESE_FAROE_ISLANDS
 706 # define SUBLANG_FAEROESE_FAROE_ISLANDS 0x01
 707 # endif
 708 # ifndef SUBLANG_FARSI_IRAN
 709 # define SUBLANG_FARSI_IRAN 0x01
 710 # endif
 711 # ifndef SUBLANG_FINNISH_FINLAND
 712 # define SUBLANG_FINNISH_FINLAND 0x01
 713 # endif
 714 # ifndef SUBLANG_FRENCH_LUXEMBOURG
 715 # define SUBLANG_FRENCH_LUXEMBOURG 0x05
 716 # endif
 717 # ifndef SUBLANG_FRENCH_MONACO
 718 # define SUBLANG_FRENCH_MONACO 0x06
 719 # endif
 720 # ifndef SUBLANG_FRENCH_WESTINDIES
 721 # define SUBLANG_FRENCH_WESTINDIES 0x07
 722 # endif
 723 # ifndef SUBLANG_FRENCH_REUNION
 724 # define SUBLANG_FRENCH_REUNION 0x08
 725 # endif
 726 # ifndef SUBLANG_FRENCH_CONGO
 727 # define SUBLANG_FRENCH_CONGO 0x09
 728 # endif
 729 # ifndef SUBLANG_FRENCH_SENEGAL
 730 # define SUBLANG_FRENCH_SENEGAL 0x0a
 731 # endif
 732 # ifndef SUBLANG_FRENCH_CAMEROON
 733 # define SUBLANG_FRENCH_CAMEROON 0x0b
 734 # endif
 735 # ifndef SUBLANG_FRENCH_COTEDIVOIRE
 736 # define SUBLANG_FRENCH_COTEDIVOIRE 0x0c
 737 # endif
 738 # ifndef SUBLANG_FRENCH_MALI
 739 # define SUBLANG_FRENCH_MALI 0x0d
 740 # endif
 741 # ifndef SUBLANG_FRENCH_MOROCCO
 742 # define SUBLANG_FRENCH_MOROCCO 0x0e
 743 # endif
 744 # ifndef SUBLANG_FRENCH_HAITI
 745 # define SUBLANG_FRENCH_HAITI 0x0f
 746 # endif
 747 # ifndef SUBLANG_FRISIAN_NETHERLANDS
 748 # define SUBLANG_FRISIAN_NETHERLANDS 0x01
 749 # endif
 750 # ifndef SUBLANG_GALICIAN_SPAIN
 751 # define SUBLANG_GALICIAN_SPAIN 0x01
 752 # endif
 753 # ifndef SUBLANG_GEORGIAN_GEORGIA
 754 # define SUBLANG_GEORGIAN_GEORGIA 0x01
 755 # endif
 756 # ifndef SUBLANG_GERMAN_LUXEMBOURG
 757 # define SUBLANG_GERMAN_LUXEMBOURG 0x04
 758 # endif
 759 # ifndef SUBLANG_GERMAN_LIECHTENSTEIN
 760 # define SUBLANG_GERMAN_LIECHTENSTEIN 0x05
 761 # endif
 762 # ifndef SUBLANG_GREEK_GREECE
 763 # define SUBLANG_GREEK_GREECE 0x01
 764 # endif
 765 # ifndef SUBLANG_GREENLANDIC_GREENLAND
 766 # define SUBLANG_GREENLANDIC_GREENLAND 0x01
 767 # endif
 768 # ifndef SUBLANG_GUJARATI_INDIA
 769 # define SUBLANG_GUJARATI_INDIA 0x01
 770 # endif
 771 # ifndef SUBLANG_HAUSA_NIGERIA_LATIN
 772 # define SUBLANG_HAUSA_NIGERIA_LATIN 0x01
 773 # endif
 774 # ifndef SUBLANG_HEBREW_ISRAEL
 775 # define SUBLANG_HEBREW_ISRAEL 0x01
 776 # endif
 777 # ifndef SUBLANG_HINDI_INDIA
 778 # define SUBLANG_HINDI_INDIA 0x01
 779 # endif
 780 # ifndef SUBLANG_HUNGARIAN_HUNGARY
 781 # define SUBLANG_HUNGARIAN_HUNGARY 0x01
 782 # endif
 783 # ifndef SUBLANG_ICELANDIC_ICELAND
 784 # define SUBLANG_ICELANDIC_ICELAND 0x01
 785 # endif
 786 # ifndef SUBLANG_IGBO_NIGERIA
 787 # define SUBLANG_IGBO_NIGERIA 0x01
 788 # endif
 789 # ifndef SUBLANG_INDONESIAN_INDONESIA
 790 # define SUBLANG_INDONESIAN_INDONESIA 0x01
 791 # endif
 792 # ifndef SUBLANG_INUKTITUT_CANADA
 793 # define SUBLANG_INUKTITUT_CANADA 0x01
 794 # endif
 795 # undef SUBLANG_INUKTITUT_CANADA_LATIN
 796 # define SUBLANG_INUKTITUT_CANADA_LATIN 0x02
 797 # undef SUBLANG_IRISH_IRELAND
 798 # define SUBLANG_IRISH_IRELAND 0x02
 799 # ifndef SUBLANG_JAPANESE_JAPAN
 800 # define SUBLANG_JAPANESE_JAPAN 0x01
 801 # endif
 802 # ifndef SUBLANG_KANNADA_INDIA
 803 # define SUBLANG_KANNADA_INDIA 0x01
 804 # endif
 805 # ifndef SUBLANG_KASHMIRI_INDIA
 806 # define SUBLANG_KASHMIRI_INDIA 0x02
 807 # endif
 808 # ifndef SUBLANG_KAZAK_KAZAKHSTAN
 809 # define SUBLANG_KAZAK_KAZAKHSTAN 0x01
 810 # endif
 811 # ifndef SUBLANG_KICHE_GUATEMALA
 812 # define SUBLANG_KICHE_GUATEMALA 0x01
 813 # endif
 814 # ifndef SUBLANG_KINYARWANDA_RWANDA
 815 # define SUBLANG_KINYARWANDA_RWANDA 0x01
 816 # endif
 817 # ifndef SUBLANG_KONKANI_INDIA
 818 # define SUBLANG_KONKANI_INDIA 0x01
 819 # endif
 820 # ifndef SUBLANG_KYRGYZ_KYRGYZSTAN
 821 # define SUBLANG_KYRGYZ_KYRGYZSTAN 0x01
 822 # endif
 823 # ifndef SUBLANG_LAO_LAOS
 824 # define SUBLANG_LAO_LAOS 0x01
 825 # endif
 826 # ifndef SUBLANG_LATVIAN_LATVIA
 827 # define SUBLANG_LATVIAN_LATVIA 0x01
 828 # endif
 829 # ifndef SUBLANG_LITHUANIAN_LITHUANIA
 830 # define SUBLANG_LITHUANIAN_LITHUANIA 0x01
 831 # endif
 832 # undef SUBLANG_LOWER_SORBIAN_GERMANY
 833 # define SUBLANG_LOWER_SORBIAN_GERMANY 0x02
 834 # ifndef SUBLANG_LUXEMBOURGISH_LUXEMBOURG
 835 # define SUBLANG_LUXEMBOURGISH_LUXEMBOURG 0x01
 836 # endif
 837 # ifndef SUBLANG_MACEDONIAN_MACEDONIA
 838 # define SUBLANG_MACEDONIAN_MACEDONIA 0x01
 839 # endif
 840 # ifndef SUBLANG_MALAY_MALAYSIA
 841 # define SUBLANG_MALAY_MALAYSIA 0x01
 842 # endif
 843 # ifndef SUBLANG_MALAY_BRUNEI_DARUSSALAM
 844 # define SUBLANG_MALAY_BRUNEI_DARUSSALAM 0x02
 845 # endif
 846 # ifndef SUBLANG_MALAYALAM_INDIA
 847 # define SUBLANG_MALAYALAM_INDIA 0x01
 848 # endif
 849 # ifndef SUBLANG_MALTESE_MALTA
 850 # define SUBLANG_MALTESE_MALTA 0x01
 851 # endif
 852 # ifndef SUBLANG_MAORI_NEW_ZEALAND
 853 # define SUBLANG_MAORI_NEW_ZEALAND 0x01
 854 # endif
 855 # ifndef SUBLANG_MAPUDUNGUN_CHILE
 856 # define SUBLANG_MAPUDUNGUN_CHILE 0x01
 857 # endif
 858 # ifndef SUBLANG_MARATHI_INDIA
 859 # define SUBLANG_MARATHI_INDIA 0x01
 860 # endif
 861 # ifndef SUBLANG_MOHAWK_CANADA
 862 # define SUBLANG_MOHAWK_CANADA 0x01
 863 # endif
 864 # ifndef SUBLANG_MONGOLIAN_CYRILLIC_MONGOLIA
 865 # define SUBLANG_MONGOLIAN_CYRILLIC_MONGOLIA 0x01
 866 # endif
 867 # ifndef SUBLANG_MONGOLIAN_PRC
 868 # define SUBLANG_MONGOLIAN_PRC 0x02
 869 # endif
 870 # ifndef SUBLANG_NEPALI_NEPAL
 871 # define SUBLANG_NEPALI_NEPAL 0x01
 872 # endif
 873 # ifndef SUBLANG_NEPALI_INDIA
 874 # define SUBLANG_NEPALI_INDIA 0x02
 875 # endif
 876 # ifndef SUBLANG_OCCITAN_FRANCE
 877 # define SUBLANG_OCCITAN_FRANCE 0x01
 878 # endif
 879 # ifndef SUBLANG_ORIYA_INDIA
 880 # define SUBLANG_ORIYA_INDIA 0x01
 881 # endif
 882 # ifndef SUBLANG_PASHTO_AFGHANISTAN
 883 # define SUBLANG_PASHTO_AFGHANISTAN 0x01
 884 # endif
 885 # ifndef SUBLANG_POLISH_POLAND
 886 # define SUBLANG_POLISH_POLAND 0x01
 887 # endif
 888 # ifndef SUBLANG_PUNJABI_INDIA
 889 # define SUBLANG_PUNJABI_INDIA 0x01
 890 # endif
 891 # ifndef SUBLANG_PUNJABI_PAKISTAN
 892 # define SUBLANG_PUNJABI_PAKISTAN 0x02
 893 # endif
 894 # ifndef SUBLANG_QUECHUA_BOLIVIA
 895 # define SUBLANG_QUECHUA_BOLIVIA 0x01
 896 # endif
 897 # ifndef SUBLANG_QUECHUA_ECUADOR
 898 # define SUBLANG_QUECHUA_ECUADOR 0x02
 899 # endif
 900 # ifndef SUBLANG_QUECHUA_PERU
 901 # define SUBLANG_QUECHUA_PERU 0x03
 902 # endif
 903 # ifndef SUBLANG_ROMANIAN_ROMANIA
 904 # define SUBLANG_ROMANIAN_ROMANIA 0x01
 905 # endif
 906 # ifndef SUBLANG_ROMANIAN_MOLDOVA
 907 # define SUBLANG_ROMANIAN_MOLDOVA 0x02
 908 # endif
 909 # ifndef SUBLANG_ROMANSH_SWITZERLAND
 910 # define SUBLANG_ROMANSH_SWITZERLAND 0x01
 911 # endif
 912 # ifndef SUBLANG_RUSSIAN_RUSSIA
 913 # define SUBLANG_RUSSIAN_RUSSIA 0x01
 914 # endif
 915 # ifndef SUBLANG_RUSSIAN_MOLDAVIA
 916 # define SUBLANG_RUSSIAN_MOLDAVIA 0x02
 917 # endif
 918 # ifndef SUBLANG_SAMI_NORTHERN_NORWAY
 919 # define SUBLANG_SAMI_NORTHERN_NORWAY 0x01
 920 # endif
 921 # ifndef SUBLANG_SAMI_NORTHERN_SWEDEN
 922 # define SUBLANG_SAMI_NORTHERN_SWEDEN 0x02
 923 # endif
 924 # ifndef SUBLANG_SAMI_NORTHERN_FINLAND
 925 # define SUBLANG_SAMI_NORTHERN_FINLAND 0x03
 926 # endif
 927 # ifndef SUBLANG_SAMI_LULE_NORWAY
 928 # define SUBLANG_SAMI_LULE_NORWAY 0x04
 929 # endif
 930 # ifndef SUBLANG_SAMI_LULE_SWEDEN
 931 # define SUBLANG_SAMI_LULE_SWEDEN 0x05
 932 # endif
 933 # ifndef SUBLANG_SAMI_SOUTHERN_NORWAY
 934 # define SUBLANG_SAMI_SOUTHERN_NORWAY 0x06
 935 # endif
 936 # ifndef SUBLANG_SAMI_SOUTHERN_SWEDEN
 937 # define SUBLANG_SAMI_SOUTHERN_SWEDEN 0x07
 938 # endif
 939 # undef SUBLANG_SAMI_SKOLT_FINLAND
 940 # define SUBLANG_SAMI_SKOLT_FINLAND 0x08
 941 # undef SUBLANG_SAMI_INARI_FINLAND
 942 # define SUBLANG_SAMI_INARI_FINLAND 0x09
 943 # ifndef SUBLANG_SANSKRIT_INDIA
 944 # define SUBLANG_SANSKRIT_INDIA 0x01
 945 # endif
 946 # ifndef SUBLANG_SERBIAN_LATIN
 947 # define SUBLANG_SERBIAN_LATIN 0x02
 948 # endif
 949 # ifndef SUBLANG_SERBIAN_CYRILLIC
 950 # define SUBLANG_SERBIAN_CYRILLIC 0x03
 951 # endif
 952 # ifndef SUBLANG_SINDHI_INDIA
 953 # define SUBLANG_SINDHI_INDIA 0x01
 954 # endif
 955 # undef SUBLANG_SINDHI_PAKISTAN
 956 # define SUBLANG_SINDHI_PAKISTAN 0x02
 957 # ifndef SUBLANG_SINDHI_AFGHANISTAN
 958 # define SUBLANG_SINDHI_AFGHANISTAN 0x02
 959 # endif
 960 # ifndef SUBLANG_SINHALESE_SRI_LANKA
 961 # define SUBLANG_SINHALESE_SRI_LANKA 0x01
 962 # endif
 963 # ifndef SUBLANG_SLOVAK_SLOVAKIA
 964 # define SUBLANG_SLOVAK_SLOVAKIA 0x01
 965 # endif
 966 # ifndef SUBLANG_SLOVENIAN_SLOVENIA
 967 # define SUBLANG_SLOVENIAN_SLOVENIA 0x01
 968 # endif
 969 # ifndef SUBLANG_SOTHO_SOUTH_AFRICA
 970 # define SUBLANG_SOTHO_SOUTH_AFRICA 0x01
 971 # endif
 972 # ifndef SUBLANG_SPANISH_GUATEMALA
 973 # define SUBLANG_SPANISH_GUATEMALA 0x04
 974 # endif
 975 # ifndef SUBLANG_SPANISH_COSTA_RICA
 976 # define SUBLANG_SPANISH_COSTA_RICA 0x05
 977 # endif
 978 # ifndef SUBLANG_SPANISH_PANAMA
 979 # define SUBLANG_SPANISH_PANAMA 0x06
 980 # endif
 981 # ifndef SUBLANG_SPANISH_DOMINICAN_REPUBLIC
 982 # define SUBLANG_SPANISH_DOMINICAN_REPUBLIC 0x07
 983 # endif
 984 # ifndef SUBLANG_SPANISH_VENEZUELA
 985 # define SUBLANG_SPANISH_VENEZUELA 0x08
 986 # endif
 987 # ifndef SUBLANG_SPANISH_COLOMBIA
 988 # define SUBLANG_SPANISH_COLOMBIA 0x09
 989 # endif
 990 # ifndef SUBLANG_SPANISH_PERU
 991 # define SUBLANG_SPANISH_PERU 0x0a
 992 # endif
 993 # ifndef SUBLANG_SPANISH_ARGENTINA
 994 # define SUBLANG_SPANISH_ARGENTINA 0x0b
 995 # endif
 996 # ifndef SUBLANG_SPANISH_ECUADOR
 997 # define SUBLANG_SPANISH_ECUADOR 0x0c
 998 # endif
 999 # ifndef SUBLANG_SPANISH_CHILE
1000 # define SUBLANG_SPANISH_CHILE 0x0d
1001 # endif
1002 # ifndef SUBLANG_SPANISH_URUGUAY
1003 # define SUBLANG_SPANISH_URUGUAY 0x0e
1004 # endif
1005 # ifndef SUBLANG_SPANISH_PARAGUAY
1006 # define SUBLANG_SPANISH_PARAGUAY 0x0f
1007 # endif
1008 # ifndef SUBLANG_SPANISH_BOLIVIA
1009 # define SUBLANG_SPANISH_BOLIVIA 0x10
1010 # endif
1011 # ifndef SUBLANG_SPANISH_EL_SALVADOR
1012 # define SUBLANG_SPANISH_EL_SALVADOR 0x11
1013 # endif
1014 # ifndef SUBLANG_SPANISH_HONDURAS
1015 # define SUBLANG_SPANISH_HONDURAS 0x12
1016 # endif
1017 # ifndef SUBLANG_SPANISH_NICARAGUA
1018 # define SUBLANG_SPANISH_NICARAGUA 0x13
1019 # endif
1020 # ifndef SUBLANG_SPANISH_PUERTO_RICO
1021 # define SUBLANG_SPANISH_PUERTO_RICO 0x14
1022 # endif
1023 # ifndef SUBLANG_SPANISH_US
1024 # define SUBLANG_SPANISH_US 0x15
1025 # endif
1026 # ifndef SUBLANG_SWAHILI_KENYA
1027 # define SUBLANG_SWAHILI_KENYA 0x01
1028 # endif
1029 # ifndef SUBLANG_SWEDISH_SWEDEN
1030 # define SUBLANG_SWEDISH_SWEDEN 0x01
1031 # endif
1032 # ifndef SUBLANG_SWEDISH_FINLAND
1033 # define SUBLANG_SWEDISH_FINLAND 0x02
1034 # endif
1035 # ifndef SUBLANG_SYRIAC_SYRIA
1036 # define SUBLANG_SYRIAC_SYRIA 0x01
1037 # endif
1038 # ifndef SUBLANG_TAGALOG_PHILIPPINES
1039 # define SUBLANG_TAGALOG_PHILIPPINES 0x01
1040 # endif
1041 # ifndef SUBLANG_TAJIK_TAJIKISTAN
1042 # define SUBLANG_TAJIK_TAJIKISTAN 0x01
1043 # endif
1044 # ifndef SUBLANG_TAMAZIGHT_ARABIC
1045 # define SUBLANG_TAMAZIGHT_ARABIC 0x01
1046 # endif
1047 # ifndef SUBLANG_TAMAZIGHT_ALGERIA_LATIN
1048 # define SUBLANG_TAMAZIGHT_ALGERIA_LATIN 0x02
1049 # endif
1050 # ifndef SUBLANG_TAMIL_INDIA
1051 # define SUBLANG_TAMIL_INDIA 0x01
1052 # endif
1053 # ifndef SUBLANG_TATAR_RUSSIA
1054 # define SUBLANG_TATAR_RUSSIA 0x01
1055 # endif
1056 # ifndef SUBLANG_TELUGU_INDIA
1057 # define SUBLANG_TELUGU_INDIA 0x01
1058 # endif
1059 # ifndef SUBLANG_THAI_THAILAND
1060 # define SUBLANG_THAI_THAILAND 0x01
1061 # endif
1062 # ifndef SUBLANG_TIBETAN_PRC
1063 # define SUBLANG_TIBETAN_PRC 0x01
1064 # endif
1065 # undef SUBLANG_TIBETAN_BHUTAN
1066 # define SUBLANG_TIBETAN_BHUTAN 0x02
1067 # ifndef SUBLANG_TIGRINYA_ETHIOPIA
1068 # define SUBLANG_TIGRINYA_ETHIOPIA 0x01
1069 # endif
1070 # ifndef SUBLANG_TIGRINYA_ERITREA
1071 # define SUBLANG_TIGRINYA_ERITREA 0x02
1072 # endif
1073 # ifndef SUBLANG_TSWANA_SOUTH_AFRICA
1074 # define SUBLANG_TSWANA_SOUTH_AFRICA 0x01
1075 # endif
1076 # ifndef SUBLANG_TURKISH_TURKEY
1077 # define SUBLANG_TURKISH_TURKEY 0x01
1078 # endif
1079 # ifndef SUBLANG_TURKMEN_TURKMENISTAN
1080 # define SUBLANG_TURKMEN_TURKMENISTAN 0x01
1081 # endif
1082 # ifndef SUBLANG_UIGHUR_PRC
1083 # define SUBLANG_UIGHUR_PRC 0x01
1084 # endif
1085 # ifndef SUBLANG_UKRAINIAN_UKRAINE
1086 # define SUBLANG_UKRAINIAN_UKRAINE 0x01
1087 # endif
1088 # ifndef SUBLANG_UPPER_SORBIAN_GERMANY
1089 # define SUBLANG_UPPER_SORBIAN_GERMANY 0x01
1090 # endif
1091 # ifndef SUBLANG_URDU_PAKISTAN
1092 # define SUBLANG_URDU_PAKISTAN 0x01
1093 # endif
1094 # ifndef SUBLANG_URDU_INDIA
1095 # define SUBLANG_URDU_INDIA 0x02
1096 # endif
1097 # ifndef SUBLANG_UZBEK_LATIN
1098 # define SUBLANG_UZBEK_LATIN 0x01
1099 # endif
1100 # ifndef SUBLANG_UZBEK_CYRILLIC
1101 # define SUBLANG_UZBEK_CYRILLIC 0x02
1102 # endif
1103 # ifndef SUBLANG_VIETNAMESE_VIETNAM
1104 # define SUBLANG_VIETNAMESE_VIETNAM 0x01
1105 # endif
1106 # ifndef SUBLANG_WELSH_UNITED_KINGDOM
1107 # define SUBLANG_WELSH_UNITED_KINGDOM 0x01
1108 # endif
1109 # ifndef SUBLANG_WOLOF_SENEGAL
1110 # define SUBLANG_WOLOF_SENEGAL 0x01
1111 # endif
1112 # ifndef SUBLANG_XHOSA_SOUTH_AFRICA
1113 # define SUBLANG_XHOSA_SOUTH_AFRICA 0x01
1114 # endif
1115 # ifndef SUBLANG_YAKUT_RUSSIA
1116 # define SUBLANG_YAKUT_RUSSIA 0x01
1117 # endif
1118 # ifndef SUBLANG_YI_PRC
1119 # define SUBLANG_YI_PRC 0x01
1120 # endif
1121 # ifndef SUBLANG_YORUBA_NIGERIA
1122 # define SUBLANG_YORUBA_NIGERIA 0x01
1123 # endif
1124 # ifndef SUBLANG_ZULU_SOUTH_AFRICA
1125 # define SUBLANG_ZULU_SOUTH_AFRICA 0x01
1126 # endif
1127 /* GetLocaleInfoA operations.  */
1128 # ifndef LOCALE_SNAME
1129 # define LOCALE_SNAME 0x5c
1130 # endif
1131 # ifndef LOCALE_NAME_MAX_LENGTH
1132 # define LOCALE_NAME_MAX_LENGTH 85
1133 # endif
1134 #endif
1135
1136
1137 #if HAVE_CFLOCALECOPYCURRENT || HAVE_CFPREFERENCESCOPYAPPVALUE
1138 /* Mac OS X 10.2 or newer */
1139
1140 /* Canonicalize a Mac OS X locale name to a Unix locale name.
1141    NAME is a sufficiently large buffer.
1142    On input, it contains the Mac OS X locale name.
1143    On output, it contains the Unix locale name.  */
1144 # if !defined IN_LIBINTL
1145 static
1146 # endif
1147 void
1148 gl_locale_name_canonicalize (char *name)
1149 {
1150   /* This conversion is based on a posting by
1151      Deborah GoldSmith <goldsmit@apple.com> on 2005-03-08,
1152      http://lists.apple.com/archives/carbon-dev/2005/Mar/msg00293.html */
1153
1154   /* Convert legacy (NeXTstep inherited) English names to Unix (ISO 639 and
1155      ISO 3166) names.  Prior to Mac OS X 10.3, there is no API for doing this.
1156      Therefore we do it ourselves, using a table based on the results of the
1157      Mac OS X 10.3.8 function
1158      CFLocaleCreateCanonicalLocaleIdentifierFromString().  */
1159   typedef struct { const char legacy[21+1]; const char unixy[5+1]; }
1160           legacy_entry;
1161   static const legacy_entry legacy_table[] = {
1162     { "Afrikaans",             "af" },
1163     { "Albanian",              "sq" },
1164     { "Amharic",               "am" },
1165     { "Arabic",                "ar" },
1166     { "Armenian",              "hy" },
1167     { "Assamese",              "as" },
1168     { "Aymara",                "ay" },
1169     { "Azerbaijani",           "az" },
1170     { "Basque",                "eu" },
1171     { "Belarusian",            "be" },
1172     { "Belorussian",           "be" },
1173     { "Bengali",               "bn" },
1174     { "Brazilian Portugese",   "pt_BR" },
1175     { "Brazilian Portuguese",  "pt_BR" },
1176     { "Breton",                "br" },
1177     { "Bulgarian",             "bg" },
1178     { "Burmese",               "my" },
1179     { "Byelorussian",          "be" },
1180     { "Catalan",               "ca" },
1181     { "Chewa",                 "ny" },
1182     { "Chichewa",              "ny" },
1183     { "Chinese",               "zh" },
1184     { "Chinese, Simplified",   "zh_CN" },
1185     { "Chinese, Traditional",  "zh_TW" },
1186     { "Chinese, Tradtional",   "zh_TW" },
1187     { "Croatian",              "hr" },
1188     { "Czech",                 "cs" },
1189     { "Danish",                "da" },
1190     { "Dutch",                 "nl" },
1191     { "Dzongkha",              "dz" },
1192     { "English",               "en" },
1193     { "Esperanto",             "eo" },
1194     { "Estonian",              "et" },
1195     { "Faroese",               "fo" },
1196     { "Farsi",                 "fa" },
1197     { "Finnish",               "fi" },
1198     { "Flemish",               "nl_BE" },
1199     { "French",                "fr" },
1200     { "Galician",              "gl" },
1201     { "Gallegan",              "gl" },
1202     { "Georgian",              "ka" },
1203     { "German",                "de" },
1204     { "Greek",                 "el" },
1205     { "Greenlandic",           "kl" },
1206     { "Guarani",               "gn" },
1207     { "Gujarati",              "gu" },
1208     { "Hawaiian",              "haw" }, /* Yes, "haw", not "cpe".  */
1209     { "Hebrew",                "he" },
1210     { "Hindi",                 "hi" },
1211     { "Hungarian",             "hu" },
1212     { "Icelandic",             "is" },
1213     { "Indonesian",            "id" },
1214     { "Inuktitut",             "iu" },
1215     { "Irish",                 "ga" },
1216     { "Italian",               "it" },
1217     { "Japanese",              "ja" },
1218     { "Javanese",              "jv" },
1219     { "Kalaallisut",           "kl" },
1220     { "Kannada",               "kn" },
1221     { "Kashmiri",              "ks" },
1222     { "Kazakh",                "kk" },
1223     { "Khmer",                 "km" },
1224     { "Kinyarwanda",           "rw" },
1225     { "Kirghiz",               "ky" },
1226     { "Korean",                "ko" },
1227     { "Kurdish",               "ku" },
1228     { "Latin",                 "la" },
1229     { "Latvian",               "lv" },
1230     { "Lithuanian",            "lt" },
1231     { "Macedonian",            "mk" },
1232     { "Malagasy",              "mg" },
1233     { "Malay",                 "ms" },
1234     { "Malayalam",             "ml" },
1235     { "Maltese",               "mt" },
1236     { "Manx",                  "gv" },
1237     { "Marathi",               "mr" },
1238     { "Moldavian",             "mo" },
1239     { "Mongolian",             "mn" },
1240     { "Nepali",                "ne" },
1241     { "Norwegian",             "nb" }, /* Yes, "nb", not the obsolete "no".  */
1242     { "Nyanja",                "ny" },
1243     { "Nynorsk",               "nn" },
1244     { "Oriya",                 "or" },
1245     { "Oromo",                 "om" },
1246     { "Panjabi",               "pa" },
1247     { "Pashto",                "ps" },
1248     { "Persian",               "fa" },
1249     { "Polish",                "pl" },
1250     { "Portuguese",            "pt" },
1251     { "Portuguese, Brazilian", "pt_BR" },
1252     { "Punjabi",               "pa" },
1253     { "Pushto",                "ps" },
1254     { "Quechua",               "qu" },
1255     { "Romanian",              "ro" },
1256     { "Ruanda",                "rw" },
1257     { "Rundi",                 "rn" },
1258     { "Russian",               "ru" },
1259     { "Sami",                  "se_NO" }, /* Not just "se".  */
1260     { "Sanskrit",              "sa" },
1261     { "Scottish",              "gd" },
1262     { "Serbian",               "sr" },
1263     { "Simplified Chinese",    "zh_CN" },
1264     { "Sindhi",                "sd" },
1265     { "Sinhalese",             "si" },
1266     { "Slovak",                "sk" },
1267     { "Slovenian",             "sl" },
1268     { "Somali",                "so" },
1269     { "Spanish",               "es" },
1270     { "Sundanese",             "su" },
1271     { "Swahili",               "sw" },
1272     { "Swedish",               "sv" },
1273     { "Tagalog",               "tl" },
1274     { "Tajik",                 "tg" },
1275     { "Tajiki",                "tg" },
1276     { "Tamil",                 "ta" },
1277     { "Tatar",                 "tt" },
1278     { "Telugu",                "te" },
1279     { "Thai",                  "th" },
1280     { "Tibetan",               "bo" },
1281     { "Tigrinya",              "ti" },
1282     { "Tongan",                "to" },
1283     { "Traditional Chinese",   "zh_TW" },
1284     { "Turkish",               "tr" },
1285     { "Turkmen",               "tk" },
1286     { "Uighur",                "ug" },
1287     { "Ukrainian",             "uk" },
1288     { "Urdu",                  "ur" },
1289     { "Uzbek",                 "uz" },
1290     { "Vietnamese",            "vi" },
1291     { "Welsh",                 "cy" },
1292     { "Yiddish",               "yi" }
1293   };
1294
1295   /* Convert new-style locale names with language tags (ISO 639 and ISO 15924)
1296      to Unix (ISO 639 and ISO 3166) names.  */
1297   typedef struct { const char langtag[7+1]; const char unixy[12+1]; }
1298           langtag_entry;
1299   static const langtag_entry langtag_table[] = {
1300     /* Mac OS X has "az-Arab", "az-Cyrl", "az-Latn".
1301        The default script for az on Unix is Latin.  */
1302     { "az-Latn", "az" },
1303     /* Mac OS X has "ga-dots".  Does not yet exist on Unix.  */
1304     { "ga-dots", "ga" },
1305     /* Mac OS X has "kk-Cyrl".  Does not yet exist on Unix.  */
1306     /* Mac OS X has "mn-Cyrl", "mn-Mong".
1307        The default script for mn on Unix is Cyrillic.  */
1308     { "mn-Cyrl", "mn" },
1309     /* Mac OS X has "ms-Arab", "ms-Latn".
1310        The default script for ms on Unix is Latin.  */
1311     { "ms-Latn", "ms" },
1312     /* Mac OS X has "tg-Cyrl".
1313        The default script for tg on Unix is Cyrillic.  */
1314     { "tg-Cyrl", "tg" },
1315     /* Mac OS X has "tk-Cyrl".  Does not yet exist on Unix.  */
1316     /* Mac OS X has "tt-Cyrl".
1317        The default script for tt on Unix is Cyrillic.  */
1318     { "tt-Cyrl", "tt" },
1319     /* Mac OS X has "zh-Hans", "zh-Hant".
1320        Country codes are used to distinguish these on Unix.  */
1321     { "zh-Hans", "zh_CN" },
1322     { "zh-Hant", "zh_TW" }
1323   };
1324
1325   /* Convert script names (ISO 15924) to Unix conventions.
1326      See http://www.unicode.org/iso15924/iso15924-codes.html  */
1327   typedef struct { const char script[4+1]; const char unixy[9+1]; }
1328           script_entry;
1329   static const script_entry script_table[] = {
1330     { "Arab", "arabic" },
1331     { "Cyrl", "cyrillic" },
1332     { "Mong", "mongolian" }
1333   };
1334
1335   /* Step 1: Convert using legacy_table.  */
1336   if (name[0] >= 'A' && name[0] <= 'Z')
1337     {
1338       unsigned int i1, i2;
1339       i1 = 0;
1340       i2 = sizeof (legacy_table) / sizeof (legacy_entry);
1341       while (i2 - i1 > 1)
1342         {
1343           /* At this point we know that if name occurs in legacy_table,
1344              its index must be >= i1 and < i2.  */
1345           unsigned int i = (i1 + i2) >> 1;
1346           const legacy_entry *p = &legacy_table[i];
1347           if (strcmp (name, p->legacy) < 0)
1348             i2 = i;
1349           else
1350             i1 = i;
1351         }
1352       if (strcmp (name, legacy_table[i1].legacy) == 0)
1353         {
1354           strcpy (name, legacy_table[i1].unixy);
1355           return;
1356         }
1357     }
1358
1359   /* Step 2: Convert using langtag_table and script_table.  */
1360   if (strlen (name) == 7 && name[2] == '-')
1361     {
1362       unsigned int i1, i2;
1363       i1 = 0;
1364       i2 = sizeof (langtag_table) / sizeof (langtag_entry);
1365       while (i2 - i1 > 1)
1366         {
1367           /* At this point we know that if name occurs in langtag_table,
1368              its index must be >= i1 and < i2.  */
1369           unsigned int i = (i1 + i2) >> 1;
1370           const langtag_entry *p = &langtag_table[i];
1371           if (strcmp (name, p->langtag) < 0)
1372             i2 = i;
1373           else
1374             i1 = i;
1375         }
1376       if (strcmp (name, langtag_table[i1].langtag) == 0)
1377         {
1378           strcpy (name, langtag_table[i1].unixy);
1379           return;
1380         }
1381
1382       i1 = 0;
1383       i2 = sizeof (script_table) / sizeof (script_entry);
1384       while (i2 - i1 > 1)
1385         {
1386           /* At this point we know that if (name + 3) occurs in script_table,
1387              its index must be >= i1 and < i2.  */
1388           unsigned int i = (i1 + i2) >> 1;
1389           const script_entry *p = &script_table[i];
1390           if (strcmp (name + 3, p->script) < 0)
1391             i2 = i;
1392           else
1393             i1 = i;
1394         }
1395       if (strcmp (name + 3, script_table[i1].script) == 0)
1396         {
1397           name[2] = '@';
1398           strcpy (name + 3, script_table[i1].unixy);
1399           return;
1400         }
1401     }
1402
1403   /* Step 3: Convert new-style dash to Unix underscore. */
1404   {
1405     char *p;
1406     for (p = name; *p != '\0'; p++)
1407       if (*p == '-')
1408         *p = '_';
1409   }
1410 }
1411
1412 #endif
1413
1414
1415 #if defined WINDOWS_NATIVE || defined __CYGWIN__ /* Native Windows or Cygwin */
1416
1417 /* Canonicalize a Windows native locale name to a Unix locale name.
1418    NAME is a sufficiently large buffer.
1419    On input, it contains the Windows locale name.
1420    On output, it contains the Unix locale name.  */
1421 # if !defined IN_LIBINTL
1422 static
1423 # endif
1424 void
1425 gl_locale_name_canonicalize (char *name)
1426 {
1427   /* FIXME: This is probably incomplete: it does not handle "zh-Hans" and
1428      "zh-Hant".  */
1429   char *p;
1430
1431   for (p = name; *p != '\0'; p++)
1432     if (*p == '-')
1433       {
1434         *p = '_';
1435         p++;
1436         for (; *p != '\0'; p++)
1437           {
1438             if (*p >= 'a' && *p <= 'z')
1439               *p += 'A' - 'a';
1440             if (*p == '-')
1441               {
1442                 *p = '\0';
1443                 return;
1444               }
1445           }
1446         return;
1447       }
1448 }
1449
1450 # if !defined IN_LIBINTL
1451 static
1452 # endif
1453 const char *
1454 gl_locale_name_from_win32_LANGID (LANGID langid)
1455 {
1456   /* Activate the new code only when the GETTEXT_MUI environment variable is
1457      set, for the time being, since the new code is not well tested.  */
1458   if (getenv ("GETTEXT_MUI") != NULL)
1459     {
1460       static char namebuf[256];
1461
1462       /* Query the system's notion of locale name.
1463          On Windows95/98/ME, GetLocaleInfoA returns some incorrect results.
1464          But we don't need to support systems that are so old.  */
1465       if (GetLocaleInfoA (MAKELCID (langid, SORT_DEFAULT), LOCALE_SNAME,
1466                           namebuf, sizeof (namebuf) - 1))
1467         {
1468           /* Convert it to a Unix locale name.  */
1469           gl_locale_name_canonicalize (namebuf);
1470           return namebuf;
1471         }
1472     }
1473   /* Internet Explorer has an LCID to RFC3066 name mapping stored in
1474      HKEY_CLASSES_ROOT\Mime\Database\Rfc1766.  But we better don't use that
1475      since IE's i18n subsystem is known to be inconsistent with the native
1476      Windows base (e.g. they have different character conversion facilities
1477      that produce different results).  */
1478   /* Use our own table.  */
1479   {
1480     int primary, sub;
1481
1482     /* Split into language and territory part.  */
1483     primary = PRIMARYLANGID (langid);
1484     sub = SUBLANGID (langid);
1485
1486     /* Dispatch on language.
1487        See also http://www.unicode.org/unicode/onlinedat/languages.html .
1488        For details about languages, see http://www.ethnologue.com/ .  */
1489     switch (primary)
1490       {
1491       case LANG_AFRIKAANS:
1492         switch (sub)
1493           {
1494           case SUBLANG_AFRIKAANS_SOUTH_AFRICA: return "af_ZA";
1495           }
1496         return "af";
1497       case LANG_ALBANIAN:
1498         switch (sub)
1499           {
1500           case SUBLANG_ALBANIAN_ALBANIA: return "sq_AL";
1501           }
1502         return "sq";
1503       case LANG_ALSATIAN:
1504         switch (sub)
1505           {
1506           case SUBLANG_ALSATIAN_FRANCE: return "gsw_FR";
1507           }
1508         return "gsw";
1509       case LANG_AMHARIC:
1510         switch (sub)
1511           {
1512           case SUBLANG_AMHARIC_ETHIOPIA: return "am_ET";
1513           }
1514         return "am";
1515       case LANG_ARABIC:
1516         switch (sub)
1517           {
1518           case SUBLANG_ARABIC_SAUDI_ARABIA: return "ar_SA";
1519           case SUBLANG_ARABIC_IRAQ: return "ar_IQ";
1520           case SUBLANG_ARABIC_EGYPT: return "ar_EG";
1521           case SUBLANG_ARABIC_LIBYA: return "ar_LY";
1522           case SUBLANG_ARABIC_ALGERIA: return "ar_DZ";
1523           case SUBLANG_ARABIC_MOROCCO: return "ar_MA";
1524           case SUBLANG_ARABIC_TUNISIA: return "ar_TN";
1525           case SUBLANG_ARABIC_OMAN: return "ar_OM";
1526           case SUBLANG_ARABIC_YEMEN: return "ar_YE";
1527           case SUBLANG_ARABIC_SYRIA: return "ar_SY";
1528           case SUBLANG_ARABIC_JORDAN: return "ar_JO";
1529           case SUBLANG_ARABIC_LEBANON: return "ar_LB";
1530           case SUBLANG_ARABIC_KUWAIT: return "ar_KW";
1531           case SUBLANG_ARABIC_UAE: return "ar_AE";
1532           case SUBLANG_ARABIC_BAHRAIN: return "ar_BH";
1533           case SUBLANG_ARABIC_QATAR: return "ar_QA";
1534           }
1535         return "ar";
1536       case LANG_ARMENIAN:
1537         switch (sub)
1538           {
1539           case SUBLANG_ARMENIAN_ARMENIA: return "hy_AM";
1540           }
1541         return "hy";
1542       case LANG_ASSAMESE:
1543         switch (sub)
1544           {
1545           case SUBLANG_ASSAMESE_INDIA: return "as_IN";
1546           }
1547         return "as";
1548       case LANG_AZERI:
1549         switch (sub)
1550           {
1551           /* FIXME: Adjust this when Azerbaijani locales appear on Unix.  */
1552           case 0x1e: return "az@latin";
1553           case SUBLANG_AZERI_LATIN: return "az_AZ@latin";
1554           case 0x1d: return "az@cyrillic";
1555           case SUBLANG_AZERI_CYRILLIC: return "az_AZ@cyrillic";
1556           }
1557         return "az";
1558       case LANG_BASHKIR:
1559         switch (sub)
1560           {
1561           case SUBLANG_BASHKIR_RUSSIA: return "ba_RU";
1562           }
1563         return "ba";
1564       case LANG_BASQUE:
1565         switch (sub)
1566           {
1567           case SUBLANG_BASQUE_BASQUE: return "eu_ES";
1568           }
1569         return "eu"; /* Ambiguous: could be "eu_ES" or "eu_FR".  */
1570       case LANG_BELARUSIAN:
1571         switch (sub)
1572           {
1573           case SUBLANG_BELARUSIAN_BELARUS: return "be_BY";
1574           }
1575         return "be";
1576       case LANG_BENGALI:
1577         switch (sub)
1578           {
1579           case SUBLANG_BENGALI_INDIA: return "bn_IN";
1580           case SUBLANG_BENGALI_BANGLADESH: return "bn_BD";
1581           }
1582         return "bn";
1583       case LANG_BRETON:
1584         switch (sub)
1585           {
1586           case SUBLANG_BRETON_FRANCE: return "br_FR";
1587           }
1588         return "br";
1589       case LANG_BULGARIAN:
1590         switch (sub)
1591           {
1592           case SUBLANG_BULGARIAN_BULGARIA: return "bg_BG";
1593           }
1594         return "bg";
1595       case LANG_BURMESE:
1596         switch (sub)
1597           {
1598           case SUBLANG_DEFAULT: return "my_MM";
1599           }
1600         return "my";
1601       case LANG_CAMBODIAN:
1602         switch (sub)
1603           {
1604           case SUBLANG_CAMBODIAN_CAMBODIA: return "km_KH";
1605           }
1606         return "km";
1607       case LANG_CATALAN:
1608         switch (sub)
1609           {
1610           case SUBLANG_CATALAN_SPAIN: return "ca_ES";
1611           }
1612         return "ca";
1613       case LANG_CHEROKEE:
1614         switch (sub)
1615           {
1616           case SUBLANG_DEFAULT: return "chr_US";
1617           }
1618         return "chr";
1619       case LANG_CHINESE:
1620         switch (sub)
1621           {
1622           case SUBLANG_CHINESE_TRADITIONAL: case 0x1f: return "zh_TW";
1623           case SUBLANG_CHINESE_SIMPLIFIED: case 0x00: return "zh_CN";
1624           case SUBLANG_CHINESE_HONGKONG: return "zh_HK"; /* traditional */
1625           case SUBLANG_CHINESE_SINGAPORE: return "zh_SG"; /* simplified */
1626           case SUBLANG_CHINESE_MACAU: return "zh_MO"; /* traditional */
1627           }
1628         return "zh";
1629       case LANG_CORSICAN:
1630         switch (sub)
1631           {
1632           case SUBLANG_CORSICAN_FRANCE: return "co_FR";
1633           }
1634         return "co";
1635       case LANG_CROATIAN:      /* LANG_CROATIAN == LANG_SERBIAN == LANG_BOSNIAN
1636                                 * What used to be called Serbo-Croatian
1637                                 * should really now be two separate
1638                                 * languages because of political reasons.
1639                                 * (Says tml, who knows nothing about Serbian
1640                                 * or Croatian.)
1641                                 * (I can feel those flames coming already.)
1642                                 */
1643         switch (sub)
1644           {
1645           /* Croatian */
1646           case 0x00: return "hr";
1647           case SUBLANG_CROATIAN_CROATIA: return "hr_HR";
1648           case SUBLANG_CROATIAN_BOSNIA_HERZEGOVINA_LATIN: return "hr_BA";
1649           /* Serbian */
1650           case 0x1f: return "sr";
1651           case 0x1c: return "sr"; /* latin */
1652           case SUBLANG_SERBIAN_LATIN: return "sr_CS"; /* latin */
1653           case 0x09: return "sr_RS"; /* latin */
1654           case 0x0b: return "sr_ME"; /* latin */
1655           case 0x06: return "sr_BA"; /* latin */
1656           case 0x1b: return "sr@cyrillic";
1657           case SUBLANG_SERBIAN_CYRILLIC: return "sr_CS@cyrillic";
1658           case 0x0a: return "sr_RS@cyrillic";
1659           case 0x0c: return "sr_ME@cyrillic";
1660           case 0x07: return "sr_BA@cyrillic";
1661           /* Bosnian */
1662           case 0x1e: return "bs";
1663           case 0x1a: return "bs"; /* latin */
1664           case SUBLANG_BOSNIAN_BOSNIA_HERZEGOVINA_LATIN: return "bs_BA"; /* latin */
1665           case 0x19: return "bs@cyrillic";
1666           case SUBLANG_BOSNIAN_BOSNIA_HERZEGOVINA_CYRILLIC: return "bs_BA@cyrillic";
1667           }
1668         return "hr";
1669       case LANG_CZECH:
1670         switch (sub)
1671           {
1672           case SUBLANG_CZECH_CZECH_REPUBLIC: return "cs_CZ";
1673           }
1674         return "cs";
1675       case LANG_DANISH:
1676         switch (sub)
1677           {
1678           case SUBLANG_DANISH_DENMARK: return "da_DK";
1679           }
1680         return "da";
1681       case LANG_DARI:
1682         /* FIXME: Adjust this when such locales appear on Unix.  */
1683         switch (sub)
1684           {
1685           case SUBLANG_DARI_AFGHANISTAN: return "prs_AF";
1686           }
1687         return "prs";
1688       case LANG_DIVEHI:
1689         switch (sub)
1690           {
1691           case SUBLANG_DIVEHI_MALDIVES: return "dv_MV";
1692           }
1693         return "dv";
1694       case LANG_DUTCH:
1695         switch (sub)
1696           {
1697           case SUBLANG_DUTCH: return "nl_NL";
1698           case SUBLANG_DUTCH_BELGIAN: /* FLEMISH, VLAAMS */ return "nl_BE";
1699           case SUBLANG_DUTCH_SURINAM: return "nl_SR";
1700           }
1701         return "nl";
1702       case LANG_EDO:
1703         switch (sub)
1704           {
1705           case SUBLANG_DEFAULT: return "bin_NG";
1706           }
1707         return "bin";
1708       case LANG_ENGLISH:
1709         switch (sub)
1710           {
1711           /* SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. Heh. I thought
1712            * English was the language spoken in England.
1713            * Oh well.
1714            */
1715           case SUBLANG_ENGLISH_US: return "en_US";
1716           case SUBLANG_ENGLISH_UK: return "en_GB";
1717           case SUBLANG_ENGLISH_AUS: return "en_AU";
1718           case SUBLANG_ENGLISH_CAN: return "en_CA";
1719           case SUBLANG_ENGLISH_NZ: return "en_NZ";
1720           case SUBLANG_ENGLISH_EIRE: return "en_IE";
1721           case SUBLANG_ENGLISH_SOUTH_AFRICA: return "en_ZA";
1722           case SUBLANG_ENGLISH_JAMAICA: return "en_JM";
1723           case SUBLANG_ENGLISH_CARIBBEAN: return "en_GD"; /* Grenada? */
1724           case SUBLANG_ENGLISH_BELIZE: return "en_BZ";
1725           case SUBLANG_ENGLISH_TRINIDAD: return "en_TT";
1726           case SUBLANG_ENGLISH_ZIMBABWE: return "en_ZW";
1727           case SUBLANG_ENGLISH_PHILIPPINES: return "en_PH";
1728           case SUBLANG_ENGLISH_INDONESIA: return "en_ID";
1729           case SUBLANG_ENGLISH_HONGKONG: return "en_HK";
1730           case SUBLANG_ENGLISH_INDIA: return "en_IN";
1731           case SUBLANG_ENGLISH_MALAYSIA: return "en_MY";
1732           case SUBLANG_ENGLISH_SINGAPORE: return "en_SG";
1733           }
1734         return "en";
1735       case LANG_ESTONIAN:
1736         switch (sub)
1737           {
1738           case SUBLANG_ESTONIAN_ESTONIA: return "et_EE";
1739           }
1740         return "et";
1741       case LANG_FAEROESE:
1742         switch (sub)
1743           {
1744           case SUBLANG_FAEROESE_FAROE_ISLANDS: return "fo_FO";
1745           }
1746         return "fo";
1747       case LANG_FARSI:
1748         switch (sub)
1749           {
1750           case SUBLANG_FARSI_IRAN: return "fa_IR";
1751           }
1752         return "fa";
1753       case LANG_FINNISH:
1754         switch (sub)
1755           {
1756           case SUBLANG_FINNISH_FINLAND: return "fi_FI";
1757           }
1758         return "fi";
1759       case LANG_FRENCH:
1760         switch (sub)
1761           {
1762           case SUBLANG_FRENCH: return "fr_FR";
1763           case SUBLANG_FRENCH_BELGIAN: /* WALLOON */ return "fr_BE";
1764           case SUBLANG_FRENCH_CANADIAN: return "fr_CA";
1765           case SUBLANG_FRENCH_SWISS: return "fr_CH";
1766           case SUBLANG_FRENCH_LUXEMBOURG: return "fr_LU";
1767           case SUBLANG_FRENCH_MONACO: return "fr_MC";
1768           case SUBLANG_FRENCH_WESTINDIES: return "fr"; /* Caribbean? */
1769           case SUBLANG_FRENCH_REUNION: return "fr_RE";
1770           case SUBLANG_FRENCH_CONGO: return "fr_CG";
1771           case SUBLANG_FRENCH_SENEGAL: return "fr_SN";
1772           case SUBLANG_FRENCH_CAMEROON: return "fr_CM";
1773           case SUBLANG_FRENCH_COTEDIVOIRE: return "fr_CI";
1774           case SUBLANG_FRENCH_MALI: return "fr_ML";
1775           case SUBLANG_FRENCH_MOROCCO: return "fr_MA";
1776           case SUBLANG_FRENCH_HAITI: return "fr_HT";
1777           }
1778         return "fr";
1779       case LANG_FRISIAN:
1780         switch (sub)
1781           {
1782           case SUBLANG_FRISIAN_NETHERLANDS: return "fy_NL";
1783           }
1784         return "fy";
1785       case LANG_FULFULDE:
1786         /* Spoken in Nigeria, Guinea, Senegal, Mali, Niger, Cameroon, Benin.  */
1787         switch (sub)
1788           {
1789           case SUBLANG_DEFAULT: return "ff_NG";
1790           }
1791         return "ff";
1792       case LANG_GAELIC:
1793         switch (sub)
1794           {
1795           case 0x01: /* SCOTTISH */
1796             /* old, superseded by LANG_SCOTTISH_GAELIC */
1797             return "gd_GB";
1798           case SUBLANG_IRISH_IRELAND: return "ga_IE";
1799           }
1800         return "ga";
1801       case LANG_GALICIAN:
1802         switch (sub)
1803           {
1804           case SUBLANG_GALICIAN_SPAIN: return "gl_ES";
1805           }
1806         return "gl";
1807       case LANG_GEORGIAN:
1808         switch (sub)
1809           {
1810           case SUBLANG_GEORGIAN_GEORGIA: return "ka_GE";
1811           }
1812         return "ka";
1813       case LANG_GERMAN:
1814         switch (sub)
1815           {
1816           case SUBLANG_GERMAN: return "de_DE";
1817           case SUBLANG_GERMAN_SWISS: return "de_CH";
1818           case SUBLANG_GERMAN_AUSTRIAN: return "de_AT";
1819           case SUBLANG_GERMAN_LUXEMBOURG: return "de_LU";
1820           case SUBLANG_GERMAN_LIECHTENSTEIN: return "de_LI";
1821           }
1822         return "de";
1823       case LANG_GREEK:
1824         switch (sub)
1825           {
1826           case SUBLANG_GREEK_GREECE: return "el_GR";
1827           }
1828         return "el";
1829       case LANG_GREENLANDIC:
1830         switch (sub)
1831           {
1832           case SUBLANG_GREENLANDIC_GREENLAND: return "kl_GL";
1833           }
1834         return "kl";
1835       case LANG_GUARANI:
1836         switch (sub)
1837           {
1838           case SUBLANG_DEFAULT: return "gn_PY";
1839           }
1840         return "gn";
1841       case LANG_GUJARATI:
1842         switch (sub)
1843           {
1844           case SUBLANG_GUJARATI_INDIA: return "gu_IN";
1845           }
1846         return "gu";
1847       case LANG_HAUSA:
1848         switch (sub)
1849           {
1850           case 0x1f: return "ha";
1851           case SUBLANG_HAUSA_NIGERIA_LATIN: return "ha_NG";
1852           }
1853         return "ha";
1854       case LANG_HAWAIIAN:
1855         /* FIXME: Do they mean Hawaiian ("haw_US", 1000 speakers)
1856            or Hawaii Creole English ("cpe_US", 600000 speakers)?  */
1857         switch (sub)
1858           {
1859           case SUBLANG_DEFAULT: return "cpe_US";
1860           }
1861         return "cpe";
1862       case LANG_HEBREW:
1863         switch (sub)
1864           {
1865           case SUBLANG_HEBREW_ISRAEL: return "he_IL";
1866           }
1867         return "he";
1868       case LANG_HINDI:
1869         switch (sub)
1870           {
1871           case SUBLANG_HINDI_INDIA: return "hi_IN";
1872           }
1873         return "hi";
1874       case LANG_HUNGARIAN:
1875         switch (sub)
1876           {
1877           case SUBLANG_HUNGARIAN_HUNGARY: return "hu_HU";
1878           }
1879         return "hu";
1880       case LANG_IBIBIO:
1881         switch (sub)
1882           {
1883           case SUBLANG_DEFAULT: return "nic_NG";
1884           }
1885         return "nic";
1886       case LANG_ICELANDIC:
1887         switch (sub)
1888           {
1889           case SUBLANG_ICELANDIC_ICELAND: return "is_IS";
1890           }
1891         return "is";
1892       case LANG_IGBO:
1893         switch (sub)
1894           {
1895           case SUBLANG_IGBO_NIGERIA: return "ig_NG";
1896           }
1897         return "ig";
1898       case LANG_INDONESIAN:
1899         switch (sub)
1900           {
1901           case SUBLANG_INDONESIAN_INDONESIA: return "id_ID";
1902           }
1903         return "id";
1904       case LANG_INUKTITUT:
1905         switch (sub)
1906           {
1907           case 0x1e: return "iu"; /* syllabic */
1908           case SUBLANG_INUKTITUT_CANADA: return "iu_CA"; /* syllabic */
1909           case 0x1f: return "iu@latin";
1910           case SUBLANG_INUKTITUT_CANADA_LATIN: return "iu_CA@latin";
1911           }
1912         return "iu";
1913       case LANG_ITALIAN:
1914         switch (sub)
1915           {
1916           case SUBLANG_ITALIAN: return "it_IT";
1917           case SUBLANG_ITALIAN_SWISS: return "it_CH";
1918           }
1919         return "it";
1920       case LANG_JAPANESE:
1921         switch (sub)
1922           {
1923           case SUBLANG_JAPANESE_JAPAN: return "ja_JP";
1924           }
1925         return "ja";
1926       case LANG_KANNADA:
1927         switch (sub)
1928           {
1929           case SUBLANG_KANNADA_INDIA: return "kn_IN";
1930           }
1931         return "kn";
1932       case LANG_KANURI:
1933         switch (sub)
1934           {
1935           case SUBLANG_DEFAULT: return "kr_NG";
1936           }
1937         return "kr";
1938       case LANG_KASHMIRI:
1939         switch (sub)
1940           {
1941           case SUBLANG_DEFAULT: return "ks_PK";
1942           case SUBLANG_KASHMIRI_INDIA: return "ks_IN";
1943           }
1944         return "ks";
1945       case LANG_KAZAK:
1946         switch (sub)
1947           {
1948           case SUBLANG_KAZAK_KAZAKHSTAN: return "kk_KZ";
1949           }
1950         return "kk";
1951       case LANG_KICHE:
1952         /* FIXME: Adjust this when such locales appear on Unix.  */
1953         switch (sub)
1954           {
1955           case SUBLANG_KICHE_GUATEMALA: return "qut_GT";
1956           }
1957         return "qut";
1958       case LANG_KINYARWANDA:
1959         switch (sub)
1960           {
1961           case SUBLANG_KINYARWANDA_RWANDA: return "rw_RW";
1962           }
1963         return "rw";
1964       case LANG_KONKANI:
1965         /* FIXME: Adjust this when such locales appear on Unix.  */
1966         switch (sub)
1967           {
1968           case SUBLANG_KONKANI_INDIA: return "kok_IN";
1969           }
1970         return "kok";
1971       case LANG_KOREAN:
1972         switch (sub)
1973           {
1974           case SUBLANG_DEFAULT: return "ko_KR";
1975           }
1976         return "ko";
1977       case LANG_KYRGYZ:
1978         switch (sub)
1979           {
1980           case SUBLANG_KYRGYZ_KYRGYZSTAN: return "ky_KG";
1981           }
1982         return "ky";
1983       case LANG_LAO:
1984         switch (sub)
1985           {
1986           case SUBLANG_LAO_LAOS: return "lo_LA";
1987           }
1988         return "lo";
1989       case LANG_LATIN:
1990         switch (sub)
1991           {
1992           case SUBLANG_DEFAULT: return "la_VA";
1993           }
1994         return "la";
1995       case LANG_LATVIAN:
1996         switch (sub)
1997           {
1998           case SUBLANG_LATVIAN_LATVIA: return "lv_LV";
1999           }
2000         return "lv";
2001       case LANG_LITHUANIAN:
2002         switch (sub)
2003           {
2004           case SUBLANG_LITHUANIAN_LITHUANIA: return "lt_LT";
2005           }
2006         return "lt";
2007       case LANG_LUXEMBOURGISH:
2008         switch (sub)
2009           {
2010           case SUBLANG_LUXEMBOURGISH_LUXEMBOURG: return "lb_LU";
2011           }
2012         return "lb";
2013       case LANG_MACEDONIAN:
2014         switch (sub)
2015           {
2016           case SUBLANG_MACEDONIAN_MACEDONIA: return "mk_MK";
2017           }
2018         return "mk";
2019       case LANG_MALAY:
2020         switch (sub)
2021           {
2022           case SUBLANG_MALAY_MALAYSIA: return "ms_MY";
2023           case SUBLANG_MALAY_BRUNEI_DARUSSALAM: return "ms_BN";
2024           }
2025         return "ms";
2026       case LANG_MALAYALAM:
2027         switch (sub)
2028           {
2029           case SUBLANG_MALAYALAM_INDIA: return "ml_IN";
2030           }
2031         return "ml";
2032       case LANG_MALTESE:
2033         switch (sub)
2034           {
2035           case SUBLANG_MALTESE_MALTA: return "mt_MT";
2036           }
2037         return "mt";
2038       case LANG_MANIPURI:
2039         /* FIXME: Adjust this when such locales appear on Unix.  */
2040         switch (sub)
2041           {
2042           case SUBLANG_DEFAULT: return "mni_IN";
2043           }
2044         return "mni";
2045       case LANG_MAORI:
2046         switch (sub)
2047           {
2048           case SUBLANG_MAORI_NEW_ZEALAND: return "mi_NZ";
2049           }
2050         return "mi";
2051       case LANG_MAPUDUNGUN:
2052         switch (sub)
2053           {
2054           case SUBLANG_MAPUDUNGUN_CHILE: return "arn_CL";
2055           }
2056         return "arn";
2057       case LANG_MARATHI:
2058         switch (sub)
2059           {
2060           case SUBLANG_MARATHI_INDIA: return "mr_IN";
2061           }
2062         return "mr";
2063       case LANG_MOHAWK:
2064         switch (sub)
2065           {
2066           case SUBLANG_MOHAWK_CANADA: return "moh_CA";
2067           }
2068         return "moh";
2069       case LANG_MONGOLIAN:
2070         switch (sub)
2071           {
2072           case SUBLANG_MONGOLIAN_CYRILLIC_MONGOLIA: case 0x1e: return "mn_MN";
2073           case SUBLANG_MONGOLIAN_PRC: case 0x1f: return "mn_CN";
2074           }
2075         return "mn"; /* Ambiguous: could be "mn_CN" or "mn_MN".  */
2076       case LANG_NEPALI:
2077         switch (sub)
2078           {
2079           case SUBLANG_NEPALI_NEPAL: return "ne_NP";
2080           case SUBLANG_NEPALI_INDIA: return "ne_IN";
2081           }
2082         return "ne";
2083       case LANG_NORWEGIAN:
2084         switch (sub)
2085           {
2086           case 0x1f: return "nb";
2087           case SUBLANG_NORWEGIAN_BOKMAL: return "nb_NO";
2088           case 0x1e: return "nn";
2089           case SUBLANG_NORWEGIAN_NYNORSK: return "nn_NO";
2090           }
2091         return "no";
2092       case LANG_OCCITAN:
2093         switch (sub)
2094           {
2095           case SUBLANG_OCCITAN_FRANCE: return "oc_FR";
2096           }
2097         return "oc";
2098       case LANG_ORIYA:
2099         switch (sub)
2100           {
2101           case SUBLANG_ORIYA_INDIA: return "or_IN";
2102           }
2103         return "or";
2104       case LANG_OROMO:
2105         switch (sub)
2106           {
2107           case SUBLANG_DEFAULT: return "om_ET";
2108           }
2109         return "om";
2110       case LANG_PAPIAMENTU:
2111         switch (sub)
2112           {
2113           case SUBLANG_DEFAULT: return "pap_AN";
2114           }
2115         return "pap";
2116       case LANG_PASHTO:
2117         switch (sub)
2118           {
2119           case SUBLANG_PASHTO_AFGHANISTAN: return "ps_AF";
2120           }
2121         return "ps"; /* Ambiguous: could be "ps_PK" or "ps_AF".  */
2122       case LANG_POLISH:
2123         switch (sub)
2124           {
2125           case SUBLANG_POLISH_POLAND: return "pl_PL";
2126           }
2127         return "pl";
2128       case LANG_PORTUGUESE:
2129         switch (sub)
2130           {
2131           /* Hmm. SUBLANG_PORTUGUESE_BRAZILIAN == SUBLANG_DEFAULT.
2132              Same phenomenon as SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. */
2133           case SUBLANG_PORTUGUESE_BRAZILIAN: return "pt_BR";
2134           case SUBLANG_PORTUGUESE: return "pt_PT";
2135           }
2136         return "pt";
2137       case LANG_PUNJABI:
2138         switch (sub)
2139           {
2140           case SUBLANG_PUNJABI_INDIA: return "pa_IN"; /* Gurmukhi script */
2141           case SUBLANG_PUNJABI_PAKISTAN: return "pa_PK"; /* Arabic script */
2142           }
2143         return "pa";
2144       case LANG_QUECHUA:
2145         /* Note: Microsoft uses the non-ISO language code "quz".  */
2146         switch (sub)
2147           {
2148           case SUBLANG_QUECHUA_BOLIVIA: return "qu_BO";
2149           case SUBLANG_QUECHUA_ECUADOR: return "qu_EC";
2150           case SUBLANG_QUECHUA_PERU: return "qu_PE";
2151           }
2152         return "qu";
2153       case LANG_ROMANIAN:
2154         switch (sub)
2155           {
2156           case SUBLANG_ROMANIAN_ROMANIA: return "ro_RO";
2157           case SUBLANG_ROMANIAN_MOLDOVA: return "ro_MD";
2158           }
2159         return "ro";
2160       case LANG_ROMANSH:
2161         switch (sub)
2162           {
2163           case SUBLANG_ROMANSH_SWITZERLAND: return "rm_CH";
2164           }
2165         return "rm";
2166       case LANG_RUSSIAN:
2167         switch (sub)
2168           {
2169           case SUBLANG_RUSSIAN_RUSSIA: return "ru_RU";
2170           case SUBLANG_RUSSIAN_MOLDAVIA: return "ru_MD";
2171           }
2172         return "ru"; /* Ambiguous: could be "ru_RU" or "ru_UA" or "ru_MD".  */
2173       case LANG_SAMI:
2174         switch (sub)
2175           {
2176           /* Northern Sami */
2177           case 0x00: return "se";
2178           case SUBLANG_SAMI_NORTHERN_NORWAY: return "se_NO";
2179           case SUBLANG_SAMI_NORTHERN_SWEDEN: return "se_SE";
2180           case SUBLANG_SAMI_NORTHERN_FINLAND: return "se_FI";
2181           /* Lule Sami */
2182           case 0x1f: return "smj";
2183           case SUBLANG_SAMI_LULE_NORWAY: return "smj_NO";
2184           case SUBLANG_SAMI_LULE_SWEDEN: return "smj_SE";
2185           /* Southern Sami */
2186           case 0x1e: return "sma";
2187           case SUBLANG_SAMI_SOUTHERN_NORWAY: return "sma_NO";
2188           case SUBLANG_SAMI_SOUTHERN_SWEDEN: return "sma_SE";
2189           /* Skolt Sami */
2190           case 0x1d: return "sms";
2191           case SUBLANG_SAMI_SKOLT_FINLAND: return "sms_FI";
2192           /* Inari Sami */
2193           case 0x1c: return "smn";
2194           case SUBLANG_SAMI_INARI_FINLAND: return "smn_FI";
2195           }
2196         return "se"; /* or "smi"? */
2197       case LANG_SANSKRIT:
2198         switch (sub)
2199           {
2200           case SUBLANG_SANSKRIT_INDIA: return "sa_IN";
2201           }
2202         return "sa";
2203       case LANG_SCOTTISH_GAELIC:
2204         switch (sub)
2205           {
2206           case SUBLANG_DEFAULT: return "gd_GB";
2207           }
2208         return "gd";
2209       case LANG_SINDHI:
2210         switch (sub)
2211           {
2212           case SUBLANG_SINDHI_INDIA: return "sd_IN";
2213           case SUBLANG_SINDHI_PAKISTAN: return "sd_PK";
2214           /*case SUBLANG_SINDHI_AFGHANISTAN: return "sd_AF";*/
2215           }
2216         return "sd";
2217       case LANG_SINHALESE:
2218         switch (sub)
2219           {
2220           case SUBLANG_SINHALESE_SRI_LANKA: return "si_LK";
2221           }
2222         return "si";
2223       case LANG_SLOVAK:
2224         switch (sub)
2225           {
2226           case SUBLANG_SLOVAK_SLOVAKIA: return "sk_SK";
2227           }
2228         return "sk";
2229       case LANG_SLOVENIAN:
2230         switch (sub)
2231           {
2232           case SUBLANG_SLOVENIAN_SLOVENIA: return "sl_SI";
2233           }
2234         return "sl";
2235       case LANG_SOMALI:
2236         switch (sub)
2237           {
2238           case SUBLANG_DEFAULT: return "so_SO";
2239           }
2240         return "so";
2241       case LANG_SORBIAN:
2242         /* FIXME: Adjust this when such locales appear on Unix.  */
2243         switch (sub)
2244           {
2245           /* Upper Sorbian */
2246           case 0x00: return "hsb";
2247           case SUBLANG_UPPER_SORBIAN_GERMANY: return "hsb_DE";
2248           /* Lower Sorbian */
2249           case 0x1f: return "dsb";
2250           case SUBLANG_LOWER_SORBIAN_GERMANY: return "dsb_DE";
2251           }
2252         return "wen";
2253       case LANG_SOTHO:
2254         /* <http://www.microsoft.com/globaldev/reference/lcid-all.mspx> calls
2255            it "Sepedi"; according to
2256            <http://www.ethnologue.com/show_language.asp?code=nso>
2257            <http://www.ethnologue.com/show_language.asp?code=sot>
2258            it's the same as Northern Sotho.  */
2259         switch (sub)
2260           {
2261           case SUBLANG_SOTHO_SOUTH_AFRICA: return "nso_ZA";
2262           }
2263         return "nso";
2264       case LANG_SPANISH:
2265         switch (sub)
2266           {
2267           case SUBLANG_SPANISH: return "es_ES";
2268           case SUBLANG_SPANISH_MEXICAN: return "es_MX";
2269           case SUBLANG_SPANISH_MODERN:
2270             return "es_ES@modern";      /* not seen on Unix */
2271           case SUBLANG_SPANISH_GUATEMALA: return "es_GT";
2272           case SUBLANG_SPANISH_COSTA_RICA: return "es_CR";
2273           case SUBLANG_SPANISH_PANAMA: return "es_PA";
2274           case SUBLANG_SPANISH_DOMINICAN_REPUBLIC: return "es_DO";
2275           case SUBLANG_SPANISH_VENEZUELA: return "es_VE";
2276           case SUBLANG_SPANISH_COLOMBIA: return "es_CO";
2277           case SUBLANG_SPANISH_PERU: return "es_PE";
2278           case SUBLANG_SPANISH_ARGENTINA: return "es_AR";
2279           case SUBLANG_SPANISH_ECUADOR: return "es_EC";
2280           case SUBLANG_SPANISH_CHILE: return "es_CL";
2281           case SUBLANG_SPANISH_URUGUAY: return "es_UY";
2282           case SUBLANG_SPANISH_PARAGUAY: return "es_PY";
2283           case SUBLANG_SPANISH_BOLIVIA: return "es_BO";
2284           case SUBLANG_SPANISH_EL_SALVADOR: return "es_SV";
2285           case SUBLANG_SPANISH_HONDURAS: return "es_HN";
2286           case SUBLANG_SPANISH_NICARAGUA: return "es_NI";
2287           case SUBLANG_SPANISH_PUERTO_RICO: return "es_PR";
2288           case SUBLANG_SPANISH_US: return "es_US";
2289           }
2290         return "es";
2291       case LANG_SUTU:
2292         switch (sub)
2293           {
2294           case SUBLANG_DEFAULT: return "bnt_TZ"; /* or "st_LS" or "nso_ZA"? */
2295           }
2296         return "bnt";
2297       case LANG_SWAHILI:
2298         switch (sub)
2299           {
2300           case SUBLANG_SWAHILI_KENYA: return "sw_KE";
2301           }
2302         return "sw";
2303       case LANG_SWEDISH:
2304         switch (sub)
2305           {
2306           case SUBLANG_SWEDISH_SWEDEN: return "sv_SE";
2307           case SUBLANG_SWEDISH_FINLAND: return "sv_FI";
2308           }
2309         return "sv";
2310       case LANG_SYRIAC:
2311         switch (sub)
2312           {
2313           case SUBLANG_SYRIAC_SYRIA: return "syr_SY"; /* An extinct language.  */
2314           }
2315         return "syr";
2316       case LANG_TAGALOG:
2317         switch (sub)
2318           {
2319           case SUBLANG_TAGALOG_PHILIPPINES: return "tl_PH"; /* or "fil_PH"? */
2320           }
2321         return "tl"; /* or "fil"? */
2322       case LANG_TAJIK:
2323         switch (sub)
2324           {
2325           case 0x1f: return "tg";
2326           case SUBLANG_TAJIK_TAJIKISTAN: return "tg_TJ";
2327           }
2328         return "tg";
2329       case LANG_TAMAZIGHT:
2330         /* Note: Microsoft uses the non-ISO language code "tmz".  */
2331         switch (sub)
2332           {
2333           /* FIXME: Adjust this when Tamazight locales appear on Unix.  */
2334           case SUBLANG_TAMAZIGHT_ARABIC: return "ber_MA@arabic";
2335           case 0x1f: return "ber@latin";
2336           case SUBLANG_TAMAZIGHT_ALGERIA_LATIN: return "ber_DZ@latin";
2337           }
2338         return "ber";
2339       case LANG_TAMIL:
2340         switch (sub)
2341           {
2342           case SUBLANG_TAMIL_INDIA: return "ta_IN";
2343           }
2344         return "ta"; /* Ambiguous: could be "ta_IN" or "ta_LK" or "ta_SG".  */
2345       case LANG_TATAR:
2346         switch (sub)
2347           {
2348           case SUBLANG_TATAR_RUSSIA: return "tt_RU";
2349           }
2350         return "tt";
2351       case LANG_TELUGU:
2352         switch (sub)
2353           {
2354           case SUBLANG_TELUGU_INDIA: return "te_IN";
2355           }
2356         return "te";
2357       case LANG_THAI:
2358         switch (sub)
2359           {
2360           case SUBLANG_THAI_THAILAND: return "th_TH";
2361           }
2362         return "th";
2363       case LANG_TIBETAN:
2364         switch (sub)
2365           {
2366           case SUBLANG_TIBETAN_PRC:
2367             /* Most Tibetans would not like "bo_CN".  But Tibet does not yet
2368                have a country code of its own.  */
2369             return "bo";
2370           case SUBLANG_TIBETAN_BHUTAN: return "bo_BT";
2371           }
2372         return "bo";
2373       case LANG_TIGRINYA:
2374         switch (sub)
2375           {
2376           case SUBLANG_TIGRINYA_ETHIOPIA: return "ti_ET";
2377           case SUBLANG_TIGRINYA_ERITREA: return "ti_ER";
2378           }
2379         return "ti";
2380       case LANG_TSONGA:
2381         switch (sub)
2382           {
2383           case SUBLANG_DEFAULT: return "ts_ZA";
2384           }
2385         return "ts";
2386       case LANG_TSWANA:
2387         /* Spoken in South Africa, Botswana.  */
2388         switch (sub)
2389           {
2390           case SUBLANG_TSWANA_SOUTH_AFRICA: return "tn_ZA";
2391           }
2392         return "tn";
2393       case LANG_TURKISH:
2394         switch (sub)
2395           {
2396           case SUBLANG_TURKISH_TURKEY: return "tr_TR";
2397           }
2398         return "tr";
2399       case LANG_TURKMEN:
2400         switch (sub)
2401           {
2402           case SUBLANG_TURKMEN_TURKMENISTAN: return "tk_TM";
2403           }
2404         return "tk";
2405       case LANG_UIGHUR:
2406         switch (sub)
2407           {
2408           case SUBLANG_UIGHUR_PRC: return "ug_CN";
2409           }
2410         return "ug";
2411       case LANG_UKRAINIAN:
2412         switch (sub)
2413           {
2414           case SUBLANG_UKRAINIAN_UKRAINE: return "uk_UA";
2415           }
2416         return "uk";
2417       case LANG_URDU:
2418         switch (sub)
2419           {
2420           case SUBLANG_URDU_PAKISTAN: return "ur_PK";
2421           case SUBLANG_URDU_INDIA: return "ur_IN";
2422           }
2423         return "ur";
2424       case LANG_UZBEK:
2425         switch (sub)
2426           {
2427           case 0x1f: return "uz";
2428           case SUBLANG_UZBEK_LATIN: return "uz_UZ";
2429           case 0x1e: return "uz@cyrillic";
2430           case SUBLANG_UZBEK_CYRILLIC: return "uz_UZ@cyrillic";
2431           }
2432         return "uz";
2433       case LANG_VENDA:
2434         switch (sub)
2435           {
2436           case SUBLANG_DEFAULT: return "ve_ZA";
2437           }
2438         return "ve";
2439       case LANG_VIETNAMESE:
2440         switch (sub)
2441           {
2442           case SUBLANG_VIETNAMESE_VIETNAM: return "vi_VN";
2443           }
2444         return "vi";
2445       case LANG_WELSH:
2446         switch (sub)
2447           {
2448           case SUBLANG_WELSH_UNITED_KINGDOM: return "cy_GB";
2449           }
2450         return "cy";
2451       case LANG_WOLOF:
2452         switch (sub)
2453           {
2454           case SUBLANG_WOLOF_SENEGAL: return "wo_SN";
2455           }
2456         return "wo";
2457       case LANG_XHOSA:
2458         switch (sub)
2459           {
2460           case SUBLANG_XHOSA_SOUTH_AFRICA: return "xh_ZA";
2461           }
2462         return "xh";
2463       case LANG_YAKUT:
2464         switch (sub)
2465           {
2466           case SUBLANG_YAKUT_RUSSIA: return "sah_RU";
2467           }
2468         return "sah";
2469       case LANG_YI:
2470         switch (sub)
2471           {
2472           case SUBLANG_YI_PRC: return "ii_CN";
2473           }
2474         return "ii";
2475       case LANG_YIDDISH:
2476         switch (sub)
2477           {
2478           case SUBLANG_DEFAULT: return "yi_IL";
2479           }
2480         return "yi";
2481       case LANG_YORUBA:
2482         switch (sub)
2483           {
2484           case SUBLANG_YORUBA_NIGERIA: return "yo_NG";
2485           }
2486         return "yo";
2487       case LANG_ZULU:
2488         switch (sub)
2489           {
2490           case SUBLANG_ZULU_SOUTH_AFRICA: return "zu_ZA";
2491           }
2492         return "zu";
2493       default: return "C";
2494       }
2495   }
2496 }
2497
2498 # if !defined IN_LIBINTL
2499 static
2500 # endif
2501 const char *
2502 gl_locale_name_from_win32_LCID (LCID lcid)
2503 {
2504   LANGID langid;
2505
2506   /* Strip off the sorting rules, keep only the language part.  */
2507   langid = LANGIDFROMLCID (lcid);
2508
2509   return gl_locale_name_from_win32_LANGID (langid);
2510 }
2511
2512 # ifdef WINDOWS_NATIVE
2513
2514 /* Two variables to interface between get_lcid and the EnumLocales
2515    callback function below.  */
2516 static LCID found_lcid;
2517 static char lname[LC_MAX * (LOCALE_NAME_MAX_LENGTH + 1) + 1];
2518
2519 /* Callback function for EnumLocales.  */
2520 static BOOL CALLBACK
2521 enum_locales_fn (LPTSTR locale_num_str)
2522 {
2523   char *endp;
2524   char locval[2 * LOCALE_NAME_MAX_LENGTH + 1 + 1];
2525   LCID try_lcid = strtoul (locale_num_str, &endp, 16);
2526
2527   if (GetLocaleInfo (try_lcid, LOCALE_SENGLANGUAGE,
2528                     locval, LOCALE_NAME_MAX_LENGTH))
2529     {
2530       strcat (locval, "_");
2531       if (GetLocaleInfo (try_lcid, LOCALE_SENGCOUNTRY,
2532                         locval + strlen (locval), LOCALE_NAME_MAX_LENGTH))
2533        {
2534          size_t locval_len = strlen (locval);
2535
2536          if (strncmp (locval, lname, locval_len) == 0
2537              && (lname[locval_len] == '.'
2538                  || lname[locval_len] == '\0'))
2539            {
2540              found_lcid = try_lcid;
2541              return FALSE;
2542            }
2543        }
2544     }
2545   return TRUE;
2546 }
2547
2548 /* This lock protects the get_lcid against multiple simultaneous calls.  */
2549 gl_lock_define_initialized(static, get_lcid_lock)
2550
2551 /* Return the Locale ID (LCID) number given the locale's name, a
2552    string, in LOCALE_NAME.  This works by enumerating all the locales
2553    supported by the system, until we find one whose name matches
2554    LOCALE_NAME.  */
2555 static LCID
2556 get_lcid (const char *locale_name)
2557 {
2558   /* A simple cache.  */
2559   static LCID last_lcid;
2560   static char last_locale[1000];
2561
2562   /* Lock while looking for an LCID, to protect access to static
2563      variables: last_lcid, last_locale, found_lcid, and lname.  */
2564   gl_lock_lock (get_lcid_lock);
2565   if (last_lcid > 0 && strcmp (locale_name, last_locale) == 0)
2566     {
2567       gl_lock_unlock (get_lcid_lock);
2568       return last_lcid;
2569     }
2570   strncpy (lname, locale_name, sizeof (lname) - 1);
2571   lname[sizeof (lname) - 1] = '\0';
2572   found_lcid = 0;
2573   EnumSystemLocales (enum_locales_fn, LCID_SUPPORTED);
2574   if (found_lcid > 0)
2575     {
2576       last_lcid = found_lcid;
2577       strcpy (last_locale, locale_name);
2578     }
2579   gl_lock_unlock (get_lcid_lock);
2580   return found_lcid;
2581 }
2582
2583 # endif
2584 #endif
2585
2586
2587 #if HAVE_USELOCALE /* glibc or Mac OS X */
2588
2589 /* Simple hash set of strings.  We don't want to drag in lots of hash table
2590    code here.  */
2591
2592 # define SIZE_BITS (sizeof (size_t) * CHAR_BIT)
2593
2594 /* A hash function for NUL-terminated char* strings using
2595    the method described by Bruno Haible.
2596    See http://www.haible.de/bruno/hashfunc.html.  */
2597 static size_t _GL_ATTRIBUTE_PURE
2598 string_hash (const void *x)
2599 {
2600   const char *s = (const char *) x;
2601   size_t h = 0;
2602
2603   for (; *s; s++)
2604     h = *s + ((h << 9) | (h >> (SIZE_BITS - 9)));
2605
2606   return h;
2607 }
2608
2609 /* A hash table of fixed size.  Multiple threads can access it read-only
2610    simultaneously, but only one thread can insert into it at the same time.  */
2611
2612 /* A node in a hash bucket collision list.  */
2613 struct hash_node
2614   {
2615     struct hash_node * volatile next;
2616     char contents[100]; /* has variable size */
2617   };
2618
2619 # define HASH_TABLE_SIZE 257
2620 static struct hash_node * volatile struniq_hash_table[HASH_TABLE_SIZE]
2621   /* = { NULL, ..., NULL } */;
2622
2623 /* This lock protects the struniq_hash_table against multiple simultaneous
2624    insertions.  */
2625 gl_lock_define_initialized(static, struniq_lock)
2626
2627 /* Store a copy of the given string in a string pool with indefinite extent.
2628    Return a pointer to this copy.  */
2629 static const char *
2630 struniq (const char *string)
2631 {
2632   size_t hashcode = string_hash (string);
2633   size_t slot = hashcode % HASH_TABLE_SIZE;
2634   size_t size;
2635   struct hash_node *new_node;
2636   struct hash_node *p;
2637   for (p = struniq_hash_table[slot]; p != NULL; p = p->next)
2638     if (strcmp (p->contents, string) == 0)
2639       return p->contents;
2640   size = strlen (string) + 1;
2641   new_node =
2642     (struct hash_node *)
2643     malloc (offsetof (struct hash_node, contents[0]) + size);
2644   if (new_node == NULL)
2645     /* Out of memory.  Return a statically allocated string.  */
2646     return "C";
2647   memcpy (new_node->contents, string, size);
2648   /* Lock while inserting new_node.  */
2649   gl_lock_lock (struniq_lock);
2650   /* Check whether another thread already added the string while we were
2651      waiting on the lock.  */
2652   for (p = struniq_hash_table[slot]; p != NULL; p = p->next)
2653     if (strcmp (p->contents, string) == 0)
2654       {
2655         free (new_node);
2656         new_node = p;
2657         goto done;
2658       }
2659   /* Really insert new_node into the hash table.  Fill new_node entirely first,
2660      because other threads may be iterating over the linked list.  */
2661   new_node->next = struniq_hash_table[slot];
2662   struniq_hash_table[slot] = new_node;
2663  done:
2664   /* Unlock after new_node is inserted.  */
2665   gl_lock_unlock (struniq_lock);
2666   return new_node->contents;
2667 }
2668
2669 #endif
2670
2671
2672 #if defined IN_LIBINTL || HAVE_USELOCALE
2673
2674 /* Like gl_locale_name_thread, except that the result is not in storage of
2675    indefinite extent.  */
2676 # if !defined IN_LIBINTL
2677 static
2678 # endif
2679 const char *
2680 gl_locale_name_thread_unsafe (int category, const char *categoryname)
2681 {
2682 # if HAVE_USELOCALE
2683   {
2684     locale_t thread_locale = uselocale (NULL);
2685     if (thread_locale != LC_GLOBAL_LOCALE)
2686       {
2687 #  if __GLIBC__ >= 2 && !defined __UCLIBC__
2688         /* Work around an incorrect definition of the _NL_LOCALE_NAME macro in
2689            glibc < 2.12.
2690            See <http://sourceware.org/bugzilla/show_bug.cgi?id=10968>.  */
2691         const char *name =
2692           nl_langinfo (_NL_ITEM ((category), _NL_ITEM_INDEX (-1)));
2693         if (name[0] == '\0')
2694           /* Fallback code for glibc < 2.4, which did not implement
2695              nl_langinfo (_NL_LOCALE_NAME (category)).  */
2696           name = thread_locale->__names[category];
2697         return name;
2698 #  elif defined __FreeBSD__ || (defined __APPLE__ && defined __MACH__)
2699         /* FreeBSD, Mac OS X */
2700         int mask;
2701
2702         switch (category)
2703           {
2704           case LC_CTYPE:
2705             mask = LC_CTYPE_MASK;
2706             break;
2707           case LC_NUMERIC:
2708             mask = LC_NUMERIC_MASK;
2709             break;
2710           case LC_TIME:
2711             mask = LC_TIME_MASK;
2712             break;
2713           case LC_COLLATE:
2714             mask = LC_COLLATE_MASK;
2715             break;
2716           case LC_MONETARY:
2717             mask = LC_MONETARY_MASK;
2718             break;
2719           case LC_MESSAGES:
2720             mask = LC_MESSAGES_MASK;
2721             break;
2722           default: /* We shouldn't get here.  */
2723             return "";
2724           }
2725         return querylocale (mask, thread_locale);
2726 #  endif
2727       }
2728   }
2729 # endif
2730   return NULL;
2731 }
2732
2733 #endif
2734
2735 const char *
2736 gl_locale_name_thread (int category, const char *categoryname)
2737 {
2738 #if HAVE_USELOCALE
2739   const char *name = gl_locale_name_thread_unsafe (category, categoryname);
2740   if (name != NULL)
2741     return struniq (name);
2742 #elif defined WINDOWS_NATIVE
2743   if (LC_MIN <= category && category <= LC_MAX)
2744     {
2745       char *locname = setlocale (category, NULL);
2746       LCID lcid = 0;
2747
2748       /* If CATEGORY is LC_ALL, the result might be a semi-colon
2749         separated list of locales.  We need only one, so we take the
2750         one corresponding to LC_CTYPE, as the most important for
2751         character translations.  */
2752       if (strchr (locname, ';'))
2753        locname = setlocale (LC_CTYPE, NULL);
2754
2755       /* Convert locale name to LCID.  We don't want to use
2756          LocaleNameToLCID because (a) it is only available since Vista,
2757          and (b) it doesn't accept locale names returned by 'setlocale'.  */
2758       lcid = get_lcid (locname);
2759
2760       if (lcid > 0)
2761         return gl_locale_name_from_win32_LCID (lcid);
2762     }
2763 #endif
2764   return NULL;
2765 }
2766
2767 /* XPG3 defines the result of 'setlocale (category, NULL)' as:
2768    "Directs 'setlocale()' to query 'category' and return the current
2769     setting of 'local'."
2770    However it does not specify the exact format.  Neither do SUSV2 and
2771    ISO C 99.  So we can use this feature only on selected systems (e.g.
2772    those using GNU C Library).  */
2773 #if defined _LIBC || ((defined __GLIBC__ && __GLIBC__ >= 2) && !defined __UCLIBC__)
2774 # define HAVE_LOCALE_NULL
2775 #endif
2776
2777 const char *
2778 gl_locale_name_posix (int category, const char *categoryname)
2779 {
2780   /* Use the POSIX methods of looking to 'LC_ALL', 'LC_xxx', and 'LANG'.
2781      On some systems this can be done by the 'setlocale' function itself.  */
2782 #if defined HAVE_SETLOCALE && defined HAVE_LC_MESSAGES && defined HAVE_LOCALE_NULL
2783   return setlocale (category, NULL);
2784 #else
2785   /* On other systems we ignore what setlocale reports and instead look at the
2786      environment variables directly.  This is necessary
2787        1. on systems which have a facility for customizing the default locale
2788           (Mac OS X, native Windows, Cygwin) and where the system's setlocale()
2789           function ignores this default locale (Mac OS X, Cygwin), in two cases:
2790           a. when the user missed to use the setlocale() override from libintl
2791              (for example by not including <libintl.h>),
2792           b. when setlocale supports only the "C" locale, such as on Cygwin
2793              1.5.x.  In this case even the override from libintl cannot help.
2794        2. on all systems where setlocale supports only the "C" locale.  */
2795   /* Strictly speaking, it is a POSIX violation to look at the environment
2796      variables regardless whether setlocale has been called or not.  POSIX
2797      says:
2798          "For C-language programs, the POSIX locale shall be the
2799           default locale when the setlocale() function is not called."
2800      But we assume that all programs that use internationalized APIs call
2801      setlocale (LC_ALL, "").  */
2802   return gl_locale_name_environ (category, categoryname);
2803 #endif
2804 }
2805
2806 const char *
2807 gl_locale_name_environ (int category, const char *categoryname)
2808 {
2809   const char *retval;
2810
2811   /* Setting of LC_ALL overrides all other.  */
2812   retval = getenv ("LC_ALL");
2813   if (retval != NULL && retval[0] != '\0')
2814     return retval;
2815   /* Next comes the name of the desired category.  */
2816   retval = getenv (categoryname);
2817   if (retval != NULL && retval[0] != '\0')
2818     return retval;
2819   /* Last possibility is the LANG environment variable.  */
2820   retval = getenv ("LANG");
2821   if (retval != NULL && retval[0] != '\0')
2822     {
2823 #if HAVE_CFLOCALECOPYCURRENT || HAVE_CFPREFERENCESCOPYAPPVALUE
2824       /* Mac OS X 10.2 or newer.
2825          Ignore invalid LANG value set by the Terminal application.  */
2826       if (strcmp (retval, "UTF-8") != 0)
2827 #endif
2828 #if defined __CYGWIN__
2829       /* Cygwin.
2830          Ignore dummy LANG value set by ~/.profile.  */
2831       if (strcmp (retval, "C.UTF-8") != 0)
2832 #endif
2833         return retval;
2834     }
2835
2836   return NULL;
2837 }
2838
2839 const char *
2840 gl_locale_name_default (void)
2841 {
2842   /* POSIX:2001 says:
2843      "All implementations shall define a locale as the default locale, to be
2844       invoked when no environment variables are set, or set to the empty
2845       string.  This default locale can be the POSIX locale or any other
2846       implementation-defined locale.  Some implementations may provide
2847       facilities for local installation administrators to set the default
2848       locale, customizing it for each location.  POSIX:2001 does not require
2849       such a facility.
2850
2851      The systems with such a facility are Mac OS X and Windows: They provide a
2852      GUI that allows the user to choose a locale.
2853        - On Mac OS X, by default, none of LC_* or LANG are set.  Starting with
2854          Mac OS X 10.4 or 10.5, LANG is set for processes launched by the
2855          'Terminal' application (but sometimes to an incorrect value "UTF-8").
2856          When no environment variable is set, setlocale (LC_ALL, "") uses the
2857          "C" locale.
2858        - On native Windows, by default, none of LC_* or LANG are set.
2859          When no environment variable is set, setlocale (LC_ALL, "") uses the
2860          locale chosen by the user.
2861        - On Cygwin 1.5.x, by default, none of LC_* or LANG are set.
2862          When no environment variable is set, setlocale (LC_ALL, "") uses the
2863          "C" locale.
2864        - On Cygwin 1.7, by default, LANG is set to "C.UTF-8" when the default
2865          ~/.profile is executed.
2866          When no environment variable is set, setlocale (LC_ALL, "") uses the
2867          "C.UTF-8" locale, which operates in the same way as the "C" locale.
2868   */
2869
2870 #if !(HAVE_CFLOCALECOPYCURRENT || HAVE_CFPREFERENCESCOPYAPPVALUE || defined WINDOWS_NATIVE || defined __CYGWIN__)
2871
2872   /* The system does not have a way of setting the locale, other than the
2873      POSIX specified environment variables.  We use C as default locale.  */
2874   return "C";
2875
2876 #else
2877
2878   /* Return an XPG style locale name language[_territory][@modifier].
2879      Don't even bother determining the codeset; it's not useful in this
2880      context, because message catalogs are not specific to a single
2881      codeset.  */
2882
2883 # if HAVE_CFLOCALECOPYCURRENT || HAVE_CFPREFERENCESCOPYAPPVALUE
2884   /* Mac OS X 10.2 or newer */
2885   {
2886     /* Cache the locale name, since CoreFoundation calls are expensive.  */
2887     static const char *cached_localename;
2888
2889     if (cached_localename == NULL)
2890       {
2891         char namebuf[256];
2892 #  if HAVE_CFLOCALECOPYCURRENT /* Mac OS X 10.3 or newer */
2893         CFLocaleRef locale = CFLocaleCopyCurrent ();
2894         CFStringRef name = CFLocaleGetIdentifier (locale);
2895
2896         if (CFStringGetCString (name, namebuf, sizeof (namebuf),
2897                                 kCFStringEncodingASCII))
2898           {
2899             gl_locale_name_canonicalize (namebuf);
2900             cached_localename = strdup (namebuf);
2901           }
2902         CFRelease (locale);
2903 #  elif HAVE_CFPREFERENCESCOPYAPPVALUE /* Mac OS X 10.2 or newer */
2904         CFTypeRef value =
2905           CFPreferencesCopyAppValue (CFSTR ("AppleLocale"),
2906                                      kCFPreferencesCurrentApplication);
2907         if (value != NULL
2908             && CFGetTypeID (value) == CFStringGetTypeID ()
2909             && CFStringGetCString ((CFStringRef)value,
2910                                    namebuf, sizeof (namebuf),
2911                                    kCFStringEncodingASCII))
2912           {
2913             gl_locale_name_canonicalize (namebuf);
2914             cached_localename = strdup (namebuf);
2915           }
2916 #  endif
2917         if (cached_localename == NULL)
2918           cached_localename = "C";
2919       }
2920     return cached_localename;
2921   }
2922
2923 # endif
2924
2925 # if defined WINDOWS_NATIVE || defined __CYGWIN__ /* Native Windows or Cygwin */
2926   {
2927     LCID lcid;
2928
2929     /* Use native Windows API locale ID.  */
2930     lcid = GetThreadLocale ();
2931
2932     return gl_locale_name_from_win32_LCID (lcid);
2933   }
2934 # endif
2935 #endif
2936 }
2937
2938 /* Determine the current locale's name, and canonicalize it into XPG syntax
2939      language[_territory][.codeset][@modifier]
2940    The codeset part in the result is not reliable; the locale_charset()
2941    should be used for codeset information instead.
2942    The result must not be freed; it is statically allocated.  */
2943
2944 const char *
2945 gl_locale_name (int category, const char *categoryname)
2946 {
2947   const char *retval;
2948
2949   retval = gl_locale_name_thread (category, categoryname);
2950   if (retval != NULL)
2951     return retval;
2952
2953   retval = gl_locale_name_posix (category, categoryname);
2954   if (retval != NULL)
2955     return retval;
2956
2957   return gl_locale_name_default ();
2958 }