Home | History | Annotate | Download | only in intl
      1 /* Determine the current selected locale.
      2    Copyright (C) 1995-1999, 2000-2004 Free Software Foundation, Inc.
      3 
      4    This program is free software; you can redistribute it and/or modify it
      5    under the terms of the GNU Library General Public License as published
      6    by the Free Software Foundation; either version 2, or (at your option)
      7    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 GNU
     12    Library General Public License for more details.
     13 
     14    You should have received a copy of the GNU Library General Public
     15    License along with this program; if not, write to the Free Software
     16    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
     17    USA.  */
     18 
     19 /* Written by Ulrich Drepper <drepper (at) gnu.org>, 1995.  */
     20 /* Win32 code written by Tor Lillqvist <tml (at) iki.fi>.  */
     21 
     22 #ifdef HAVE_CONFIG_H
     23 # include <config.h>
     24 #endif
     25 
     26 #include <stdlib.h>
     27 #include <locale.h>
     28 
     29 #if defined _WIN32 || defined __WIN32__
     30 # undef WIN32   /* avoid warning on mingw32 */
     31 # define WIN32
     32 #endif
     33 
     34 #ifdef WIN32
     35 # define WIN32_LEAN_AND_MEAN
     36 # include <windows.h>
     37 /* List of language codes, sorted by value:
     38    0x01 LANG_ARABIC
     39    0x02 LANG_BULGARIAN
     40    0x03 LANG_CATALAN
     41    0x04 LANG_CHINESE
     42    0x05 LANG_CZECH
     43    0x06 LANG_DANISH
     44    0x07 LANG_GERMAN
     45    0x08 LANG_GREEK
     46    0x09 LANG_ENGLISH
     47    0x0a LANG_SPANISH
     48    0x0b LANG_FINNISH
     49    0x0c LANG_FRENCH
     50    0x0d LANG_HEBREW
     51    0x0e LANG_HUNGARIAN
     52    0x0f LANG_ICELANDIC
     53    0x10 LANG_ITALIAN
     54    0x11 LANG_JAPANESE
     55    0x12 LANG_KOREAN
     56    0x13 LANG_DUTCH
     57    0x14 LANG_NORWEGIAN
     58    0x15 LANG_POLISH
     59    0x16 LANG_PORTUGUESE
     60    0x17 LANG_RHAETO_ROMANCE
     61    0x18 LANG_ROMANIAN
     62    0x19 LANG_RUSSIAN
     63    0x1a LANG_CROATIAN == LANG_SERBIAN
     64    0x1b LANG_SLOVAK
     65    0x1c LANG_ALBANIAN
     66    0x1d LANG_SWEDISH
     67    0x1e LANG_THAI
     68    0x1f LANG_TURKISH
     69    0x20 LANG_URDU
     70    0x21 LANG_INDONESIAN
     71    0x22 LANG_UKRAINIAN
     72    0x23 LANG_BELARUSIAN
     73    0x24 LANG_SLOVENIAN
     74    0x25 LANG_ESTONIAN
     75    0x26 LANG_LATVIAN
     76    0x27 LANG_LITHUANIAN
     77    0x28 LANG_TAJIK
     78    0x29 LANG_FARSI
     79    0x2a LANG_VIETNAMESE
     80    0x2b LANG_ARMENIAN
     81    0x2c LANG_AZERI
     82    0x2d LANG_BASQUE
     83    0x2e LANG_SORBIAN
     84    0x2f LANG_MACEDONIAN
     85    0x30 LANG_SUTU
     86    0x31 LANG_TSONGA
     87    0x32 LANG_TSWANA
     88    0x33 LANG_VENDA
     89    0x34 LANG_XHOSA
     90    0x35 LANG_ZULU
     91    0x36 LANG_AFRIKAANS
     92    0x37 LANG_GEORGIAN
     93    0x38 LANG_FAEROESE
     94    0x39 LANG_HINDI
     95    0x3a LANG_MALTESE
     96    0x3b LANG_SAAMI
     97    0x3c LANG_GAELIC
     98    0x3d LANG_YIDDISH
     99    0x3e LANG_MALAY
    100    0x3f LANG_KAZAK
    101    0x40 LANG_KYRGYZ
    102    0x41 LANG_SWAHILI
    103    0x42 LANG_TURKMEN
    104    0x43 LANG_UZBEK
    105    0x44 LANG_TATAR
    106    0x45 LANG_BENGALI
    107    0x46 LANG_PUNJABI
    108    0x47 LANG_GUJARATI
    109    0x48 LANG_ORIYA
    110    0x49 LANG_TAMIL
    111    0x4a LANG_TELUGU
    112    0x4b LANG_KANNADA
    113    0x4c LANG_MALAYALAM
    114    0x4d LANG_ASSAMESE
    115    0x4e LANG_MARATHI
    116    0x4f LANG_SANSKRIT
    117    0x50 LANG_MONGOLIAN
    118    0x51 LANG_TIBETAN
    119    0x52 LANG_WELSH
    120    0x53 LANG_CAMBODIAN
    121    0x54 LANG_LAO
    122    0x55 LANG_BURMESE
    123    0x56 LANG_GALICIAN
    124    0x57 LANG_KONKANI
    125    0x58 LANG_MANIPURI
    126    0x59 LANG_SINDHI
    127    0x5a LANG_SYRIAC
    128    0x5b LANG_SINHALESE
    129    0x5c LANG_CHEROKEE
    130    0x5d LANG_INUKTITUT
    131    0x5e LANG_AMHARIC
    132    0x5f LANG_TAMAZIGHT
    133    0x60 LANG_KASHMIRI
    134    0x61 LANG_NEPALI
    135    0x62 LANG_FRISIAN
    136    0x63 LANG_PASHTO
    137    0x64 LANG_TAGALOG
    138    0x65 LANG_DIVEHI
    139    0x66 LANG_EDO
    140    0x67 LANG_FULFULDE
    141    0x68 LANG_HAUSA
    142    0x69 LANG_IBIBIO
    143    0x6a LANG_YORUBA
    144    0x70 LANG_IGBO
    145    0x71 LANG_KANURI
    146    0x72 LANG_OROMO
    147    0x73 LANG_TIGRINYA
    148    0x74 LANG_GUARANI
    149    0x75 LANG_HAWAIIAN
    150    0x76 LANG_LATIN
    151    0x77 LANG_SOMALI
    152    0x78 LANG_YI
    153    0x79 LANG_PAPIAMENTU
    154 */
    155 /* Mingw headers don't have latest language and sublanguage codes.  */
    156 # ifndef LANG_AFRIKAANS
    157 # define LANG_AFRIKAANS 0x36
    158 # endif
    159 # ifndef LANG_ALBANIAN
    160 # define LANG_ALBANIAN 0x1c
    161 # endif
    162 # ifndef LANG_AMHARIC
    163 # define LANG_AMHARIC 0x5e
    164 # endif
    165 # ifndef LANG_ARABIC
    166 # define LANG_ARABIC 0x01
    167 # endif
    168 # ifndef LANG_ARMENIAN
    169 # define LANG_ARMENIAN 0x2b
    170 # endif
    171 # ifndef LANG_ASSAMESE
    172 # define LANG_ASSAMESE 0x4d
    173 # endif
    174 # ifndef LANG_AZERI
    175 # define LANG_AZERI 0x2c
    176 # endif
    177 # ifndef LANG_BASQUE
    178 # define LANG_BASQUE 0x2d
    179 # endif
    180 # ifndef LANG_BELARUSIAN
    181 # define LANG_BELARUSIAN 0x23
    182 # endif
    183 # ifndef LANG_BENGALI
    184 # define LANG_BENGALI 0x45
    185 # endif
    186 # ifndef LANG_BURMESE
    187 # define LANG_BURMESE 0x55
    188 # endif
    189 # ifndef LANG_CAMBODIAN
    190 # define LANG_CAMBODIAN 0x53
    191 # endif
    192 # ifndef LANG_CATALAN
    193 # define LANG_CATALAN 0x03
    194 # endif
    195 # ifndef LANG_CHEROKEE
    196 # define LANG_CHEROKEE 0x5c
    197 # endif
    198 # ifndef LANG_DIVEHI
    199 # define LANG_DIVEHI 0x65
    200 # endif
    201 # ifndef LANG_EDO
    202 # define LANG_EDO 0x66
    203 # endif
    204 # ifndef LANG_ESTONIAN
    205 # define LANG_ESTONIAN 0x25
    206 # endif
    207 # ifndef LANG_FAEROESE
    208 # define LANG_FAEROESE 0x38
    209 # endif
    210 # ifndef LANG_FARSI
    211 # define LANG_FARSI 0x29
    212 # endif
    213 # ifndef LANG_FRISIAN
    214 # define LANG_FRISIAN 0x62
    215 # endif
    216 # ifndef LANG_FULFULDE
    217 # define LANG_FULFULDE 0x67
    218 # endif
    219 # ifndef LANG_GAELIC
    220 # define LANG_GAELIC 0x3c
    221 # endif
    222 # ifndef LANG_GALICIAN
    223 # define LANG_GALICIAN 0x56
    224 # endif
    225 # ifndef LANG_GEORGIAN
    226 # define LANG_GEORGIAN 0x37
    227 # endif
    228 # ifndef LANG_GUARANI
    229 # define LANG_GUARANI 0x74
    230 # endif
    231 # ifndef LANG_GUJARATI
    232 # define LANG_GUJARATI 0x47
    233 # endif
    234 # ifndef LANG_HAUSA
    235 # define LANG_HAUSA 0x68
    236 # endif
    237 # ifndef LANG_HAWAIIAN
    238 # define LANG_HAWAIIAN 0x75
    239 # endif
    240 # ifndef LANG_HEBREW
    241 # define LANG_HEBREW 0x0d
    242 # endif
    243 # ifndef LANG_HINDI
    244 # define LANG_HINDI 0x39
    245 # endif
    246 # ifndef LANG_IBIBIO
    247 # define LANG_IBIBIO 0x69
    248 # endif
    249 # ifndef LANG_IGBO
    250 # define LANG_IGBO 0x70
    251 # endif
    252 # ifndef LANG_INDONESIAN
    253 # define LANG_INDONESIAN 0x21
    254 # endif
    255 # ifndef LANG_INUKTITUT
    256 # define LANG_INUKTITUT 0x5d
    257 # endif
    258 # ifndef LANG_KANNADA
    259 # define LANG_KANNADA 0x4b
    260 # endif
    261 # ifndef LANG_KANURI
    262 # define LANG_KANURI 0x71
    263 # endif
    264 # ifndef LANG_KASHMIRI
    265 # define LANG_KASHMIRI 0x60
    266 # endif
    267 # ifndef LANG_KAZAK
    268 # define LANG_KAZAK 0x3f
    269 # endif
    270 # ifndef LANG_KONKANI
    271 # define LANG_KONKANI 0x57
    272 # endif
    273 # ifndef LANG_KYRGYZ
    274 # define LANG_KYRGYZ 0x40
    275 # endif
    276 # ifndef LANG_LAO
    277 # define LANG_LAO 0x54
    278 # endif
    279 # ifndef LANG_LATIN
    280 # define LANG_LATIN 0x76
    281 # endif
    282 # ifndef LANG_LATVIAN
    283 # define LANG_LATVIAN 0x26
    284 # endif
    285 # ifndef LANG_LITHUANIAN
    286 # define LANG_LITHUANIAN 0x27
    287 # endif
    288 # ifndef LANG_MACEDONIAN
    289 # define LANG_MACEDONIAN 0x2f
    290 # endif
    291 # ifndef LANG_MALAY
    292 # define LANG_MALAY 0x3e
    293 # endif
    294 # ifndef LANG_MALAYALAM
    295 # define LANG_MALAYALAM 0x4c
    296 # endif
    297 # ifndef LANG_MALTESE
    298 # define LANG_MALTESE 0x3a
    299 # endif
    300 # ifndef LANG_MANIPURI
    301 # define LANG_MANIPURI 0x58
    302 # endif
    303 # ifndef LANG_MARATHI
    304 # define LANG_MARATHI 0x4e
    305 # endif
    306 # ifndef LANG_MONGOLIAN
    307 # define LANG_MONGOLIAN 0x50
    308 # endif
    309 # ifndef LANG_NEPALI
    310 # define LANG_NEPALI 0x61
    311 # endif
    312 # ifndef LANG_ORIYA
    313 # define LANG_ORIYA 0x48
    314 # endif
    315 # ifndef LANG_OROMO
    316 # define LANG_OROMO 0x72
    317 # endif
    318 # ifndef LANG_PAPIAMENTU
    319 # define LANG_PAPIAMENTU 0x79
    320 # endif
    321 # ifndef LANG_PASHTO
    322 # define LANG_PASHTO 0x63
    323 # endif
    324 # ifndef LANG_PUNJABI
    325 # define LANG_PUNJABI 0x46
    326 # endif
    327 # ifndef LANG_RHAETO_ROMANCE
    328 # define LANG_RHAETO_ROMANCE 0x17
    329 # endif
    330 # ifndef LANG_SAAMI
    331 # define LANG_SAAMI 0x3b
    332 # endif
    333 # ifndef LANG_SANSKRIT
    334 # define LANG_SANSKRIT 0x4f
    335 # endif
    336 # ifndef LANG_SERBIAN
    337 # define LANG_SERBIAN 0x1a
    338 # endif
    339 # ifndef LANG_SINDHI
    340 # define LANG_SINDHI 0x59
    341 # endif
    342 # ifndef LANG_SINHALESE
    343 # define LANG_SINHALESE 0x5b
    344 # endif
    345 # ifndef LANG_SLOVAK
    346 # define LANG_SLOVAK 0x1b
    347 # endif
    348 # ifndef LANG_SOMALI
    349 # define LANG_SOMALI 0x77
    350 # endif
    351 # ifndef LANG_SORBIAN
    352 # define LANG_SORBIAN 0x2e
    353 # endif
    354 # ifndef LANG_SUTU
    355 # define LANG_SUTU 0x30
    356 # endif
    357 # ifndef LANG_SWAHILI
    358 # define LANG_SWAHILI 0x41
    359 # endif
    360 # ifndef LANG_SYRIAC
    361 # define LANG_SYRIAC 0x5a
    362 # endif
    363 # ifndef LANG_TAGALOG
    364 # define LANG_TAGALOG 0x64
    365 # endif
    366 # ifndef LANG_TAJIK
    367 # define LANG_TAJIK 0x28
    368 # endif
    369 # ifndef LANG_TAMAZIGHT
    370 # define LANG_TAMAZIGHT 0x5f
    371 # endif
    372 # ifndef LANG_TAMIL
    373 # define LANG_TAMIL 0x49
    374 # endif
    375 # ifndef LANG_TATAR
    376 # define LANG_TATAR 0x44
    377 # endif
    378 # ifndef LANG_TELUGU
    379 # define LANG_TELUGU 0x4a
    380 # endif
    381 # ifndef LANG_THAI
    382 # define LANG_THAI 0x1e
    383 # endif
    384 # ifndef LANG_TIBETAN
    385 # define LANG_TIBETAN 0x51
    386 # endif
    387 # ifndef LANG_TIGRINYA
    388 # define LANG_TIGRINYA 0x73
    389 # endif
    390 # ifndef LANG_TSONGA
    391 # define LANG_TSONGA 0x31
    392 # endif
    393 # ifndef LANG_TSWANA
    394 # define LANG_TSWANA 0x32
    395 # endif
    396 # ifndef LANG_TURKMEN
    397 # define LANG_TURKMEN 0x42
    398 # endif
    399 # ifndef LANG_UKRAINIAN
    400 # define LANG_UKRAINIAN 0x22
    401 # endif
    402 # ifndef LANG_URDU
    403 # define LANG_URDU 0x20
    404 # endif
    405 # ifndef LANG_UZBEK
    406 # define LANG_UZBEK 0x43
    407 # endif
    408 # ifndef LANG_VENDA
    409 # define LANG_VENDA 0x33
    410 # endif
    411 # ifndef LANG_VIETNAMESE
    412 # define LANG_VIETNAMESE 0x2a
    413 # endif
    414 # ifndef LANG_WELSH
    415 # define LANG_WELSH 0x52
    416 # endif
    417 # ifndef LANG_XHOSA
    418 # define LANG_XHOSA 0x34
    419 # endif
    420 # ifndef LANG_YI
    421 # define LANG_YI 0x78
    422 # endif
    423 # ifndef LANG_YIDDISH
    424 # define LANG_YIDDISH 0x3d
    425 # endif
    426 # ifndef LANG_YORUBA
    427 # define LANG_YORUBA 0x6a
    428 # endif
    429 # ifndef LANG_ZULU
    430 # define LANG_ZULU 0x35
    431 # endif
    432 # ifndef SUBLANG_ARABIC_SAUDI_ARABIA
    433 # define SUBLANG_ARABIC_SAUDI_ARABIA 0x01
    434 # endif
    435 # ifndef SUBLANG_ARABIC_IRAQ
    436 # define SUBLANG_ARABIC_IRAQ 0x02
    437 # endif
    438 # ifndef SUBLANG_ARABIC_EGYPT
    439 # define SUBLANG_ARABIC_EGYPT 0x03
    440 # endif
    441 # ifndef SUBLANG_ARABIC_LIBYA
    442 # define SUBLANG_ARABIC_LIBYA 0x04
    443 # endif
    444 # ifndef SUBLANG_ARABIC_ALGERIA
    445 # define SUBLANG_ARABIC_ALGERIA 0x05
    446 # endif
    447 # ifndef SUBLANG_ARABIC_MOROCCO
    448 # define SUBLANG_ARABIC_MOROCCO 0x06
    449 # endif
    450 # ifndef SUBLANG_ARABIC_TUNISIA
    451 # define SUBLANG_ARABIC_TUNISIA 0x07
    452 # endif
    453 # ifndef SUBLANG_ARABIC_OMAN
    454 # define SUBLANG_ARABIC_OMAN 0x08
    455 # endif
    456 # ifndef SUBLANG_ARABIC_YEMEN
    457 # define SUBLANG_ARABIC_YEMEN 0x09
    458 # endif
    459 # ifndef SUBLANG_ARABIC_SYRIA
    460 # define SUBLANG_ARABIC_SYRIA 0x0a
    461 # endif
    462 # ifndef SUBLANG_ARABIC_JORDAN
    463 # define SUBLANG_ARABIC_JORDAN 0x0b
    464 # endif
    465 # ifndef SUBLANG_ARABIC_LEBANON
    466 # define SUBLANG_ARABIC_LEBANON 0x0c
    467 # endif
    468 # ifndef SUBLANG_ARABIC_KUWAIT
    469 # define SUBLANG_ARABIC_KUWAIT 0x0d
    470 # endif
    471 # ifndef SUBLANG_ARABIC_UAE
    472 # define SUBLANG_ARABIC_UAE 0x0e
    473 # endif
    474 # ifndef SUBLANG_ARABIC_BAHRAIN
    475 # define SUBLANG_ARABIC_BAHRAIN 0x0f
    476 # endif
    477 # ifndef SUBLANG_ARABIC_QATAR
    478 # define SUBLANG_ARABIC_QATAR 0x10
    479 # endif
    480 # ifndef SUBLANG_AZERI_LATIN
    481 # define SUBLANG_AZERI_LATIN 0x01
    482 # endif
    483 # ifndef SUBLANG_AZERI_CYRILLIC
    484 # define SUBLANG_AZERI_CYRILLIC 0x02
    485 # endif
    486 # ifndef SUBLANG_BENGALI_INDIA
    487 # define SUBLANG_BENGALI_INDIA 0x00
    488 # endif
    489 # ifndef SUBLANG_BENGALI_BANGLADESH
    490 # define SUBLANG_BENGALI_BANGLADESH 0x01
    491 # endif
    492 # ifndef SUBLANG_CHINESE_MACAU
    493 # define SUBLANG_CHINESE_MACAU 0x05
    494 # endif
    495 # ifndef SUBLANG_ENGLISH_SOUTH_AFRICA
    496 # define SUBLANG_ENGLISH_SOUTH_AFRICA 0x07
    497 # endif
    498 # ifndef SUBLANG_ENGLISH_JAMAICA
    499 # define SUBLANG_ENGLISH_JAMAICA 0x08
    500 # endif
    501 # ifndef SUBLANG_ENGLISH_CARIBBEAN
    502 # define SUBLANG_ENGLISH_CARIBBEAN 0x09
    503 # endif
    504 # ifndef SUBLANG_ENGLISH_BELIZE
    505 # define SUBLANG_ENGLISH_BELIZE 0x0a
    506 # endif
    507 # ifndef SUBLANG_ENGLISH_TRINIDAD
    508 # define SUBLANG_ENGLISH_TRINIDAD 0x0b
    509 # endif
    510 # ifndef SUBLANG_ENGLISH_ZIMBABWE
    511 # define SUBLANG_ENGLISH_ZIMBABWE 0x0c
    512 # endif
    513 # ifndef SUBLANG_ENGLISH_PHILIPPINES
    514 # define SUBLANG_ENGLISH_PHILIPPINES 0x0d
    515 # endif
    516 # ifndef SUBLANG_ENGLISH_INDONESIA
    517 # define SUBLANG_ENGLISH_INDONESIA 0x0e
    518 # endif
    519 # ifndef SUBLANG_ENGLISH_HONGKONG
    520 # define SUBLANG_ENGLISH_HONGKONG 0x0f
    521 # endif
    522 # ifndef SUBLANG_ENGLISH_INDIA
    523 # define SUBLANG_ENGLISH_INDIA 0x10
    524 # endif
    525 # ifndef SUBLANG_ENGLISH_MALAYSIA
    526 # define SUBLANG_ENGLISH_MALAYSIA 0x11
    527 # endif
    528 # ifndef SUBLANG_ENGLISH_SINGAPORE
    529 # define SUBLANG_ENGLISH_SINGAPORE 0x12
    530 # endif
    531 # ifndef SUBLANG_FRENCH_LUXEMBOURG
    532 # define SUBLANG_FRENCH_LUXEMBOURG 0x05
    533 # endif
    534 # ifndef SUBLANG_FRENCH_MONACO
    535 # define SUBLANG_FRENCH_MONACO 0x06
    536 # endif
    537 # ifndef SUBLANG_FRENCH_WESTINDIES
    538 # define SUBLANG_FRENCH_WESTINDIES 0x07
    539 # endif
    540 # ifndef SUBLANG_FRENCH_REUNION
    541 # define SUBLANG_FRENCH_REUNION 0x08
    542 # endif
    543 # ifndef SUBLANG_FRENCH_CONGO
    544 # define SUBLANG_FRENCH_CONGO 0x09
    545 # endif
    546 # ifndef SUBLANG_FRENCH_SENEGAL
    547 # define SUBLANG_FRENCH_SENEGAL 0x0a
    548 # endif
    549 # ifndef SUBLANG_FRENCH_CAMEROON
    550 # define SUBLANG_FRENCH_CAMEROON 0x0b
    551 # endif
    552 # ifndef SUBLANG_FRENCH_COTEDIVOIRE
    553 # define SUBLANG_FRENCH_COTEDIVOIRE 0x0c
    554 # endif
    555 # ifndef SUBLANG_FRENCH_MALI
    556 # define SUBLANG_FRENCH_MALI 0x0d
    557 # endif
    558 # ifndef SUBLANG_FRENCH_MOROCCO
    559 # define SUBLANG_FRENCH_MOROCCO 0x0e
    560 # endif
    561 # ifndef SUBLANG_FRENCH_HAITI
    562 # define SUBLANG_FRENCH_HAITI 0x0f
    563 # endif
    564 # ifndef SUBLANG_GERMAN_LUXEMBOURG
    565 # define SUBLANG_GERMAN_LUXEMBOURG 0x04
    566 # endif
    567 # ifndef SUBLANG_GERMAN_LIECHTENSTEIN
    568 # define SUBLANG_GERMAN_LIECHTENSTEIN 0x05
    569 # endif
    570 # ifndef SUBLANG_KASHMIRI_INDIA
    571 # define SUBLANG_KASHMIRI_INDIA 0x02
    572 # endif
    573 # ifndef SUBLANG_MALAY_MALAYSIA
    574 # define SUBLANG_MALAY_MALAYSIA 0x01
    575 # endif
    576 # ifndef SUBLANG_MALAY_BRUNEI_DARUSSALAM
    577 # define SUBLANG_MALAY_BRUNEI_DARUSSALAM 0x02
    578 # endif
    579 # ifndef SUBLANG_NEPALI_INDIA
    580 # define SUBLANG_NEPALI_INDIA 0x02
    581 # endif
    582 # ifndef SUBLANG_PUNJABI_INDIA
    583 # define SUBLANG_PUNJABI_INDIA 0x00
    584 # endif
    585 # ifndef SUBLANG_PUNJABI_PAKISTAN
    586 # define SUBLANG_PUNJABI_PAKISTAN 0x01
    587 # endif
    588 # ifndef SUBLANG_ROMANIAN_ROMANIA
    589 # define SUBLANG_ROMANIAN_ROMANIA 0x00
    590 # endif
    591 # ifndef SUBLANG_ROMANIAN_MOLDOVA
    592 # define SUBLANG_ROMANIAN_MOLDOVA 0x01
    593 # endif
    594 # ifndef SUBLANG_SERBIAN_LATIN
    595 # define SUBLANG_SERBIAN_LATIN 0x02
    596 # endif
    597 # ifndef SUBLANG_SERBIAN_CYRILLIC
    598 # define SUBLANG_SERBIAN_CYRILLIC 0x03
    599 # endif
    600 # ifndef SUBLANG_SINDHI_INDIA
    601 # define SUBLANG_SINDHI_INDIA 0x00
    602 # endif
    603 # ifndef SUBLANG_SINDHI_PAKISTAN
    604 # define SUBLANG_SINDHI_PAKISTAN 0x01
    605 # endif
    606 # ifndef SUBLANG_SPANISH_GUATEMALA
    607 # define SUBLANG_SPANISH_GUATEMALA 0x04
    608 # endif
    609 # ifndef SUBLANG_SPANISH_COSTA_RICA
    610 # define SUBLANG_SPANISH_COSTA_RICA 0x05
    611 # endif
    612 # ifndef SUBLANG_SPANISH_PANAMA
    613 # define SUBLANG_SPANISH_PANAMA 0x06
    614 # endif
    615 # ifndef SUBLANG_SPANISH_DOMINICAN_REPUBLIC
    616 # define SUBLANG_SPANISH_DOMINICAN_REPUBLIC 0x07
    617 # endif
    618 # ifndef SUBLANG_SPANISH_VENEZUELA
    619 # define SUBLANG_SPANISH_VENEZUELA 0x08
    620 # endif
    621 # ifndef SUBLANG_SPANISH_COLOMBIA
    622 # define SUBLANG_SPANISH_COLOMBIA 0x09
    623 # endif
    624 # ifndef SUBLANG_SPANISH_PERU
    625 # define SUBLANG_SPANISH_PERU 0x0a
    626 # endif
    627 # ifndef SUBLANG_SPANISH_ARGENTINA
    628 # define SUBLANG_SPANISH_ARGENTINA 0x0b
    629 # endif
    630 # ifndef SUBLANG_SPANISH_ECUADOR
    631 # define SUBLANG_SPANISH_ECUADOR 0x0c
    632 # endif
    633 # ifndef SUBLANG_SPANISH_CHILE
    634 # define SUBLANG_SPANISH_CHILE 0x0d
    635 # endif
    636 # ifndef SUBLANG_SPANISH_URUGUAY
    637 # define SUBLANG_SPANISH_URUGUAY 0x0e
    638 # endif
    639 # ifndef SUBLANG_SPANISH_PARAGUAY
    640 # define SUBLANG_SPANISH_PARAGUAY 0x0f
    641 # endif
    642 # ifndef SUBLANG_SPANISH_BOLIVIA
    643 # define SUBLANG_SPANISH_BOLIVIA 0x10
    644 # endif
    645 # ifndef SUBLANG_SPANISH_EL_SALVADOR
    646 # define SUBLANG_SPANISH_EL_SALVADOR 0x11
    647 # endif
    648 # ifndef SUBLANG_SPANISH_HONDURAS
    649 # define SUBLANG_SPANISH_HONDURAS 0x12
    650 # endif
    651 # ifndef SUBLANG_SPANISH_NICARAGUA
    652 # define SUBLANG_SPANISH_NICARAGUA 0x13
    653 # endif
    654 # ifndef SUBLANG_SPANISH_PUERTO_RICO
    655 # define SUBLANG_SPANISH_PUERTO_RICO 0x14
    656 # endif
    657 # ifndef SUBLANG_SWEDISH_FINLAND
    658 # define SUBLANG_SWEDISH_FINLAND 0x02
    659 # endif
    660 # ifndef SUBLANG_TAMAZIGHT_ARABIC
    661 # define SUBLANG_TAMAZIGHT_ARABIC 0x01
    662 # endif
    663 # ifndef SUBLANG_TAMAZIGHT_LATIN
    664 # define SUBLANG_TAMAZIGHT_LATIN 0x02
    665 # endif
    666 # ifndef SUBLANG_TIGRINYA_ETHIOPIA
    667 # define SUBLANG_TIGRINYA_ETHIOPIA 0x00
    668 # endif
    669 # ifndef SUBLANG_TIGRINYA_ERITREA
    670 # define SUBLANG_TIGRINYA_ERITREA 0x01
    671 # endif
    672 # ifndef SUBLANG_URDU_PAKISTAN
    673 # define SUBLANG_URDU_PAKISTAN 0x01
    674 # endif
    675 # ifndef SUBLANG_URDU_INDIA
    676 # define SUBLANG_URDU_INDIA 0x02
    677 # endif
    678 # ifndef SUBLANG_UZBEK_LATIN
    679 # define SUBLANG_UZBEK_LATIN 0x01
    680 # endif
    681 # ifndef SUBLANG_UZBEK_CYRILLIC
    682 # define SUBLANG_UZBEK_CYRILLIC 0x02
    683 # endif
    684 #endif
    685 
    686 /* XPG3 defines the result of 'setlocale (category, NULL)' as:
    687    "Directs 'setlocale()' to query 'category' and return the current
    688     setting of 'local'."
    689    However it does not specify the exact format.  Neither do SUSV2 and
    690    ISO C 99.  So we can use this feature only on selected systems (e.g.
    691    those using GNU C Library).  */
    692 #if defined _LIBC || (defined __GNU_LIBRARY__ && __GNU_LIBRARY__ >= 2)
    693 # define HAVE_LOCALE_NULL
    694 #endif
    695 
    696 /* Determine the current locale's name, and canonicalize it into XPG syntax
    697      language[_territory[.codeset]][@modifier]
    698    The codeset part in the result is not reliable; the locale_charset()
    699    should be used for codeset information instead.
    700    The result must not be freed; it is statically allocated.  */
    701 
    702 const char *
    703 _nl_locale_name (int category, const char *categoryname)
    704 {
    705   const char *retval;
    706 
    707 #ifndef WIN32
    708 
    709   /* Use the POSIX methods of looking to 'LC_ALL', 'LC_xxx', and 'LANG'.
    710      On some systems this can be done by the 'setlocale' function itself.  */
    711 # if defined HAVE_SETLOCALE && defined HAVE_LC_MESSAGES && defined HAVE_LOCALE_NULL
    712   retval = setlocale (category, NULL);
    713 # else
    714   /* Setting of LC_ALL overwrites all other.  */
    715   retval = getenv ("LC_ALL");
    716   if (retval == NULL || retval[0] == '\0')
    717     {
    718       /* Next comes the name of the desired category.  */
    719       retval = getenv (categoryname);
    720       if (retval == NULL || retval[0] == '\0')
    721 	{
    722 	  /* Last possibility is the LANG environment variable.  */
    723 	  retval = getenv ("LANG");
    724 	  if (retval == NULL || retval[0] == '\0')
    725 	    /* We use C as the default domain.  POSIX says this is
    726 	       implementation defined.  */
    727 	    retval = "C";
    728 	}
    729     }
    730 # endif
    731 
    732   return retval;
    733 
    734 #else /* WIN32 */
    735 
    736   /* Return an XPG style locale name language[_territory][@modifier].
    737      Don't even bother determining the codeset; it's not useful in this
    738      context, because message catalogs are not specific to a single
    739      codeset.  */
    740 
    741   LCID lcid;
    742   LANGID langid;
    743   int primary, sub;
    744 
    745   /* Let the user override the system settings through environment
    746      variables, as on POSIX systems.  */
    747   retval = getenv ("LC_ALL");
    748   if (retval != NULL && retval[0] != '\0')
    749     return retval;
    750   retval = getenv (categoryname);
    751   if (retval != NULL && retval[0] != '\0')
    752     return retval;
    753   retval = getenv ("LANG");
    754   if (retval != NULL && retval[0] != '\0')
    755     return retval;
    756 
    757   /* Use native Win32 API locale ID.  */
    758   lcid = GetThreadLocale ();
    759 
    760   /* Strip off the sorting rules, keep only the language part.  */
    761   langid = LANGIDFROMLCID (lcid);
    762 
    763   /* Split into language and territory part.  */
    764   primary = PRIMARYLANGID (langid);
    765   sub = SUBLANGID (langid);
    766 
    767   /* Dispatch on language.
    768      See also http://www.unicode.org/unicode/onlinedat/languages.html .
    769      For details about languages, see http://www.ethnologue.com/ .  */
    770   switch (primary)
    771     {
    772     case LANG_AFRIKAANS: return "af_ZA";
    773     case LANG_ALBANIAN: return "sq_AL";
    774     case LANG_AMHARIC: return "am_ET";
    775     case LANG_ARABIC:
    776       switch (sub)
    777 	{
    778 	case SUBLANG_ARABIC_SAUDI_ARABIA: return "ar_SA";
    779 	case SUBLANG_ARABIC_IRAQ: return "ar_IQ";
    780 	case SUBLANG_ARABIC_EGYPT: return "ar_EG";
    781 	case SUBLANG_ARABIC_LIBYA: return "ar_LY";
    782 	case SUBLANG_ARABIC_ALGERIA: return "ar_DZ";
    783 	case SUBLANG_ARABIC_MOROCCO: return "ar_MA";
    784 	case SUBLANG_ARABIC_TUNISIA: return "ar_TN";
    785 	case SUBLANG_ARABIC_OMAN: return "ar_OM";
    786 	case SUBLANG_ARABIC_YEMEN: return "ar_YE";
    787 	case SUBLANG_ARABIC_SYRIA: return "ar_SY";
    788 	case SUBLANG_ARABIC_JORDAN: return "ar_JO";
    789 	case SUBLANG_ARABIC_LEBANON: return "ar_LB";
    790 	case SUBLANG_ARABIC_KUWAIT: return "ar_KW";
    791 	case SUBLANG_ARABIC_UAE: return "ar_AE";
    792 	case SUBLANG_ARABIC_BAHRAIN: return "ar_BH";
    793 	case SUBLANG_ARABIC_QATAR: return "ar_QA";
    794 	}
    795       return "ar";
    796     case LANG_ARMENIAN: return "hy_AM";
    797     case LANG_ASSAMESE: return "as_IN";
    798     case LANG_AZERI:
    799       switch (sub)
    800 	{
    801 	/* FIXME: Adjust this when Azerbaijani locales appear on Unix.  */
    802 	case SUBLANG_AZERI_LATIN: return "az_AZ@latin";
    803 	case SUBLANG_AZERI_CYRILLIC: return "az_AZ@cyrillic";
    804 	}
    805       return "az";
    806     case LANG_BASQUE:
    807       return "eu"; /* Ambiguous: could be "eu_ES" or "eu_FR".  */
    808     case LANG_BELARUSIAN: return "be_BY";
    809     case LANG_BENGALI:
    810       switch (sub)
    811 	{
    812 	case SUBLANG_BENGALI_INDIA: return "bn_IN";
    813 	case SUBLANG_BENGALI_BANGLADESH: return "bn_BD";
    814 	}
    815       return "bn";
    816     case LANG_BULGARIAN: return "bg_BG";
    817     case LANG_BURMESE: return "my_MM";
    818     case LANG_CAMBODIAN: return "km_KH";
    819     case LANG_CATALAN: return "ca_ES";
    820     case LANG_CHEROKEE: return "chr_US";
    821     case LANG_CHINESE:
    822       switch (sub)
    823 	{
    824 	case SUBLANG_CHINESE_TRADITIONAL: return "zh_TW";
    825 	case SUBLANG_CHINESE_SIMPLIFIED: return "zh_CN";
    826 	case SUBLANG_CHINESE_HONGKONG: return "zh_HK";
    827 	case SUBLANG_CHINESE_SINGAPORE: return "zh_SG";
    828 	case SUBLANG_CHINESE_MACAU: return "zh_MO";
    829 	}
    830       return "zh";
    831     case LANG_CROATIAN:		/* LANG_CROATIAN == LANG_SERBIAN
    832 				 * What used to be called Serbo-Croatian
    833 				 * should really now be two separate
    834 				 * languages because of political reasons.
    835 				 * (Says tml, who knows nothing about Serbian
    836 				 * or Croatian.)
    837 				 * (I can feel those flames coming already.)
    838 				 */
    839       switch (sub)
    840 	{
    841 	case SUBLANG_DEFAULT: return "hr_HR";
    842 	case SUBLANG_SERBIAN_LATIN: return "sr_CS";
    843 	case SUBLANG_SERBIAN_CYRILLIC: return "sr_CS@cyrillic";
    844 	}
    845       return "hr";
    846     case LANG_CZECH: return "cs_CZ";
    847     case LANG_DANISH: return "da_DK";
    848     case LANG_DIVEHI: return "dv_MV";
    849     case LANG_DUTCH:
    850       switch (sub)
    851 	{
    852 	case SUBLANG_DUTCH: return "nl_NL";
    853 	case SUBLANG_DUTCH_BELGIAN: /* FLEMISH, VLAAMS */ return "nl_BE";
    854 	}
    855       return "nl";
    856     case LANG_EDO: return "bin_NG";
    857     case LANG_ENGLISH:
    858       switch (sub)
    859 	{
    860 	/* SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. Heh. I thought
    861 	 * English was the language spoken in England.
    862 	 * Oh well.
    863 	 */
    864 	case SUBLANG_ENGLISH_US: return "en_US";
    865 	case SUBLANG_ENGLISH_UK: return "en_GB";
    866 	case SUBLANG_ENGLISH_AUS: return "en_AU";
    867 	case SUBLANG_ENGLISH_CAN: return "en_CA";
    868 	case SUBLANG_ENGLISH_NZ: return "en_NZ";
    869 	case SUBLANG_ENGLISH_EIRE: return "en_IE";
    870 	case SUBLANG_ENGLISH_SOUTH_AFRICA: return "en_ZA";
    871 	case SUBLANG_ENGLISH_JAMAICA: return "en_JM";
    872 	case SUBLANG_ENGLISH_CARIBBEAN: return "en_GD"; /* Grenada? */
    873 	case SUBLANG_ENGLISH_BELIZE: return "en_BZ";
    874 	case SUBLANG_ENGLISH_TRINIDAD: return "en_TT";
    875 	case SUBLANG_ENGLISH_ZIMBABWE: return "en_ZW";
    876 	case SUBLANG_ENGLISH_PHILIPPINES: return "en_PH";
    877 	case SUBLANG_ENGLISH_INDONESIA: return "en_ID";
    878 	case SUBLANG_ENGLISH_HONGKONG: return "en_HK";
    879 	case SUBLANG_ENGLISH_INDIA: return "en_IN";
    880 	case SUBLANG_ENGLISH_MALAYSIA: return "en_MY";
    881 	case SUBLANG_ENGLISH_SINGAPORE: return "en_SG";
    882 	}
    883       return "en";
    884     case LANG_ESTONIAN: return "et_EE";
    885     case LANG_FAEROESE: return "fo_FO";
    886     case LANG_FARSI: return "fa_IR";
    887     case LANG_FINNISH: return "fi_FI";
    888     case LANG_FRENCH:
    889       switch (sub)
    890 	{
    891 	case SUBLANG_FRENCH: return "fr_FR";
    892 	case SUBLANG_FRENCH_BELGIAN: /* WALLOON */ return "fr_BE";
    893 	case SUBLANG_FRENCH_CANADIAN: return "fr_CA";
    894 	case SUBLANG_FRENCH_SWISS: return "fr_CH";
    895 	case SUBLANG_FRENCH_LUXEMBOURG: return "fr_LU";
    896 	case SUBLANG_FRENCH_MONACO: return "fr_MC";
    897 	case SUBLANG_FRENCH_WESTINDIES: return "fr"; /* Caribbean? */
    898 	case SUBLANG_FRENCH_REUNION: return "fr_RE";
    899 	case SUBLANG_FRENCH_CONGO: return "fr_CG";
    900 	case SUBLANG_FRENCH_SENEGAL: return "fr_SN";
    901 	case SUBLANG_FRENCH_CAMEROON: return "fr_CM";
    902 	case SUBLANG_FRENCH_COTEDIVOIRE: return "fr_CI";
    903 	case SUBLANG_FRENCH_MALI: return "fr_ML";
    904 	case SUBLANG_FRENCH_MOROCCO: return "fr_MA";
    905 	case SUBLANG_FRENCH_HAITI: return "fr_HT";
    906 	}
    907       return "fr";
    908     case LANG_FRISIAN: return "fy_NL";
    909     case LANG_FULFULDE:
    910       /* Spoken in Nigeria, Guinea, Senegal, Mali, Niger, Cameroon, Benin. */
    911       return "ff_NG";
    912     case LANG_GAELIC:
    913       switch (sub)
    914 	{
    915 	case 0x01: /* SCOTTISH */ return "gd_GB";
    916 	case 0x02: /* IRISH */ return "ga_IE";
    917 	}
    918       return "C";
    919     case LANG_GALICIAN: return "gl_ES";
    920     case LANG_GEORGIAN: return "ka_GE";
    921     case LANG_GERMAN:
    922       switch (sub)
    923 	{
    924 	case SUBLANG_GERMAN: return "de_DE";
    925 	case SUBLANG_GERMAN_SWISS: return "de_CH";
    926 	case SUBLANG_GERMAN_AUSTRIAN: return "de_AT";
    927 	case SUBLANG_GERMAN_LUXEMBOURG: return "de_LU";
    928 	case SUBLANG_GERMAN_LIECHTENSTEIN: return "de_LI";
    929 	}
    930       return "de";
    931     case LANG_GREEK: return "el_GR";
    932     case LANG_GUARANI: return "gn_PY";
    933     case LANG_GUJARATI: return "gu_IN";
    934     case LANG_HAUSA: return "ha_NG";
    935     case LANG_HAWAIIAN:
    936       /* FIXME: Do they mean Hawaiian ("haw_US", 1000 speakers)
    937 	 or Hawaii Creole English ("cpe_US", 600000 speakers)?  */
    938       return "cpe_US";
    939     case LANG_HEBREW: return "he_IL";
    940     case LANG_HINDI: return "hi_IN";
    941     case LANG_HUNGARIAN: return "hu_HU";
    942     case LANG_IBIBIO: return "nic_NG";
    943     case LANG_ICELANDIC: return "is_IS";
    944     case LANG_IGBO: return "ig_NG";
    945     case LANG_INDONESIAN: return "id_ID";
    946     case LANG_INUKTITUT: return "iu_CA";
    947     case LANG_ITALIAN:
    948       switch (sub)
    949 	{
    950 	case SUBLANG_ITALIAN: return "it_IT";
    951 	case SUBLANG_ITALIAN_SWISS: return "it_CH";
    952 	}
    953       return "it";
    954     case LANG_JAPANESE: return "ja_JP";
    955     case LANG_KANNADA: return "kn_IN";
    956     case LANG_KANURI: return "kr_NG";
    957     case LANG_KASHMIRI:
    958       switch (sub)
    959 	{
    960 	case SUBLANG_DEFAULT: return "ks_PK";
    961 	case SUBLANG_KASHMIRI_INDIA: return "ks_IN";
    962 	}
    963       return "ks";
    964     case LANG_KAZAK: return "kk_KZ";
    965     case LANG_KONKANI:
    966       /* FIXME: Adjust this when such locales appear on Unix.  */
    967       return "kok_IN";
    968     case LANG_KOREAN: return "ko_KR";
    969     case LANG_KYRGYZ: return "ky_KG";
    970     case LANG_LAO: return "lo_LA";
    971     case LANG_LATIN: return "la_VA";
    972     case LANG_LATVIAN: return "lv_LV";
    973     case LANG_LITHUANIAN: return "lt_LT";
    974     case LANG_MACEDONIAN: return "mk_MK";
    975     case LANG_MALAY:
    976       switch (sub)
    977 	{
    978 	case SUBLANG_MALAY_MALAYSIA: return "ms_MY";
    979 	case SUBLANG_MALAY_BRUNEI_DARUSSALAM: return "ms_BN";
    980 	}
    981       return "ms";
    982     case LANG_MALAYALAM: return "ml_IN";
    983     case LANG_MALTESE: return "mt_MT";
    984     case LANG_MANIPURI:
    985       /* FIXME: Adjust this when such locales appear on Unix.  */
    986       return "mni_IN";
    987     case LANG_MARATHI: return "mr_IN";
    988     case LANG_MONGOLIAN:
    989       return "mn"; /* Ambiguous: could be "mn_CN" or "mn_MN".  */
    990     case LANG_NEPALI:
    991       switch (sub)
    992 	{
    993 	case SUBLANG_DEFAULT: return "ne_NP";
    994 	case SUBLANG_NEPALI_INDIA: return "ne_IN";
    995 	}
    996       return "ne";
    997     case LANG_NORWEGIAN:
    998       switch (sub)
    999 	{
   1000 	case SUBLANG_NORWEGIAN_BOKMAL: return "no_NO";
   1001 	case SUBLANG_NORWEGIAN_NYNORSK: return "nn_NO";
   1002 	}
   1003       return "no";
   1004     case LANG_ORIYA: return "or_IN";
   1005     case LANG_OROMO: return "om_ET";
   1006     case LANG_PAPIAMENTU: return "pap_AN";
   1007     case LANG_PASHTO:
   1008       return "ps"; /* Ambiguous: could be "ps_PK" or "ps_AF".  */
   1009     case LANG_POLISH: return "pl_PL";
   1010     case LANG_PORTUGUESE:
   1011       switch (sub)
   1012 	{
   1013 	case SUBLANG_PORTUGUESE: return "pt_PT";
   1014 	/* Hmm. SUBLANG_PORTUGUESE_BRAZILIAN == SUBLANG_DEFAULT.
   1015 	   Same phenomenon as SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. */
   1016 	case SUBLANG_PORTUGUESE_BRAZILIAN: return "pt_BR";
   1017 	}
   1018       return "pt";
   1019     case LANG_PUNJABI:
   1020       switch (sub)
   1021 	{
   1022 	case SUBLANG_PUNJABI_INDIA: return "pa_IN"; /* Gurmukhi script */
   1023 	case SUBLANG_PUNJABI_PAKISTAN: return "pa_PK"; /* Arabic script */
   1024 	}
   1025       return "pa";
   1026     case LANG_RHAETO_ROMANCE: return "rm_CH";
   1027     case LANG_ROMANIAN:
   1028       switch (sub)
   1029 	{
   1030 	case SUBLANG_ROMANIAN_ROMANIA: return "ro_RO";
   1031 	case SUBLANG_ROMANIAN_MOLDOVA: return "ro_MD";
   1032 	}
   1033       return "ro";
   1034     case LANG_RUSSIAN:
   1035       return "ru"; /* Ambiguous: could be "ru_RU" or "ru_UA" or "ru_MD".  */
   1036     case LANG_SAAMI: /* actually Northern Sami */ return "se_NO";
   1037     case LANG_SANSKRIT: return "sa_IN";
   1038     case LANG_SINDHI:
   1039       switch (sub)
   1040 	{
   1041 	case SUBLANG_SINDHI_INDIA: return "sd_IN";
   1042 	case SUBLANG_SINDHI_PAKISTAN: return "sd_PK";
   1043 	}
   1044       return "sd";
   1045     case LANG_SINHALESE: return "si_LK";
   1046     case LANG_SLOVAK: return "sk_SK";
   1047     case LANG_SLOVENIAN: return "sl_SI";
   1048     case LANG_SOMALI: return "so_SO";
   1049     case LANG_SORBIAN:
   1050       /* FIXME: Adjust this when such locales appear on Unix.  */
   1051       return "wen_DE";
   1052     case LANG_SPANISH:
   1053       switch (sub)
   1054 	{
   1055 	case SUBLANG_SPANISH: return "es_ES";
   1056 	case SUBLANG_SPANISH_MEXICAN: return "es_MX";
   1057 	case SUBLANG_SPANISH_MODERN:
   1058 	  return "es_ES@modern";	/* not seen on Unix */
   1059 	case SUBLANG_SPANISH_GUATEMALA: return "es_GT";
   1060 	case SUBLANG_SPANISH_COSTA_RICA: return "es_CR";
   1061 	case SUBLANG_SPANISH_PANAMA: return "es_PA";
   1062 	case SUBLANG_SPANISH_DOMINICAN_REPUBLIC: return "es_DO";
   1063 	case SUBLANG_SPANISH_VENEZUELA: return "es_VE";
   1064 	case SUBLANG_SPANISH_COLOMBIA: return "es_CO";
   1065 	case SUBLANG_SPANISH_PERU: return "es_PE";
   1066 	case SUBLANG_SPANISH_ARGENTINA: return "es_AR";
   1067 	case SUBLANG_SPANISH_ECUADOR: return "es_EC";
   1068 	case SUBLANG_SPANISH_CHILE: return "es_CL";
   1069 	case SUBLANG_SPANISH_URUGUAY: return "es_UY";
   1070 	case SUBLANG_SPANISH_PARAGUAY: return "es_PY";
   1071 	case SUBLANG_SPANISH_BOLIVIA: return "es_BO";
   1072 	case SUBLANG_SPANISH_EL_SALVADOR: return "es_SV";
   1073 	case SUBLANG_SPANISH_HONDURAS: return "es_HN";
   1074 	case SUBLANG_SPANISH_NICARAGUA: return "es_NI";
   1075 	case SUBLANG_SPANISH_PUERTO_RICO: return "es_PR";
   1076 	}
   1077       return "es";
   1078     case LANG_SUTU: return "bnt_TZ"; /* or "st_LS" or "nso_ZA"? */
   1079     case LANG_SWAHILI: return "sw_KE";
   1080     case LANG_SWEDISH:
   1081       switch (sub)
   1082 	{
   1083 	case SUBLANG_DEFAULT: return "sv_SE";
   1084 	case SUBLANG_SWEDISH_FINLAND: return "sv_FI";
   1085 	}
   1086       return "sv";
   1087     case LANG_SYRIAC: return "syr_TR"; /* An extinct language.  */
   1088     case LANG_TAGALOG: return "tl_PH";
   1089     case LANG_TAJIK: return "tg_TJ";
   1090     case LANG_TAMAZIGHT:
   1091       switch (sub)
   1092 	{
   1093 	/* FIXME: Adjust this when Tamazight locales appear on Unix.  */
   1094 	case SUBLANG_TAMAZIGHT_ARABIC: return "ber_MA@arabic";
   1095 	case SUBLANG_TAMAZIGHT_LATIN: return "ber_MA@latin";
   1096 	}
   1097       return "ber_MA";
   1098     case LANG_TAMIL:
   1099       return "ta"; /* Ambiguous: could be "ta_IN" or "ta_LK" or "ta_SG".  */
   1100     case LANG_TATAR: return "tt_RU";
   1101     case LANG_TELUGU: return "te_IN";
   1102     case LANG_THAI: return "th_TH";
   1103     case LANG_TIBETAN: return "bo_CN";
   1104     case LANG_TIGRINYA:
   1105       switch (sub)
   1106 	{
   1107 	case SUBLANG_TIGRINYA_ETHIOPIA: return "ti_ET";
   1108 	case SUBLANG_TIGRINYA_ERITREA: return "ti_ER";
   1109 	}
   1110       return "ti";
   1111     case LANG_TSONGA: return "ts_ZA";
   1112     case LANG_TSWANA: return "tn_BW";
   1113     case LANG_TURKISH: return "tr_TR";
   1114     case LANG_TURKMEN: return "tk_TM";
   1115     case LANG_UKRAINIAN: return "uk_UA";
   1116     case LANG_URDU:
   1117       switch (sub)
   1118 	{
   1119 	case SUBLANG_URDU_PAKISTAN: return "ur_PK";
   1120 	case SUBLANG_URDU_INDIA: return "ur_IN";
   1121 	}
   1122       return "ur";
   1123     case LANG_UZBEK:
   1124       switch (sub)
   1125 	{
   1126 	case SUBLANG_UZBEK_LATIN: return "uz_UZ";
   1127 	case SUBLANG_UZBEK_CYRILLIC: return "uz_UZ@cyrillic";
   1128 	}
   1129       return "uz";
   1130     case LANG_VENDA: return "ve_ZA";
   1131     case LANG_VIETNAMESE: return "vi_VN";
   1132     case LANG_WELSH: return "cy_GB";
   1133     case LANG_XHOSA: return "xh_ZA";
   1134     case LANG_YI: return "sit_CN";
   1135     case LANG_YIDDISH: return "yi_IL";
   1136     case LANG_YORUBA: return "yo_NG";
   1137     case LANG_ZULU: return "zu_ZA";
   1138     default: return "C";
   1139     }
   1140 
   1141 #endif
   1142 }
   1143