/src/wget/lib/localcharset.c
Line | Count | Source (jump to first uncovered line) |
1 | | /* Determine a canonical name for the current locale's character encoding. |
2 | | |
3 | | Copyright (C) 2000-2006, 2008-2023 Free Software Foundation, Inc. |
4 | | |
5 | | This file is free software: you can redistribute it and/or modify |
6 | | it under the terms of the GNU Lesser General Public License as |
7 | | published by the Free Software Foundation; either version 2.1 of the |
8 | | License, or (at your option) any later version. |
9 | | |
10 | | This file is distributed in the hope that it will be useful, |
11 | | but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 | | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 | | GNU Lesser General Public License for more details. |
14 | | |
15 | | You should have received a copy of the GNU Lesser General Public License |
16 | | along with this program. If not, see <https://www.gnu.org/licenses/>. */ |
17 | | |
18 | | /* Written by Bruno Haible <bruno@clisp.org>. */ |
19 | | |
20 | | #include <config.h> |
21 | | |
22 | | /* Specification. */ |
23 | | #include "localcharset.h" |
24 | | |
25 | | #include <stddef.h> |
26 | | #include <stdio.h> |
27 | | #include <string.h> |
28 | | #include <stdlib.h> |
29 | | |
30 | | #if defined __APPLE__ && defined __MACH__ && HAVE_LANGINFO_CODESET |
31 | | # define DARWIN7 /* Darwin 7 or newer, i.e. Mac OS X 10.3 or newer */ |
32 | | #endif |
33 | | |
34 | | #if defined _WIN32 && !defined __CYGWIN__ |
35 | | # define WINDOWS_NATIVE |
36 | | # include <locale.h> |
37 | | #endif |
38 | | |
39 | | #if defined __EMX__ |
40 | | /* Assume EMX program runs on OS/2, even if compiled under DOS. */ |
41 | | # ifndef OS2 |
42 | | # define OS2 |
43 | | # endif |
44 | | #endif |
45 | | |
46 | | #if !defined WINDOWS_NATIVE |
47 | | # if HAVE_LANGINFO_CODESET |
48 | | # include <langinfo.h> |
49 | | # else |
50 | | # if 0 /* see comment regarding use of setlocale(), below */ |
51 | | # include <locale.h> |
52 | | # endif |
53 | | # endif |
54 | | # ifdef __CYGWIN__ |
55 | | # define WIN32_LEAN_AND_MEAN |
56 | | # include <windows.h> |
57 | | # endif |
58 | | #elif defined WINDOWS_NATIVE |
59 | | # define WIN32_LEAN_AND_MEAN |
60 | | # include <windows.h> |
61 | | /* For the use of setlocale() below, the Gnulib override in setlocale.c is |
62 | | not needed; see the platform lists in setlocale_null.m4. */ |
63 | | # undef setlocale |
64 | | #endif |
65 | | #if defined OS2 |
66 | | # define INCL_DOS |
67 | | # include <os2.h> |
68 | | #endif |
69 | | |
70 | | /* For MB_CUR_MAX_L */ |
71 | | #if defined DARWIN7 |
72 | | # include <xlocale.h> |
73 | | #endif |
74 | | |
75 | | |
76 | | #if HAVE_LANGINFO_CODESET || defined WINDOWS_NATIVE || defined OS2 |
77 | | |
78 | | /* On these platforms, we use a mapping from non-canonical encoding name |
79 | | to GNU canonical encoding name. */ |
80 | | |
81 | | /* With glibc-2.1 or newer, we don't need any canonicalization, |
82 | | because glibc has iconv and both glibc and libiconv support all |
83 | | GNU canonical names directly. */ |
84 | | # if !((defined __GNU_LIBRARY__ && __GLIBC__ >= 2) || defined __UCLIBC__) |
85 | | |
86 | | struct table_entry |
87 | | { |
88 | | const char alias[11+1]; |
89 | | const char canonical[11+1]; |
90 | | }; |
91 | | |
92 | | /* Table of platform-dependent mappings, sorted in ascending order. */ |
93 | | static const struct table_entry alias_table[] = |
94 | | { |
95 | | # if defined __FreeBSD__ /* FreeBSD */ |
96 | | /*{ "ARMSCII-8", "ARMSCII-8" },*/ |
97 | | { "Big5", "BIG5" }, |
98 | | { "C", "ASCII" }, |
99 | | /*{ "CP1131", "CP1131" },*/ |
100 | | /*{ "CP1251", "CP1251" },*/ |
101 | | /*{ "CP866", "CP866" },*/ |
102 | | /*{ "GB18030", "GB18030" },*/ |
103 | | /*{ "GB2312", "GB2312" },*/ |
104 | | /*{ "GBK", "GBK" },*/ |
105 | | /*{ "ISCII-DEV", "?" },*/ |
106 | | { "ISO8859-1", "ISO-8859-1" }, |
107 | | { "ISO8859-13", "ISO-8859-13" }, |
108 | | { "ISO8859-15", "ISO-8859-15" }, |
109 | | { "ISO8859-2", "ISO-8859-2" }, |
110 | | { "ISO8859-5", "ISO-8859-5" }, |
111 | | { "ISO8859-7", "ISO-8859-7" }, |
112 | | { "ISO8859-9", "ISO-8859-9" }, |
113 | | /*{ "KOI8-R", "KOI8-R" },*/ |
114 | | /*{ "KOI8-U", "KOI8-U" },*/ |
115 | | { "SJIS", "SHIFT_JIS" }, |
116 | | { "US-ASCII", "ASCII" }, |
117 | | { "eucCN", "GB2312" }, |
118 | | { "eucJP", "EUC-JP" }, |
119 | | { "eucKR", "EUC-KR" } |
120 | | # define alias_table_defined |
121 | | # endif |
122 | | # if defined __NetBSD__ /* NetBSD */ |
123 | | { "646", "ASCII" }, |
124 | | /*{ "ARMSCII-8", "ARMSCII-8" },*/ |
125 | | /*{ "BIG5", "BIG5" },*/ |
126 | | { "Big5-HKSCS", "BIG5-HKSCS" }, |
127 | | /*{ "CP1251", "CP1251" },*/ |
128 | | /*{ "CP866", "CP866" },*/ |
129 | | /*{ "GB18030", "GB18030" },*/ |
130 | | /*{ "GB2312", "GB2312" },*/ |
131 | | { "ISO8859-1", "ISO-8859-1" }, |
132 | | { "ISO8859-13", "ISO-8859-13" }, |
133 | | { "ISO8859-15", "ISO-8859-15" }, |
134 | | { "ISO8859-2", "ISO-8859-2" }, |
135 | | { "ISO8859-4", "ISO-8859-4" }, |
136 | | { "ISO8859-5", "ISO-8859-5" }, |
137 | | { "ISO8859-7", "ISO-8859-7" }, |
138 | | /*{ "KOI8-R", "KOI8-R" },*/ |
139 | | /*{ "KOI8-U", "KOI8-U" },*/ |
140 | | /*{ "PT154", "PT154" },*/ |
141 | | { "SJIS", "SHIFT_JIS" }, |
142 | | { "eucCN", "GB2312" }, |
143 | | { "eucJP", "EUC-JP" }, |
144 | | { "eucKR", "EUC-KR" }, |
145 | | { "eucTW", "EUC-TW" } |
146 | | # define alias_table_defined |
147 | | # endif |
148 | | # if defined __OpenBSD__ /* OpenBSD */ |
149 | | { "646", "ASCII" }, |
150 | | { "ISO8859-1", "ISO-8859-1" }, |
151 | | { "ISO8859-13", "ISO-8859-13" }, |
152 | | { "ISO8859-15", "ISO-8859-15" }, |
153 | | { "ISO8859-2", "ISO-8859-2" }, |
154 | | { "ISO8859-4", "ISO-8859-4" }, |
155 | | { "ISO8859-5", "ISO-8859-5" }, |
156 | | { "ISO8859-7", "ISO-8859-7" }, |
157 | | { "US-ASCII", "ASCII" } |
158 | | # define alias_table_defined |
159 | | # endif |
160 | | # if defined __APPLE__ && defined __MACH__ /* Mac OS X */ |
161 | | /* Darwin 7.5 has nl_langinfo(CODESET), but sometimes its value is |
162 | | useless: |
163 | | - It returns the empty string when LANG is set to a locale of the |
164 | | form ll_CC, although ll_CC/LC_CTYPE is a symlink to an UTF-8 |
165 | | LC_CTYPE file. |
166 | | - The environment variables LANG, LC_CTYPE, LC_ALL are not set by |
167 | | the system; nl_langinfo(CODESET) returns "US-ASCII" in this case. |
168 | | - The documentation says: |
169 | | "... all code that calls BSD system routines should ensure |
170 | | that the const *char parameters of these routines are in UTF-8 |
171 | | encoding. All BSD system functions expect their string |
172 | | parameters to be in UTF-8 encoding and nothing else." |
173 | | It also says |
174 | | "An additional caveat is that string parameters for files, |
175 | | paths, and other file-system entities must be in canonical |
176 | | UTF-8. In a canonical UTF-8 Unicode string, all decomposable |
177 | | characters are decomposed ..." |
178 | | but this is not true: You can pass non-decomposed UTF-8 strings |
179 | | to file system functions, and it is the OS which will convert |
180 | | them to decomposed UTF-8 before accessing the file system. |
181 | | - The Apple Terminal application displays UTF-8 by default. |
182 | | - However, other applications are free to use different encodings: |
183 | | - xterm uses ISO-8859-1 by default. |
184 | | - TextEdit uses MacRoman by default. |
185 | | We prefer UTF-8 over decomposed UTF-8-MAC because one should |
186 | | minimize the use of decomposed Unicode. Unfortunately, through the |
187 | | Darwin file system, decomposed UTF-8 strings are leaked into user |
188 | | space nevertheless. |
189 | | Then there are also the locales with encodings other than US-ASCII |
190 | | and UTF-8. These locales can be occasionally useful to users (e.g. |
191 | | when grepping through ISO-8859-1 encoded text files), when all their |
192 | | file names are in US-ASCII. |
193 | | */ |
194 | | { "ARMSCII-8", "ARMSCII-8" }, |
195 | | { "Big5", "BIG5" }, |
196 | | { "Big5HKSCS", "BIG5-HKSCS" }, |
197 | | { "CP1131", "CP1131" }, |
198 | | { "CP1251", "CP1251" }, |
199 | | { "CP866", "CP866" }, |
200 | | { "CP949", "CP949" }, |
201 | | { "GB18030", "GB18030" }, |
202 | | { "GB2312", "GB2312" }, |
203 | | { "GBK", "GBK" }, |
204 | | /*{ "ISCII-DEV", "?" },*/ |
205 | | { "ISO8859-1", "ISO-8859-1" }, |
206 | | { "ISO8859-13", "ISO-8859-13" }, |
207 | | { "ISO8859-15", "ISO-8859-15" }, |
208 | | { "ISO8859-2", "ISO-8859-2" }, |
209 | | { "ISO8859-4", "ISO-8859-4" }, |
210 | | { "ISO8859-5", "ISO-8859-5" }, |
211 | | { "ISO8859-7", "ISO-8859-7" }, |
212 | | { "ISO8859-9", "ISO-8859-9" }, |
213 | | { "KOI8-R", "KOI8-R" }, |
214 | | { "KOI8-U", "KOI8-U" }, |
215 | | { "PT154", "PT154" }, |
216 | | { "SJIS", "SHIFT_JIS" }, |
217 | | { "eucCN", "GB2312" }, |
218 | | { "eucJP", "EUC-JP" }, |
219 | | { "eucKR", "EUC-KR" } |
220 | | # define alias_table_defined |
221 | | # endif |
222 | | # if defined _AIX /* AIX */ |
223 | | /*{ "GBK", "GBK" },*/ |
224 | | { "IBM-1046", "CP1046" }, |
225 | | { "IBM-1124", "CP1124" }, |
226 | | { "IBM-1129", "CP1129" }, |
227 | | { "IBM-1252", "CP1252" }, |
228 | | { "IBM-850", "CP850" }, |
229 | | { "IBM-856", "CP856" }, |
230 | | { "IBM-921", "ISO-8859-13" }, |
231 | | { "IBM-922", "CP922" }, |
232 | | { "IBM-932", "CP932" }, |
233 | | { "IBM-943", "CP943" }, |
234 | | { "IBM-eucCN", "GB2312" }, |
235 | | { "IBM-eucJP", "EUC-JP" }, |
236 | | { "IBM-eucKR", "EUC-KR" }, |
237 | | { "IBM-eucTW", "EUC-TW" }, |
238 | | { "ISO8859-1", "ISO-8859-1" }, |
239 | | { "ISO8859-15", "ISO-8859-15" }, |
240 | | { "ISO8859-2", "ISO-8859-2" }, |
241 | | { "ISO8859-5", "ISO-8859-5" }, |
242 | | { "ISO8859-6", "ISO-8859-6" }, |
243 | | { "ISO8859-7", "ISO-8859-7" }, |
244 | | { "ISO8859-8", "ISO-8859-8" }, |
245 | | { "ISO8859-9", "ISO-8859-9" }, |
246 | | { "TIS-620", "TIS-620" }, |
247 | | /*{ "UTF-8", "UTF-8" },*/ |
248 | | { "big5", "BIG5" } |
249 | | # define alias_table_defined |
250 | | # endif |
251 | | # if defined __hpux /* HP-UX */ |
252 | | { "SJIS", "SHIFT_JIS" }, |
253 | | { "arabic8", "HP-ARABIC8" }, |
254 | | { "big5", "BIG5" }, |
255 | | { "cp1251", "CP1251" }, |
256 | | { "eucJP", "EUC-JP" }, |
257 | | { "eucKR", "EUC-KR" }, |
258 | | { "eucTW", "EUC-TW" }, |
259 | | { "gb18030", "GB18030" }, |
260 | | { "greek8", "HP-GREEK8" }, |
261 | | { "hebrew8", "HP-HEBREW8" }, |
262 | | { "hkbig5", "BIG5-HKSCS" }, |
263 | | { "hp15CN", "GB2312" }, |
264 | | { "iso88591", "ISO-8859-1" }, |
265 | | { "iso885913", "ISO-8859-13" }, |
266 | | { "iso885915", "ISO-8859-15" }, |
267 | | { "iso88592", "ISO-8859-2" }, |
268 | | { "iso88594", "ISO-8859-4" }, |
269 | | { "iso88595", "ISO-8859-5" }, |
270 | | { "iso88596", "ISO-8859-6" }, |
271 | | { "iso88597", "ISO-8859-7" }, |
272 | | { "iso88598", "ISO-8859-8" }, |
273 | | { "iso88599", "ISO-8859-9" }, |
274 | | { "kana8", "HP-KANA8" }, |
275 | | { "koi8r", "KOI8-R" }, |
276 | | { "roman8", "HP-ROMAN8" }, |
277 | | { "tis620", "TIS-620" }, |
278 | | { "turkish8", "HP-TURKISH8" }, |
279 | | { "utf8", "UTF-8" } |
280 | | # define alias_table_defined |
281 | | # endif |
282 | | # if defined __sgi /* IRIX */ |
283 | | { "ISO8859-1", "ISO-8859-1" }, |
284 | | { "ISO8859-15", "ISO-8859-15" }, |
285 | | { "ISO8859-2", "ISO-8859-2" }, |
286 | | { "ISO8859-5", "ISO-8859-5" }, |
287 | | { "ISO8859-7", "ISO-8859-7" }, |
288 | | { "ISO8859-9", "ISO-8859-9" }, |
289 | | { "eucCN", "GB2312" }, |
290 | | { "eucJP", "EUC-JP" }, |
291 | | { "eucKR", "EUC-KR" }, |
292 | | { "eucTW", "EUC-TW" } |
293 | | # define alias_table_defined |
294 | | # endif |
295 | | # if defined __osf__ /* OSF/1 */ |
296 | | /*{ "GBK", "GBK" },*/ |
297 | | { "ISO8859-1", "ISO-8859-1" }, |
298 | | { "ISO8859-15", "ISO-8859-15" }, |
299 | | { "ISO8859-2", "ISO-8859-2" }, |
300 | | { "ISO8859-4", "ISO-8859-4" }, |
301 | | { "ISO8859-5", "ISO-8859-5" }, |
302 | | { "ISO8859-7", "ISO-8859-7" }, |
303 | | { "ISO8859-8", "ISO-8859-8" }, |
304 | | { "ISO8859-9", "ISO-8859-9" }, |
305 | | { "KSC5601", "CP949" }, |
306 | | { "SJIS", "SHIFT_JIS" }, |
307 | | { "TACTIS", "TIS-620" }, |
308 | | /*{ "UTF-8", "UTF-8" },*/ |
309 | | { "big5", "BIG5" }, |
310 | | { "cp850", "CP850" }, |
311 | | { "dechanyu", "DEC-HANYU" }, |
312 | | { "dechanzi", "GB2312" }, |
313 | | { "deckanji", "DEC-KANJI" }, |
314 | | { "deckorean", "EUC-KR" }, |
315 | | { "eucJP", "EUC-JP" }, |
316 | | { "eucKR", "EUC-KR" }, |
317 | | { "eucTW", "EUC-TW" }, |
318 | | { "sdeckanji", "EUC-JP" } |
319 | | # define alias_table_defined |
320 | | # endif |
321 | | # if defined __sun /* Solaris */ |
322 | | { "5601", "EUC-KR" }, |
323 | | { "646", "ASCII" }, |
324 | | /*{ "BIG5", "BIG5" },*/ |
325 | | { "Big5-HKSCS", "BIG5-HKSCS" }, |
326 | | { "GB18030", "GB18030" }, |
327 | | /*{ "GBK", "GBK" },*/ |
328 | | { "ISO8859-1", "ISO-8859-1" }, |
329 | | { "ISO8859-11", "TIS-620" }, |
330 | | { "ISO8859-13", "ISO-8859-13" }, |
331 | | { "ISO8859-15", "ISO-8859-15" }, |
332 | | { "ISO8859-2", "ISO-8859-2" }, |
333 | | { "ISO8859-3", "ISO-8859-3" }, |
334 | | { "ISO8859-4", "ISO-8859-4" }, |
335 | | { "ISO8859-5", "ISO-8859-5" }, |
336 | | { "ISO8859-6", "ISO-8859-6" }, |
337 | | { "ISO8859-7", "ISO-8859-7" }, |
338 | | { "ISO8859-8", "ISO-8859-8" }, |
339 | | { "ISO8859-9", "ISO-8859-9" }, |
340 | | { "PCK", "SHIFT_JIS" }, |
341 | | { "TIS620.2533", "TIS-620" }, |
342 | | /*{ "UTF-8", "UTF-8" },*/ |
343 | | { "ansi-1251", "CP1251" }, |
344 | | { "cns11643", "EUC-TW" }, |
345 | | { "eucJP", "EUC-JP" }, |
346 | | { "gb2312", "GB2312" }, |
347 | | { "koi8-r", "KOI8-R" } |
348 | | # define alias_table_defined |
349 | | # endif |
350 | | # if defined __minix /* Minix */ |
351 | | { "646", "ASCII" } |
352 | | # define alias_table_defined |
353 | | # endif |
354 | | # if defined WINDOWS_NATIVE || defined __CYGWIN__ /* Windows */ |
355 | | { "CP1361", "JOHAB" }, |
356 | | { "CP20127", "ASCII" }, |
357 | | { "CP20866", "KOI8-R" }, |
358 | | { "CP20936", "GB2312" }, |
359 | | { "CP21866", "KOI8-RU" }, |
360 | | { "CP28591", "ISO-8859-1" }, |
361 | | { "CP28592", "ISO-8859-2" }, |
362 | | { "CP28593", "ISO-8859-3" }, |
363 | | { "CP28594", "ISO-8859-4" }, |
364 | | { "CP28595", "ISO-8859-5" }, |
365 | | { "CP28596", "ISO-8859-6" }, |
366 | | { "CP28597", "ISO-8859-7" }, |
367 | | { "CP28598", "ISO-8859-8" }, |
368 | | { "CP28599", "ISO-8859-9" }, |
369 | | { "CP28605", "ISO-8859-15" }, |
370 | | { "CP38598", "ISO-8859-8" }, |
371 | | { "CP51932", "EUC-JP" }, |
372 | | { "CP51936", "GB2312" }, |
373 | | { "CP51949", "EUC-KR" }, |
374 | | { "CP51950", "EUC-TW" }, |
375 | | { "CP54936", "GB18030" }, |
376 | | { "CP65001", "UTF-8" }, |
377 | | { "CP936", "GBK" } |
378 | | # define alias_table_defined |
379 | | # endif |
380 | | # if defined OS2 /* OS/2 */ |
381 | | /* The list of encodings is taken from "List of OS/2 Codepages" |
382 | | by Alex Taylor: |
383 | | <http://altsan.org/os2/toolkits/uls/index.html#codepages>. |
384 | | See also "__convcp() of kLIBC": |
385 | | <https://github.com/bitwiseworks/libc/blob/master/src/emx/src/lib/locale/__convcp.c>. */ |
386 | | { "CP1004", "CP1252" }, |
387 | | /*{ "CP1041", "CP943" },*/ |
388 | | /*{ "CP1088", "CP949" },*/ |
389 | | { "CP1089", "ISO-8859-6" }, |
390 | | /*{ "CP1114", "CP950" },*/ |
391 | | /*{ "CP1115", "GB2312" },*/ |
392 | | { "CP1208", "UTF-8" }, |
393 | | /*{ "CP1380", "GB2312" },*/ |
394 | | { "CP1381", "GB2312" }, |
395 | | { "CP1383", "GB2312" }, |
396 | | { "CP1386", "GBK" }, |
397 | | /*{ "CP301", "CP943" },*/ |
398 | | { "CP3372", "EUC-JP" }, |
399 | | { "CP4946", "CP850" }, |
400 | | /*{ "CP5048", "JIS_X0208-1990" },*/ |
401 | | /*{ "CP5049", "JIS_X0212-1990" },*/ |
402 | | /*{ "CP5067", "KS_C_5601-1987" },*/ |
403 | | { "CP813", "ISO-8859-7" }, |
404 | | { "CP819", "ISO-8859-1" }, |
405 | | { "CP878", "KOI8-R" }, |
406 | | /*{ "CP897", "CP943" },*/ |
407 | | { "CP912", "ISO-8859-2" }, |
408 | | { "CP913", "ISO-8859-3" }, |
409 | | { "CP914", "ISO-8859-4" }, |
410 | | { "CP915", "ISO-8859-5" }, |
411 | | { "CP916", "ISO-8859-8" }, |
412 | | { "CP920", "ISO-8859-9" }, |
413 | | { "CP921", "ISO-8859-13" }, |
414 | | { "CP923", "ISO-8859-15" }, |
415 | | /*{ "CP941", "CP943" },*/ |
416 | | /*{ "CP947", "CP950" },*/ |
417 | | /*{ "CP951", "CP949" },*/ |
418 | | /*{ "CP952", "JIS_X0208-1990" },*/ |
419 | | /*{ "CP953", "JIS_X0212-1990" },*/ |
420 | | { "CP954", "EUC-JP" }, |
421 | | { "CP964", "EUC-TW" }, |
422 | | { "CP970", "EUC-KR" }, |
423 | | /*{ "CP971", "KS_C_5601-1987" },*/ |
424 | | { "IBM-1004", "CP1252" }, |
425 | | /*{ "IBM-1006", "?" },*/ |
426 | | /*{ "IBM-1008", "?" },*/ |
427 | | /*{ "IBM-1041", "CP943" },*/ |
428 | | /*{ "IBM-1051", "?" },*/ |
429 | | /*{ "IBM-1088", "CP949" },*/ |
430 | | { "IBM-1089", "ISO-8859-6" }, |
431 | | /*{ "IBM-1098", "?" },*/ |
432 | | /*{ "IBM-1114", "CP950" },*/ |
433 | | /*{ "IBM-1115", "GB2312" },*/ |
434 | | /*{ "IBM-1116", "?" },*/ |
435 | | /*{ "IBM-1117", "?" },*/ |
436 | | /*{ "IBM-1118", "?" },*/ |
437 | | /*{ "IBM-1119", "?" },*/ |
438 | | { "IBM-1124", "CP1124" }, |
439 | | { "IBM-1125", "CP1125" }, |
440 | | { "IBM-1131", "CP1131" }, |
441 | | { "IBM-1208", "UTF-8" }, |
442 | | { "IBM-1250", "CP1250" }, |
443 | | { "IBM-1251", "CP1251" }, |
444 | | { "IBM-1252", "CP1252" }, |
445 | | { "IBM-1253", "CP1253" }, |
446 | | { "IBM-1254", "CP1254" }, |
447 | | { "IBM-1255", "CP1255" }, |
448 | | { "IBM-1256", "CP1256" }, |
449 | | { "IBM-1257", "CP1257" }, |
450 | | /*{ "IBM-1275", "?" },*/ |
451 | | /*{ "IBM-1276", "?" },*/ |
452 | | /*{ "IBM-1277", "?" },*/ |
453 | | /*{ "IBM-1280", "?" },*/ |
454 | | /*{ "IBM-1281", "?" },*/ |
455 | | /*{ "IBM-1282", "?" },*/ |
456 | | /*{ "IBM-1283", "?" },*/ |
457 | | /*{ "IBM-1380", "GB2312" },*/ |
458 | | { "IBM-1381", "GB2312" }, |
459 | | { "IBM-1383", "GB2312" }, |
460 | | { "IBM-1386", "GBK" }, |
461 | | /*{ "IBM-301", "CP943" },*/ |
462 | | { "IBM-3372", "EUC-JP" }, |
463 | | { "IBM-367", "ASCII" }, |
464 | | { "IBM-437", "CP437" }, |
465 | | { "IBM-4946", "CP850" }, |
466 | | /*{ "IBM-5048", "JIS_X0208-1990" },*/ |
467 | | /*{ "IBM-5049", "JIS_X0212-1990" },*/ |
468 | | /*{ "IBM-5067", "KS_C_5601-1987" },*/ |
469 | | { "IBM-813", "ISO-8859-7" }, |
470 | | { "IBM-819", "ISO-8859-1" }, |
471 | | { "IBM-850", "CP850" }, |
472 | | /*{ "IBM-851", "?" },*/ |
473 | | { "IBM-852", "CP852" }, |
474 | | { "IBM-855", "CP855" }, |
475 | | { "IBM-856", "CP856" }, |
476 | | { "IBM-857", "CP857" }, |
477 | | /*{ "IBM-859", "?" },*/ |
478 | | { "IBM-860", "CP860" }, |
479 | | { "IBM-861", "CP861" }, |
480 | | { "IBM-862", "CP862" }, |
481 | | { "IBM-863", "CP863" }, |
482 | | { "IBM-864", "CP864" }, |
483 | | { "IBM-865", "CP865" }, |
484 | | { "IBM-866", "CP866" }, |
485 | | /*{ "IBM-868", "?" },*/ |
486 | | { "IBM-869", "CP869" }, |
487 | | { "IBM-874", "CP874" }, |
488 | | { "IBM-878", "KOI8-R" }, |
489 | | /*{ "IBM-895", "?" },*/ |
490 | | /*{ "IBM-897", "CP943" },*/ |
491 | | /*{ "IBM-907", "?" },*/ |
492 | | /*{ "IBM-909", "?" },*/ |
493 | | { "IBM-912", "ISO-8859-2" }, |
494 | | { "IBM-913", "ISO-8859-3" }, |
495 | | { "IBM-914", "ISO-8859-4" }, |
496 | | { "IBM-915", "ISO-8859-5" }, |
497 | | { "IBM-916", "ISO-8859-8" }, |
498 | | { "IBM-920", "ISO-8859-9" }, |
499 | | { "IBM-921", "ISO-8859-13" }, |
500 | | { "IBM-922", "CP922" }, |
501 | | { "IBM-923", "ISO-8859-15" }, |
502 | | { "IBM-932", "CP932" }, |
503 | | /*{ "IBM-941", "CP943" },*/ |
504 | | /*{ "IBM-942", "?" },*/ |
505 | | { "IBM-943", "CP943" }, |
506 | | /*{ "IBM-947", "CP950" },*/ |
507 | | { "IBM-949", "CP949" }, |
508 | | { "IBM-950", "CP950" }, |
509 | | /*{ "IBM-951", "CP949" },*/ |
510 | | /*{ "IBM-952", "JIS_X0208-1990" },*/ |
511 | | /*{ "IBM-953", "JIS_X0212-1990" },*/ |
512 | | { "IBM-954", "EUC-JP" }, |
513 | | /*{ "IBM-955", "?" },*/ |
514 | | { "IBM-964", "EUC-TW" }, |
515 | | { "IBM-970", "EUC-KR" }, |
516 | | /*{ "IBM-971", "KS_C_5601-1987" },*/ |
517 | | { "IBM-eucCN", "GB2312" }, |
518 | | { "IBM-eucJP", "EUC-JP" }, |
519 | | { "IBM-eucKR", "EUC-KR" }, |
520 | | { "IBM-eucTW", "EUC-TW" }, |
521 | | { "IBM33722", "EUC-JP" }, |
522 | | { "ISO8859-1", "ISO-8859-1" }, |
523 | | { "ISO8859-2", "ISO-8859-2" }, |
524 | | { "ISO8859-3", "ISO-8859-3" }, |
525 | | { "ISO8859-4", "ISO-8859-4" }, |
526 | | { "ISO8859-5", "ISO-8859-5" }, |
527 | | { "ISO8859-6", "ISO-8859-6" }, |
528 | | { "ISO8859-7", "ISO-8859-7" }, |
529 | | { "ISO8859-8", "ISO-8859-8" }, |
530 | | { "ISO8859-9", "ISO-8859-9" }, |
531 | | /*{ "JISX0201-1976", "JISX0201-1976" },*/ |
532 | | /*{ "JISX0208-1978", "?" },*/ |
533 | | /*{ "JISX0208-1983", "JIS_X0208-1983" },*/ |
534 | | /*{ "JISX0208-1990", "JIS_X0208-1990" },*/ |
535 | | /*{ "JISX0212-1990", "JIS_X0212-1990" },*/ |
536 | | /*{ "KSC5601-1987", "KS_C_5601-1987" },*/ |
537 | | { "SJIS-1", "CP943" }, |
538 | | { "SJIS-2", "CP943" }, |
539 | | { "eucJP", "EUC-JP" }, |
540 | | { "eucKR", "EUC-KR" }, |
541 | | { "eucTW-1993", "EUC-TW" } |
542 | | # define alias_table_defined |
543 | | # endif |
544 | | # if defined VMS /* OpenVMS */ |
545 | | /* The list of encodings is taken from the OpenVMS 7.3-1 documentation |
546 | | "Compaq C Run-Time Library Reference Manual for OpenVMS systems" |
547 | | section 10.7 "Handling Different Character Sets". */ |
548 | | { "DECHANYU", "DEC-HANYU" }, |
549 | | { "DECHANZI", "GB2312" }, |
550 | | { "DECKANJI", "DEC-KANJI" }, |
551 | | { "DECKOREAN", "EUC-KR" }, |
552 | | { "ISO8859-1", "ISO-8859-1" }, |
553 | | { "ISO8859-2", "ISO-8859-2" }, |
554 | | { "ISO8859-5", "ISO-8859-5" }, |
555 | | { "ISO8859-7", "ISO-8859-7" }, |
556 | | { "ISO8859-8", "ISO-8859-8" }, |
557 | | { "ISO8859-9", "ISO-8859-9" }, |
558 | | { "SDECKANJI", "EUC-JP" }, |
559 | | { "SJIS", "SHIFT_JIS" }, |
560 | | { "eucJP", "EUC-JP" }, |
561 | | { "eucTW", "EUC-TW" } |
562 | | # define alias_table_defined |
563 | | # endif |
564 | | # ifndef alias_table_defined |
565 | | /* Just a dummy entry, to avoid a C syntax error. */ |
566 | | { "", "" } |
567 | | # endif |
568 | | }; |
569 | | |
570 | | # endif |
571 | | |
572 | | #else |
573 | | |
574 | | /* On these platforms, we use a mapping from locale name to GNU canonical |
575 | | encoding name. */ |
576 | | |
577 | | struct table_entry |
578 | | { |
579 | | const char locale[17+1]; |
580 | | const char canonical[11+1]; |
581 | | }; |
582 | | |
583 | | /* Table of platform-dependent mappings, sorted in ascending order. */ |
584 | | static const struct table_entry locale_table[] = |
585 | | { |
586 | | # if defined __FreeBSD__ /* FreeBSD 4.2 */ |
587 | | { "cs_CZ.ISO_8859-2", "ISO-8859-2" }, |
588 | | { "da_DK.DIS_8859-15", "ISO-8859-15" }, |
589 | | { "da_DK.ISO_8859-1", "ISO-8859-1" }, |
590 | | { "de_AT.DIS_8859-15", "ISO-8859-15" }, |
591 | | { "de_AT.ISO_8859-1", "ISO-8859-1" }, |
592 | | { "de_CH.DIS_8859-15", "ISO-8859-15" }, |
593 | | { "de_CH.ISO_8859-1", "ISO-8859-1" }, |
594 | | { "de_DE.DIS_8859-15", "ISO-8859-15" }, |
595 | | { "de_DE.ISO_8859-1", "ISO-8859-1" }, |
596 | | { "en_AU.DIS_8859-15", "ISO-8859-15" }, |
597 | | { "en_AU.ISO_8859-1", "ISO-8859-1" }, |
598 | | { "en_CA.DIS_8859-15", "ISO-8859-15" }, |
599 | | { "en_CA.ISO_8859-1", "ISO-8859-1" }, |
600 | | { "en_GB.DIS_8859-15", "ISO-8859-15" }, |
601 | | { "en_GB.ISO_8859-1", "ISO-8859-1" }, |
602 | | { "en_US.DIS_8859-15", "ISO-8859-15" }, |
603 | | { "en_US.ISO_8859-1", "ISO-8859-1" }, |
604 | | { "es_ES.DIS_8859-15", "ISO-8859-15" }, |
605 | | { "es_ES.ISO_8859-1", "ISO-8859-1" }, |
606 | | { "fi_FI.DIS_8859-15", "ISO-8859-15" }, |
607 | | { "fi_FI.ISO_8859-1", "ISO-8859-1" }, |
608 | | { "fr_BE.DIS_8859-15", "ISO-8859-15" }, |
609 | | { "fr_BE.ISO_8859-1", "ISO-8859-1" }, |
610 | | { "fr_CA.DIS_8859-15", "ISO-8859-15" }, |
611 | | { "fr_CA.ISO_8859-1", "ISO-8859-1" }, |
612 | | { "fr_CH.DIS_8859-15", "ISO-8859-15" }, |
613 | | { "fr_CH.ISO_8859-1", "ISO-8859-1" }, |
614 | | { "fr_FR.DIS_8859-15", "ISO-8859-15" }, |
615 | | { "fr_FR.ISO_8859-1", "ISO-8859-1" }, |
616 | | { "hr_HR.ISO_8859-2", "ISO-8859-2" }, |
617 | | { "hu_HU.ISO_8859-2", "ISO-8859-2" }, |
618 | | { "is_IS.DIS_8859-15", "ISO-8859-15" }, |
619 | | { "is_IS.ISO_8859-1", "ISO-8859-1" }, |
620 | | { "it_CH.DIS_8859-15", "ISO-8859-15" }, |
621 | | { "it_CH.ISO_8859-1", "ISO-8859-1" }, |
622 | | { "it_IT.DIS_8859-15", "ISO-8859-15" }, |
623 | | { "it_IT.ISO_8859-1", "ISO-8859-1" }, |
624 | | { "ja_JP.EUC", "EUC-JP" }, |
625 | | { "ja_JP.SJIS", "SHIFT_JIS" }, |
626 | | { "ja_JP.Shift_JIS", "SHIFT_JIS" }, |
627 | | { "ko_KR.EUC", "EUC-KR" }, |
628 | | { "la_LN.ASCII", "ASCII" }, |
629 | | { "la_LN.DIS_8859-15", "ISO-8859-15" }, |
630 | | { "la_LN.ISO_8859-1", "ISO-8859-1" }, |
631 | | { "la_LN.ISO_8859-2", "ISO-8859-2" }, |
632 | | { "la_LN.ISO_8859-4", "ISO-8859-4" }, |
633 | | { "lt_LN.ASCII", "ASCII" }, |
634 | | { "lt_LN.DIS_8859-15", "ISO-8859-15" }, |
635 | | { "lt_LN.ISO_8859-1", "ISO-8859-1" }, |
636 | | { "lt_LN.ISO_8859-2", "ISO-8859-2" }, |
637 | | { "lt_LT.ISO_8859-4", "ISO-8859-4" }, |
638 | | { "nl_BE.DIS_8859-15", "ISO-8859-15" }, |
639 | | { "nl_BE.ISO_8859-1", "ISO-8859-1" }, |
640 | | { "nl_NL.DIS_8859-15", "ISO-8859-15" }, |
641 | | { "nl_NL.ISO_8859-1", "ISO-8859-1" }, |
642 | | { "no_NO.DIS_8859-15", "ISO-8859-15" }, |
643 | | { "no_NO.ISO_8859-1", "ISO-8859-1" }, |
644 | | { "pl_PL.ISO_8859-2", "ISO-8859-2" }, |
645 | | { "pt_PT.DIS_8859-15", "ISO-8859-15" }, |
646 | | { "pt_PT.ISO_8859-1", "ISO-8859-1" }, |
647 | | { "ru_RU.CP866", "CP866" }, |
648 | | { "ru_RU.ISO_8859-5", "ISO-8859-5" }, |
649 | | { "ru_RU.KOI8-R", "KOI8-R" }, |
650 | | { "ru_SU.CP866", "CP866" }, |
651 | | { "ru_SU.ISO_8859-5", "ISO-8859-5" }, |
652 | | { "ru_SU.KOI8-R", "KOI8-R" }, |
653 | | { "sl_SI.ISO_8859-2", "ISO-8859-2" }, |
654 | | { "sv_SE.DIS_8859-15", "ISO-8859-15" }, |
655 | | { "sv_SE.ISO_8859-1", "ISO-8859-1" }, |
656 | | { "uk_UA.KOI8-U", "KOI8-U" }, |
657 | | { "zh_CN.EUC", "GB2312" }, |
658 | | { "zh_TW.BIG5", "BIG5" }, |
659 | | { "zh_TW.Big5", "BIG5" } |
660 | | # define locale_table_defined |
661 | | # endif |
662 | | # if defined __DJGPP__ /* DOS / DJGPP 2.03 */ |
663 | | /* The encodings given here may not all be correct. |
664 | | If you find that the encoding given for your language and |
665 | | country is not the one your DOS machine actually uses, just |
666 | | correct it in this file, and send a mail to |
667 | | Juan Manuel Guerrero <juan.guerrero@gmx.de> |
668 | | and <bug-gnulib@gnu.org>. */ |
669 | | { "C", "ASCII" }, |
670 | | { "ar", "CP864" }, |
671 | | { "ar_AE", "CP864" }, |
672 | | { "ar_DZ", "CP864" }, |
673 | | { "ar_EG", "CP864" }, |
674 | | { "ar_IQ", "CP864" }, |
675 | | { "ar_IR", "CP864" }, |
676 | | { "ar_JO", "CP864" }, |
677 | | { "ar_KW", "CP864" }, |
678 | | { "ar_MA", "CP864" }, |
679 | | { "ar_OM", "CP864" }, |
680 | | { "ar_QA", "CP864" }, |
681 | | { "ar_SA", "CP864" }, |
682 | | { "ar_SY", "CP864" }, |
683 | | { "be", "CP866" }, |
684 | | { "be_BE", "CP866" }, |
685 | | { "bg", "CP866" }, /* not CP855 ?? */ |
686 | | { "bg_BG", "CP866" }, /* not CP855 ?? */ |
687 | | { "ca", "CP850" }, |
688 | | { "ca_ES", "CP850" }, |
689 | | { "cs", "CP852" }, |
690 | | { "cs_CZ", "CP852" }, |
691 | | { "da", "CP865" }, /* not CP850 ?? */ |
692 | | { "da_DK", "CP865" }, /* not CP850 ?? */ |
693 | | { "de", "CP850" }, |
694 | | { "de_AT", "CP850" }, |
695 | | { "de_CH", "CP850" }, |
696 | | { "de_DE", "CP850" }, |
697 | | { "el", "CP869" }, |
698 | | { "el_GR", "CP869" }, |
699 | | { "en", "CP850" }, |
700 | | { "en_AU", "CP850" }, /* not CP437 ?? */ |
701 | | { "en_CA", "CP850" }, |
702 | | { "en_GB", "CP850" }, |
703 | | { "en_NZ", "CP437" }, |
704 | | { "en_US", "CP437" }, |
705 | | { "en_ZA", "CP850" }, /* not CP437 ?? */ |
706 | | { "eo", "CP850" }, |
707 | | { "eo_EO", "CP850" }, |
708 | | { "es", "CP850" }, |
709 | | { "es_AR", "CP850" }, |
710 | | { "es_BO", "CP850" }, |
711 | | { "es_CL", "CP850" }, |
712 | | { "es_CO", "CP850" }, |
713 | | { "es_CR", "CP850" }, |
714 | | { "es_CU", "CP850" }, |
715 | | { "es_DO", "CP850" }, |
716 | | { "es_EC", "CP850" }, |
717 | | { "es_ES", "CP850" }, |
718 | | { "es_GT", "CP850" }, |
719 | | { "es_HN", "CP850" }, |
720 | | { "es_MX", "CP850" }, |
721 | | { "es_NI", "CP850" }, |
722 | | { "es_PA", "CP850" }, |
723 | | { "es_PE", "CP850" }, |
724 | | { "es_PY", "CP850" }, |
725 | | { "es_SV", "CP850" }, |
726 | | { "es_UY", "CP850" }, |
727 | | { "es_VE", "CP850" }, |
728 | | { "et", "CP850" }, |
729 | | { "et_EE", "CP850" }, |
730 | | { "eu", "CP850" }, |
731 | | { "eu_ES", "CP850" }, |
732 | | { "fi", "CP850" }, |
733 | | { "fi_FI", "CP850" }, |
734 | | { "fr", "CP850" }, |
735 | | { "fr_BE", "CP850" }, |
736 | | { "fr_CA", "CP850" }, |
737 | | { "fr_CH", "CP850" }, |
738 | | { "fr_FR", "CP850" }, |
739 | | { "ga", "CP850" }, |
740 | | { "ga_IE", "CP850" }, |
741 | | { "gd", "CP850" }, |
742 | | { "gd_GB", "CP850" }, |
743 | | { "gl", "CP850" }, |
744 | | { "gl_ES", "CP850" }, |
745 | | { "he", "CP862" }, |
746 | | { "he_IL", "CP862" }, |
747 | | { "hr", "CP852" }, |
748 | | { "hr_HR", "CP852" }, |
749 | | { "hu", "CP852" }, |
750 | | { "hu_HU", "CP852" }, |
751 | | { "id", "CP850" }, /* not CP437 ?? */ |
752 | | { "id_ID", "CP850" }, /* not CP437 ?? */ |
753 | | { "is", "CP861" }, /* not CP850 ?? */ |
754 | | { "is_IS", "CP861" }, /* not CP850 ?? */ |
755 | | { "it", "CP850" }, |
756 | | { "it_CH", "CP850" }, |
757 | | { "it_IT", "CP850" }, |
758 | | { "ja", "CP932" }, |
759 | | { "ja_JP", "CP932" }, |
760 | | { "kr", "CP949" }, /* not CP934 ?? */ |
761 | | { "kr_KR", "CP949" }, /* not CP934 ?? */ |
762 | | { "lt", "CP775" }, |
763 | | { "lt_LT", "CP775" }, |
764 | | { "lv", "CP775" }, |
765 | | { "lv_LV", "CP775" }, |
766 | | { "mk", "CP866" }, /* not CP855 ?? */ |
767 | | { "mk_MK", "CP866" }, /* not CP855 ?? */ |
768 | | { "mt", "CP850" }, |
769 | | { "mt_MT", "CP850" }, |
770 | | { "nb", "CP865" }, /* not CP850 ?? */ |
771 | | { "nb_NO", "CP865" }, /* not CP850 ?? */ |
772 | | { "nl", "CP850" }, |
773 | | { "nl_BE", "CP850" }, |
774 | | { "nl_NL", "CP850" }, |
775 | | { "nn", "CP865" }, /* not CP850 ?? */ |
776 | | { "nn_NO", "CP865" }, /* not CP850 ?? */ |
777 | | { "no", "CP865" }, /* not CP850 ?? */ |
778 | | { "no_NO", "CP865" }, /* not CP850 ?? */ |
779 | | { "pl", "CP852" }, |
780 | | { "pl_PL", "CP852" }, |
781 | | { "pt", "CP850" }, |
782 | | { "pt_BR", "CP850" }, |
783 | | { "pt_PT", "CP850" }, |
784 | | { "ro", "CP852" }, |
785 | | { "ro_RO", "CP852" }, |
786 | | { "ru", "CP866" }, |
787 | | { "ru_RU", "CP866" }, |
788 | | { "sk", "CP852" }, |
789 | | { "sk_SK", "CP852" }, |
790 | | { "sl", "CP852" }, |
791 | | { "sl_SI", "CP852" }, |
792 | | { "sq", "CP852" }, |
793 | | { "sq_AL", "CP852" }, |
794 | | { "sr", "CP852" }, /* CP852 or CP866 or CP855 ?? */ |
795 | | { "sr_CS", "CP852" }, /* CP852 or CP866 or CP855 ?? */ |
796 | | { "sr_YU", "CP852" }, /* CP852 or CP866 or CP855 ?? */ |
797 | | { "sv", "CP850" }, |
798 | | { "sv_SE", "CP850" }, |
799 | | { "th", "CP874" }, |
800 | | { "th_TH", "CP874" }, |
801 | | { "tr", "CP857" }, |
802 | | { "tr_TR", "CP857" }, |
803 | | { "uk", "CP1125" }, |
804 | | { "uk_UA", "CP1125" }, |
805 | | { "zh_CN", "GBK" }, |
806 | | { "zh_TW", "CP950" } /* not CP938 ?? */ |
807 | | # define locale_table_defined |
808 | | # endif |
809 | | # ifndef locale_table_defined |
810 | | /* Just a dummy entry, to avoid a C syntax error. */ |
811 | | { "", "" } |
812 | | # endif |
813 | | }; |
814 | | |
815 | | #endif |
816 | | |
817 | | |
818 | | /* Determine the current locale's character encoding, and canonicalize it |
819 | | into one of the canonical names listed below. |
820 | | The result must not be freed; it is statically allocated. The result |
821 | | becomes invalid when setlocale() is used to change the global locale, or |
822 | | when the value of one of the environment variables LC_ALL, LC_CTYPE, LANG |
823 | | is changed; threads in multithreaded programs should not do this. |
824 | | If the canonical name cannot be determined, the result is a non-canonical |
825 | | name. */ |
826 | | |
827 | | #ifdef STATIC |
828 | | STATIC |
829 | | #endif |
830 | | const char * |
831 | | locale_charset (void) |
832 | 0 | { |
833 | 0 | const char *codeset; |
834 | | |
835 | | /* This function must be multithread-safe. To achieve this without using |
836 | | thread-local storage, we use a simple strcpy or memcpy to fill this static |
837 | | buffer. Filling it through, for example, strcpy + strcat would not be |
838 | | guaranteed to leave the buffer's contents intact if another thread is |
839 | | currently accessing it. If necessary, the contents is first assembled in |
840 | | a stack-allocated buffer. */ |
841 | |
|
842 | 0 | #if HAVE_LANGINFO_CODESET || defined WINDOWS_NATIVE || defined OS2 |
843 | |
|
844 | 0 | # if HAVE_LANGINFO_CODESET |
845 | | |
846 | | /* Most systems support nl_langinfo (CODESET) nowadays. */ |
847 | 0 | codeset = nl_langinfo (CODESET); |
848 | |
|
849 | | # ifdef __CYGWIN__ |
850 | | /* Cygwin < 1.7 does not have locales. nl_langinfo (CODESET) always |
851 | | returns "US-ASCII". Return the suffix of the locale name from the |
852 | | environment variables (if present) or the codepage as a number. */ |
853 | | if (codeset != NULL && strcmp (codeset, "US-ASCII") == 0) |
854 | | { |
855 | | const char *locale; |
856 | | static char resultbuf[2 + 10 + 1]; |
857 | | |
858 | | locale = getenv ("LC_ALL"); |
859 | | if (locale == NULL || locale[0] == '\0') |
860 | | { |
861 | | locale = getenv ("LC_CTYPE"); |
862 | | if (locale == NULL || locale[0] == '\0') |
863 | | locale = getenv ("LANG"); |
864 | | } |
865 | | if (locale != NULL && locale[0] != '\0') |
866 | | { |
867 | | /* If the locale name contains an encoding after the dot, return |
868 | | it. */ |
869 | | const char *dot = strchr (locale, '.'); |
870 | | |
871 | | if (dot != NULL) |
872 | | { |
873 | | const char *modifier; |
874 | | |
875 | | dot++; |
876 | | /* Look for the possible @... trailer and remove it, if any. */ |
877 | | modifier = strchr (dot, '@'); |
878 | | if (modifier == NULL) |
879 | | return dot; |
880 | | if (modifier - dot < sizeof (resultbuf)) |
881 | | { |
882 | | /* This way of filling resultbuf is multithread-safe. */ |
883 | | memcpy (resultbuf, dot, modifier - dot); |
884 | | resultbuf [modifier - dot] = '\0'; |
885 | | return resultbuf; |
886 | | } |
887 | | } |
888 | | } |
889 | | |
890 | | /* The Windows API has a function returning the locale's codepage as a |
891 | | number: GetACP(). This encoding is used by Cygwin, unless the user |
892 | | has set the environment variable CYGWIN=codepage:oem (which very few |
893 | | people do). |
894 | | Output directed to console windows needs to be converted (to |
895 | | GetOEMCP() if the console is using a raster font, or to |
896 | | GetConsoleOutputCP() if it is using a TrueType font). Cygwin does |
897 | | this conversion transparently (see winsup/cygwin/fhandler_console.cc), |
898 | | converting to GetConsoleOutputCP(). This leads to correct results, |
899 | | except when SetConsoleOutputCP has been called and a raster font is |
900 | | in use. */ |
901 | | { |
902 | | char buf[2 + 10 + 1]; |
903 | | |
904 | | sprintf (buf, "CP%u", GetACP ()); |
905 | | strcpy (resultbuf, buf); |
906 | | codeset = resultbuf; |
907 | | } |
908 | | } |
909 | | # endif |
910 | |
|
911 | 0 | if (codeset == NULL) |
912 | | /* The canonical name cannot be determined. */ |
913 | 0 | codeset = ""; |
914 | |
|
915 | | # elif defined WINDOWS_NATIVE |
916 | | |
917 | | char buf[2 + 10 + 1]; |
918 | | static char resultbuf[2 + 10 + 1]; |
919 | | |
920 | | /* The Windows API has a function returning the locale's codepage as |
921 | | a number, but the value doesn't change according to what the |
922 | | 'setlocale' call specified. So we use it as a last resort, in |
923 | | case the string returned by 'setlocale' doesn't specify the |
924 | | codepage. */ |
925 | | char *current_locale = setlocale (LC_CTYPE, NULL); |
926 | | char *pdot = strrchr (current_locale, '.'); |
927 | | |
928 | | if (pdot && 2 + strlen (pdot + 1) + 1 <= sizeof (buf)) |
929 | | sprintf (buf, "CP%s", pdot + 1); |
930 | | else |
931 | | { |
932 | | /* The Windows API has a function returning the locale's codepage as a |
933 | | number: GetACP(). |
934 | | When the output goes to a console window, it needs to be provided in |
935 | | GetOEMCP() encoding if the console is using a raster font, or in |
936 | | GetConsoleOutputCP() encoding if it is using a TrueType font. |
937 | | But in GUI programs and for output sent to files and pipes, GetACP() |
938 | | encoding is the best bet. */ |
939 | | sprintf (buf, "CP%u", GetACP ()); |
940 | | } |
941 | | /* For a locale name such as "French_France.65001", in Windows 10, |
942 | | setlocale now returns "French_France.utf8" instead. */ |
943 | | if (strcmp (buf + 2, "65001") == 0 || strcmp (buf + 2, "utf8") == 0) |
944 | | codeset = "UTF-8"; |
945 | | else |
946 | | { |
947 | | strcpy (resultbuf, buf); |
948 | | codeset = resultbuf; |
949 | | } |
950 | | |
951 | | # elif defined OS2 |
952 | | |
953 | | const char *locale; |
954 | | static char resultbuf[2 + 10 + 1]; |
955 | | ULONG cp[3]; |
956 | | ULONG cplen; |
957 | | |
958 | | codeset = NULL; |
959 | | |
960 | | /* Allow user to override the codeset, as set in the operating system, |
961 | | with standard language environment variables. */ |
962 | | locale = getenv ("LC_ALL"); |
963 | | if (locale == NULL || locale[0] == '\0') |
964 | | { |
965 | | locale = getenv ("LC_CTYPE"); |
966 | | if (locale == NULL || locale[0] == '\0') |
967 | | locale = getenv ("LANG"); |
968 | | } |
969 | | if (locale != NULL && locale[0] != '\0') |
970 | | { |
971 | | /* If the locale name contains an encoding after the dot, return it. */ |
972 | | const char *dot = strchr (locale, '.'); |
973 | | |
974 | | if (dot != NULL) |
975 | | { |
976 | | const char *modifier; |
977 | | |
978 | | dot++; |
979 | | /* Look for the possible @... trailer and remove it, if any. */ |
980 | | modifier = strchr (dot, '@'); |
981 | | if (modifier == NULL) |
982 | | return dot; |
983 | | if (modifier - dot < sizeof (resultbuf)) |
984 | | { |
985 | | /* This way of filling resultbuf is multithread-safe. */ |
986 | | memcpy (resultbuf, dot, modifier - dot); |
987 | | resultbuf [modifier - dot] = '\0'; |
988 | | return resultbuf; |
989 | | } |
990 | | } |
991 | | |
992 | | /* For the POSIX locale, don't use the system's codepage. */ |
993 | | if (strcmp (locale, "C") == 0 || strcmp (locale, "POSIX") == 0) |
994 | | codeset = ""; |
995 | | } |
996 | | |
997 | | if (codeset == NULL) |
998 | | { |
999 | | /* OS/2 has a function returning the locale's codepage as a number. */ |
1000 | | if (DosQueryCp (sizeof (cp), cp, &cplen)) |
1001 | | codeset = ""; |
1002 | | else |
1003 | | { |
1004 | | char buf[2 + 10 + 1]; |
1005 | | |
1006 | | sprintf (buf, "CP%u", cp[0]); |
1007 | | strcpy (resultbuf, buf); |
1008 | | codeset = resultbuf; |
1009 | | } |
1010 | | } |
1011 | | |
1012 | | # else |
1013 | | |
1014 | | # error "Add code for other platforms here." |
1015 | | |
1016 | | # endif |
1017 | | |
1018 | | /* Resolve alias. */ |
1019 | 0 | { |
1020 | | # ifdef alias_table_defined |
1021 | | /* On some platforms, UTF-8 locales are the most frequently used ones. |
1022 | | Speed up the common case and slow down the less common cases by |
1023 | | testing for this case first. */ |
1024 | | # if defined __OpenBSD__ || (defined __APPLE__ && defined __MACH__) || defined __sun || defined __CYGWIN__ |
1025 | | if (strcmp (codeset, "UTF-8") == 0) |
1026 | | goto done_table_lookup; |
1027 | | else |
1028 | | # endif |
1029 | | { |
1030 | | const struct table_entry * const table = alias_table; |
1031 | | size_t const table_size = |
1032 | | sizeof (alias_table) / sizeof (struct table_entry); |
1033 | | /* The table is sorted. Perform a binary search. */ |
1034 | | size_t hi = table_size; |
1035 | | size_t lo = 0; |
1036 | | while (lo < hi) |
1037 | | { |
1038 | | /* Invariant: |
1039 | | for i < lo, strcmp (table[i].alias, codeset) < 0, |
1040 | | for i >= hi, strcmp (table[i].alias, codeset) > 0. */ |
1041 | | size_t mid = (hi + lo) >> 1; /* >= lo, < hi */ |
1042 | | int cmp = strcmp (table[mid].alias, codeset); |
1043 | | if (cmp < 0) |
1044 | | lo = mid + 1; |
1045 | | else if (cmp > 0) |
1046 | | hi = mid; |
1047 | | else |
1048 | | { |
1049 | | /* Found an i with |
1050 | | strcmp (table[i].alias, codeset) == 0. */ |
1051 | | codeset = table[mid].canonical; |
1052 | | goto done_table_lookup; |
1053 | | } |
1054 | | } |
1055 | | } |
1056 | | if (0) |
1057 | | done_table_lookup: ; |
1058 | | else |
1059 | | # endif |
1060 | 0 | { |
1061 | | /* Did not find it in the table. */ |
1062 | | /* On Mac OS X, all modern locales use the UTF-8 encoding. |
1063 | | BeOS and Haiku have a single locale, and it has UTF-8 encoding. */ |
1064 | | # if (defined __APPLE__ && defined __MACH__) || defined __BEOS__ || defined __HAIKU__ |
1065 | | codeset = "UTF-8"; |
1066 | | # else |
1067 | | /* Don't return an empty string. GNU libc and GNU libiconv interpret |
1068 | | the empty string as denoting "the locale's character encoding", |
1069 | | thus GNU libiconv would call this function a second time. */ |
1070 | 0 | if (codeset[0] == '\0') |
1071 | 0 | codeset = "ASCII"; |
1072 | 0 | # endif |
1073 | 0 | } |
1074 | 0 | } |
1075 | |
|
1076 | | #else |
1077 | | |
1078 | | /* On old systems which lack it, use setlocale or getenv. */ |
1079 | | const char *locale = NULL; |
1080 | | |
1081 | | /* But most old systems don't have a complete set of locales. Some |
1082 | | (like DJGPP) have only the C locale. Therefore we don't use setlocale |
1083 | | here; it would return "C" when it doesn't support the locale name the |
1084 | | user has set. */ |
1085 | | # if 0 |
1086 | | locale = setlocale (LC_CTYPE, NULL); |
1087 | | # endif |
1088 | | if (locale == NULL || locale[0] == '\0') |
1089 | | { |
1090 | | locale = getenv ("LC_ALL"); |
1091 | | if (locale == NULL || locale[0] == '\0') |
1092 | | { |
1093 | | locale = getenv ("LC_CTYPE"); |
1094 | | if (locale == NULL || locale[0] == '\0') |
1095 | | locale = getenv ("LANG"); |
1096 | | if (locale == NULL) |
1097 | | locale = ""; |
1098 | | } |
1099 | | } |
1100 | | |
1101 | | /* Map locale name to canonical encoding name. */ |
1102 | | { |
1103 | | # ifdef locale_table_defined |
1104 | | const struct table_entry * const table = locale_table; |
1105 | | size_t const table_size = |
1106 | | sizeof (locale_table) / sizeof (struct table_entry); |
1107 | | /* The table is sorted. Perform a binary search. */ |
1108 | | size_t hi = table_size; |
1109 | | size_t lo = 0; |
1110 | | while (lo < hi) |
1111 | | { |
1112 | | /* Invariant: |
1113 | | for i < lo, strcmp (table[i].locale, locale) < 0, |
1114 | | for i >= hi, strcmp (table[i].locale, locale) > 0. */ |
1115 | | size_t mid = (hi + lo) >> 1; /* >= lo, < hi */ |
1116 | | int cmp = strcmp (table[mid].locale, locale); |
1117 | | if (cmp < 0) |
1118 | | lo = mid + 1; |
1119 | | else if (cmp > 0) |
1120 | | hi = mid; |
1121 | | else |
1122 | | { |
1123 | | /* Found an i with |
1124 | | strcmp (table[i].locale, locale) == 0. */ |
1125 | | codeset = table[mid].canonical; |
1126 | | goto done_table_lookup; |
1127 | | } |
1128 | | } |
1129 | | if (0) |
1130 | | done_table_lookup: ; |
1131 | | else |
1132 | | # endif |
1133 | | { |
1134 | | /* Did not find it in the table. */ |
1135 | | /* On Mac OS X, all modern locales use the UTF-8 encoding. |
1136 | | BeOS and Haiku have a single locale, and it has UTF-8 encoding. */ |
1137 | | # if (defined __APPLE__ && defined __MACH__) || defined __BEOS__ || defined __HAIKU__ |
1138 | | codeset = "UTF-8"; |
1139 | | # else |
1140 | | /* The canonical name cannot be determined. */ |
1141 | | /* Don't return an empty string. GNU libc and GNU libiconv interpret |
1142 | | the empty string as denoting "the locale's character encoding", |
1143 | | thus GNU libiconv would call this function a second time. */ |
1144 | | codeset = "ASCII"; |
1145 | | # endif |
1146 | | } |
1147 | | } |
1148 | | |
1149 | | #endif |
1150 | |
|
1151 | | #ifdef DARWIN7 |
1152 | | /* Mac OS X sets MB_CUR_MAX to 1 when LC_ALL=C, and "UTF-8" |
1153 | | (the default codeset) does not work when MB_CUR_MAX is 1. */ |
1154 | | if (strcmp (codeset, "UTF-8") == 0 && MB_CUR_MAX_L (uselocale (NULL)) <= 1) |
1155 | | codeset = "ASCII"; |
1156 | | #endif |
1157 | |
|
1158 | 0 | return codeset; |
1159 | 0 | } |