(start_scd): Do not register an event signal if we
[gnupg.git] / intl / localename.c
1 /* Determine the current selected locale.
2    Copyright (C) 1995-1999, 2000-2002 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 /* Mingw headers don't have latest language and sublanguage codes.  */
38 # ifndef LANG_AFRIKAANS
39 # define LANG_AFRIKAANS 0x36
40 # endif
41 # ifndef LANG_ALBANIAN
42 # define LANG_ALBANIAN 0x1c
43 # endif
44 # ifndef LANG_ARABIC
45 # define LANG_ARABIC 0x01
46 # endif
47 # ifndef LANG_ARMENIAN
48 # define LANG_ARMENIAN 0x2b
49 # endif
50 # ifndef LANG_ASSAMESE
51 # define LANG_ASSAMESE 0x4d
52 # endif
53 # ifndef LANG_AZERI
54 # define LANG_AZERI 0x2c
55 # endif
56 # ifndef LANG_BASQUE
57 # define LANG_BASQUE 0x2d
58 # endif
59 # ifndef LANG_BELARUSIAN
60 # define LANG_BELARUSIAN 0x23
61 # endif
62 # ifndef LANG_BENGALI
63 # define LANG_BENGALI 0x45
64 # endif
65 # ifndef LANG_CATALAN
66 # define LANG_CATALAN 0x03
67 # endif
68 # ifndef LANG_DIVEHI
69 # define LANG_DIVEHI 0x65
70 # endif
71 # ifndef LANG_ESTONIAN
72 # define LANG_ESTONIAN 0x25
73 # endif
74 # ifndef LANG_FAEROESE
75 # define LANG_FAEROESE 0x38
76 # endif
77 # ifndef LANG_FARSI
78 # define LANG_FARSI 0x29
79 # endif
80 # ifndef LANG_GALICIAN
81 # define LANG_GALICIAN 0x56
82 # endif
83 # ifndef LANG_GEORGIAN
84 # define LANG_GEORGIAN 0x37
85 # endif
86 # ifndef LANG_GUJARATI
87 # define LANG_GUJARATI 0x47
88 # endif
89 # ifndef LANG_HEBREW
90 # define LANG_HEBREW 0x0d
91 # endif
92 # ifndef LANG_HINDI
93 # define LANG_HINDI 0x39
94 # endif
95 # ifndef LANG_INDONESIAN
96 # define LANG_INDONESIAN 0x21
97 # endif
98 # ifndef LANG_KANNADA
99 # define LANG_KANNADA 0x4b
100 # endif
101 # ifndef LANG_KASHMIRI
102 # define LANG_KASHMIRI 0x60
103 # endif
104 # ifndef LANG_KAZAK
105 # define LANG_KAZAK 0x3f
106 # endif
107 # ifndef LANG_KONKANI
108 # define LANG_KONKANI 0x57
109 # endif
110 # ifndef LANG_KYRGYZ
111 # define LANG_KYRGYZ 0x40
112 # endif
113 # ifndef LANG_LATVIAN
114 # define LANG_LATVIAN 0x26
115 # endif
116 # ifndef LANG_LITHUANIAN
117 # define LANG_LITHUANIAN 0x27
118 # endif
119 # ifndef LANG_MACEDONIAN
120 # define LANG_MACEDONIAN 0x2f
121 # endif
122 # ifndef LANG_MALAY
123 # define LANG_MALAY 0x3e
124 # endif
125 # ifndef LANG_MALAYALAM
126 # define LANG_MALAYALAM 0x4c
127 # endif
128 # ifndef LANG_MANIPURI
129 # define LANG_MANIPURI 0x58
130 # endif
131 # ifndef LANG_MARATHI
132 # define LANG_MARATHI 0x4e
133 # endif
134 # ifndef LANG_MONGOLIAN
135 # define LANG_MONGOLIAN 0x50
136 # endif
137 # ifndef LANG_NEPALI
138 # define LANG_NEPALI 0x61
139 # endif
140 # ifndef LANG_ORIYA
141 # define LANG_ORIYA 0x48
142 # endif
143 # ifndef LANG_PUNJABI
144 # define LANG_PUNJABI 0x46
145 # endif
146 # ifndef LANG_SANSKRIT
147 # define LANG_SANSKRIT 0x4f
148 # endif
149 # ifndef LANG_SERBIAN
150 # define LANG_SERBIAN 0x1a
151 # endif
152 # ifndef LANG_SINDHI
153 # define LANG_SINDHI 0x59
154 # endif
155 # ifndef LANG_SLOVAK
156 # define LANG_SLOVAK 0x1b
157 # endif
158 # ifndef LANG_SORBIAN
159 # define LANG_SORBIAN 0x2e
160 # endif
161 # ifndef LANG_SWAHILI
162 # define LANG_SWAHILI 0x41
163 # endif
164 # ifndef LANG_SYRIAC
165 # define LANG_SYRIAC 0x5a
166 # endif
167 # ifndef LANG_TAMIL
168 # define LANG_TAMIL 0x49
169 # endif
170 # ifndef LANG_TATAR
171 # define LANG_TATAR 0x44
172 # endif
173 # ifndef LANG_TELUGU
174 # define LANG_TELUGU 0x4a
175 # endif
176 # ifndef LANG_THAI
177 # define LANG_THAI 0x1e
178 # endif
179 # ifndef LANG_UKRAINIAN
180 # define LANG_UKRAINIAN 0x22
181 # endif
182 # ifndef LANG_URDU
183 # define LANG_URDU 0x20
184 # endif
185 # ifndef LANG_UZBEK
186 # define LANG_UZBEK 0x43
187 # endif
188 # ifndef LANG_VIETNAMESE
189 # define LANG_VIETNAMESE 0x2a
190 # endif
191 # ifndef SUBLANG_ARABIC_SAUDI_ARABIA
192 # define SUBLANG_ARABIC_SAUDI_ARABIA 0x01
193 # endif
194 # ifndef SUBLANG_ARABIC_IRAQ
195 # define SUBLANG_ARABIC_IRAQ 0x02
196 # endif
197 # ifndef SUBLANG_ARABIC_EGYPT
198 # define SUBLANG_ARABIC_EGYPT 0x03
199 # endif
200 # ifndef SUBLANG_ARABIC_LIBYA
201 # define SUBLANG_ARABIC_LIBYA 0x04
202 # endif
203 # ifndef SUBLANG_ARABIC_ALGERIA
204 # define SUBLANG_ARABIC_ALGERIA 0x05
205 # endif
206 # ifndef SUBLANG_ARABIC_MOROCCO
207 # define SUBLANG_ARABIC_MOROCCO 0x06
208 # endif
209 # ifndef SUBLANG_ARABIC_TUNISIA
210 # define SUBLANG_ARABIC_TUNISIA 0x07
211 # endif
212 # ifndef SUBLANG_ARABIC_OMAN
213 # define SUBLANG_ARABIC_OMAN 0x08
214 # endif
215 # ifndef SUBLANG_ARABIC_YEMEN
216 # define SUBLANG_ARABIC_YEMEN 0x09
217 # endif
218 # ifndef SUBLANG_ARABIC_SYRIA
219 # define SUBLANG_ARABIC_SYRIA 0x0a
220 # endif
221 # ifndef SUBLANG_ARABIC_JORDAN
222 # define SUBLANG_ARABIC_JORDAN 0x0b
223 # endif
224 # ifndef SUBLANG_ARABIC_LEBANON
225 # define SUBLANG_ARABIC_LEBANON 0x0c
226 # endif
227 # ifndef SUBLANG_ARABIC_KUWAIT
228 # define SUBLANG_ARABIC_KUWAIT 0x0d
229 # endif
230 # ifndef SUBLANG_ARABIC_UAE
231 # define SUBLANG_ARABIC_UAE 0x0e
232 # endif
233 # ifndef SUBLANG_ARABIC_BAHRAIN
234 # define SUBLANG_ARABIC_BAHRAIN 0x0f
235 # endif
236 # ifndef SUBLANG_ARABIC_QATAR
237 # define SUBLANG_ARABIC_QATAR 0x10
238 # endif
239 # ifndef SUBLANG_AZERI_LATIN
240 # define SUBLANG_AZERI_LATIN 0x01
241 # endif
242 # ifndef SUBLANG_AZERI_CYRILLIC
243 # define SUBLANG_AZERI_CYRILLIC 0x02
244 # endif
245 # ifndef SUBLANG_CHINESE_MACAU
246 # define SUBLANG_CHINESE_MACAU 0x05
247 # endif
248 # ifndef SUBLANG_ENGLISH_SOUTH_AFRICA
249 # define SUBLANG_ENGLISH_SOUTH_AFRICA 0x07
250 # endif
251 # ifndef SUBLANG_ENGLISH_JAMAICA
252 # define SUBLANG_ENGLISH_JAMAICA 0x08
253 # endif
254 # ifndef SUBLANG_ENGLISH_CARIBBEAN
255 # define SUBLANG_ENGLISH_CARIBBEAN 0x09
256 # endif
257 # ifndef SUBLANG_ENGLISH_BELIZE
258 # define SUBLANG_ENGLISH_BELIZE 0x0a
259 # endif
260 # ifndef SUBLANG_ENGLISH_TRINIDAD
261 # define SUBLANG_ENGLISH_TRINIDAD 0x0b
262 # endif
263 # ifndef SUBLANG_ENGLISH_ZIMBABWE
264 # define SUBLANG_ENGLISH_ZIMBABWE 0x0c
265 # endif
266 # ifndef SUBLANG_ENGLISH_PHILIPPINES
267 # define SUBLANG_ENGLISH_PHILIPPINES 0x0d
268 # endif
269 # ifndef SUBLANG_FRENCH_LUXEMBOURG
270 # define SUBLANG_FRENCH_LUXEMBOURG 0x05
271 # endif
272 # ifndef SUBLANG_FRENCH_MONACO
273 # define SUBLANG_FRENCH_MONACO 0x06
274 # endif
275 # ifndef SUBLANG_GERMAN_LUXEMBOURG
276 # define SUBLANG_GERMAN_LUXEMBOURG 0x04
277 # endif
278 # ifndef SUBLANG_GERMAN_LIECHTENSTEIN
279 # define SUBLANG_GERMAN_LIECHTENSTEIN 0x05
280 # endif
281 # ifndef SUBLANG_KASHMIRI_INDIA
282 # define SUBLANG_KASHMIRI_INDIA 0x02
283 # endif
284 # ifndef SUBLANG_MALAY_MALAYSIA
285 # define SUBLANG_MALAY_MALAYSIA 0x01
286 # endif
287 # ifndef SUBLANG_MALAY_BRUNEI_DARUSSALAM
288 # define SUBLANG_MALAY_BRUNEI_DARUSSALAM 0x02
289 # endif
290 # ifndef SUBLANG_NEPALI_INDIA
291 # define SUBLANG_NEPALI_INDIA 0x02
292 # endif
293 # ifndef SUBLANG_SERBIAN_LATIN
294 # define SUBLANG_SERBIAN_LATIN 0x02
295 # endif
296 # ifndef SUBLANG_SERBIAN_CYRILLIC
297 # define SUBLANG_SERBIAN_CYRILLIC 0x03
298 # endif
299 # ifndef SUBLANG_SPANISH_GUATEMALA
300 # define SUBLANG_SPANISH_GUATEMALA 0x04
301 # endif
302 # ifndef SUBLANG_SPANISH_COSTA_RICA
303 # define SUBLANG_SPANISH_COSTA_RICA 0x05
304 # endif
305 # ifndef SUBLANG_SPANISH_PANAMA
306 # define SUBLANG_SPANISH_PANAMA 0x06
307 # endif
308 # ifndef SUBLANG_SPANISH_DOMINICAN_REPUBLIC
309 # define SUBLANG_SPANISH_DOMINICAN_REPUBLIC 0x07
310 # endif
311 # ifndef SUBLANG_SPANISH_VENEZUELA
312 # define SUBLANG_SPANISH_VENEZUELA 0x08
313 # endif
314 # ifndef SUBLANG_SPANISH_COLOMBIA
315 # define SUBLANG_SPANISH_COLOMBIA 0x09
316 # endif
317 # ifndef SUBLANG_SPANISH_PERU
318 # define SUBLANG_SPANISH_PERU 0x0a
319 # endif
320 # ifndef SUBLANG_SPANISH_ARGENTINA
321 # define SUBLANG_SPANISH_ARGENTINA 0x0b
322 # endif
323 # ifndef SUBLANG_SPANISH_ECUADOR
324 # define SUBLANG_SPANISH_ECUADOR 0x0c
325 # endif
326 # ifndef SUBLANG_SPANISH_CHILE
327 # define SUBLANG_SPANISH_CHILE 0x0d
328 # endif
329 # ifndef SUBLANG_SPANISH_URUGUAY
330 # define SUBLANG_SPANISH_URUGUAY 0x0e
331 # endif
332 # ifndef SUBLANG_SPANISH_PARAGUAY
333 # define SUBLANG_SPANISH_PARAGUAY 0x0f
334 # endif
335 # ifndef SUBLANG_SPANISH_BOLIVIA
336 # define SUBLANG_SPANISH_BOLIVIA 0x10
337 # endif
338 # ifndef SUBLANG_SPANISH_EL_SALVADOR
339 # define SUBLANG_SPANISH_EL_SALVADOR 0x11
340 # endif
341 # ifndef SUBLANG_SPANISH_HONDURAS
342 # define SUBLANG_SPANISH_HONDURAS 0x12
343 # endif
344 # ifndef SUBLANG_SPANISH_NICARAGUA
345 # define SUBLANG_SPANISH_NICARAGUA 0x13
346 # endif
347 # ifndef SUBLANG_SPANISH_PUERTO_RICO
348 # define SUBLANG_SPANISH_PUERTO_RICO 0x14
349 # endif
350 # ifndef SUBLANG_SWEDISH_FINLAND
351 # define SUBLANG_SWEDISH_FINLAND 0x02
352 # endif
353 # ifndef SUBLANG_URDU_PAKISTAN
354 # define SUBLANG_URDU_PAKISTAN 0x01
355 # endif
356 # ifndef SUBLANG_URDU_INDIA
357 # define SUBLANG_URDU_INDIA 0x02
358 # endif
359 # ifndef SUBLANG_UZBEK_LATIN
360 # define SUBLANG_UZBEK_LATIN 0x01
361 # endif
362 # ifndef SUBLANG_UZBEK_CYRILLIC
363 # define SUBLANG_UZBEK_CYRILLIC 0x02
364 # endif
365 #endif
366
367 /* XPG3 defines the result of 'setlocale (category, NULL)' as:
368    "Directs 'setlocale()' to query 'category' and return the current
369     setting of 'local'."
370    However it does not specify the exact format.  Neither do SUSV2 and
371    ISO C 99.  So we can use this feature only on selected systems (e.g.
372    those using GNU C Library).  */
373 #if defined _LIBC || (defined __GNU_LIBRARY__ && __GNU_LIBRARY__ >= 2)
374 # define HAVE_LOCALE_NULL
375 #endif
376
377 /* Determine the current locale's name, and canonicalize it into XPG syntax
378      language[_territory[.codeset]][@modifier]
379    The codeset part in the result is not reliable; the locale_charset()
380    should be used for codeset information instead.
381    The result must not be freed; it is statically allocated.  */
382
383 const char *
384 _nl_locale_name (category, categoryname)
385      int category;
386      const char *categoryname;
387 {
388   const char *retval;
389
390 #ifndef WIN32
391
392   /* Use the POSIX methods of looking to 'LC_ALL', 'LC_xxx', and 'LANG'.
393      On some systems this can be done by the 'setlocale' function itself.  */
394 # if defined HAVE_SETLOCALE && defined HAVE_LC_MESSAGES && defined HAVE_LOCALE_NULL
395   retval = setlocale (category, NULL);
396 # else
397   /* Setting of LC_ALL overwrites all other.  */
398   retval = getenv ("LC_ALL");
399   if (retval == NULL || retval[0] == '\0')
400     {
401       /* Next comes the name of the desired category.  */
402       retval = getenv (categoryname);
403       if (retval == NULL || retval[0] == '\0')
404         {
405           /* Last possibility is the LANG environment variable.  */
406           retval = getenv ("LANG");
407           if (retval == NULL || retval[0] == '\0')
408             /* We use C as the default domain.  POSIX says this is
409                implementation defined.  */
410             retval = "C";
411         }
412     }
413 # endif
414
415   return retval;
416
417 #else /* WIN32 */
418
419   /* Return an XPG style locale name language[_territory][@modifier].
420      Don't even bother determining the codeset; it's not useful in this
421      context, because message catalogs are not specific to a single
422      codeset.  */
423
424   LCID lcid;
425   LANGID langid;
426   int primary, sub;
427
428   /* Let the user override the system settings through environment
429      variables, as on POSIX systems.  */
430   retval = getenv ("LC_ALL");
431   if (retval != NULL && retval[0] != '\0')
432     return retval;
433   retval = getenv (categoryname);
434   if (retval != NULL && retval[0] != '\0')
435     return retval;
436   retval = getenv ("LANG");
437   if (retval != NULL && retval[0] != '\0')
438     return retval;
439
440   /* Use native Win32 API locale ID.  */
441   lcid = GetThreadLocale ();
442
443   /* Strip off the sorting rules, keep only the language part.  */
444   langid = LANGIDFROMLCID (lcid);
445
446   /* Split into language and territory part.  */
447   primary = PRIMARYLANGID (langid);
448   sub = SUBLANGID (langid);
449
450   /* Dispatch on language.
451      See also http://www.unicode.org/unicode/onlinedat/languages.html .
452      For details about languages, see http://www.ethnologue.com/ .  */
453   switch (primary)
454     {
455     case LANG_AFRIKAANS: return "af_ZA";
456     case LANG_ALBANIAN: return "sq_AL";
457     case 0x5e: /* AMHARIC */ return "am_ET";
458     case LANG_ARABIC:
459       switch (sub)
460         {
461         case SUBLANG_ARABIC_SAUDI_ARABIA: return "ar_SA";
462         case SUBLANG_ARABIC_IRAQ: return "ar_IQ";
463         case SUBLANG_ARABIC_EGYPT: return "ar_EG";
464         case SUBLANG_ARABIC_LIBYA: return "ar_LY";
465         case SUBLANG_ARABIC_ALGERIA: return "ar_DZ";
466         case SUBLANG_ARABIC_MOROCCO: return "ar_MA";
467         case SUBLANG_ARABIC_TUNISIA: return "ar_TN";
468         case SUBLANG_ARABIC_OMAN: return "ar_OM";
469         case SUBLANG_ARABIC_YEMEN: return "ar_YE";
470         case SUBLANG_ARABIC_SYRIA: return "ar_SY";
471         case SUBLANG_ARABIC_JORDAN: return "ar_JO";
472         case SUBLANG_ARABIC_LEBANON: return "ar_LB";
473         case SUBLANG_ARABIC_KUWAIT: return "ar_KW";
474         case SUBLANG_ARABIC_UAE: return "ar_AE";
475         case SUBLANG_ARABIC_BAHRAIN: return "ar_BH";
476         case SUBLANG_ARABIC_QATAR: return "ar_QA";
477         }
478       return "ar";
479     case LANG_ARMENIAN: return "hy_AM";
480     case LANG_ASSAMESE: return "as_IN";
481     case LANG_AZERI:
482       switch (sub)
483         {
484         /* FIXME: Adjust this when Azerbaijani locales appear on Unix.  */
485         case SUBLANG_AZERI_LATIN: return "az_AZ@latin";
486         case SUBLANG_AZERI_CYRILLIC: return "az_AZ@cyrillic";
487         }
488       return "az";
489     case LANG_BASQUE:
490       return "eu"; /* Ambiguous: could be "eu_ES" or "eu_FR".  */
491     case LANG_BELARUSIAN: return "be_BY";
492     case LANG_BENGALI: return "bn_IN";
493     case LANG_BULGARIAN: return "bg_BG";
494     case 0x55: /* BURMESE */ return "my_MM";
495     case 0x53: /* CAMBODIAN */ return "km_KH";
496     case LANG_CATALAN: return "ca_ES";
497     case 0x5c: /* CHEROKEE */ return "chr_US";
498     case LANG_CHINESE:
499       switch (sub)
500         {
501         case SUBLANG_CHINESE_TRADITIONAL: return "zh_TW";
502         case SUBLANG_CHINESE_SIMPLIFIED: return "zh_CN";
503         case SUBLANG_CHINESE_HONGKONG: return "zh_HK";
504         case SUBLANG_CHINESE_SINGAPORE: return "zh_SG";
505         case SUBLANG_CHINESE_MACAU: return "zh_MO";
506         }
507       return "zh";
508     case LANG_CROATIAN:         /* LANG_CROATIAN == LANG_SERBIAN
509                                  * What used to be called Serbo-Croatian
510                                  * should really now be two separate
511                                  * languages because of political reasons.
512                                  * (Says tml, who knows nothing about Serbian
513                                  * or Croatian.)
514                                  * (I can feel those flames coming already.)
515                                  */
516       switch (sub)
517         {
518         case SUBLANG_DEFAULT: return "hr_HR";
519         case SUBLANG_SERBIAN_LATIN: return "sr_YU";
520         case SUBLANG_SERBIAN_CYRILLIC: return "sr_YU@cyrillic";
521         }
522       return "hr";
523     case LANG_CZECH: return "cs_CZ";
524     case LANG_DANISH: return "da_DK";
525     case LANG_DIVEHI: return "div_MV";
526     case LANG_DUTCH:
527       switch (sub)
528         {
529         case SUBLANG_DUTCH: return "nl_NL";
530         case SUBLANG_DUTCH_BELGIAN: /* FLEMISH, VLAAMS */ return "nl_BE";
531         }
532       return "nl";
533     case 0x66: /* EDO */ return "bin_NG";
534     case LANG_ENGLISH:
535       switch (sub)
536         {
537         /* SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. Heh. I thought
538          * English was the language spoken in England.
539          * Oh well.
540          */
541         case SUBLANG_ENGLISH_US: return "en_US";
542         case SUBLANG_ENGLISH_UK: return "en_GB";
543         case SUBLANG_ENGLISH_AUS: return "en_AU";
544         case SUBLANG_ENGLISH_CAN: return "en_CA";
545         case SUBLANG_ENGLISH_NZ: return "en_NZ";
546         case SUBLANG_ENGLISH_EIRE: return "en_IE";
547         case SUBLANG_ENGLISH_SOUTH_AFRICA: return "en_ZA";
548         case SUBLANG_ENGLISH_JAMAICA: return "en_JM";
549         case SUBLANG_ENGLISH_CARIBBEAN: return "en_GD"; /* Grenada? */
550         case SUBLANG_ENGLISH_BELIZE: return "en_BZ";
551         case SUBLANG_ENGLISH_TRINIDAD: return "en_TT";
552         case SUBLANG_ENGLISH_ZIMBABWE: return "en_ZW";
553         case SUBLANG_ENGLISH_PHILIPPINES: return "en_PH";
554         }
555       return "en";
556     case LANG_ESTONIAN: return "et_EE";
557     case LANG_FAEROESE: return "fo_FO";
558     case LANG_FARSI: return "fa_IR";
559     case LANG_FINNISH: return "fi_FI";
560     case LANG_FRENCH:
561       switch (sub)
562         {
563         case SUBLANG_FRENCH: return "fr_FR";
564         case SUBLANG_FRENCH_BELGIAN: /* WALLOON */ return "fr_BE";
565         case SUBLANG_FRENCH_CANADIAN: return "fr_CA";
566         case SUBLANG_FRENCH_SWISS: return "fr_CH";
567         case SUBLANG_FRENCH_LUXEMBOURG: return "fr_LU";
568         case SUBLANG_FRENCH_MONACO: return "fr_MC";
569         }
570       return "fr";
571     case 0x62: /* FRISIAN */ return "fy_NL";
572     case 0x67: /* FULFULDE */ return "ful_NG";
573     case 0x3c: /* GAELIC */
574       switch (sub)
575         {
576         case 0x01: /* SCOTTISH */ return "gd_GB";
577         case 0x02: /* IRISH */ return "ga_IE";
578         }
579       return "C";
580     case LANG_GALICIAN: return "gl_ES";
581     case LANG_GEORGIAN: return "ka_GE";
582     case LANG_GERMAN:
583       switch (sub)
584         {
585         case SUBLANG_GERMAN: return "de_DE";
586         case SUBLANG_GERMAN_SWISS: return "de_CH";
587         case SUBLANG_GERMAN_AUSTRIAN: return "de_AT";
588         case SUBLANG_GERMAN_LUXEMBOURG: return "de_LU";
589         case SUBLANG_GERMAN_LIECHTENSTEIN: return "de_LI";
590         }
591       return "de";
592     case LANG_GREEK: return "el_GR";
593     case 0x74: /* GUARANI */ return "gn_PY";
594     case LANG_GUJARATI: return "gu_IN";
595     case 0x68: /* HAUSA */ return "ha_NG";
596     case 0x75: /* HAWAIIAN */
597       /* FIXME: Do they mean Hawaiian ("haw_US", 1000 speakers)
598          or Hawaii Creole English ("cpe_US", 600000 speakers)?  */
599       return "cpe_US";
600     case LANG_HEBREW: return "he_IL";
601     case LANG_HINDI: return "hi_IN";
602     case LANG_HUNGARIAN: return "hu_HU";
603     case 0x69: /* IBIBIO */ return "nic_NG";
604     case LANG_ICELANDIC: return "is_IS";
605     case 0x70: /* IGBO */ return "ibo_NG";
606     case LANG_INDONESIAN: return "id_ID";
607     case 0x5d: /* INUKTITUT */ return "iu_CA";
608     case LANG_ITALIAN:
609       switch (sub)
610         {
611         case SUBLANG_ITALIAN: return "it_IT";
612         case SUBLANG_ITALIAN_SWISS: return "it_CH";
613         }
614       return "it";
615     case LANG_JAPANESE: return "ja_JP";
616     case LANG_KANNADA: return "kn_IN";
617     case 0x71: /* KANURI */ return "kau_NG";
618     case LANG_KASHMIRI:
619       switch (sub)
620         {
621         case SUBLANG_DEFAULT: return "ks_PK";
622         case SUBLANG_KASHMIRI_INDIA: return "ks_IN";
623         }
624       return "ks";
625     case LANG_KAZAK: return "kk_KZ";
626     case LANG_KONKANI:
627       /* FIXME: Adjust this when such locales appear on Unix.  */
628       return "kok_IN";
629     case LANG_KOREAN: return "ko_KR";
630     case LANG_KYRGYZ: return "ky_KG";
631     case 0x54: /* LAO */ return "lo_LA";
632     case 0x76: /* LATIN */ return "la_VA";
633     case LANG_LATVIAN: return "lv_LV";
634     case LANG_LITHUANIAN: return "lt_LT";
635     case LANG_MACEDONIAN: return "mk_MK";
636     case LANG_MALAY:
637       switch (sub)
638         {
639         case SUBLANG_MALAY_MALAYSIA: return "ms_MY";
640         case SUBLANG_MALAY_BRUNEI_DARUSSALAM: return "ms_BN";
641         }
642       return "ms";
643     case LANG_MALAYALAM: return "ml_IN";
644     case 0x3a: /* MALTESE */ return "mt_MT";
645     case LANG_MANIPURI:
646       /* FIXME: Adjust this when such locales appear on Unix.  */
647       return "mni_IN";
648     case LANG_MARATHI: return "mr_IN";
649     case LANG_MONGOLIAN:
650       return "mn"; /* Ambiguous: could be "mn_CN" or "mn_MN".  */
651     case LANG_NEPALI:
652       switch (sub)
653         {
654         case SUBLANG_DEFAULT: return "ne_NP";
655         case SUBLANG_NEPALI_INDIA: return "ne_IN";
656         }
657       return "ne";
658     case LANG_NORWEGIAN:
659       switch (sub)
660         {
661         case SUBLANG_NORWEGIAN_BOKMAL: return "no_NO";
662         case SUBLANG_NORWEGIAN_NYNORSK: return "nn_NO";
663         }
664       return "no";
665     case LANG_ORIYA: return "or_IN";
666     case 0x72: /* OROMO */ return "om_ET";
667     case 0x79: /* PAPIAMENTU */ return "pap_AN";
668     case 0x63: /* PASHTO */
669       return "ps"; /* Ambiguous: could be "ps_PK" or "ps_AF".  */
670     case LANG_POLISH: return "pl_PL";
671     case LANG_PORTUGUESE:
672       switch (sub)
673         {
674         case SUBLANG_PORTUGUESE: return "pt_PT";
675         /* Hmm. SUBLANG_PORTUGUESE_BRAZILIAN == SUBLANG_DEFAULT.
676            Same phenomenon as SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. */
677         case SUBLANG_PORTUGUESE_BRAZILIAN: return "pt_BR";
678         }
679       return "pt";
680     case LANG_PUNJABI: return "pa_IN";
681     case 0x17: /* RHAETO-ROMANCE */ return "rm_CH";
682     case LANG_ROMANIAN: return "ro_RO";
683     case LANG_RUSSIAN:
684       return "ru"; /* Ambiguous: could be "ru_RU" or "ru_UA".  */
685     case 0x3b: /* SAMI */ return "se_NO";
686     case LANG_SANSKRIT: return "sa_IN";
687     case LANG_SINDHI: return "sd";
688     case 0x5b: /* SINHALESE */ return "si_LK";
689     case LANG_SLOVAK: return "sk_SK";
690     case LANG_SLOVENIAN: return "sl_SI";
691     case 0x77: /* SOMALI */ return "so_SO";
692     case LANG_SORBIAN:
693       /* FIXME: Adjust this when such locales appear on Unix.  */
694       return "wen_DE";
695     case LANG_SPANISH:
696       switch (sub)
697         {
698         case SUBLANG_SPANISH: return "es_ES";
699         case SUBLANG_SPANISH_MEXICAN: return "es_MX";
700         case SUBLANG_SPANISH_MODERN:
701           return "es_ES@modern";        /* not seen on Unix */
702         case SUBLANG_SPANISH_GUATEMALA: return "es_GT";
703         case SUBLANG_SPANISH_COSTA_RICA: return "es_CR";
704         case SUBLANG_SPANISH_PANAMA: return "es_PA";
705         case SUBLANG_SPANISH_DOMINICAN_REPUBLIC: return "es_DO";
706         case SUBLANG_SPANISH_VENEZUELA: return "es_VE";
707         case SUBLANG_SPANISH_COLOMBIA: return "es_CO";
708         case SUBLANG_SPANISH_PERU: return "es_PE";
709         case SUBLANG_SPANISH_ARGENTINA: return "es_AR";
710         case SUBLANG_SPANISH_ECUADOR: return "es_EC";
711         case SUBLANG_SPANISH_CHILE: return "es_CL";
712         case SUBLANG_SPANISH_URUGUAY: return "es_UY";
713         case SUBLANG_SPANISH_PARAGUAY: return "es_PY";
714         case SUBLANG_SPANISH_BOLIVIA: return "es_BO";
715         case SUBLANG_SPANISH_EL_SALVADOR: return "es_SV";
716         case SUBLANG_SPANISH_HONDURAS: return "es_HN";
717         case SUBLANG_SPANISH_NICARAGUA: return "es_NI";
718         case SUBLANG_SPANISH_PUERTO_RICO: return "es_PR";
719         }
720       return "es";
721     case 0x30: /* SUTU */ return "bnt_TZ";
722     case LANG_SWAHILI: return "sw_KE";
723     case LANG_SWEDISH:
724       switch (sub)
725         {
726         case SUBLANG_DEFAULT: return "sv_SE";
727         case SUBLANG_SWEDISH_FINLAND: return "sv_FI";
728         }
729       return "sv";
730     case LANG_SYRIAC: return "syr_TR"; /* An extinct language.  */
731     case 0x64: /* TAGALOG */ return "tl_PH";
732     case 0x28: /* TAJIK */ return "tg_TJ";
733     case 0x5f: /* TAMAZIGHT */ return "ber_MA";
734     case LANG_TAMIL:
735       return "ta"; /* Ambiguous: could be "ta_IN" or "ta_LK" or "ta_SG".  */
736     case LANG_TATAR: return "tt_RU";
737     case LANG_TELUGU: return "te_IN";
738     case LANG_THAI: return "th_TH";
739     case 0x51: /* TIBETAN */ return "bo_CN";
740     case 0x73: /* TIGRINYA */ return "ti_ET";
741     case 0x31: /* TSONGA */ return "ts_ZA";
742     case LANG_TURKISH: return "tr_TR";
743     case 0x42: /* TURKMEN */ return "tk_TM";
744     case LANG_UKRAINIAN: return "uk_UA";
745     case LANG_URDU:
746       switch (sub)
747         {
748         case SUBLANG_URDU_PAKISTAN: return "ur_PK";
749         case SUBLANG_URDU_INDIA: return "ur_IN";
750         }
751       return "ur";
752     case LANG_UZBEK:
753       switch (sub)
754         {
755         /* FIXME: Adjust this when Uzbek locales appear on Unix.  */
756         case SUBLANG_UZBEK_LATIN: return "uz_UZ@latin";
757         case SUBLANG_UZBEK_CYRILLIC: return "uz_UZ@cyrillic";
758         }
759       return "uz";
760     case 0x33: /* VENDA */ return "ven_ZA";
761     case LANG_VIETNAMESE: return "vi_VN";
762     case 0x52: /* WELSH */ return "cy_GB";
763     case 0x34: /* XHOSA */ return "xh_ZA";
764     case 0x78: /* YI */ return "sit_CN";
765     case 0x3d: /* YIDDISH */ return "yi_IL";
766     case 0x6a: /* YORUBA */ return "yo_NG";
767     case 0x35: /* ZULU */ return "zu_ZA";
768     default: return "C";
769     }
770
771 #endif
772 }