localename.c

磁盘管理工具,主要管理光盘信息和内容希望大家喜欢

  retval = getenv (categoryname);
  if (retval != NULL && retval[0] != '\0')
    return retval;
  /* Last possibility is the LANG environment variable.  */
  retval = getenv ("LANG");
  if (retval != NULL && retval[0] != '\0')
    return retval;

  return NULL;
#endif
}

const char *
_nl_locale_name_default (void)
{
  /* POSIX:2001 says:
     "All implementations shall define a locale as the default locale, to be
      invoked when no environment variables are set, or set to the empty
      string.  This default locale can be the POSIX locale or any other
      implementation-defined locale.  Some implementations may provide
      facilities for local installation administrators to set the default
      locale, customizing it for each location.  POSIX:2001 does not require
      such a facility.  */

#if !(HAVE_CFLOCALECOPYCURRENT || HAVE_CFPREFERENCESCOPYAPPVALUE || defined(WIN32_NATIVE))

  /* The system does not have a way of setting the locale, other than the
     POSIX specified environment variables.  We use C as default locale.  */
  return "C";

#else

  /* Return an XPG style locale name language[_territory][@modifier].
     Don't even bother determining the codeset; it's not useful in this
     context, because message catalogs are not specific to a single
     codeset.  */

# if HAVE_CFLOCALECOPYCURRENT || HAVE_CFPREFERENCESCOPYAPPVALUE
  /* MacOS X 10.2 or newer */
  {
    /* Cache the locale name, since CoreFoundation calls are expensive.  */
    static const char *cached_localename;

    if (cached_localename == NULL)
      {
	char namebuf[256];
#  if HAVE_CFLOCALECOPYCURRENT /* MacOS X 10.3 or newer */
	CFLocaleRef locale = CFLocaleCopyCurrent ();
	CFStringRef name = CFLocaleGetIdentifier (locale);

	if (CFStringGetCString (name, namebuf, sizeof(namebuf),
				kCFStringEncodingASCII))
	  {
	    _nl_locale_name_canonicalize (namebuf);
	    cached_localename = strdup (namebuf);
	  }
	CFRelease (locale);
#  elif HAVE_CFPREFERENCESCOPYAPPVALUE /* MacOS X 10.2 or newer */
	CFTypeRef value =
	  CFPreferencesCopyAppValue (CFSTR ("AppleLocale"),
				     kCFPreferencesCurrentApplication);
	if (value != NULL
	    && CFGetTypeID (value) == CFStringGetTypeID ()
	    && CFStringGetCString ((CFStringRef)value, namebuf, sizeof(namebuf),
				   kCFStringEncodingASCII))
	  {
	    _nl_locale_name_canonicalize (namebuf);
	    cached_localename = strdup (namebuf);
	  }
#  endif
	if (cached_localename == NULL)
	  cached_localename = "C";
      }
    return cached_localename;
  }

# endif

# if defined(WIN32_NATIVE) /* WIN32, not Cygwin */
  {
    LCID lcid;
    LANGID langid;
    int primary, sub;

    /* Use native Win32 API locale ID.  */
    lcid = GetThreadLocale ();

    /* Strip off the sorting rules, keep only the language part.  */
    langid = LANGIDFROMLCID (lcid);

    /* Split into language and territory part.  */
    primary = PRIMARYLANGID (langid);
    sub = SUBLANGID (langid);

    /* Dispatch on language.
       See also http://www.unicode.org/unicode/onlinedat/languages.html .
       For details about languages, see http://www.ethnologue.com/ .  */
    switch (primary)
      {
      case LANG_AFRIKAANS: return "af_ZA";
      case LANG_ALBANIAN: return "sq_AL";
      case LANG_AMHARIC: return "am_ET";
      case LANG_ARABIC:
	switch (sub)
	  {
	  case SUBLANG_ARABIC_SAUDI_ARABIA: return "ar_SA";
	  case SUBLANG_ARABIC_IRAQ: return "ar_IQ";
	  case SUBLANG_ARABIC_EGYPT: return "ar_EG";
	  case SUBLANG_ARABIC_LIBYA: return "ar_LY";
	  case SUBLANG_ARABIC_ALGERIA: return "ar_DZ";
	  case SUBLANG_ARABIC_MOROCCO: return "ar_MA";
	  case SUBLANG_ARABIC_TUNISIA: return "ar_TN";
	  case SUBLANG_ARABIC_OMAN: return "ar_OM";
	  case SUBLANG_ARABIC_YEMEN: return "ar_YE";
	  case SUBLANG_ARABIC_SYRIA: return "ar_SY";
	  case SUBLANG_ARABIC_JORDAN: return "ar_JO";
	  case SUBLANG_ARABIC_LEBANON: return "ar_LB";
	  case SUBLANG_ARABIC_KUWAIT: return "ar_KW";
	  case SUBLANG_ARABIC_UAE: return "ar_AE";
	  case SUBLANG_ARABIC_BAHRAIN: return "ar_BH";
	  case SUBLANG_ARABIC_QATAR: return "ar_QA";
	  }
	return "ar";
      case LANG_ARMENIAN: return "hy_AM";
      case LANG_ASSAMESE: return "as_IN";
      case LANG_AZERI:
	switch (sub)
	  {
	  /* FIXME: Adjust this when Azerbaijani locales appear on Unix.  */
	  case SUBLANG_AZERI_LATIN: return "az_AZ@latin";
	  case SUBLANG_AZERI_CYRILLIC: return "az_AZ@cyrillic";
	  }
	return "az";
      case LANG_BASQUE:
	switch (sub)
	  {
	  case SUBLANG_DEFAULT: return "eu_ES";
	  }
	return "eu"; /* Ambiguous: could be "eu_ES" or "eu_FR".  */
      case LANG_BELARUSIAN: return "be_BY";
      case LANG_BENGALI:
	switch (sub)
	  {
	  case SUBLANG_BENGALI_INDIA: return "bn_IN";
	  case SUBLANG_BENGALI_BANGLADESH: return "bn_BD";
	  }
	return "bn";
      case LANG_BULGARIAN: return "bg_BG";
      case LANG_BURMESE: return "my_MM";
      case LANG_CAMBODIAN: return "km_KH";
      case LANG_CATALAN: return "ca_ES";
      case LANG_CHEROKEE: return "chr_US";
      case LANG_CHINESE:
	switch (sub)
	  {
	  case SUBLANG_CHINESE_TRADITIONAL: return "zh_TW";
	  case SUBLANG_CHINESE_SIMPLIFIED: return "zh_CN";
	  case SUBLANG_CHINESE_HONGKONG: return "zh_HK";
	  case SUBLANG_CHINESE_SINGAPORE: return "zh_SG";
	  case SUBLANG_CHINESE_MACAU: return "zh_MO";
	  }
	return "zh";
      case LANG_CROATIAN:       /* LANG_CROATIAN == LANG_SERBIAN
				 * What used to be called Serbo-Croatian
				 * should really now be two separate
				 * languages because of political reasons.
				 * (Says tml, who knows nothing about Serbian
				 * or Croatian.)
				 * (I can feel those flames coming already.)
				 */
	switch (sub)
	  {
	  case SUBLANG_DEFAULT: return "hr_HR";
	  case SUBLANG_SERBIAN_LATIN: return "sr_CS";
	  case SUBLANG_SERBIAN_CYRILLIC: return "sr_CS@cyrillic";
	  }
	return "hr";
      case LANG_CZECH: return "cs_CZ";
      case LANG_DANISH: return "da_DK";
      case LANG_DIVEHI: return "dv_MV";
      case LANG_DUTCH:
	switch (sub)
	  {
	  case SUBLANG_DUTCH: return "nl_NL";
	  case SUBLANG_DUTCH_BELGIAN: /* FLEMISH, VLAAMS */ return "nl_BE";
	  }
	return "nl";
      case LANG_EDO: return "bin_NG";
      case LANG_ENGLISH:
	switch (sub)
	  {
	  /* SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. Heh. I thought
	   * English was the language spoken in England.
	   * Oh well.
	   */
	  case SUBLANG_ENGLISH_US: return "en_US";
	  case SUBLANG_ENGLISH_UK: return "en_GB";
	  case SUBLANG_ENGLISH_AUS: return "en_AU";
	  case SUBLANG_ENGLISH_CAN: return "en_CA";
	  case SUBLANG_ENGLISH_NZ: return "en_NZ";
	  case SUBLANG_ENGLISH_EIRE: return "en_IE";
	  case SUBLANG_ENGLISH_SOUTH_AFRICA: return "en_ZA";
	  case SUBLANG_ENGLISH_JAMAICA: return "en_JM";
	  case SUBLANG_ENGLISH_CARIBBEAN: return "en_GD"; /* Grenada? */
	  case SUBLANG_ENGLISH_BELIZE: return "en_BZ";
	  case SUBLANG_ENGLISH_TRINIDAD: return "en_TT";
	  case SUBLANG_ENGLISH_ZIMBABWE: return "en_ZW";
	  case SUBLANG_ENGLISH_PHILIPPINES: return "en_PH";
	  case SUBLANG_ENGLISH_INDONESIA: return "en_ID";
	  case SUBLANG_ENGLISH_HONGKONG: return "en_HK";
	  case SUBLANG_ENGLISH_INDIA: return "en_IN";
	  case SUBLANG_ENGLISH_MALAYSIA: return "en_MY";
	  case SUBLANG_ENGLISH_SINGAPORE: return "en_SG";
	  }
	return "en";
      case LANG_ESTONIAN: return "et_EE";
      case LANG_FAEROESE: return "fo_FO";
      case LANG_FARSI: return "fa_IR";
      case LANG_FINNISH: return "fi_FI";
      case LANG_FRENCH:
	switch (sub)
	  {
	  case SUBLANG_FRENCH: return "fr_FR";
	  case SUBLANG_FRENCH_BELGIAN: /* WALLOON */ return "fr_BE";
	  case SUBLANG_FRENCH_CANADIAN: return "fr_CA";
	  case SUBLANG_FRENCH_SWISS: return "fr_CH";
	  case SUBLANG_FRENCH_LUXEMBOURG: return "fr_LU";
	  case SUBLANG_FRENCH_MONACO: return "fr_MC";
	  case SUBLANG_FRENCH_WESTINDIES: return "fr"; /* Caribbean? */
	  case SUBLANG_FRENCH_REUNION: return "fr_RE";
	  case SUBLANG_FRENCH_CONGO: return "fr_CG";
	  case SUBLANG_FRENCH_SENEGAL: return "fr_SN";
	  case SUBLANG_FRENCH_CAMEROON: return "fr_CM";
	  case SUBLANG_FRENCH_COTEDIVOIRE: return "fr_CI";
	  case SUBLANG_FRENCH_MALI: return "fr_ML";
	  case SUBLANG_FRENCH_MOROCCO: return "fr_MA";
	  case SUBLANG_FRENCH_HAITI: return "fr_HT";
	  }
	return "fr";
      case LANG_FRISIAN: return "fy_NL";
      case LANG_FULFULDE:
	/* Spoken in Nigeria, Guinea, Senegal, Mali, Niger, Cameroon, Benin.  */
	return "ff_NG";
      case LANG_GAELIC:
	switch (sub)
	  {
	  case 0x01: /* SCOTTISH */ return "gd_GB";
	  case 0x02: /* IRISH */ return "ga_IE";
	  }
	return "C";
      case LANG_GALICIAN: return "gl_ES";
      case LANG_GEORGIAN: return "ka_GE";
      case LANG_GERMAN:
	switch (sub)
	  {
	  case SUBLANG_GERMAN: return "de_DE";
	  case SUBLANG_GERMAN_SWISS: return "de_CH";
	  case SUBLANG_GERMAN_AUSTRIAN: return "de_AT";
	  case SUBLANG_GERMAN_LUXEMBOURG: return "de_LU";
	  case SUBLANG_GERMAN_LIECHTENSTEIN: return "de_LI";
	  }
	return "de";
      case LANG_GREEK: return "el_GR";
      case LANG_GUARANI: return "gn_PY";
      case LANG_GUJARATI: return "gu_IN";
      case LANG_HAUSA: return "ha_NG";
      case LANG_HAWAIIAN:
	/* FIXME: Do they mean Hawaiian ("haw_US", 1000 speakers)
	   or Hawaii Creole English ("cpe_US", 600000 speakers)?  */
	return "cpe_US";
      case LANG_HEBREW: return "he_IL";
      case LANG_HINDI: return "hi_IN";
      case LANG_HUNGARIAN: return "hu_HU";
      case LANG_IBIBIO: return "nic_NG";
      case LANG_ICELANDIC: return "is_IS";
      case LANG_IGBO: return "ig_NG";
      case LANG_INDONESIAN: return "id_ID";
      case LANG_INUKTITUT: return "iu_CA";
      case LANG_ITALIAN:
	switch (sub)
	  {
	  case SUBLANG_ITALIAN: return "it_IT";
	  case SUBLANG_ITALIAN_SWISS: return "it_CH";
	  }
	return "it";
      case LANG_JAPANESE: return "ja_JP";
      case LANG_KANNADA: return "kn_IN";
      case LANG_KANURI: return "kr_NG";
      case LANG_KASHMIRI:
	switch (sub)
	  {
	  case SUBLANG_DEFAULT: return "ks_PK";
	  case SUBLANG_KASHMIRI_INDIA: return "ks_IN";
	  }
	return "ks";
      case LANG_KAZAK: return "kk_KZ";
      case LANG_KONKANI:
	/* FIXME: Adjust this when such locales appear on Unix.  */
	return "kok_IN";
      case LANG_KOREAN: return "ko_KR";
      case LANG_KYRGYZ: return "ky_KG";
      case LANG_LAO: return "lo_LA";
      case LANG_LATIN: return "la_VA";
      case LANG_LATVIAN: return "lv_LV";
      case LANG_LITHUANIAN: return "lt_LT";
      case LANG_MACEDONIAN: return "mk_MK";
      case LANG_MALAY:
	switch (sub)
	  {
	  case SUBLANG_MALAY_MALAYSIA: return "ms_MY";
	  case SUBLANG_MALAY_BRUNEI_DARUSSALAM: return "ms_BN";
	  }
	return "ms";
      case LANG_MALAYALAM: return "ml_IN";
      case LANG_MALTESE: return "mt_MT";
      case LANG_MANIPURI:
	/* FIXME: Adjust this when such locales appear on Unix.  */
	return "mni_IN";
      case LANG_MARATHI: return "mr_IN";
      case LANG_MONGOLIAN:
	switch (sub)
	  {
	  case SUBLANG_DEFAULT: return "mn_MN";
	  }
	return "mn"; /* Ambiguous: could be "mn_CN" or "mn_MN".  */
      case LANG_NEPALI:
	switch (sub)
	  {
	  case SUBLANG_DEFAULT: return "ne_NP";
	  case SUBLANG_NEPALI_INDIA: return "ne_IN";
	  }
	return "ne";
      case LANG_NORWEGIAN:
	switch (sub)
	  {
	  case SUBLANG_NORWEGIAN_BOKMAL: return "nb_NO";
	  case SUBLANG_NORWEGIAN_NYNORSK: return "nn_NO";
	  }
	return "no";
      case LANG_ORIYA: return "or_IN";
      case LANG_OROMO: return "om_ET";
      case LANG_PAPIAMENTU: return "pap_AN";
      case LANG_PASHTO:
	return "ps"; /* Ambiguous: could be "ps_PK" or "ps_AF".  */
      case LANG_POLISH: return "pl_PL";
      case LANG_PORTUGUESE:
	switch (sub)
	  {
	  case SUBLANG_PORTUGUESE: return "pt_PT";
	  /* Hmm. SUBLANG_PORTUGUESE_BRAZILIAN == SUBLANG_DEFAULT.
	     Same phenomenon as SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. */
	  case SUBLANG_PORTUGUESE_BRAZILIAN: return "pt_BR";
	  }
	return "pt";
      case LANG_PUNJABI:
	switch (sub)
	  {
	  case SUBLANG_PUNJABI_INDIA: return "pa_IN"; /* Gurmukhi script */
	  case SUBLANG_PUNJABI_PAKISTAN: return "pa_PK"; /* Arabic script */
	  }
	return "pa";
      case LANG_RHAETO_ROMANCE: return "rm_CH";
      case LANG_ROMANIAN:
	switch (sub)
	  {
	  case SUBLANG_ROMANIAN_ROMANIA: return "ro_RO";
	  case SUBLANG_ROMANIAN_MOLDOVA: return "ro_MD";
	  }
	return "ro";
      case LANG_RUSSIAN:
	switch (sub)
	  {
	  case SUBLANG_DEFAULT: return "ru_RU";
	  }
	return "ru"; /* Ambiguous: could be "ru_RU" or "ru_UA" or "ru_MD".  */
      case LANG_SAAMI: /* actually Northern Sami */ return "se_NO";
      case LANG_SANSKRIT: return "sa_IN";
      case LANG_SINDHI:
	switch (sub)
	  {
	  case SUBLANG_SINDHI_INDIA: return "sd_IN";
	  case SUBLANG_SINDHI_PAKISTAN: return "sd_PK";
	  }
	return "sd";
      case LANG_SINHALESE: return "si_LK";
      case LANG_SLOVAK: return "sk_SK";
      case LANG_SLOVENIAN: return "sl_SI";
      case LANG_SOMALI: return "so_SO";
      case LANG_SORBIAN:
	/* FIXME: Adjust this when such locales appear on Unix.  */
	return "wen_DE";
      case LANG_SPANISH:
	switch (sub)
	  {
	  case SUBLANG_SPANISH: return "es_ES";
	  case SUBLANG_SPANISH_MEXICAN: return "es_MX";
	  case SUBLANG_SPANISH_MODERN:
	    return "es_ES@modern";	/* not seen on Unix */
	  case SUBLANG_SPANISH_GUATEMALA: return "es_GT";
	  case SUBLANG_SPANISH_COSTA_RICA: return "es_CR";
	  case SUBLANG_SPANISH_PANAMA: return "es_PA";
	  case SUBLANG_SPANISH_DOMINICAN_REPUBLIC: return "es_DO";
	  case SUBLANG_SPANISH_VENEZUELA: return "es_VE";
	  case SUBLANG_SPANISH_COLOMBIA: return "es_CO";
	  case SUBLANG_SPANISH_PERU: return "es_PE";
	  case SUBLANG_SPANISH_ARGENTINA: return "es_AR";
	  case SUBLANG_SPANISH_ECUADOR: return "es_EC";
	  case SUBLANG_SPANISH_CHILE: return "es_CL";
	  case SUBLANG_SPANISH_URUGUAY: return "es_UY";
	  case SUBLANG_SPANISH_PARAGUAY: return "es_PY";
	  case SUBLANG_SPANISH_BOLIVIA: return "es_BO";
	  case SUBLANG_SPANISH_EL_SALVADOR: return "es_SV";
	  case SUBLANG_SPANISH_HONDURAS: return "es_HN";
	  case SUBLANG_SPANISH_NICARAGUA: return "es_NI";
	  case SUBLANG_SPANISH_PUERTO_RICO: return "es_PR";
	  }
	return "es";
      case LANG_SUTU: return "bnt_TZ"; /* or "st_LS" or "nso_ZA"? */
      case LANG_SWAHILI: return "sw_KE";
      case LANG_SWEDISH:
	switch (sub)
	  {
	  case SUBLANG_DEFAULT: return "sv_SE";
	  case SUBLANG_SWEDISH_FINLAND: return "sv_FI";
	  }
	return "sv";
      case LANG_SYRIAC: return "syr_TR"; /* An extinct language.  */
      case LANG_TAGALOG: return "tl_PH";
      case LANG_TAJIK: return "tg_TJ";
      case LANG_TAMAZIGHT:
	switch (sub)
	  {
	  /* FIXME: Adjust this when Tamazight locales appear on Unix.  */
	  case SUBLANG_TAMAZIGHT_ARABIC: return "ber_MA@arabic";
	  case SUBLANG_TAMAZIGHT_LATIN: return "ber_MA@latin";
	  }
	return "ber_MA";
      case LANG_TAMIL:
	switch (sub)
	  {
	  case SUBLANG_DEFAULT: return "ta_IN";
	  }
	return "ta"; /* Ambiguous: could be "ta_IN" or "ta_LK" or "ta_SG".  */
      case LANG_TATAR: return "tt_RU";
      case LANG_TELUGU: return "te_IN";
      case LANG_THAI: return "th_TH";
      case LANG_TIBETAN: return "bo_CN";
      case LANG_TIGRINYA:
	switch (sub)
	  {
	  case SUBLANG_TIGRINYA_ETHIOPIA: return "ti_ET";
	  case SUBLANG_TIGRINYA_ERITREA: return "ti_ER";
	  }
	return "ti";
      case LANG_TSONGA: return "ts_ZA";
      case LANG_TSWANA: return "tn_BW";
      case LANG_TURKISH: return "tr_TR";
      case LANG_TURKMEN: return "tk_TM";
      case LANG_UKRAINIAN: return "uk_UA";
      case LANG_URDU:
	switch (sub)
	  {
	  case SUBLANG_URDU_PAKISTAN: return "ur_PK";
	  case SUBLANG_URDU_INDIA: return "ur_IN";
	  }
	return "ur";
      case LANG_UZBEK:
	switch (sub)
	  {
	  case SUBLANG_UZBEK_LATIN: return "uz_UZ";
	  case SUBLANG_UZBEK_CYRILLIC: return "uz_UZ@cyrillic";
	  }
	return "uz";
      case LANG_VENDA: return "ve_ZA";
      case LANG_VIETNAMESE: return "vi_VN";
      case LANG_WELSH: return "cy_GB";
      case LANG_XHOSA: return "xh_ZA";
      case LANG_YI: return "sit_CN";
      case LANG_YIDDISH: return "yi_IL";
      case LANG_YORUBA: return "yo_NG";
      case LANG_ZULU: return "zu_ZA";
      default: return "C";
      }
  }
# endif
#endif
}

const char *
_nl_locale_name (int category, const char *categoryname)
{
  const char *retval;

  retval = _nl_locale_name_posix (category, categoryname);
  if (retval != NULL)
    return retval;

  return _nl_locale_name_default ();
}