1 /*
2 * Copyright (c) 2010 Corinna Vinschen <corinna@vinschen.de>
3 *
4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions
6 * are met:
7 * 1. Redistributions of source code must retain the above copyright
8 * notice, this list of conditions and the following disclaimer.
9 * 2. Redistributions in binary form must reproduce the above copyright
10 * notice, this list of conditions and the following disclaimer in the
11 * documentation and/or other materials provided with the distribution.
12 *
13 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
14 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
15 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
16 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
17 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23 * SUCH DAMAGE.
24 */
25
26 #include "setlocale.h"
27
28 #define LCCTYPE_SIZE (sizeof(struct lc_ctype_T) / sizeof(char *))
29
30 static const char numone[] = { '\1', '\0'};
31
32 const struct lc_ctype_T _C_ctype_locale = {
33 "ASCII", /* codeset */
34 numone /* mb_cur_max */
35 #ifdef __HAVE_LOCALE_INFO_EXTENDED__
36 ,
37 { "0", "1", "2", "3", "4", /* outdigits */
38 "5", "6", "7", "8", "9" },
39 { L"0", L"1", L"2", L"3", L"4", /* woutdigits */
40 L"5", L"6", L"7", L"8", L"9" }
41 #endif
42 };
43
44 #ifdef __CYGWIN__
45 static const char numsix[] = { '\6', '\0'};
46
47 const struct lc_ctype_T _C_utf8_ctype_locale = {
48 "UTF-8", /* codeset */
49 numsix /* mb_cur_max */
50 #ifdef __HAVE_LOCALE_INFO_EXTENDED__
51 ,
52 { "0", "1", "2", "3", "4", /* outdigits */
53 "5", "6", "7", "8", "9" },
54 { L"0", L"1", L"2", L"3", L"4", /* woutdigits */
55 L"5", L"6", L"7", L"8", L"9" }
56 #endif
57 };
58
59 /* NULL locale indicates global locale (called from setlocale) */
60 int
__ctype_load_locale(struct __locale_t * locale,const char * name,void * f_wctomb,const char * charset,int mb_cur_max)61 __ctype_load_locale (struct __locale_t *locale, const char *name,
62 void *f_wctomb, const char *charset, int mb_cur_max)
63 {
64 int ret;
65 struct lc_ctype_T ct;
66 char *bufp = NULL;
67
68 extern int __set_lc_ctype_from_win (const char *, const struct lc_ctype_T *,
69 struct lc_ctype_T *, char **, void *,
70 const char *, int);
71 ret = __set_lc_ctype_from_win (name, &_C_ctype_locale, &ct, &bufp,
72 f_wctomb, charset, mb_cur_max);
73 /* ret == -1: error, ret == 0: C/POSIX, ret > 0: valid */
74 if (ret >= 0)
75 {
76 struct lc_ctype_T *ctp = NULL;
77
78 if (ret > 0)
79 {
80 ctp = (struct lc_ctype_T *) calloc (1, sizeof *ctp);
81 if (!ctp)
82 {
83 free (bufp);
84 return -1;
85 }
86 *ctp = ct;
87 }
88 struct __lc_cats tmp = locale->lc_cat[LC_CTYPE];
89 locale->lc_cat[LC_CTYPE].ptr = ret == 0 ? &_C_ctype_locale : ctp;
90 locale->lc_cat[LC_CTYPE].buf = bufp;
91 /* If buf is not NULL, both pointers have been alloc'ed */
92 if (tmp.buf)
93 {
94 free ((void *) tmp.ptr);
95 free (tmp.buf);
96 }
97 ret = 0;
98 }
99 return ret;
100 }
101 #endif
102
