2 * locale.c: try very hard to figure out the libcharset charset
3 * identifier corresponding to the current C library locale.
5 * This function works by calling nl_langinfo(CODESET) if
6 * available; failing that, it will try to figure it out manually
7 * by examining the locale environment variables. Code for the
8 * latter is adapted from Markus Kuhn's public-domain
9 * implementation of nl_langinfo(CODESET), available at
11 * http://www.cl.cam.ac.uk/~mgk25/ucs/langinfo.c
18 #ifdef HAS_LANGINFO_CODESET
22 int charset_from_locale(void)
26 #ifdef HAS_LANGINFO_CODESET
30 csname
= nl_langinfo(CODESET
);
32 (charset
= charset_from_localenc(csname
)) != CS_NONE
)
36 if (((l
= getenv("LC_ALL")) && *l
) ||
37 ((l
= getenv("LC_CTYPE")) && *l
) ||
38 ((l
= getenv("LANG")) && *l
)) {
39 /* check standardized locales */
40 if (!strcmp(l
, "C") || !strcmp(l
, "POSIX"))
42 /* check for encoding name fragment */
43 if (strstr(l
, "UTF") || strstr(l
, "utf"))
45 if ((p
= strstr(l
, "8859-"))) {
49 memcpy(buf
, "ISO-8859-\0\0", 12);
51 if ((*p
) >= '0' && (*p
) <= '9') {
53 if ((*p
) >= '0' && (*p
) <= '9') buf
[10] = *p
++;
54 if ((charset
= charset_from_localenc(buf
)) != CS_NONE
)
58 if (strstr(l
, "KOI8-RU")) return CS_KOI8_RU
;
59 if (strstr(l
, "KOI8-R")) return CS_KOI8_R
;
60 if (strstr(l
, "KOI8-U")) return CS_KOI8_U
;
61 /* if (strstr(l, "620")) return "TIS-620"; */
62 if (strstr(l
, "2312")) return CS_EUC_CN
;
63 /* if (strstr(l, "HKSCS")) return "Big5HKSCS"; */
64 if (strstr(l
, "Big5") || strstr(l
, "BIG5")) return CS_BIG5
;
65 /* if (strstr(l, "GBK")) return "GBK"; */
66 /* if (strstr(l, "18030")) return "GB18030"; */
67 if (strstr(l
, "Shift_JIS") || strstr(l
, "SJIS")) return CS_SHIFT_JIS
;
68 /* check for conclusive modifier */
69 if (strstr(l
, "euro")) return CS_ISO8859_15
;
70 /* check for language (and perhaps country) codes */
71 if (strstr(l
, "zh_TW")) return CS_BIG5
;
72 /* if (strstr(l, "zh_HK")) return "Big5HKSCS"; */
73 if (strstr(l
, "zh")) return CS_EUC_CN
;
74 if (strstr(l
, "ja")) return CS_EUC_JP
;
75 if (strstr(l
, "ko")) return CS_EUC_KR
;
76 if (strstr(l
, "ru")) return CS_KOI8_R
;
77 if (strstr(l
, "uk")) return CS_KOI8_U
;
78 if (strstr(l
, "pl") || strstr(l
, "hr") ||
79 strstr(l
, "hu") || strstr(l
, "cs") ||
80 strstr(l
, "sk") || strstr(l
, "sl")) return CS_ISO8859_2
;
81 if (strstr(l
, "eo") || strstr(l
, "mt")) return CS_ISO8859_3
;
82 if (strstr(l
, "el")) return CS_ISO8859_7
;
83 if (strstr(l
, "he")) return CS_ISO8859_8
;
84 if (strstr(l
, "tr")) return CS_ISO8859_9
;
85 /* if (strstr(l, "th")) return "TIS-620"; */
86 if (strstr(l
, "lt")) return CS_ISO8859_13
;
87 if (strstr(l
, "cy")) return CS_ISO8859_14
;
88 if (strstr(l
, "ro")) return CS_ISO8859_2
; /* or ISO-8859-16 */
89 if (strstr(l
, "am") || strstr(l
, "vi")) return CS_UTF8
;