int __cdecl _wcsicmp (
const wchar_t * dst,
const wchar_t * src
)
{
wchar_t f,l;
#if defined (_MT)
int local_lock_flag;
#endif /* defined (_MT) */
if ( __lc_handle[LC_CTYPE] == _CLOCALEHANDLE ) {
do {
f = ((*dst <= L'Z') && (*dst >= L'A'))
? *dst + L'a' - L'A'
: *dst;
l = ((*src <= L'Z') && (*src >= L'A'))
? *src + L'a' - L'A'
: *src;
dst++;
src++;
} while ( (f) && (f == l) );
}
else {
_lock_locale( local_lock_flag );
do {
f = _towlower_lk( (unsigned short)(*(dst++)) );
l = _towlower_lk( (unsigned short)(*(src++)) );
} while ( (f) && (f == l) );
_unlock_locale( local_lock_flag )
}
return (int)(f - l);
}
LPWSTR _setLocale32W(SHORT Category, LPCWSTR LocaleName)
{
LPSTR localename;
size_t len;
_lock_locale();
if (LocaleName)
{
localename = (LPSTR) malloc(4096);
wcstombs(localename, LocaleName, 4096);
_setLocale32A(Category, localename);
if (__locale != &CLOCALE)
{
len = strlen(__locale->setLocaleReturn)*2;
__locale->setLocaleReturnW = realloc(__locale->setLocaleReturnW, len * sizeof(wchar_t));// leak
mbstowcs(__locale->setLocaleReturnW, __locale->setLocaleReturn, len);
}
free(localename);
}
else
_setLocale32A(Category, 0);
_unlock_locale();
return __locale->setLocaleReturnW;
}
void _cleanLocale()
{
_lock_locale();
_cleanCategories(__locale);
if (__locale != &CLOCALE)
{
if (__locale->setLocaleReturnW)
{
free(__locale->setLocaleReturnW);
__locale->setLocaleReturnW = NULL;
}
if (__locale->setLocaleReturn)
{
free(__locale->setLocaleReturn);
__locale->setLocaleReturn = NULL;
}
free(__locale);
}
_unlock_locale();
#ifdef __MT__
DeleteCriticalSection(__localeLock);
#endif // __MT__
free(__localeLock);
}
wchar_t __cdecl towlower (
wchar_t c
)
{
#ifdef _MT
int local_lock_flag;
if ( c == WEOF )
return c;
if ( __lc_handle[LC_CTYPE] == _CLOCALEHANDLE ) {
if ( (c >= L'A') && (c <= L'Z') )
c = c - L'A' + L'a';
return c;
}
_lock_locale( local_lock_flag )
c = _towlower_lk(c);
_unlock_locale( local_lock_flag )
return c;
}
_CRTIMP2 _Collvec _Getcoll()
{
_Collvec coll;
#ifdef _MT
int local_lock_flag;
#endif
_lock_locale( local_lock_flag )
coll._Hand = __lc_handle[LC_COLLATE];
coll._Page = __lc_collate_cp;
_unlock_locale( local_lock_flag )
return (coll);
}
int __cdecl wctomb
(
char *s,
wchar_t wchar
)
{
int retval;
int local_lock_flag;
_lock_locale( local_lock_flag )
retval = _wctomb_lk(s, wchar);
_unlock_locale( local_lock_flag )
return retval;
}
size_t __cdecl mbstowcs
(
wchar_t *pwcs,
const char *s,
size_t n
)
{
size_t retval;
int local_lock_flag;
_lock_locale( local_lock_flag )
retval = _mbstowcs_lk(pwcs, s, n);
_unlock_locale( local_lock_flag )
return retval;
}
size_t __cdecl wcstombs
(
char * s,
const wchar_t * pwcs,
size_t n
)
{
int retval;
int local_lock_flag;
_lock_locale( local_lock_flag )
retval = _wcstombs_lk(s, pwcs, n);
_unlock_locale( local_lock_flag );
return retval;
}
LPSTR _setLocaleFromString(LPWIN32LOCALE _locale, LPCSTR LocaleName)
{
char* p = (LPSTR) LocaleName;
char token[256];
char locale[256];
int tokenp;
SHORT Category = 0;
_lock_locale();
memset(token, 0, sizeof(token));
tokenp = 0;
while (*p) {
if (*p == '=')
{
if (strcmp(token, "LC_CTYPE") == 0)
Category |= LC_CTYPE;
if (strcmp(token, "LC_TIME") == 0)
Category |= LC_TIME;
if (strcmp(token, "LC_NUMERIC") == 0)
Category |= LC_NUMERIC;
if (strcmp(token, "LC_MONETARY") == 0)
Category |= LC_MONETARY;
if (strcmp(token, "LC_COLLATE") == 0)
Category |= LC_COLLATE;
memset(token, 0, sizeof(token));
tokenp = 0;
}
else
if (*p == '\n')
{
strcpy(locale, token);
memset(token, 0, sizeof(token));
tokenp = 0;
}
else
token[tokenp++] = *p;
p++;
}
_locale->handle = _getLocale(_locale, locale);
if (!IsValidLocale(_locale->handle, LCID_INSTALLED) && !_locale->isCLocale)
{
SetLastError(ERROR_LOCALE_NOTINSTALLED);
_unlock_locale();
return NULL;
}
/*
SetThreadLocale will only work for NT but it's better to do it in case the application
uses OLE2 or some other functionnality requiring a Locale.
*/
SetThreadLocale(__locale->handle);
_cleanCategories(__locale);
if (_setNewCategories(__locale, Category) == 0)
{
SetLastError(ERROR_CATEGORY_INVALID);
_unlock_locale();
return NULL;
}
_unlock_locale();
return __locale->setLocaleReturn;
}
LPSTR _setLocale32A(SHORT Category, LPCSTR localeName)
{
char codepage[7];
BOOL restoreC = FALSE;
char* LocaleName = NULL;
LCID Handle = 0;
char* p;
CPINFO cpinfo;
if (localeName)
LocaleName = strdup(localeName);
_lock_locale();
if (__locale == NULL || __locale == &CLOCALE)
{
if (__locale == &CLOCALE)
restoreC = TRUE;
if ((__locale = (LPWIN32LOCALE) calloc(1, sizeof(WIN32LOCALE))) == NULL)
{
SetLastError(ERROR_OUTOFMEMORY);
free(LocaleName);
_unlock_locale();
return NULL;
}
}
if (__locale->setLocaleReturn != NULL)
{
free(__locale->setLocaleReturn);
__locale->setLocaleReturn = NULL;
}
if (LocaleName == NULL || LocaleName[0] == 0x0)
{
if (LocaleName == NULL)
{
if (restoreC)
{
_cleanCategories(__locale);
free(__locale);
__locale = &CLOCALE;
}
else
{
if ((Category & LC_MONETARY) == LC_MONETARY)
_addCategoryName(__locale, "LC_MONETARY");
if ((Category & LC_NUMERIC) == LC_NUMERIC)
_addCategoryName(__locale, "LC_NUMERIC");
if ((Category & LC_TIME) == LC_TIME)
_addCategoryName(__locale, "LC_TIME");
if ((Category & LC_COLLATE) == LC_COLLATE)
_addCategoryName(__locale, "LC_COLLATE");
if ((Category & LC_CTYPE) == LC_CTYPE)
_addCategoryName(__locale, "LC_CTYPE");
free(LocaleName);
_llocaleconv();
_unlock_locale();
return __locale->setLocaleReturn;
}
}
else
{
Handle = GetUserDefaultLCID();
GetLocaleInfoA(Handle, LOCALE_IDEFAULTCODEPAGE, codepage, 7);
__locale->codepage = atol(codepage);
__locale->isCLocale = FALSE;
}
}
else
{
if (strstr(localeName, "en_US"))
{
strcpy(LocaleName, "ENU");
if ((p = strchr(localeName, '.')) != NULL)
strcpy(&LocaleName[3], p);
}
else
if (strstr(localeName, "en_GB"))
{
strcpy(LocaleName, "ENG");
if ((p = strchr(localeName, '.')) != NULL)
strcpy(&LocaleName[3], p);
}
else
if (strstr(localeName, "fr_FR"))
{
strcpy(LocaleName, "FRA");
if ((p = strchr(localeName, '.')) != NULL)
strcpy(&LocaleName[3], p);
}
else
if (strstr(localeName, "de_DE"))
{
strcpy(LocaleName, "DEU");
if ((p = strchr(localeName, '.')) != NULL)
strcpy(&LocaleName[3], p);
}
if (strcmp(localeName, "C") == 0)
{
_cleanCategories(__locale);
free(__locale);
__locale = &CLOCALE;
}
else
if (LocaleName[0] == 'L' && LocaleName[1] == 'C' && LocaleName[2] == '_')
{
free(LocaleName);
_unlock_locale();
return _setLocaleFromString(__locale, localeName);
}
else {
__locale->isCLocale = FALSE;
if ((Handle = _getLocale(__locale, (LPSTR)LocaleName)) == 0)
{
if (restoreC)
{
free(__locale);
__locale = &CLOCALE;
}
_unlock_locale();
free(LocaleName);
return NULL;
}
}
}
__locale->handle = Handle;
free(LocaleName);
if (!IsValidLocale(__locale->handle, LCID_INSTALLED) && !__locale->isCLocale)
{
SetLastError(ERROR_LOCALE_NOTINSTALLED);
if (restoreC)
{
_cleanCategories(__locale);
free(__locale);
__locale = &CLOCALE;
}
_unlock_locale();
return NULL;
}
/*
SetThreadLocale will only work under NT but it's best to do it in case
the application uses OLE2 or some other functionnality requiring a
Locale.
*/
SetThreadLocale(__locale->handle);
if (!__locale->isCLocale)
{
_cleanCategories(__locale);
if (_setNewCategories(__locale, Category) == 0)
{
SetLastError(ERROR_CATEGORY_INVALID);
if (restoreC)
{
_cleanCategories(__locale);
free(__locale);
__locale = &CLOCALE;
}
_unlock_locale();
return NULL;
}
if (_setmbcp(__locale->codepage) != 0 ||
!GetCPInfo(__locale->codepage, &cpinfo))
{
_unlock_locale();
SetLastError(ERROR_MBCS_CODEPAGE_INVALID);
return NULL;
}
__mb_cur_max = cpinfo.MaxCharSize;
_llocaleconv();
_unlock_locale();
return __locale->setLocaleReturn;
}
else {
__mb_cur_max = 1;
_llocaleconv();
_unlock_locale();
return __locale->setLocaleReturn;
}
}
struct lconv * _RTLENTRY _EXPFUNC _llocaleconv( void )
{
/* lock locale convention global structure */
_lock_locale();
memset(&_localeconvention, 0, sizeof(_localeconvention));
if (__locale->numeric) {
_localeconvention.decimal_point =
(char *) __locale->numeric->Decimal;
_localeconvention.thousands_sep =
(char *) __locale->numeric->ThousandSeparator;
_localeconvention.grouping =
(char *) __locale->numeric->Grouping;
_localeconvention.positive_sign =
(char *) __locale->numeric->PositiveSign;
_localeconvention.negative_sign =
(char *) __locale->numeric->NegativeSign;
}
if (__locale->monetary) {
_localeconvention.int_curr_symbol =
(char *) __locale->monetary->IntlSymbol;
_localeconvention.currency_symbol =
(char *) __locale->monetary->Symbol;
_localeconvention.mon_decimal_point =
(char *) __locale->monetary->Decimal;
_localeconvention.mon_thousands_sep =
(char *) __locale->monetary->ThousandSeparator;
_localeconvention.mon_grouping =
(char *) __locale->monetary->Grouping;
_localeconvention.int_frac_digits =
__locale->monetary->IntlDigits;
_localeconvention.frac_digits =
__locale->monetary->Digits;
_localeconvention.p_cs_precedes =
__locale->monetary->PosSymbolPrec;
_localeconvention.p_sep_by_space =
__locale->monetary->PosSymbolSpace;
_localeconvention.n_cs_precedes =
__locale->monetary->NegSymbolPrec;
_localeconvention.n_sep_by_space =
__locale->monetary->NegSymbolSpace;
_localeconvention.p_sign_posn =
__locale->monetary->PositiveFormat;
_localeconvention.n_sign_posn =
__locale->monetary->NegativeFormat;
}
/* unlock before leaving */
_unlock_locale();
return( &_localeconvention );
}
