external/findlocale/findlocale.c

   1
   2 #include <stdlib.h>
   3 #include <string.h>
   4 #include <ctype.h>
   5
   6 #ifdef WIN32
   7 #include <windows.h>
   8 #include <winnt.h>
   9 #endif
  10
  11 #include "findlocale.h"
  12
  13 static int
  14 is_lcchar(const int c) {
  15   return isalnum(c);
  16 }
  17
  18 static void
  19 lang_country_variant_from_envstring(const char *str,
  20                                     char **lang,
  21                                     char **country,
  22                                     char **variant) {
  23   int end = 0;
  24   int start;
  25
  26   /* get lang, if any */
  27   start = end;
  28   while (is_lcchar(str[end])) {
  29     ++end;
  30   }
  31   if (start != end) {
  32     int i;
  33     int len = end - start;
  34     char *s = malloc(len + 1);
  35     for (i=0; i<len; ++i) {
  36       s[i] = tolower(str[start + i]);
  37     }
  38     s[i] = '\0';
  39     *lang = s;
  40   } else {
  41     *lang = NULL;
  42   }
  43
  44   if (str[end] && str[end]!=':') { /* not at end of str */
  45     ++end;
  46   }
  47
  48   /* get country, if any */
  49   start = end;
  50   while (is_lcchar(str[end])) {
  51     ++end;
  52   }
  53   if (start != end) {
  54     int i;
  55     int len = end - start;
  56     char *s = malloc(len + 1);
  57     for (i=0; i<len; ++i) {
  58       s[i] = toupper(str[start + i]);
  59     }
  60     s[i] = '\0';
  61     *country = s;
  62   } else {
  63     *country = NULL;
  64   }
  65
  66   if (str[end] && str[end]!=':') { /* not at end of str */
  67     ++end;
  68   }
  69
  70   /* get variant, if any */
  71   start = end;
  72   while (str[end] && str[end]!=':') {
  73     ++end;
  74   }
  75   if (start != end) {
  76     int i;
  77     int len = end - start;
  78     char *s = malloc(len + 1);
  79     for (i=0; i<len; ++i) {
  80       s[i] = str[start + i];
  81     }
  82     s[i] = '\0';
  83     *variant = s;
  84   } else {
  85     *variant = NULL;
  86   }
  87 }
  88
  89
  90 static int
  91 accumulate_locstring(const char *str, FL_Locale *l) {
  92   char *lang = NULL;
  93   char *country = NULL;
  94   char *variant = NULL;
  95   if (str) {
  96     lang_country_variant_from_envstring(str, &lang, &country, &variant);
  97     if (lang) {
  98       l->lang = lang;
  99       l->country = country;
 100       l->variant = variant;
 101       return 1;
 102     }
 103   }
 104   free(lang); free(country); free(variant);
 105   return 0;
 106 }
 107
 108 #ifndef WIN32
 109
 110 static int
 111 accumulate_env(const char *name, FL_Locale *l) {
 112   char *env;
 113   char *lang = NULL;
 114   char *country = NULL;
 115   char *variant = NULL;
 116   env = getenv(name);
 117   if (env) {
 118     return accumulate_locstring(env, l);
 119   }
 120   free(lang); free(country); free(variant);
 121   return 0;
 122 }
 123
 124 #endif
 125
 126 static void
 127 canonise_fl(FL_Locale *l) {
 128   /* this function fixes some common locale-specifying mistakes */
 129   /* en_UK -> en_GB */
 130   if (l->lang && 0 == strcmp(l->lang, "en")) {
 131     if (l->country && 0 == strcmp(l->country, "UK")) {
 132       free((void*)l->country);
 133       l->country = strdup("GB");
 134     }
 135   }
 136   /* ja_JA -> ja_JP */
 137   if (l->lang && 0 == strcmp(l->lang, "ja")) {
 138     if (l->country && 0 == strcmp(l->country, "JA")) {
 139       free((void*)l->country);
 140       l->country = strdup("JP");
 141     }
 142   }
 143 }
 144
 145
 146 #ifdef WIN32
 147 #include <stdio.h>
 148 #define ML(pn,sn) MAKELANGID(LANG_##pn, SUBLANG_##pn##_##sn)
 149 #define MLN(pn) MAKELANGID(LANG_##pn, SUBLANG_DEFAULT)
 150 #define RML(pn,sn) MAKELANGID(LANG_##pn, SUBLANG_##sn)
 151 typedef struct {
 152   LANGID id;
 153   char*  code;
 154 } IDToCode;
 155 static const IDToCode both_to_code[] = {
 156   {ML(ENGLISH,US),           "en_US.ISO_8859-1"},
 157   {ML(ENGLISH,CAN),          "en_CA"}, /* english / canadian */
 158   {ML(ENGLISH,UK),           "en_GB"},
 159   {ML(ENGLISH,EIRE),         "en_IE"},
 160   {ML(ENGLISH,AUS),          "en_AU"},
 161   {MLN(GERMAN),              "de_DE"},
 162   {MLN(SPANISH),             "es_ES"},
 163   {ML(SPANISH,MEXICAN),      "es_MX"},
 164   {MLN(FRENCH),              "fr_FR"},
 165   {ML(FRENCH,CANADIAN),      "fr_CA"},
 166   {ML(FRENCH,BELGIAN),       "fr_BE"}, /* ? */
 167   {ML(DUTCH,BELGIAN),        "nl_BE"}, /* ? */
 168   {ML(PORTUGUESE,BRAZILIAN), "pt_BR"},
 169   {MLN(PORTUGUESE),          "pt_PT"},
 170   {MLN(SWEDISH),             "sv_SE"},
 171   {ML(CHINESE,HONGKONG),     "zh_HK"},
 172   /* these are machine-generated and not yet verified */
 173   {RML(AFRIKAANS,DEFAULT), "af_ZA"},
 174   {RML(ALBANIAN,DEFAULT), "sq_AL"},
 175   {RML(ARABIC,ARABIC_ALGERIA), "ar_DZ"},
 176   {RML(ARABIC,ARABIC_BAHRAIN), "ar_BH"},
 177   {RML(ARABIC,ARABIC_EGYPT), "ar_EG"},
 178   {RML(ARABIC,ARABIC_IRAQ), "ar_IQ"},
 179   {RML(ARABIC,ARABIC_JORDAN), "ar_JO"},
 180   {RML(ARABIC,ARABIC_KUWAIT), "ar_KW"},
 181   {RML(ARABIC,ARABIC_LEBANON), "ar_LB"},
 182   {RML(ARABIC,ARABIC_LIBYA), "ar_LY"},
 183   {RML(ARABIC,ARABIC_MOROCCO), "ar_MA"},
 184   {RML(ARABIC,ARABIC_OMAN), "ar_OM"},
 185   {RML(ARABIC,ARABIC_QATAR), "ar_QA"},
 186   {RML(ARABIC,ARABIC_SAUDI_ARABIA), "ar_SA"},
 187   {RML(ARABIC,ARABIC_SYRIA), "ar_SY"},
 188   {RML(ARABIC,ARABIC_TUNISIA), "ar_TN"},
 189   {RML(ARABIC,ARABIC_UAE), "ar_AE"},
 190   {RML(ARABIC,ARABIC_YEMEN), "ar_YE"},
 191   {RML(ARMENIAN,DEFAULT), "hy_AM"},
 192   {RML(AZERI,AZERI_CYRILLIC), "az_AZ"},
 193   {RML(AZERI,AZERI_LATIN), "az_AZ"},
 194   {RML(BASQUE,DEFAULT), "eu_ES"},
 195   {RML(BELARUSIAN,DEFAULT), "be_BY"},
 196 /*{RML(BRETON,DEFAULT), "br_FR"},*/
 197   {RML(BULGARIAN,DEFAULT), "bg_BG"},
 198   {RML(CATALAN,DEFAULT), "ca_ES"},
 199   {RML(CHINESE,CHINESE_HONGKONG), "zh_HK"},
 200   {RML(CHINESE,CHINESE_MACAU), "zh_MO"},
 201   {RML(CHINESE,CHINESE_SIMPLIFIED), "zh_CN"},
 202   {RML(CHINESE,CHINESE_SINGAPORE), "zh_SG"},
 203   {RML(CHINESE,CHINESE_TRADITIONAL), "zh_TW"},
 204 /*{RML(CORNISH,DEFAULT), "kw_GB"},*/
 205   {RML(CZECH,DEFAULT), "cs_CZ"},
 206   {RML(DANISH,DEFAULT), "da_DK"},
 207   {RML(DUTCH,DUTCH), "nl_NL"},
 208   {RML(DUTCH,DUTCH_BELGIAN), "nl_BE"},
 209 /*{RML(DUTCH,DUTCH_SURINAM), "nl_SR"},*/
 210   {RML(ENGLISH,ENGLISH_AUS), "en_AU"},
 211   {RML(ENGLISH,ENGLISH_BELIZE), "en_BZ"},
 212   {RML(ENGLISH,ENGLISH_CAN), "en_CA"},
 213   {RML(ENGLISH,ENGLISH_CARIBBEAN), "en_CB"},
 214   {RML(ENGLISH,ENGLISH_EIRE), "en_IE"},
 215   {RML(ENGLISH,ENGLISH_JAMAICA), "en_JM"},
 216   {RML(ENGLISH,ENGLISH_NZ), "en_NZ"},
 217   {RML(ENGLISH,ENGLISH_PHILIPPINES), "en_PH"},
 218   {RML(ENGLISH,ENGLISH_SOUTH_AFRICA), "en_ZA"},
 219   {RML(ENGLISH,ENGLISH_TRINIDAD), "en_TT"},
 220   {RML(ENGLISH,ENGLISH_UK), "en_GB"},
 221   {RML(ENGLISH,ENGLISH_US), "en_US"},
 222   {RML(ENGLISH,ENGLISH_ZIMBABWE), "en_ZW"},
 223 /*{RML(ESPERANTO,DEFAULT), "eo_"},*/
 224   {RML(ESTONIAN,DEFAULT), "et_EE"},
 225   {RML(FAEROESE,DEFAULT), "fo_FO"},
 226   {RML(FARSI,DEFAULT), "fa_IR"},
 227   {RML(FINNISH,DEFAULT), "fi_FI"},
 228   {RML(FRENCH,FRENCH), "fr_FR"},
 229   {RML(FRENCH,FRENCH_BELGIAN), "fr_BE"},
 230   {RML(FRENCH,FRENCH_CANADIAN), "fr_CA"},
 231   {RML(FRENCH,FRENCH_LUXEMBOURG), "fr_LU"},
 232   {RML(FRENCH,FRENCH_MONACO), "fr_MC"},
 233   {RML(FRENCH,FRENCH_SWISS), "fr_CH"},
 234 /*{RML(GAELIC,GAELIC), "ga_IE"},*/
 235 /*{RML(GAELIC,GAELIC_MANX), "gv_GB"},*/
 236 /*{RML(GAELIC,GAELIC_SCOTTISH), "gd_GB"},*/
 237 /*{RML(GALICIAN,DEFAULT), "gl_ES"},*/
 238   {RML(GEORGIAN,DEFAULT), "ka_GE"},
 239   {RML(GERMAN,GERMAN), "de_DE"},
 240   {RML(GERMAN,GERMAN_AUSTRIAN), "de_AT"},
 241   {RML(GERMAN,GERMAN_LIECHTENSTEIN), "de_LI"},
 242   {RML(GERMAN,GERMAN_LUXEMBOURG), "de_LU"},
 243   {RML(GERMAN,GERMAN_SWISS), "de_CH"},
 244   {RML(GREEK,DEFAULT), "el_GR"},
 245   {RML(GUJARATI,DEFAULT), "gu_IN"},
 246   {RML(HEBREW,DEFAULT), "he_IL"},
 247   {RML(HINDI,DEFAULT), "hi_IN"},
 248   {RML(HUNGARIAN,DEFAULT), "hu_HU"},
 249   {RML(ICELANDIC,DEFAULT), "is_IS"},
 250   {RML(INDONESIAN,DEFAULT), "id_ID"},
 251   {RML(ITALIAN,ITALIAN), "it_IT"},
 252   {RML(ITALIAN,ITALIAN_SWISS), "it_CH"},
 253   {RML(JAPANESE,DEFAULT), "ja_JP"},
 254   {RML(KANNADA,DEFAULT), "kn_IN"},
 255   {RML(KAZAK,DEFAULT), "kk_KZ"},
 256   {RML(KONKANI,DEFAULT), "kok_IN"},
 257   {RML(KOREAN,KOREAN), "ko_KR"},
 258 /*{RML(KYRGYZ,DEFAULT), "ky_KG"},*/
 259   {RML(LATVIAN,DEFAULT), "lv_LV"},
 260   {RML(LITHUANIAN,LITHUANIAN), "lt_LT"},
 261   {RML(MACEDONIAN,DEFAULT), "mk_MK"},
 262   {RML(MALAY,MALAY_BRUNEI_DARUSSALAM), "ms_BN"},
 263   {RML(MALAY,MALAY_MALAYSIA), "ms_MY"},
 264   {RML(MARATHI,DEFAULT), "mr_IN"},
 265 /*{RML(MONGOLIAN,DEFAULT), "mn_MN"},*/
 266   {RML(NORWEGIAN,NORWEGIAN_BOKMAL), "nb_NO"},
 267   {RML(NORWEGIAN,NORWEGIAN_NYNORSK), "nn_NO"},
 268   {RML(POLISH,DEFAULT), "pl_PL"},
 269   {RML(PORTUGUESE,PORTUGUESE), "pt_PT"},
 270   {RML(PORTUGUESE,PORTUGUESE_BRAZILIAN), "pt_BR"},
 271   {RML(PUNJABI,DEFAULT), "pa_IN"},
 272   {RML(ROMANIAN,DEFAULT), "ro_RO"},
 273   {RML(RUSSIAN,DEFAULT), "ru_RU"},
 274   {RML(SANSKRIT,DEFAULT), "sa_IN"},
 275   {RML(SERBIAN,DEFAULT), "hr_HR"},
 276   {RML(SERBIAN,SERBIAN_CYRILLIC), "sr_SP"},
 277   {RML(SERBIAN,SERBIAN_LATIN), "sr_SP"},
 278   {RML(SLOVAK,DEFAULT), "sk_SK"},
 279   {RML(SLOVENIAN,DEFAULT), "sl_SI"},
 280   {RML(SPANISH,SPANISH), "es_ES"},
 281   {RML(SPANISH,SPANISH_ARGENTINA), "es_AR"},
 282   {RML(SPANISH,SPANISH_BOLIVIA), "es_BO"},
 283   {RML(SPANISH,SPANISH_CHILE), "es_CL"},
 284   {RML(SPANISH,SPANISH_COLOMBIA), "es_CO"},
 285   {RML(SPANISH,SPANISH_COSTA_RICA), "es_CR"},
 286   {RML(SPANISH,SPANISH_DOMINICAN_REPUBLIC), "es_DO"},
 287   {RML(SPANISH,SPANISH_ECUADOR), "es_EC"},
 288   {RML(SPANISH,SPANISH_EL_SALVADOR), "es_SV"},
 289   {RML(SPANISH,SPANISH_GUATEMALA), "es_GT"},
 290   {RML(SPANISH,SPANISH_HONDURAS), "es_HN"},
 291   {RML(SPANISH,SPANISH_MEXICAN), "es_MX"},
 292   {RML(SPANISH,SPANISH_MODERN), "es_ES"},
 293   {RML(SPANISH,SPANISH_NICARAGUA), "es_NI"},
 294   {RML(SPANISH,SPANISH_PANAMA), "es_PA"},
 295   {RML(SPANISH,SPANISH_PARAGUAY), "es_PY"},
 296   {RML(SPANISH,SPANISH_PERU), "es_PE"},
 297   {RML(SPANISH,SPANISH_PUERTO_RICO), "es_PR"},
 298   {RML(SPANISH,SPANISH_URUGUAY), "es_UY"},
 299   {RML(SPANISH,SPANISH_VENEZUELA), "es_VE"},
 300   {RML(SWAHILI,DEFAULT), "sw_KE"},
 301   {RML(SWEDISH,SWEDISH), "sv_SE"},
 302   {RML(SWEDISH,SWEDISH_FINLAND), "sv_FI"},
 303 /*{RML(SYRIAC,DEFAULT), "syr_SY"},*/
 304   {RML(TAMIL,DEFAULT), "ta_IN"},
 305   {RML(TATAR,DEFAULT), "tt_TA"},
 306   {RML(TELUGU,DEFAULT), "te_IN"},
 307   {RML(THAI,DEFAULT), "th_TH"},
 308   {RML(TURKISH,DEFAULT), "tr_TR"},
 309   {RML(UKRAINIAN,DEFAULT), "uk_UA"},
 310   {RML(URDU,URDU_PAKISTAN), "ur_PK"},
 311   {RML(UZBEK,UZBEK_CYRILLIC), "uz_UZ"},
 312   {RML(UZBEK,UZBEK_LATIN), "uz_UZ"},
 313   {RML(VIETNAMESE,DEFAULT), "vi_VN"},
 314 /*{RML(WALON,DEFAULT), "wa_BE"},*/
 315 /*{RML(WELSH,DEFAULT), "cy_GB"},*/
 316 };
 317 static const IDToCode primary_to_code[] = {
 318   {LANG_AFRIKAANS,  "af"},
 319   {LANG_ARABIC,     "ar"},
 320   {LANG_AZERI,      "az"},
 321   {LANG_BULGARIAN,  "bg"},
 322 /*{LANG_BRETON,     "br"},*/
 323   {LANG_BELARUSIAN, "by"},
 324   {LANG_CATALAN,    "ca"},
 325   {LANG_CZECH,      "cs"},
 326 /*{LANG_WELSH,      "cy"},*/
 327   {LANG_DANISH,     "da"},
 328   {LANG_GERMAN,     "de"},
 329   {LANG_GREEK,      "el"},
 330   {LANG_ENGLISH,    "en"},
 331 /*{LANG_ESPERANTO,  "eo"},*/
 332   {LANG_SPANISH,    "es"},
 333   {LANG_ESTONIAN,   "et"},
 334   {LANG_BASQUE,     "eu"},
 335   {LANG_FARSI,      "fa"},
 336   {LANG_FINNISH,    "fi"},
 337   {LANG_FAEROESE,   "fo"},
 338   {LANG_FRENCH,     "fr"},
 339 /*{LANG_GAELIC,     "ga"},*/
 340 /*{LANG_GALICIAN,   "gl"},*/
 341   {LANG_GUJARATI,   "gu"},
 342   {LANG_HEBREW,     "he"},
 343   {LANG_HINDI,      "hi"},
 344   {LANG_SERBIAN,    "hr"},
 345   {LANG_HUNGARIAN,  "hu"},
 346   {LANG_ARMENIAN,   "hy"},
 347   {LANG_INDONESIAN, "id"},
 348   {LANG_ITALIAN,    "it"},
 349   {LANG_JAPANESE,   "ja"},
 350   {LANG_GEORGIAN,   "ka"},
 351   {LANG_KAZAK,      "kk"},
 352   {LANG_KANNADA,    "kn"},
 353   {LANG_KOREAN,     "ko"},
 354 /*{LANG_KYRGYZ,     "ky"},*/
 355   {LANG_LITHUANIAN, "lt"},
 356   {LANG_LATVIAN,    "lv"},
 357   {LANG_MACEDONIAN, "mk"},
 358 /*{LANG_MONGOLIAN,  "mn"},*/
 359   {LANG_MARATHI,    "mr"},
 360   {LANG_MALAY,      "ms"},
 361   {LANG_NORWEGIAN,  "nb"},
 362   {LANG_DUTCH,      "nl"},
 363   {LANG_NORWEGIAN,  "nn"},
 364   {LANG_NORWEGIAN,  "no"},/* unofficial? */
 365   {LANG_PUNJABI,    "pa"},
 366   {LANG_POLISH,     "pl"},
 367   {LANG_PORTUGUESE, "pt"},
 368   {LANG_ROMANIAN,   "ro"},
 369   {LANG_RUSSIAN,    "ru"},
 370   {LANG_SLOVAK,     "sk"},
 371   {LANG_SLOVENIAN,  "sl"},
 372   {LANG_ALBANIAN,   "sq"},
 373   {LANG_SERBIAN,    "sr"},
 374   {LANG_SWEDISH,    "sv"},
 375   {LANG_SWAHILI,    "sw"},
 376   {LANG_TAMIL,      "ta"},
 377   {LANG_THAI,       "th"},
 378   {LANG_TURKISH,    "tr"},
 379   {LANG_TATAR,      "tt"},
 380   {LANG_UKRAINIAN,  "uk"},
 381   {LANG_URDU,       "ur"},
 382   {LANG_UZBEK,      "uz"},
 383   {LANG_VIETNAMESE, "vi"},
 384 /*{LANG_WALON,      "wa"},*/
 385   {LANG_CHINESE,    "zh"},
 386 };
 387 static int num_primary_to_code =
 388   sizeof(primary_to_code) / sizeof(*primary_to_code);
 389 static int num_both_to_code =
 390   sizeof(both_to_code) / sizeof(*both_to_code);
 391
 392 static int
 393 lcid_to_fl(LCID lcid,
 394            FL_Locale *rtn) {
 395   LANGID langid       = LANGIDFROMLCID(lcid);
 396   LANGID primary_lang = PRIMARYLANGID(langid);
 397 //  LANGID sub_lang     = SUBLANGID(langid);
 398   int i;
 399   /* try to find an exact primary/sublanguage combo that we know about */
 400   for (i=0; i<num_both_to_code; ++i) {
 401     if (both_to_code[i].id == langid) {
 402       accumulate_locstring(both_to_code[i].code, rtn);
 403       return 1;
 404     }
 405   }
 406   /* fallback to just checking the primary language id */
 407   for (i=0; i<num_primary_to_code; ++i) {
 408     if (primary_to_code[i].id == primary_lang) {
 409       accumulate_locstring(primary_to_code[i].code, rtn);
 410       return 1;
 411     }
 412   }
 413   return 0;
 414 }
 415 #endif
 416
 417
 418 FL_Success
 419 FL_FindLocale(FL_Locale **locale) {
 420   FL_Success success = FL_FAILED;
 421   FL_Locale *rtn = malloc(sizeof(FL_Locale));
 422   rtn->lang = NULL;
 423   rtn->country = NULL;
 424   rtn->variant = NULL;
 425
 426 #ifdef WIN32
 427   /* win32 >= mswindows95 */
 428   {
 429     LCID lcid = GetThreadLocale();
 430     if (lcid_to_fl(lcid, rtn)) {
 431       success = FL_CONFIDENT;
 432     }
 433     if (success == FL_FAILED) {
 434       /* assume US English on mswindows systems unless we know otherwise */
 435       if (accumulate_locstring("en_US.ISO_8859-1", rtn)) {
 436         success = FL_DEFAULT_GUESS;
 437       }
 438     }
 439   }
 440 #else
 441   /* assume unixoid */
 442   {
 443     /* examples: */
 444     /* sv_SE.ISO_8859-1 */
 445     /* fr_FR.ISO8859-1 */
 446     /* no_NO_NB */
 447     /* no_NO_NY */
 448     /* no_NO */
 449     /* de_DE */
 450     /* try the various vars in decreasing order of authority */
 451     if (accumulate_env("LC_ALL", rtn) ||
 452         accumulate_env("LC_MESSAGES", rtn) ||
 453         accumulate_env("LANG", rtn) ||
 454         accumulate_env("LANGUAGE", rtn)) {
 455       success = FL_CONFIDENT;
 456     }
 457     if (success == FL_FAILED) {
 458       /* assume US English on unixoid systems unless we know otherwise */
 459       if (accumulate_locstring("en_US.ISO_8859-1", rtn)) {
 460         success = FL_DEFAULT_GUESS;
 461       }
 462     }
 463   }
 464 #endif
 465
 466   if (success != FL_FAILED) {
 467     canonise_fl(rtn);
 468   }
 469
 470   *locale = rtn;
 471   return success;
 472 }
 473
 474
 475 void
 476 FL_FreeLocale(FL_Locale **locale) {
 477   if (locale) {
 478     FL_Locale *l = *locale;
 479     if (l) {
 480       if (l->lang) {
 481         free((void*)l->lang);
 482       }
 483       if (l->country) {
 484         free((void*)l->country);
 485       }
 486       if (l->variant) {
 487         free((void*)l->variant);
 488       }
 489       free(l);
 490       *locale = NULL;
 491     }
 492   }
 493 }