2 * msvcrt.dll locale functions
4 * Copyright 2000 Jon Griffiths
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "wine/port.h"
35 #include "msvcrt/mbctype.h"
37 #include "wine/debug.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt
);
41 /* FIXME: Need to hold locale for each LC_* type and aggregate
42 * string to produce lc_all.
44 #define MAX_ELEM_LEN 64 /* Max length of country/language/CP string */
45 #define MAX_LOCALE_LENGTH 256
46 char MSVCRT_current_lc_all
[MAX_LOCALE_LENGTH
] = { 0 };
47 LCID MSVCRT_current_lc_all_lcid
= 0;
48 int MSVCRT___lc_codepage
= 0;
49 int MSVCRT___lc_collate_cp
= 0;
50 HANDLE MSVCRT___lc_handle
[MSVCRT_LC_MAX
- MSVCRT_LC_MIN
+ 1] = { 0 };
53 #define LOCK_LOCALE _mlock(_SETLOCALE_LOCK);
54 #define UNLOCK_LOCALE _munlock(_SETLOCALE_LOCK);
56 /* ctype data modified when the locale changes */
57 extern WORD MSVCRT__ctype
[257];
58 extern WORD MSVCRT_current_ctype
[257];
59 extern WORD
* MSVCRT__pctype
;
61 /* mbctype data modified when the locale changes */
62 extern int MSVCRT___mb_cur_max
;
64 #define MSVCRT_LEADBYTE 0x8000
66 /* Friendly country strings & iso codes for synonym support.
67 * Based on MS documentation for setlocale().
69 static const char * const _country_synonyms
[] =
77 "United Kingdom","GB",
78 "United-Kingdom","GB",
87 /* INTERNAL: Map a synonym to an ISO code */
88 static void remap_synonym(char *name
)
91 for (i
= 0; i
< sizeof(_country_synonyms
)/sizeof(char*); i
+= 2 )
93 if (!strcasecmp(_country_synonyms
[i
],name
))
95 TRACE(":Mapping synonym %s to %s\n",name
,_country_synonyms
[i
+1]);
96 name
[0] = _country_synonyms
[i
+1][0];
97 name
[1] = _country_synonyms
[i
+1][1];
104 /* Note: Flags are weighted in order of matching importance */
105 #define FOUND_LANGUAGE 0x4
106 #define FOUND_COUNTRY 0x2
107 #define FOUND_CODEPAGE 0x1
110 char search_language
[MAX_ELEM_LEN
];
111 char search_country
[MAX_ELEM_LEN
];
112 char search_codepage
[MAX_ELEM_LEN
];
113 char found_language
[MAX_ELEM_LEN
];
114 char found_country
[MAX_ELEM_LEN
];
115 char found_codepage
[MAX_ELEM_LEN
];
116 unsigned int match_flags
;
117 LANGID found_lang_id
;
120 #define CONTINUE_LOOKING TRUE
121 #define STOP_LOOKING FALSE
123 /* INTERNAL: Get and compare locale info with a given string */
124 static int compare_info(LCID lcid
, DWORD flags
, char* buff
, const char* cmp
)
127 GetLocaleInfoA(lcid
, flags
|LOCALE_NOUSEROVERRIDE
,buff
, MAX_ELEM_LEN
);
128 if (!buff
[0] || !cmp
[0])
130 /* Partial matches are allowed, e.g. "Germ" matches "Germany" */
131 return !strncasecmp(cmp
, buff
, strlen(cmp
));
135 find_best_locale_proc(HMODULE hModule
, LPCSTR type
, LPCSTR name
, WORD LangID
, LONG_PTR lParam
)
137 locale_search_t
*res
= (locale_search_t
*)lParam
;
138 const LCID lcid
= MAKELCID(LangID
, SORT_DEFAULT
);
139 char buff
[MAX_ELEM_LEN
];
140 unsigned int flags
= 0;
142 if(PRIMARYLANGID(LangID
) == LANG_NEUTRAL
)
143 return CONTINUE_LOOKING
;
146 if (compare_info(lcid
,LOCALE_SISO639LANGNAME
,buff
,res
->search_language
) ||
147 compare_info(lcid
,LOCALE_SABBREVLANGNAME
,buff
,res
->search_language
) ||
148 compare_info(lcid
,LOCALE_SENGLANGUAGE
,buff
,res
->search_language
))
150 TRACE(":Found language: %s->%s\n", res
->search_language
, buff
);
151 flags
|= FOUND_LANGUAGE
;
152 memcpy(res
->found_language
,res
->search_language
,MAX_ELEM_LEN
);
154 else if (res
->match_flags
& FOUND_LANGUAGE
)
156 return CONTINUE_LOOKING
;
160 if (compare_info(lcid
,LOCALE_SISO3166CTRYNAME
,buff
,res
->search_country
) ||
161 compare_info(lcid
,LOCALE_SABBREVCTRYNAME
,buff
,res
->search_country
) ||
162 compare_info(lcid
,LOCALE_SENGCOUNTRY
,buff
,res
->search_country
))
164 TRACE("Found country:%s->%s\n", res
->search_country
, buff
);
165 flags
|= FOUND_COUNTRY
;
166 memcpy(res
->found_country
,res
->search_country
,MAX_ELEM_LEN
);
168 else if (res
->match_flags
& FOUND_COUNTRY
)
170 return CONTINUE_LOOKING
;
174 if (compare_info(lcid
,LOCALE_IDEFAULTCODEPAGE
,buff
,res
->search_codepage
) ||
175 (compare_info(lcid
,LOCALE_IDEFAULTANSICODEPAGE
,buff
,res
->search_codepage
)))
177 TRACE("Found codepage:%s->%s\n", res
->search_codepage
, buff
);
178 flags
|= FOUND_CODEPAGE
;
179 memcpy(res
->found_codepage
,res
->search_codepage
,MAX_ELEM_LEN
);
181 else if (res
->match_flags
& FOUND_CODEPAGE
)
183 return CONTINUE_LOOKING
;
186 if (flags
> res
->match_flags
)
188 /* Found a better match than previously */
189 res
->match_flags
= flags
;
190 res
->found_lang_id
= LangID
;
192 if ((flags
& (FOUND_LANGUAGE
| FOUND_COUNTRY
| FOUND_CODEPAGE
)) ==
193 (FOUND_LANGUAGE
| FOUND_COUNTRY
| FOUND_CODEPAGE
))
195 TRACE(":found exact locale match\n");
198 return CONTINUE_LOOKING
;
201 extern int atoi(const char *);
203 /* Internal: Find the LCID for a locale specification */
204 static LCID
MSVCRT_locale_to_LCID(locale_search_t
* locale
)
207 EnumResourceLanguagesA(GetModuleHandleA("KERNEL32"), (LPSTR
)RT_STRING
,
208 (LPCSTR
)LOCALE_ILANGUAGE
,find_best_locale_proc
,
211 if (!locale
->match_flags
)
214 /* If we were given something that didn't match, fail */
215 if (locale
->search_country
[0] && !(locale
->match_flags
& FOUND_COUNTRY
))
218 lcid
= MAKELCID(locale
->found_lang_id
, SORT_DEFAULT
);
220 /* Populate partial locale, translating LCID to locale string elements */
221 if (!locale
->found_codepage
[0])
223 /* Even if a codepage is not enumerated for a locale
224 * it can be set if valid */
225 if (locale
->search_codepage
[0])
227 if (IsValidCodePage(atoi(locale
->search_codepage
)))
228 memcpy(locale
->found_codepage
,locale
->search_codepage
,MAX_ELEM_LEN
);
231 /* Special codepage values: OEM & ANSI */
232 if (strcasecmp(locale
->search_codepage
,"OCP"))
234 GetLocaleInfoA(lcid
, LOCALE_IDEFAULTCODEPAGE
,
235 locale
->found_codepage
, MAX_ELEM_LEN
);
237 if (strcasecmp(locale
->search_codepage
,"ACP"))
239 GetLocaleInfoA(lcid
, LOCALE_IDEFAULTANSICODEPAGE
,
240 locale
->found_codepage
, MAX_ELEM_LEN
);
245 if (!atoi(locale
->found_codepage
))
251 /* Prefer ANSI codepages if present */
252 GetLocaleInfoA(lcid
, LOCALE_IDEFAULTANSICODEPAGE
,
253 locale
->found_codepage
, MAX_ELEM_LEN
);
254 if (!locale
->found_codepage
[0] || !atoi(locale
->found_codepage
))
255 GetLocaleInfoA(lcid
, LOCALE_IDEFAULTCODEPAGE
,
256 locale
->found_codepage
, MAX_ELEM_LEN
);
259 GetLocaleInfoA(lcid
, LOCALE_SENGLANGUAGE
|LOCALE_NOUSEROVERRIDE
,
260 locale
->found_language
, MAX_ELEM_LEN
);
261 GetLocaleInfoA(lcid
, LOCALE_SENGCOUNTRY
|LOCALE_NOUSEROVERRIDE
,
262 locale
->found_country
, MAX_ELEM_LEN
);
266 /* INTERNAL: Set ctype behaviour for a codepage */
267 static void msvcrt_set_ctype(unsigned int codepage
, LCID lcid
)
271 memset(&cp
, 0, sizeof(CPINFO
));
273 if (GetCPInfo(codepage
, &cp
))
277 unsigned char *traverse
= (unsigned char *)cp
.LeadByte
;
279 memset(MSVCRT_current_ctype
, 0, sizeof(MSVCRT__ctype
));
280 MSVCRT___lc_codepage
= codepage
;
281 MSVCRT___lc_collate_cp
= codepage
;
283 /* Switch ctype macros to MBCS if needed */
284 MSVCRT___mb_cur_max
= cp
.MaxCharSize
;
286 /* Set remaining ctype flags: FIXME: faster way to do this? */
288 for (i
= 0; i
< 256; i
++)
290 if (!(MSVCRT__pctype
[i
] & MSVCRT_LEADBYTE
))
293 GetStringTypeA(lcid
, CT_CTYPE1
, str
, 1, MSVCRT__pctype
+ i
);
297 /* Set leadbyte flags */
298 while (traverse
[0] || traverse
[1])
300 for( i
= traverse
[0]; i
<= traverse
[1]; i
++ )
301 MSVCRT_current_ctype
[i
+1] |= MSVCRT_LEADBYTE
;
308 /*********************************************************************
309 * setlocale (MSVCRT.@)
311 char* CDECL
MSVCRT_setlocale(int category
, const char* locale
)
315 int haveLang
, haveCountry
, haveCP
;
319 TRACE("(%d %s)\n",category
,locale
);
321 if (category
< MSVCRT_LC_MIN
|| category
> MSVCRT_LC_MAX
)
326 /* Report the current Locale */
327 return MSVCRT_current_lc_all
;
332 if (locale
[0] == 'L' && locale
[1] == 'C' && locale
[2] == '_')
334 FIXME(":restore previous locale not implemented!\n");
335 /* FIXME: Easiest way to do this is parse the string and
336 * call this function recursively with its elements,
337 * Where they differ for each lc_ type.
340 return MSVCRT_current_lc_all
;
343 /* Default Locale: Special case handling */
344 if (!strlen(locale
) || ((toupper(locale
[0]) == 'C') && !locale
[1]))
346 MSVCRT_current_lc_all
[0] = 'C';
347 MSVCRT_current_lc_all
[1] = '\0';
348 MSVCRT___lc_codepage
= GetACP();
349 MSVCRT___lc_collate_cp
= GetACP();
353 lc_all
= 1; /* Fall through all cases ... */
354 case MSVCRT_LC_COLLATE
:
356 case MSVCRT_LC_CTYPE
:
357 /* Restore C locale ctype info */
358 MSVCRT___mb_cur_max
= 1;
359 memcpy(MSVCRT_current_ctype
, MSVCRT__ctype
, sizeof(MSVCRT__ctype
));
361 case MSVCRT_LC_MONETARY
:
363 case MSVCRT_LC_NUMERIC
:
369 return MSVCRT_current_lc_all
;
372 /* Get locale elements */
373 haveLang
= haveCountry
= haveCP
= 0;
374 memset(&lc
,0,sizeof(lc
));
376 next
= strchr(locale
,'_');
377 if (next
&& next
!= locale
)
380 memcpy(lc
.search_language
,locale
,next
-locale
);
381 locale
+= next
-locale
+1;
384 next
= strchr(locale
,'.');
391 lstrcpynA(lc
.search_codepage
, locale
, MAX_ELEM_LEN
);
398 memcpy(lc
.search_country
,locale
,next
-locale
);
399 locale
+= next
-locale
+1;
404 memcpy(lc
.search_language
,locale
,next
-locale
);
405 locale
+= next
-locale
+1;
407 lstrcpynA(lc
.search_codepage
, locale
, MAX_ELEM_LEN
);
415 lstrcpynA(lc
.search_country
, locale
, MAX_ELEM_LEN
);
420 lstrcpynA(lc
.search_language
, locale
, MAX_ELEM_LEN
);
425 remap_synonym(lc
.search_country
);
427 if (haveCP
&& !haveCountry
&& !haveLang
)
429 FIXME(":Codepage only locale not implemented\n");
430 /* FIXME: Use default lang/country and skip locale_to_LCID()
437 lcid
= MSVCRT_locale_to_LCID(&lc
);
439 TRACE(":found LCID %d\n",lcid
);
447 MSVCRT_current_lc_all_lcid
= lcid
;
449 snprintf(MSVCRT_current_lc_all
,MAX_LOCALE_LENGTH
,"%s_%s.%s",
450 lc
.found_language
,lc
.found_country
,lc
.found_codepage
);
454 lc_all
= 1; /* Fall through all cases ... */
455 case MSVCRT_LC_COLLATE
:
457 case MSVCRT_LC_CTYPE
:
458 msvcrt_set_ctype(atoi(lc
.found_codepage
),lcid
);
460 case MSVCRT_LC_MONETARY
:
462 case MSVCRT_LC_NUMERIC
:
468 return MSVCRT_current_lc_all
;
471 /*********************************************************************
472 * setlocale (MSVCRT.@)
474 MSVCRT_wchar_t
* CDECL
MSVCRT__wsetlocale(int category
, const MSVCRT_wchar_t
* locale
)
476 static MSVCRT_wchar_t fake
[] = {
477 'E','n','g','l','i','s','h','_','U','n','i','t','e','d',' ',
478 'S','t','a','t','e','s','.','1','2','5','2',0 };
480 FIXME("%d %s\n", category
, debugstr_w(locale
));
485 /*********************************************************************
486 * _Getdays (MSVCRT.@)
488 const char* CDECL
_Getdays(void)
490 static const char MSVCRT_days
[] = ":Sun:Sunday:Mon:Monday:Tue:Tuesday:Wed:"
491 "Wednesday:Thu:Thursday:Fri:Friday:Sat:Saturday";
492 /* FIXME: Use locale */
493 TRACE("(void) semi-stub\n");
497 /*********************************************************************
498 * _Getmonths (MSVCRT.@)
500 const char* CDECL
_Getmonths(void)
502 static const char MSVCRT_months
[] = ":Jan:January:Feb:February:Mar:March:Apr:"
503 "April:May:May:Jun:June:Jul:July:Aug:August:Sep:September:Oct:"
504 "October:Nov:November:Dec:December";
505 /* FIXME: Use locale */
506 TRACE("(void) semi-stub\n");
507 return MSVCRT_months
;
510 /*********************************************************************
511 * _Gettnames (MSVCRT.@)
513 const char* CDECL
_Gettnames(void)
516 TRACE("(void) stub\n");
520 /*********************************************************************
521 * _Strftime (MSVCRT.@)
523 const char* CDECL
_Strftime(char *out
, unsigned int len
, const char *fmt
,
524 const void *tm
, void *foo
)
527 TRACE("(%p %d %s %p %p) stub\n", out
, len
, fmt
, tm
, foo
);
531 /*********************************************************************
532 * __crtLCMapStringA (MSVCRT.@)
534 int CDECL
__crtLCMapStringA(
535 LCID lcid
, DWORD mapflags
, const char* src
, int srclen
, char* dst
,
536 int dstlen
, unsigned int codepage
, int xflag
538 FIXME("(lcid %x, flags %x, %s(%d), %p(%d), %x, %d), partial stub!\n",
539 lcid
,mapflags
,src
,srclen
,dst
,dstlen
,codepage
,xflag
);
540 /* FIXME: A bit incorrect. But msvcrt itself just converts its
541 * arguments to wide strings and then calls LCMapStringW
543 return LCMapStringA(lcid
,mapflags
,src
,srclen
,dst
,dstlen
);
546 /*********************************************************************
547 * __crtCompareStringA (MSVCRT.@)
549 int CDECL
__crtCompareStringA( LCID lcid
, DWORD flags
, const char *src1
, int len1
,
550 const char *src2
, int len2
)
552 FIXME("(lcid %x, flags %x, %s(%d), %s(%d), partial stub\n",
553 lcid
, flags
, debugstr_a(src1
), len1
, debugstr_a(src2
), len2
);
554 /* FIXME: probably not entirely right */
555 return CompareStringA( lcid
, flags
, src1
, len1
, src2
, len2
);
558 /*********************************************************************
559 * __crtCompareStringW (MSVCRT.@)
561 int CDECL
__crtCompareStringW( LCID lcid
, DWORD flags
, const MSVCRT_wchar_t
*src1
, int len1
,
562 const MSVCRT_wchar_t
*src2
, int len2
)
564 FIXME("(lcid %x, flags %x, %s(%d), %s(%d), partial stub\n",
565 lcid
, flags
, debugstr_w(src1
), len1
, debugstr_w(src2
), len2
);
566 /* FIXME: probably not entirely right */
567 return CompareStringW( lcid
, flags
, src1
, len1
, src2
, len2
);
570 /*********************************************************************
571 * __crtGetLocaleInfoW (MSVCRT.@)
573 int CDECL
__crtGetLocaleInfoW( LCID lcid
, LCTYPE type
, MSVCRT_wchar_t
*buffer
, int len
)
575 FIXME("(lcid %x, type %x, %p(%d), partial stub\n", lcid
, type
, buffer
, len
);
576 /* FIXME: probably not entirely right */
577 return GetLocaleInfoW( lcid
, type
, buffer
, len
);
580 /*********************************************************************
581 * localeconv (MSVCRT.@)
583 struct MSVCRT_lconv
* CDECL
MSVCRT_localeconv(void) {
585 struct lconv
*ylconv
;
586 static struct MSVCRT_lconv xlconv
;
588 ylconv
= localeconv();
590 #define X(x) xlconv.x = ylconv->x;
596 X(mon_decimal_point
);
597 X(mon_thousands_sep
);
612 /*********************************************************************
613 * __lconv_init (MSVCRT.@)
615 void CDECL
__lconv_init(void)