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