Savannah Git Hosting - enscript.git/blob

1 /* Determine the current selected locale.

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.

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.

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. */

19 /* Written by Ulrich Drepper <drepper@gnu.org>, 1995. */

20 /* Win32 code written by Tor Lillqvist <tml@iki.fi>. */

22 #ifdef HAVE_CONFIG_H

23 # include <config.h>

24 #endif

26 #include <stdlib.h>

27 #include <locale.h>

29 #if defined _WIN32 || defined __WIN32__

30 # undef WIN32 /* avoid warning on mingw32 */

31 # define WIN32

32 #endif

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 }