|
2313
|
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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
|
|
|
17 USA. */
|
|
|
18
|
|
|
19 /* Written by Ulrich Drepper <drepper@gnu.org>, 1995. */
|
|
|
20 /* Win32 code written by Tor Lillqvist <tml@iki.fi>. */
|
|
|
21
|
|
|
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 }
|
