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