1 /* $NetBSD: localename.c,v 1.1.1.1 2016/01/10 21:36:18 christos Exp $ */
2
3 /* Determine the current selected locale.
4 Copyright (C) 1995-1999, 2000, 2001 Free Software Foundation, Inc.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
9 any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software Foundation,
18 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
19
20 /* Written by Ulrich Drepper <drepper@gnu.org>, 1995. */
21 /* Win32 code written by Tor Lillqvist <tml@iki.fi>. */
22
23 #ifdef HAVE_CONFIG_H
24 # include <config.h>
25 #endif
26
27 #include <stdlib.h>
28 #include <locale.h>
29
30 #if defined _WIN32 || defined __WIN32__
31 # undef WIN32 /* avoid warning on mingw32 */
32 # define WIN32
33 #endif
34
35 #ifdef WIN32
36 # define WIN32_LEAN_AND_MEAN
37 # include <windows.h>
38 /* Mingw headers don't have latest language and sublanguage codes. */
39 # ifndef LANG_AFRIKAANS
40 # define LANG_AFRIKAANS 0x36
41 # endif
42 # ifndef LANG_ALBANIAN
43 # define LANG_ALBANIAN 0x1c
44 # endif
45 # ifndef LANG_ARABIC
46 # define LANG_ARABIC 0x01
47 # endif
48 # ifndef LANG_ARMENIAN
49 # define LANG_ARMENIAN 0x2b
50 # endif
51 # ifndef LANG_ASSAMESE
52 # define LANG_ASSAMESE 0x4d
53 # endif
54 # ifndef LANG_AZERI
55 # define LANG_AZERI 0x2c
56 # endif
57 # ifndef LANG_BASQUE
58 # define LANG_BASQUE 0x2d
59 # endif
60 # ifndef LANG_BELARUSIAN
61 # define LANG_BELARUSIAN 0x23
62 # endif
63 # ifndef LANG_BENGALI
64 # define LANG_BENGALI 0x45
65 # endif
66 # ifndef LANG_CATALAN
67 # define LANG_CATALAN 0x03
68 # endif
69 # ifndef LANG_ESTONIAN
70 # define LANG_ESTONIAN 0x25
71 # endif
72 # ifndef LANG_FAEROESE
73 # define LANG_FAEROESE 0x38
74 # endif
75 # ifndef LANG_FARSI
76 # define LANG_FARSI 0x29
77 # endif
78 # ifndef LANG_GEORGIAN
79 # define LANG_GEORGIAN 0x37
80 # endif
81 # ifndef LANG_GUJARATI
82 # define LANG_GUJARATI 0x47
83 # endif
84 # ifndef LANG_HEBREW
85 # define LANG_HEBREW 0x0d
86 # endif
87 # ifndef LANG_HINDI
88 # define LANG_HINDI 0x39
89 # endif
90 # ifndef LANG_INDONESIAN
91 # define LANG_INDONESIAN 0x21
92 # endif
93 # ifndef LANG_KANNADA
94 # define LANG_KANNADA 0x4b
95 # endif
96 # ifndef LANG_KASHMIRI
97 # define LANG_KASHMIRI 0x60
98 # endif
99 # ifndef LANG_KAZAK
100 # define LANG_KAZAK 0x3f
101 # endif
102 # ifndef LANG_KONKANI
103 # define LANG_KONKANI 0x57
104 # endif
105 # ifndef LANG_LATVIAN
106 # define LANG_LATVIAN 0x26
107 # endif
108 # ifndef LANG_LITHUANIAN
109 # define LANG_LITHUANIAN 0x27
110 # endif
111 # ifndef LANG_MACEDONIAN
112 # define LANG_MACEDONIAN 0x2f
113 # endif
114 # ifndef LANG_MALAY
115 # define LANG_MALAY 0x3e
116 # endif
117 # ifndef LANG_MALAYALAM
118 # define LANG_MALAYALAM 0x4c
119 # endif
120 # ifndef LANG_MANIPURI
121 # define LANG_MANIPURI 0x58
122 # endif
123 # ifndef LANG_MARATHI
124 # define LANG_MARATHI 0x4e
125 # endif
126 # ifndef LANG_NEPALI
127 # define LANG_NEPALI 0x61
128 # endif
129 # ifndef LANG_ORIYA
130 # define LANG_ORIYA 0x48
131 # endif
132 # ifndef LANG_PUNJABI
133 # define LANG_PUNJABI 0x46
134 # endif
135 # ifndef LANG_SANSKRIT
136 # define LANG_SANSKRIT 0x4f
137 # endif
138 # ifndef LANG_SERBIAN
139 # define LANG_SERBIAN 0x1a
140 # endif
141 # ifndef LANG_SINDHI
142 # define LANG_SINDHI 0x59
143 # endif
144 # ifndef LANG_SLOVAK
145 # define LANG_SLOVAK 0x1b
146 # endif
147 # ifndef LANG_SWAHILI
148 # define LANG_SWAHILI 0x41
149 # endif
150 # ifndef LANG_TAMIL
151 # define LANG_TAMIL 0x49
152 # endif
153 # ifndef LANG_TATAR
154 # define LANG_TATAR 0x44
155 # endif
156 # ifndef LANG_TELUGU
157 # define LANG_TELUGU 0x4a
158 # endif
159 # ifndef LANG_THAI
160 # define LANG_THAI 0x1e
161 # endif
162 # ifndef LANG_UKRAINIAN
163 # define LANG_UKRAINIAN 0x22
164 # endif
165 # ifndef LANG_URDU
166 # define LANG_URDU 0x20
167 # endif
168 # ifndef LANG_UZBEK
169 # define LANG_UZBEK 0x43
170 # endif
171 # ifndef LANG_VIETNAMESE
172 # define LANG_VIETNAMESE 0x2a
173 # endif
174 # ifndef SUBLANG_ARABIC_SAUDI_ARABIA
175 # define SUBLANG_ARABIC_SAUDI_ARABIA 0x01
176 # endif
177 # ifndef SUBLANG_ARABIC_IRAQ
178 # define SUBLANG_ARABIC_IRAQ 0x02
179 # endif
180 # ifndef SUBLANG_ARABIC_EGYPT
181 # define SUBLANG_ARABIC_EGYPT 0x03
182 # endif
183 # ifndef SUBLANG_ARABIC_LIBYA
184 # define SUBLANG_ARABIC_LIBYA 0x04
185 # endif
186 # ifndef SUBLANG_ARABIC_ALGERIA
187 # define SUBLANG_ARABIC_ALGERIA 0x05
188 # endif
189 # ifndef SUBLANG_ARABIC_MOROCCO
190 # define SUBLANG_ARABIC_MOROCCO 0x06
191 # endif
192 # ifndef SUBLANG_ARABIC_TUNISIA
193 # define SUBLANG_ARABIC_TUNISIA 0x07
194 # endif
195 # ifndef SUBLANG_ARABIC_OMAN
196 # define SUBLANG_ARABIC_OMAN 0x08
197 # endif
198 # ifndef SUBLANG_ARABIC_YEMEN
199 # define SUBLANG_ARABIC_YEMEN 0x09
200 # endif
201 # ifndef SUBLANG_ARABIC_SYRIA
202 # define SUBLANG_ARABIC_SYRIA 0x0a
203 # endif
204 # ifndef SUBLANG_ARABIC_JORDAN
205 # define SUBLANG_ARABIC_JORDAN 0x0b
206 # endif
207 # ifndef SUBLANG_ARABIC_LEBANON
208 # define SUBLANG_ARABIC_LEBANON 0x0c
209 # endif
210 # ifndef SUBLANG_ARABIC_KUWAIT
211 # define SUBLANG_ARABIC_KUWAIT 0x0d
212 # endif
213 # ifndef SUBLANG_ARABIC_UAE
214 # define SUBLANG_ARABIC_UAE 0x0e
215 # endif
216 # ifndef SUBLANG_ARABIC_BAHRAIN
217 # define SUBLANG_ARABIC_BAHRAIN 0x0f
218 # endif
219 # ifndef SUBLANG_ARABIC_QATAR
220 # define SUBLANG_ARABIC_QATAR 0x10
221 # endif
222 # ifndef SUBLANG_AZERI_LATIN
223 # define SUBLANG_AZERI_LATIN 0x01
224 # endif
225 # ifndef SUBLANG_AZERI_CYRILLIC
226 # define SUBLANG_AZERI_CYRILLIC 0x02
227 # endif
228 # ifndef SUBLANG_CHINESE_MACAU
229 # define SUBLANG_CHINESE_MACAU 0x05
230 # endif
231 # ifndef SUBLANG_ENGLISH_SOUTH_AFRICA
232 # define SUBLANG_ENGLISH_SOUTH_AFRICA 0x07
233 # endif
234 # ifndef SUBLANG_ENGLISH_JAMAICA
235 # define SUBLANG_ENGLISH_JAMAICA 0x08
236 # endif
237 # ifndef SUBLANG_ENGLISH_CARIBBEAN
238 # define SUBLANG_ENGLISH_CARIBBEAN 0x09
239 # endif
240 # ifndef SUBLANG_ENGLISH_BELIZE
241 # define SUBLANG_ENGLISH_BELIZE 0x0a
242 # endif
243 # ifndef SUBLANG_ENGLISH_TRINIDAD
244 # define SUBLANG_ENGLISH_TRINIDAD 0x0b
245 # endif
246 # ifndef SUBLANG_ENGLISH_ZIMBABWE
247 # define SUBLANG_ENGLISH_ZIMBABWE 0x0c
248 # endif
249 # ifndef SUBLANG_ENGLISH_PHILIPPINES
250 # define SUBLANG_ENGLISH_PHILIPPINES 0x0d
251 # endif
252 # ifndef SUBLANG_FRENCH_LUXEMBOURG
253 # define SUBLANG_FRENCH_LUXEMBOURG 0x05
254 # endif
255 # ifndef SUBLANG_FRENCH_MONACO
256 # define SUBLANG_FRENCH_MONACO 0x06
257 # endif
258 # ifndef SUBLANG_GERMAN_LUXEMBOURG
259 # define SUBLANG_GERMAN_LUXEMBOURG 0x04
260 # endif
261 # ifndef SUBLANG_GERMAN_LIECHTENSTEIN
262 # define SUBLANG_GERMAN_LIECHTENSTEIN 0x05
263 # endif
264 # ifndef SUBLANG_KASHMIRI_INDIA
265 # define SUBLANG_KASHMIRI_INDIA 0x02
266 # endif
267 # ifndef SUBLANG_MALAY_MALAYSIA
268 # define SUBLANG_MALAY_MALAYSIA 0x01
269 # endif
270 # ifndef SUBLANG_MALAY_BRUNEI_DARUSSALAM
271 # define SUBLANG_MALAY_BRUNEI_DARUSSALAM 0x02
272 # endif
273 # ifndef SUBLANG_NEPALI_INDIA
274 # define SUBLANG_NEPALI_INDIA 0x02
275 # endif
276 # ifndef SUBLANG_SERBIAN_LATIN
277 # define SUBLANG_SERBIAN_LATIN 0x02
278 # endif
279 # ifndef SUBLANG_SERBIAN_CYRILLIC
280 # define SUBLANG_SERBIAN_CYRILLIC 0x03
281 # endif
282 # ifndef SUBLANG_SPANISH_GUATEMALA
283 # define SUBLANG_SPANISH_GUATEMALA 0x04
284 # endif
285 # ifndef SUBLANG_SPANISH_COSTA_RICA
286 # define SUBLANG_SPANISH_COSTA_RICA 0x05
287 # endif
288 # ifndef SUBLANG_SPANISH_PANAMA
289 # define SUBLANG_SPANISH_PANAMA 0x06
290 # endif
291 # ifndef SUBLANG_SPANISH_DOMINICAN_REPUBLIC
292 # define SUBLANG_SPANISH_DOMINICAN_REPUBLIC 0x07
293 # endif
294 # ifndef SUBLANG_SPANISH_VENEZUELA
295 # define SUBLANG_SPANISH_VENEZUELA 0x08
296 # endif
297 # ifndef SUBLANG_SPANISH_COLOMBIA
298 # define SUBLANG_SPANISH_COLOMBIA 0x09
299 # endif
300 # ifndef SUBLANG_SPANISH_PERU
301 # define SUBLANG_SPANISH_PERU 0x0a
302 # endif
303 # ifndef SUBLANG_SPANISH_ARGENTINA
304 # define SUBLANG_SPANISH_ARGENTINA 0x0b
305 # endif
306 # ifndef SUBLANG_SPANISH_ECUADOR
307 # define SUBLANG_SPANISH_ECUADOR 0x0c
308 # endif
309 # ifndef SUBLANG_SPANISH_CHILE
310 # define SUBLANG_SPANISH_CHILE 0x0d
311 # endif
312 # ifndef SUBLANG_SPANISH_URUGUAY
313 # define SUBLANG_SPANISH_URUGUAY 0x0e
314 # endif
315 # ifndef SUBLANG_SPANISH_PARAGUAY
316 # define SUBLANG_SPANISH_PARAGUAY 0x0f
317 # endif
318 # ifndef SUBLANG_SPANISH_BOLIVIA
319 # define SUBLANG_SPANISH_BOLIVIA 0x10
320 # endif
321 # ifndef SUBLANG_SPANISH_EL_SALVADOR
322 # define SUBLANG_SPANISH_EL_SALVADOR 0x11
323 # endif
324 # ifndef SUBLANG_SPANISH_HONDURAS
325 # define SUBLANG_SPANISH_HONDURAS 0x12
326 # endif
327 # ifndef SUBLANG_SPANISH_NICARAGUA
328 # define SUBLANG_SPANISH_NICARAGUA 0x13
329 # endif
330 # ifndef SUBLANG_SPANISH_PUERTO_RICO
331 # define SUBLANG_SPANISH_PUERTO_RICO 0x14
332 # endif
333 # ifndef SUBLANG_SWEDISH_FINLAND
334 # define SUBLANG_SWEDISH_FINLAND 0x02
335 # endif
336 # ifndef SUBLANG_URDU_PAKISTAN
337 # define SUBLANG_URDU_PAKISTAN 0x01
338 # endif
339 # ifndef SUBLANG_URDU_INDIA
340 # define SUBLANG_URDU_INDIA 0x02
341 # endif
342 # ifndef SUBLANG_UZBEK_LATIN
343 # define SUBLANG_UZBEK_LATIN 0x01
344 # endif
345 # ifndef SUBLANG_UZBEK_CYRILLIC
346 # define SUBLANG_UZBEK_CYRILLIC 0x02
347 # endif
348 #endif
349
350 /* XPG3 defines the result of 'setlocale (category, NULL)' as:
351 "Directs 'setlocale()' to query 'category' and return the current
352 setting of 'local'."
353 However it does not specify the exact format. Neither do SUSV2 and
354 ISO C 99. So we can use this feature only on selected systems (e.g.
355 those using GNU C Library). */
356 #if defined _LIBC || (defined __GNU_LIBRARY__ && __GNU_LIBRARY__ >= 2)
357 # define HAVE_LOCALE_NULL
358 #endif
359
360 /* Determine the current locale's name, and canonicalize it into XPG syntax
361 language[_territory[.codeset]][@modifier]
362 The codeset part in the result is not reliable; the locale_charset()
363 should be used for codeset information instead.
364 The result must not be freed; it is statically allocated. */
365
366 const char *
_nl_locale_name(category,categoryname)367 _nl_locale_name (category, categoryname)
368 int category;
369 const char *categoryname;
370 {
371 const char *retval;
372
373 #ifndef WIN32
374
375 /* Use the POSIX methods of looking to 'LC_ALL', 'LC_xxx', and 'LANG'.
376 On some systems this can be done by the 'setlocale' function itself. */
377 # if defined HAVE_SETLOCALE && defined HAVE_LC_MESSAGES && defined HAVE_LOCALE_NULL
378 retval = setlocale (category, NULL);
379 # else
380 /* Setting of LC_ALL overwrites all other. */
381 retval = getenv ("LC_ALL");
382 if (retval == NULL || retval[0] == '\0')
383 {
384 /* Next comes the name of the desired category. */
385 retval = getenv (categoryname);
386 if (retval == NULL || retval[0] == '\0')
387 {
388 /* Last possibility is the LANG environment variable. */
389 retval = getenv ("LANG");
390 if (retval == NULL || retval[0] == '\0')
391 /* We use C as the default domain. POSIX says this is
392 implementation defined. */
393 retval = "C";
394 }
395 }
396 # endif
397
398 return retval;
399
400 #else /* WIN32 */
401
402 /* Return an XPG style locale name language[_territory][@modifier].
403 Don't even bother determining the codeset; it's not useful in this
404 context, because message catalogs are not specific to a single
405 codeset. */
406
407 LCID lcid;
408 LANGID langid;
409 int primary, sub;
410
411 /* Let the user override the system settings through environment
412 variables, as on POSIX systems. */
413 retval = getenv ("LC_ALL");
414 if (retval != NULL && retval[0] != '\0')
415 return retval;
416 retval = getenv (categoryname);
417 if (retval != NULL && retval[0] != '\0')
418 return retval;
419 retval = getenv ("LANG");
420 if (retval != NULL && retval[0] != '\0')
421 return retval;
422
423 /* Use native Win32 API locale ID. */
424 lcid = GetThreadLocale ();
425
426 /* Strip off the sorting rules, keep only the language part. */
427 langid = LANGIDFROMLCID (lcid);
428
429 /* Split into language and territory part. */
430 primary = PRIMARYLANGID (langid);
431 sub = SUBLANGID (langid);
432 switch (primary)
433 {
434 case LANG_AFRIKAANS: return "af_ZA";
435 case LANG_ALBANIAN: return "sq_AL";
436 case LANG_ARABIC:
437 switch (sub)
438 {
439 case SUBLANG_ARABIC_SAUDI_ARABIA: return "ar_SA";
440 case SUBLANG_ARABIC_IRAQ: return "ar_IQ";
441 case SUBLANG_ARABIC_EGYPT: return "ar_EG";
442 case SUBLANG_ARABIC_LIBYA: return "ar_LY";
443 case SUBLANG_ARABIC_ALGERIA: return "ar_DZ";
444 case SUBLANG_ARABIC_MOROCCO: return "ar_MA";
445 case SUBLANG_ARABIC_TUNISIA: return "ar_TN";
446 case SUBLANG_ARABIC_OMAN: return "ar_OM";
447 case SUBLANG_ARABIC_YEMEN: return "ar_YE";
448 case SUBLANG_ARABIC_SYRIA: return "ar_SY";
449 case SUBLANG_ARABIC_JORDAN: return "ar_JO";
450 case SUBLANG_ARABIC_LEBANON: return "ar_LB";
451 case SUBLANG_ARABIC_KUWAIT: return "ar_KW";
452 case SUBLANG_ARABIC_UAE: return "ar_AE";
453 case SUBLANG_ARABIC_BAHRAIN: return "ar_BH";
454 case SUBLANG_ARABIC_QATAR: return "ar_QA";
455 }
456 return "ar";
457 case LANG_ARMENIAN: return "hy_AM";
458 case LANG_ASSAMESE: return "as_IN";
459 case LANG_AZERI:
460 switch (sub)
461 {
462 /* FIXME: Adjust this when Azerbaijani locales appear on Unix. */
463 case SUBLANG_AZERI_LATIN: return "az_AZ@latin";
464 case SUBLANG_AZERI_CYRILLIC: return "az_AZ@cyrillic";
465 }
466 return "az";
467 case LANG_BASQUE:
468 return "eu"; /* Ambiguous: could be "eu_ES" or "eu_FR". */
469 case LANG_BELARUSIAN: return "be_BY";
470 case LANG_BENGALI: return "bn_IN";
471 case LANG_BULGARIAN: return "bg_BG";
472 case LANG_CATALAN: return "ca_ES";
473 case LANG_CHINESE:
474 switch (sub)
475 {
476 case SUBLANG_CHINESE_TRADITIONAL: return "zh_TW";
477 case SUBLANG_CHINESE_SIMPLIFIED: return "zh_CN";
478 case SUBLANG_CHINESE_HONGKONG: return "zh_HK";
479 case SUBLANG_CHINESE_SINGAPORE: return "zh_SG";
480 case SUBLANG_CHINESE_MACAU: return "zh_MO";
481 }
482 return "zh";
483 case LANG_CROATIAN: /* LANG_CROATIAN == LANG_SERBIAN
484 * What used to be called Serbo-Croatian
485 * should really now be two separate
486 * languages because of political reasons.
487 * (Says tml, who knows nothing about Serbian
488 * or Croatian.)
489 * (I can feel those flames coming already.)
490 */
491 switch (sub)
492 {
493 /* FIXME: How to distinguish Croatian and Latin Serbian locales? */
494 case SUBLANG_SERBIAN_LATIN: return "sr_YU";
495 case SUBLANG_SERBIAN_CYRILLIC: return "sr_YU@cyrillic";
496 default: return "hr_HR";
497 }
498 case LANG_CZECH: return "cs_CZ";
499 case LANG_DANISH: return "da_DK";
500 case LANG_DUTCH:
501 switch (sub)
502 {
503 case SUBLANG_DUTCH: return "nl_NL";
504 case SUBLANG_DUTCH_BELGIAN: return "nl_BE";
505 }
506 return "nl";
507 case LANG_ENGLISH:
508 switch (sub)
509 {
510 /* SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. Heh. I thought
511 * English was the language spoken in England.
512 * Oh well.
513 */
514 case SUBLANG_ENGLISH_US: return "en_US";
515 case SUBLANG_ENGLISH_UK: return "en_GB";
516 case SUBLANG_ENGLISH_AUS: return "en_AU";
517 case SUBLANG_ENGLISH_CAN: return "en_CA";
518 case SUBLANG_ENGLISH_NZ: return "en_NZ";
519 case SUBLANG_ENGLISH_EIRE: return "en_IE";
520 case SUBLANG_ENGLISH_SOUTH_AFRICA: return "en_ZA";
521 case SUBLANG_ENGLISH_JAMAICA: return "en_JM";
522 case SUBLANG_ENGLISH_CARIBBEAN: return "en_GD"; /* Grenada? */
523 case SUBLANG_ENGLISH_BELIZE: return "en_BZ";
524 case SUBLANG_ENGLISH_TRINIDAD: return "en_TT";
525 case SUBLANG_ENGLISH_ZIMBABWE: return "en_ZW";
526 case SUBLANG_ENGLISH_PHILIPPINES: return "en_PH";
527 }
528 return "en";
529 case LANG_ESTONIAN: return "et_EE";
530 case LANG_FAEROESE: return "fo_FO";
531 case LANG_FARSI: return "fa_IR";
532 case LANG_FINNISH: return "fi_FI";
533 case LANG_FRENCH:
534 switch (sub)
535 {
536 case SUBLANG_FRENCH: return "fr_FR";
537 case SUBLANG_FRENCH_BELGIAN: return "fr_BE";
538 case SUBLANG_FRENCH_CANADIAN: return "fr_CA";
539 case SUBLANG_FRENCH_SWISS: return "fr_CH";
540 case SUBLANG_FRENCH_LUXEMBOURG: return "fr_LU";
541 case SUBLANG_FRENCH_MONACO: return "fr_MC";
542 }
543 return "fr";
544 case LANG_GEORGIAN: return "ka_GE";
545 case LANG_GERMAN:
546 switch (sub)
547 {
548 case SUBLANG_GERMAN: return "de_DE";
549 case SUBLANG_GERMAN_SWISS: return "de_CH";
550 case SUBLANG_GERMAN_AUSTRIAN: return "de_AT";
551 case SUBLANG_GERMAN_LUXEMBOURG: return "de_LU";
552 case SUBLANG_GERMAN_LIECHTENSTEIN: return "de_LI";
553 }
554 return "de";
555 case LANG_GREEK: return "el_GR";
556 case LANG_GUJARATI: return "gu_IN";
557 case LANG_HEBREW: return "he_IL";
558 case LANG_HINDI: return "hi_IN";
559 case LANG_HUNGARIAN: return "hu_HU";
560 case LANG_ICELANDIC: return "is_IS";
561 case LANG_INDONESIAN: return "id_ID";
562 case LANG_ITALIAN:
563 switch (sub)
564 {
565 case SUBLANG_ITALIAN: return "it_IT";
566 case SUBLANG_ITALIAN_SWISS: return "it_CH";
567 }
568 return "it";
569 case LANG_JAPANESE: return "ja_JP";
570 case LANG_KANNADA: return "kn_IN";
571 case LANG_KASHMIRI:
572 switch (sub)
573 {
574 case SUBLANG_DEFAULT: return "ks_PK";
575 case SUBLANG_KASHMIRI_INDIA: return "ks_IN";
576 }
577 return "ks";
578 case LANG_KAZAK: return "kk_KZ";
579 case LANG_KONKANI:
580 /* FIXME: Adjust this when such locales appear on Unix. */
581 return "kok_IN";
582 case LANG_KOREAN: return "ko_KR";
583 case LANG_LATVIAN: return "lv_LV";
584 case LANG_LITHUANIAN: return "lt_LT";
585 case LANG_MACEDONIAN: return "mk_MK";
586 case LANG_MALAY:
587 switch (sub)
588 {
589 case SUBLANG_MALAY_MALAYSIA: return "ms_MY";
590 case SUBLANG_MALAY_BRUNEI_DARUSSALAM: return "ms_BN";
591 }
592 return "ms";
593 case LANG_MALAYALAM: return "ml_IN";
594 case LANG_MANIPURI:
595 /* FIXME: Adjust this when such locales appear on Unix. */
596 return "mni_IN";
597 case LANG_MARATHI: return "mr_IN";
598 case LANG_NEPALI:
599 switch (sub)
600 {
601 case SUBLANG_DEFAULT: return "ne_NP";
602 case SUBLANG_NEPALI_INDIA: return "ne_IN";
603 }
604 return "ne";
605 case LANG_NORWEGIAN:
606 switch (sub)
607 {
608 case SUBLANG_NORWEGIAN_BOKMAL: return "no_NO";
609 case SUBLANG_NORWEGIAN_NYNORSK: return "nn_NO";
610 }
611 return "no";
612 case LANG_ORIYA: return "or_IN";
613 case LANG_POLISH: return "pl_PL";
614 case LANG_PORTUGUESE:
615 switch (sub)
616 {
617 case SUBLANG_PORTUGUESE: return "pt_PT";
618 /* Hmm. SUBLANG_PORTUGUESE_BRAZILIAN == SUBLANG_DEFAULT.
619 Same phenomenon as SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. */
620 case SUBLANG_PORTUGUESE_BRAZILIAN: return "pt_BR";
621 }
622 return "pt";
623 case LANG_PUNJABI: return "pa_IN";
624 case LANG_ROMANIAN: return "ro_RO";
625 case LANG_RUSSIAN:
626 return "ru"; /* Ambiguous: could be "ru_RU" or "ru_UA". */
627 case LANG_SANSKRIT: return "sa_IN";
628 case LANG_SINDHI: return "sd";
629 case LANG_SLOVAK: return "sk_SK";
630 case LANG_SLOVENIAN: return "sl_SI";
631 case LANG_SORBIAN:
632 /* FIXME: Adjust this when such locales appear on Unix. */
633 return "wen_DE";
634 case LANG_SPANISH:
635 switch (sub)
636 {
637 case SUBLANG_SPANISH: return "es_ES";
638 case SUBLANG_SPANISH_MEXICAN: return "es_MX";
639 case SUBLANG_SPANISH_MODERN:
640 return "es_ES@modern"; /* not seen on Unix */
641 case SUBLANG_SPANISH_GUATEMALA: return "es_GT";
642 case SUBLANG_SPANISH_COSTA_RICA: return "es_CR";
643 case SUBLANG_SPANISH_PANAMA: return "es_PA";
644 case SUBLANG_SPANISH_DOMINICAN_REPUBLIC: return "es_DO";
645 case SUBLANG_SPANISH_VENEZUELA: return "es_VE";
646 case SUBLANG_SPANISH_COLOMBIA: return "es_CO";
647 case SUBLANG_SPANISH_PERU: return "es_PE";
648 case SUBLANG_SPANISH_ARGENTINA: return "es_AR";
649 case SUBLANG_SPANISH_ECUADOR: return "es_EC";
650 case SUBLANG_SPANISH_CHILE: return "es_CL";
651 case SUBLANG_SPANISH_URUGUAY: return "es_UY";
652 case SUBLANG_SPANISH_PARAGUAY: return "es_PY";
653 case SUBLANG_SPANISH_BOLIVIA: return "es_BO";
654 case SUBLANG_SPANISH_EL_SALVADOR: return "es_SV";
655 case SUBLANG_SPANISH_HONDURAS: return "es_HN";
656 case SUBLANG_SPANISH_NICARAGUA: return "es_NI";
657 case SUBLANG_SPANISH_PUERTO_RICO: return "es_PR";
658 }
659 return "es";
660 case LANG_SWAHILI: return "sw";
661 case LANG_SWEDISH:
662 switch (sub)
663 {
664 case SUBLANG_DEFAULT: return "sv_SE";
665 case SUBLANG_SWEDISH_FINLAND: return "sv_FI";
666 }
667 return "sv";
668 case LANG_TAMIL:
669 return "ta"; /* Ambiguous: could be "ta_IN" or "ta_LK" or "ta_SG". */
670 case LANG_TATAR: return "tt";
671 case LANG_TELUGU: return "te_IN";
672 case LANG_THAI: return "th_TH";
673 case LANG_TURKISH: return "tr_TR";
674 case LANG_UKRAINIAN: return "uk_UA";
675 case LANG_URDU:
676 switch (sub)
677 {
678 case SUBLANG_URDU_PAKISTAN: return "ur_PK";
679 case SUBLANG_URDU_INDIA: return "ur_IN";
680 }
681 return "ur";
682 case LANG_UZBEK:
683 switch (sub)
684 {
685 /* FIXME: Adjust this when Uzbek locales appear on Unix. */
686 case SUBLANG_UZBEK_LATIN: return "uz_UZ@latin";
687 case SUBLANG_UZBEK_CYRILLIC: return "uz_UZ@cyrillic";
688 }
689 return "uz";
690 case LANG_VIETNAMESE: return "vi_VN";
691 default: return "C";
692 }
693
694 #endif
695 }
696