1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/build/stlport/src/c_locale_win32/c_wlocale_win32.c Wed Dec 31 06:09:35 2014 +0100
1.3 @@ -0,0 +1,314 @@
1.4 +/*
1.5 + * Copyright (c) 2007 2008
1.6 + * Francois Dumont
1.7 + *
1.8 + * This material is provided "as is", with absolutely no warranty expressed
1.9 + * or implied. Any use is at your own risk.
1.10 + *
1.11 + * Permission to use or copy this software for any purpose is hereby granted
1.12 + * without fee, provided the above notices are retained on all copies.
1.13 + * Permission to modify the code and to distribute modified code is granted,
1.14 + * provided the above notices are retained, and a notice that the code was
1.15 + * modified is included with the above copyright notice.
1.16 + *
1.17 + */
1.18 +
1.19 +#if defined (_STLP_USE_SAFE_STRING_FUNCTIONS)
1.20 +# define _STLP_WCSNCPY(D, DS, S, C) wcsncpy_s(D, DS, S, C)
1.21 +#else
1.22 +# define _STLP_WCSNCPY(D, DS, S, C) wcsncpy(D, S, C)
1.23 +#endif
1.24 +
1.25 +static const wchar_t* __wtrue_name = L"true";
1.26 +static const wchar_t* __wfalse_name = L"false";
1.27 +
1.28 +typedef struct _Locale_codecvt {
1.29 + _Locale_lcid_t lc;
1.30 + UINT cp;
1.31 + unsigned char cleads[256 / CHAR_BIT];
1.32 + unsigned char max_char_size;
1.33 + DWORD mbtowc_flags;
1.34 + DWORD wctomb_flags;
1.35 +} _Locale_codecvt_t;
1.36 +
1.37 +/* Ctype */
1.38 +_Locale_mask_t _WLocale_ctype(_Locale_ctype_t* ltype, wint_t c,
1.39 + _Locale_mask_t which_bits) {
1.40 + wchar_t buf[2];
1.41 + WORD out[2];
1.42 + buf[0] = c; buf[1] = 0;
1.43 + GetStringTypeW(CT_CTYPE1, buf, -1, out);
1.44 + _STLP_MARK_PARAMETER_AS_UNUSED(ltype)
1.45 + return (_Locale_mask_t)(MapCtypeMask(out[0]) & which_bits);
1.46 +}
1.47 +
1.48 +wint_t _WLocale_tolower(_Locale_ctype_t* ltype, wint_t c) {
1.49 + wchar_t in_c = c;
1.50 + wchar_t res;
1.51 +
1.52 + LCMapStringW(ltype->lc.id, LCMAP_LOWERCASE, &in_c, 1, &res, 1);
1.53 + return res;
1.54 +}
1.55 +
1.56 +wint_t _WLocale_toupper(_Locale_ctype_t* ltype, wint_t c) {
1.57 + wchar_t in_c = c;
1.58 + wchar_t res;
1.59 +
1.60 + LCMapStringW(ltype->lc.id, LCMAP_UPPERCASE, &in_c, 1, &res, 1);
1.61 + return res;
1.62 +}
1.63 +
1.64 +_Locale_codecvt_t* _Locale_codecvt_create(const char * name, _Locale_lcid_t* lc_hint, int *__err_code) {
1.65 + char cp_name[MAX_CP_LEN + 1];
1.66 + unsigned char *ptr;
1.67 + CPINFO CPInfo;
1.68 + int i;
1.69 +
1.70 + _Locale_codecvt_t *lcodecvt = (_Locale_codecvt_t*)malloc(sizeof(_Locale_codecvt_t));
1.71 +
1.72 + if (!lcodecvt) { *__err_code = _STLP_LOC_NO_MEMORY; return lcodecvt; }
1.73 + memset(lcodecvt, 0, sizeof(_Locale_codecvt_t));
1.74 +
1.75 + if (__GetLCIDFromName(name, &lcodecvt->lc.id, cp_name, lc_hint) == -1)
1.76 + { free(lcodecvt); *__err_code = _STLP_LOC_UNKNOWN_NAME; return NULL; }
1.77 +
1.78 + lcodecvt->cp = atoi(cp_name);
1.79 + if (!GetCPInfo(lcodecvt->cp, &CPInfo)) { free(lcodecvt); return NULL; }
1.80 +
1.81 + if (lcodecvt->cp != CP_UTF7 && lcodecvt->cp != CP_UTF8) {
1.82 + lcodecvt->mbtowc_flags = MB_PRECOMPOSED;
1.83 + lcodecvt->wctomb_flags = WC_COMPOSITECHECK | WC_SEPCHARS;
1.84 + }
1.85 + lcodecvt->max_char_size = CPInfo.MaxCharSize;
1.86 +
1.87 + if (CPInfo.MaxCharSize > 1) {
1.88 + for (ptr = (unsigned char*)CPInfo.LeadByte; *ptr && *(ptr + 1); ptr += 2)
1.89 + for (i = *ptr; i <= *(ptr + 1); ++i) lcodecvt->cleads[i / CHAR_BIT] |= (0x01 << i % CHAR_BIT);
1.90 + }
1.91 +
1.92 + return lcodecvt;
1.93 +}
1.94 +
1.95 +char const* _Locale_codecvt_name(const _Locale_codecvt_t* lcodecvt, char* buf) {
1.96 + char cp_buf[MAX_CP_LEN + 1];
1.97 + my_ltoa(lcodecvt->cp, cp_buf);
1.98 + return __GetLocaleName(lcodecvt->lc.id, cp_buf, buf);
1.99 +}
1.100 +
1.101 +void _Locale_codecvt_destroy(_Locale_codecvt_t* lcodecvt) {
1.102 + if (!lcodecvt) return;
1.103 +
1.104 + free(lcodecvt);
1.105 +}
1.106 +
1.107 +int _WLocale_mb_cur_max (_Locale_codecvt_t * lcodecvt)
1.108 +{ return lcodecvt->max_char_size; }
1.109 +
1.110 +int _WLocale_mb_cur_min (_Locale_codecvt_t *lcodecvt) {
1.111 + _STLP_MARK_PARAMETER_AS_UNUSED(lcodecvt)
1.112 + return 1;
1.113 +}
1.114 +
1.115 +int _WLocale_is_stateless (_Locale_codecvt_t * lcodecvt)
1.116 +{ return (lcodecvt->max_char_size == 1) ? 1 : 0; }
1.117 +
1.118 +static int __isleadbyte(int i, unsigned char *ctable) {
1.119 + unsigned char c = (unsigned char)i;
1.120 + return (ctable[c / CHAR_BIT] & (0x01 << c % CHAR_BIT));
1.121 +}
1.122 +
1.123 +static int __mbtowc(_Locale_codecvt_t *l, wchar_t *dst, const char *from, unsigned int count) {
1.124 + int result;
1.125 +
1.126 + if (l->cp == CP_UTF7 || l->cp == CP_UTF8) {
1.127 + result = MultiByteToWideChar(l->cp, l->mbtowc_flags, from, count, dst, 1);
1.128 + if (result == 0) {
1.129 + switch (GetLastError()) {
1.130 + case ERROR_NO_UNICODE_TRANSLATION:
1.131 + return -2;
1.132 + default:
1.133 + return -1;
1.134 + }
1.135 + }
1.136 + }
1.137 + else {
1.138 + if (count == 1 && __isleadbyte(*from, l->cleads)) return (size_t)-2;
1.139 + result = MultiByteToWideChar(l->cp, l->mbtowc_flags, from, count, dst, 1);
1.140 + if (result == 0) return -1;
1.141 + }
1.142 +
1.143 + return result;
1.144 +}
1.145 +
1.146 +size_t _WLocale_mbtowc(_Locale_codecvt_t *lcodecvt, wchar_t *to,
1.147 + const char *from, size_t n, mbstate_t *shift_state) {
1.148 + int result;
1.149 + _STLP_MARK_PARAMETER_AS_UNUSED(shift_state)
1.150 + if (lcodecvt->max_char_size == 1) { /* Single byte encoding. */
1.151 + result = MultiByteToWideChar(lcodecvt->cp, lcodecvt->mbtowc_flags, from, 1, to, 1);
1.152 + if (result == 0) return (size_t)-1;
1.153 + return result;
1.154 + }
1.155 + else { /* Multi byte encoding. */
1.156 + int retval;
1.157 + unsigned int count = 1;
1.158 + while (n--) {
1.159 + retval = __mbtowc(lcodecvt, to, from, count);
1.160 + if (retval == -2)
1.161 + { if (++count > ((unsigned int)lcodecvt->max_char_size)) return (size_t)-1; }
1.162 + else if (retval == -1)
1.163 + { return (size_t)-1; }
1.164 + else
1.165 + { return count; }
1.166 + }
1.167 + return (size_t)-2;
1.168 + }
1.169 +}
1.170 +
1.171 +size_t _WLocale_wctomb(_Locale_codecvt_t *lcodecvt, char *to, size_t n,
1.172 + const wchar_t c, mbstate_t *shift_state) {
1.173 + int size = WideCharToMultiByte(lcodecvt->cp, lcodecvt->wctomb_flags, &c, 1, NULL, 0, NULL, NULL);
1.174 +
1.175 + if (!size) return (size_t)-1;
1.176 + if ((size_t)size > n) return (size_t)-2;
1.177 +
1.178 + if (n > INT_MAX)
1.179 + /* Limiting the output buf size to INT_MAX seems like reasonable to transform a single wchar_t. */
1.180 + n = INT_MAX;
1.181 +
1.182 + WideCharToMultiByte(lcodecvt->cp, lcodecvt->wctomb_flags, &c, 1, to, (int)n, NULL, NULL);
1.183 +
1.184 + _STLP_MARK_PARAMETER_AS_UNUSED(shift_state)
1.185 + return (size_t)size;
1.186 +}
1.187 +
1.188 +size_t _WLocale_unshift(_Locale_codecvt_t *lcodecvt, mbstate_t *st,
1.189 + char *buf, size_t n, char **next) {
1.190 + /* _WLocale_wctomb do not even touch to st, there is nothing to unshift in this localization implementation. */
1.191 + _STLP_MARK_PARAMETER_AS_UNUSED(lcodecvt)
1.192 + _STLP_MARK_PARAMETER_AS_UNUSED(st)
1.193 + _STLP_MARK_PARAMETER_AS_UNUSED(&n)
1.194 + *next = buf;
1.195 + return 0;
1.196 +}
1.197 +
1.198 +/* Collate */
1.199 +/* This function takes care of the potential size_t DWORD different size. */
1.200 +static int _WLocale_strcmp_aux(_Locale_collate_t* lcol,
1.201 + const wchar_t* s1, size_t n1,
1.202 + const wchar_t* s2, size_t n2) {
1.203 + int result = CSTR_EQUAL;
1.204 + while (n1 > 0 || n2 > 0) {
1.205 + DWORD size1 = trim_size_t_to_DWORD(n1);
1.206 + DWORD size2 = trim_size_t_to_DWORD(n2);
1.207 + result = CompareStringW(lcol->lc.id, 0, s1, size1, s2, size2);
1.208 + if (result != CSTR_EQUAL)
1.209 + break;
1.210 + n1 -= size1;
1.211 + n2 -= size2;
1.212 + }
1.213 + return result;
1.214 +}
1.215 +
1.216 +int _WLocale_strcmp(_Locale_collate_t* lcol,
1.217 + const wchar_t* s1, size_t n1,
1.218 + const wchar_t* s2, size_t n2) {
1.219 + int result;
1.220 + result = _WLocale_strcmp_aux(lcol, s1, n1, s2, n2);
1.221 + return (result == CSTR_EQUAL) ? 0 : (result == CSTR_LESS_THAN) ? -1 : 1;
1.222 +}
1.223 +
1.224 +size_t _WLocale_strxfrm(_Locale_collate_t* lcol,
1.225 + wchar_t* dst, size_t dst_size,
1.226 + const wchar_t* src, size_t src_size) {
1.227 + int result, i;
1.228 +
1.229 + /* see _Locale_strxfrm: */
1.230 + if (src_size > INT_MAX) {
1.231 + if (dst != 0) {
1.232 + _STLP_WCSNCPY(dst, dst_size, src, src_size);
1.233 + }
1.234 + return src_size;
1.235 + }
1.236 + if (dst_size > INT_MAX) {
1.237 + dst_size = INT_MAX;
1.238 + }
1.239 + result = LCMapStringW(lcol->lc.id, LCMAP_SORTKEY, src, (int)src_size, dst, (int)dst_size);
1.240 + if (result != 0 && dst != 0) {
1.241 + for (i = result - 1; i >= 0; --i) {
1.242 + dst[i] = ((unsigned char*)dst)[i];
1.243 + }
1.244 + }
1.245 + return result != 0 ? result - 1 : 0;
1.246 +}
1.247 +
1.248 +/* Numeric */
1.249 +wchar_t _WLocale_decimal_point(_Locale_numeric_t* lnum) {
1.250 + wchar_t buf[4];
1.251 + GetLocaleInfoW(lnum->lc.id, LOCALE_SDECIMAL, buf, 4);
1.252 + return buf[0];
1.253 +}
1.254 +
1.255 +wchar_t _WLocale_thousands_sep(_Locale_numeric_t* lnum) {
1.256 + wchar_t buf[4];
1.257 + GetLocaleInfoW(lnum->lc.id, LOCALE_STHOUSAND, buf, 4);
1.258 + return buf[0];
1.259 +}
1.260 +
1.261 +const wchar_t * _WLocale_true(_Locale_numeric_t* lnum, wchar_t* buf, size_t bufSize) {
1.262 + _STLP_MARK_PARAMETER_AS_UNUSED(lnum)
1.263 + _STLP_MARK_PARAMETER_AS_UNUSED(buf)
1.264 + _STLP_MARK_PARAMETER_AS_UNUSED(&bufSize)
1.265 + return __wtrue_name;
1.266 +}
1.267 +
1.268 +const wchar_t * _WLocale_false(_Locale_numeric_t* lnum, wchar_t* buf, size_t bufSize) {
1.269 + _STLP_MARK_PARAMETER_AS_UNUSED(lnum)
1.270 + _STLP_MARK_PARAMETER_AS_UNUSED(buf)
1.271 + _STLP_MARK_PARAMETER_AS_UNUSED(&bufSize)
1.272 + return __wfalse_name;
1.273 +}
1.274 +
1.275 +/* Monetary */
1.276 +const wchar_t* _WLocale_int_curr_symbol(_Locale_monetary_t * lmon, wchar_t* buf, size_t bufSize)
1.277 +{ GetLocaleInfoW(lmon->lc.id, LOCALE_SINTLSYMBOL, buf, (int)bufSize); return buf; }
1.278 +
1.279 +const wchar_t* _WLocale_currency_symbol(_Locale_monetary_t * lmon, wchar_t* buf, size_t bufSize)
1.280 +{ GetLocaleInfoW(lmon->lc.id, LOCALE_SCURRENCY, buf, (int)bufSize); return buf; }
1.281 +
1.282 +wchar_t _WLocale_mon_decimal_point(_Locale_monetary_t * lmon)
1.283 +{ return lmon->decimal_point[0]; }
1.284 +
1.285 +wchar_t _WLocale_mon_thousands_sep(_Locale_monetary_t * lmon)
1.286 +{ return lmon->thousands_sep[0]; }
1.287 +
1.288 +const wchar_t* _WLocale_positive_sign(_Locale_monetary_t * lmon, wchar_t* buf, size_t bufSize)
1.289 +{ GetLocaleInfoW(lmon->lc.id, LOCALE_SPOSITIVESIGN, buf, (int)bufSize); return buf; }
1.290 +
1.291 +const wchar_t* _WLocale_negative_sign(_Locale_monetary_t * lmon, wchar_t* buf, size_t bufSize)
1.292 +{ GetLocaleInfoW(lmon->lc.id, LOCALE_SNEGATIVESIGN, buf, (int)bufSize); return buf; }
1.293 +
1.294 +/* Time */
1.295 +const wchar_t * _WLocale_full_monthname(_Locale_time_t * ltime, int month,
1.296 + wchar_t* buf, size_t bufSize)
1.297 +{ GetLocaleInfoW(ltime->lc.id, LOCALE_SMONTHNAME1 + month, buf, (int)bufSize); return buf; }
1.298 +
1.299 +const wchar_t * _WLocale_abbrev_monthname(_Locale_time_t * ltime, int month,
1.300 + wchar_t* buf, size_t bufSize)
1.301 +{ GetLocaleInfoW(ltime->lc.id, LOCALE_SABBREVMONTHNAME1 + month, buf, (int)bufSize); return buf; }
1.302 +
1.303 +const wchar_t * _WLocale_full_dayofweek(_Locale_time_t * ltime, int day,
1.304 + wchar_t* buf, size_t bufSize)
1.305 +{ GetLocaleInfoW(ltime->lc.id, LOCALE_SDAYNAME1 + day, buf, (int)bufSize); return buf; }
1.306 +
1.307 +const wchar_t * _WLocale_abbrev_dayofweek(_Locale_time_t * ltime, int day,
1.308 + wchar_t* buf, size_t bufSize)
1.309 +{ GetLocaleInfoW(ltime->lc.id, LOCALE_SABBREVDAYNAME1 + day, buf, (int)bufSize); return buf; }
1.310 +
1.311 +const wchar_t* _WLocale_am_str(_Locale_time_t* ltime,
1.312 + wchar_t* buf, size_t bufSize)
1.313 +{ GetLocaleInfoW(ltime->lc.id, LOCALE_S1159, buf, (int)bufSize); return buf; }
1.314 +
1.315 +const wchar_t* _WLocale_pm_str(_Locale_time_t* ltime,
1.316 + wchar_t* buf, size_t bufSize)
1.317 +{ GetLocaleInfoW(ltime->lc.id, LOCALE_S2359, buf, (int)bufSize); return buf; }
