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