2 * msvcrt.dll mbcs functions
4 * Copyright 1999 Alexandre Julliard
5 * Copyright 2000 Jon Griffths
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 * Not currently binary compatible with win32. MSVCRT_mbctype must be
23 * populated correctly and the ismb* functions should reference it.
29 #include "wine/unicode.h"
30 #include "wine/debug.h"
32 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt
);
34 unsigned char MSVCRT_mbctype
[257] = { 0 };
36 /* It seems that the data about valid trail bytes is not available from kernel32
37 * so we have to store is here. The format is the same as for lead bytes in CPINFO */
38 struct cp_extra_info_t
41 BYTE TrailBytes
[MAX_LEADBYTES
];
44 static struct cp_extra_info_t g_cpextrainfo
[] =
46 {932, {0x40, 0x7e, 0x80, 0xfc, 0, 0}},
47 {936, {0x40, 0xfe, 0, 0}},
48 {949, {0x41, 0xfe, 0, 0}},
49 {950, {0x40, 0x7e, 0xa1, 0xfe, 0, 0}},
50 {1361, {0x31, 0x7e, 0x81, 0xfe, 0, 0}},
51 {20932, {1, 255, 0, 0}}, /* seems to give different results on different systems */
52 {0, {1, 255, 0, 0}} /* match all with FIXME */
55 /* Maps cp932 single byte character to multi byte character */
56 static const unsigned char mbbtombc_932
[] = {
57 0x40,0x49,0x68,0x94,0x90,0x93,0x95,0x66,0x69,0x6a,0x96,0x7b,0x43,0x7c,0x44,0x5e,
58 0x4f,0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x46,0x47,0x83,0x81,0x84,0x48,
59 0x97,0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,
60 0x6f,0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x6d,0x8f,0x6e,0x4f,0x76,
61 0x77,0x78,0x79,0x6d,0x8f,0x6e,0x4f,0x51,0x65,0x81,0x82,0x83,0x84,0x85,0x86,0x87,
62 0x88,0x89,0x8a,0x8b,0x8c,0x8d,0x8e,0x8f,0x90,0x91,0x92,0x93,0x94,0x95,0x50,
63 0x42,0x75,0x76,0x41,0x45,0x92,0x40,0x42,0x44,0x46,0x48,0x83,0x85,0x87,0x62,
64 0x5b,0x41,0x43,0x45,0x47,0x49,0x4a,0x4c,0x4e,0x50,0x52,0x54,0x56,0x58,0x5a,0x5c,
65 0x5e,0x60,0x63,0x65,0x67,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,0x71,0x74,0x77,0x7a,0x7d,
66 0x7e,0x80,0x81,0x82,0x84,0x86,0x88,0x89,0x8a,0x8b,0x8c,0x8d,0x8f,0x93,0x4a,0x4b };
68 /* Maps multibyte cp932 punctuation marks to single byte equivalents */
69 static const unsigned char mbctombb_932_punct
[] = {
70 0x20,0xa4,0xa1,0x2c,0x2e,0xa5,0x3a,0x3b,0x3f,0x21,0xde,0xdf,0x00,0x00,0x00,0x5e,
71 0x7e,0x5f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xb0,0x00,0x00,0x2f,0x00,
72 0x00,0x00,0x7c,0x00,0x00,0x60,0x27,0x00,0x22,0x28,0x29,0x00,0x00,0x5b,0x5d,0x7b,
73 0x7d,0x00,0x00,0x00,0x00,0xa2,0xa3,0x00,0x00,0x00,0x00,0x2b,0x2d,0x00,0x00,0x00,
74 0x00,0x3d,0x00,0x3c,0x3e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x5c,
75 0x24,0x00,0x00,0x25,0x23,0x26,0x2a,0x40};
77 /* Maps multibyte cp932 hiragana/katakana to single-byte equivalents */
78 static const unsigned char mbctombb_932_kana
[] = {
79 0xa7,0xb1,0xa8,0xb2,0xa9,0xb3,0xaa,0xb4,0xab,0xb5,0xb6,0xb6,0xb7,0xb7,0xb8,0xb8,
80 0xb9,0xb9,0xba,0xba,0xbb,0xbb,0xbc,0xbc,0xbd,0xbd,0xbe,0xbe,0xbf,0xbf,0xc0,0xc0,
81 0xc1,0xc1,0xaf,0xc2,0xc2,0xc3,0xc3,0xc4,0xc4,0xc5,0xc6,0xc7,0xc8,0xc9,0xca,0xca,
82 0xca,0xcb,0xcb,0xcb,0xcc,0xcc,0xcc,0xcd,0xcd,0xcd,0xce,0xce,0xce,0xcf,0xd0,0xd1,
83 0xd2,0xd3,0xac,0xd4,0xad,0xd5,0xae,0xd6,0xd7,0xd8,0xd9,0xda,0xdb,0xdc,0xdc,0xb2,
84 0xb4,0xa6,0xdd,0xb3,0xb6,0xb9};
86 static MSVCRT_wchar_t
msvcrt_mbc_to_wc(unsigned int ch
)
96 mbch
[0] = (ch
>> 8) & 0xff;
100 if (!MultiByteToWideChar(get_mbcinfo()->mbcodepage
, 0, mbch
, n_chars
, &chW
, 1))
102 WARN("MultiByteToWideChar failed on %x\n", ch
);
108 static inline MSVCRT_size_t
u_strlen( const unsigned char *str
)
110 return strlen( (const char*) str
);
113 static inline unsigned char* u_strncat( unsigned char* dst
, const unsigned char* src
, MSVCRT_size_t len
)
115 return (unsigned char*)strncat( (char*)dst
, (const char*)src
, len
);
118 static inline int u_strcmp( const unsigned char *s1
, const unsigned char *s2
)
120 return strcmp( (const char*)s1
, (const char*)s2
);
123 static inline int u_strcasecmp( const unsigned char *s1
, const unsigned char *s2
)
125 return strcasecmp( (const char*)s1
, (const char*)s2
);
128 static inline int u_strncmp( const unsigned char *s1
, const unsigned char *s2
, MSVCRT_size_t len
)
130 return strncmp( (const char*)s1
, (const char*)s2
, len
);
133 static inline int u_strncasecmp( const unsigned char *s1
, const unsigned char *s2
, MSVCRT_size_t len
)
135 return strncasecmp( (const char*)s1
, (const char*)s2
, len
);
138 static inline unsigned char *u_strchr( const unsigned char *s
, unsigned char x
)
140 return (unsigned char*) strchr( (const char*)s
, x
);
143 static inline unsigned char *u_strrchr( const unsigned char *s
, unsigned char x
)
145 return (unsigned char*) strrchr( (const char*)s
, x
);
148 static inline unsigned char *u_strtok( unsigned char *s
, const unsigned char *delim
)
150 return (unsigned char*) strtok( (char*)s
, (const char*)delim
);
153 static inline unsigned char *u__strset( unsigned char *s
, unsigned char c
)
155 return (unsigned char*) _strset( (char*)s
, c
);
158 static inline unsigned char *u__strnset( unsigned char *s
, unsigned char c
, MSVCRT_size_t len
)
160 return (unsigned char*) MSVCRT__strnset( (char*)s
, c
, len
);
163 static inline MSVCRT_size_t
u_strcspn( const unsigned char *s
, const unsigned char *rej
)
165 return strcspn( (const char *)s
, (const char*)rej
);
168 /*********************************************************************
169 * __p__mbctype (MSVCRT.@)
171 unsigned char* CDECL
__p__mbctype(void)
173 return get_mbcinfo()->mbctype
;
176 /*********************************************************************
177 * __p___mb_cur_max(MSVCRT.@)
179 int* CDECL
__p___mb_cur_max(void)
181 return &get_locinfo()->mb_cur_max
;
184 /*********************************************************************
185 * ___mb_cur_max_func(MSVCRT.@)
187 int CDECL
MSVCRT____mb_cur_max_func(void)
189 return get_locinfo()->mb_cur_max
;
192 /* ___mb_cur_max_l_func - not exported in native msvcrt */
193 int* CDECL
___mb_cur_max_l_func(MSVCRT__locale_t locale
)
195 MSVCRT_pthreadlocinfo locinfo
;
198 locinfo
= get_locinfo();
200 locinfo
= locale
->locinfo
;
202 return &locinfo
->mb_cur_max
;
205 /*********************************************************************
206 * INTERNAL: _setmbcp_l
208 int _setmbcp_l(int cp
, LCID lcid
, MSVCRT_pthreadmbcinfo mbcinfo
)
210 const char format
[] = ".%d";
223 mbcinfo
= get_mbcinfo();
234 newcp
= get_locinfo()->lc_codepage
;
237 /* fall through (C locale) */
239 newcp
= 20127; /* ASCII */
247 sprintf(bufA
, format
, newcp
);
248 mbcinfo
->mblcid
= MSVCRT_locale_to_LCID(bufA
);
250 mbcinfo
->mblcid
= lcid
;
253 if(mbcinfo
->mblcid
== -1)
255 WARN("Can't assign LCID to codepage (%d)\n", mbcinfo
->mblcid
);
259 if (!GetCPInfo(newcp
, &cpi
))
261 WARN("Codepage %d not found\n", newcp
);
262 *MSVCRT__errno() = MSVCRT_EINVAL
;
266 /* setup the _mbctype */
267 memset(mbcinfo
->mbctype
, 0, sizeof(unsigned char[257]));
268 memset(mbcinfo
->mbcasemap
, 0, sizeof(unsigned char[256]));
270 bytes
= cpi
.LeadByte
;
271 while (bytes
[0] || bytes
[1])
273 for (i
= bytes
[0]; i
<= bytes
[1]; i
++)
274 mbcinfo
->mbctype
[i
+ 1] |= _M1
;
278 if (cpi
.MaxCharSize
> 1)
280 /* trail bytes not available through kernel32 but stored in a structure in msvcrt */
281 struct cp_extra_info_t
*cpextra
= g_cpextrainfo
;
283 mbcinfo
->ismbcodepage
= 1;
286 if (cpextra
->cp
== 0 || cpextra
->cp
== newcp
)
288 if (cpextra
->cp
== 0)
289 FIXME("trail bytes data not available for DBCS codepage %d - assuming all bytes\n", newcp
);
291 bytes
= cpextra
->TrailBytes
;
292 while (bytes
[0] || bytes
[1])
294 for (i
= bytes
[0]; i
<= bytes
[1]; i
++)
295 mbcinfo
->mbctype
[i
+ 1] |= _M2
;
304 mbcinfo
->ismbcodepage
= 0;
306 /* we can't use GetStringTypeA directly because we don't have a locale - only a code page
309 for (i
= 0; i
< 256; i
++)
310 if (!(mbcinfo
->mbctype
[i
+ 1] & _M1
))
311 bufA
[charcount
++] = i
;
313 ret
= MultiByteToWideChar(newcp
, 0, bufA
, charcount
, bufW
, charcount
);
314 if (ret
!= charcount
)
315 ERR("MultiByteToWideChar of chars failed for cp %d, ret=%d (exp %d), error=%d\n", newcp
, ret
, charcount
, GetLastError());
317 GetStringTypeW(CT_CTYPE1
, bufW
, charcount
, chartypes
);
320 for (i
= 0; i
< 256; i
++)
321 if (!(mbcinfo
->mbctype
[i
+ 1] & _M1
))
323 if (chartypes
[charcount
] & C1_UPPER
)
325 mbcinfo
->mbctype
[i
+ 1] |= _SBUP
;
326 bufW
[charcount
] = tolowerW(bufW
[charcount
]);
328 else if (chartypes
[charcount
] & C1_LOWER
)
330 mbcinfo
->mbctype
[i
+ 1] |= _SBLOW
;
331 bufW
[charcount
] = toupperW(bufW
[charcount
]);
336 ret
= WideCharToMultiByte(newcp
, 0, bufW
, charcount
, bufA
, charcount
, NULL
, NULL
);
337 if (ret
!= charcount
)
338 ERR("WideCharToMultiByte failed for cp %d, ret=%d (exp %d), error=%d\n", newcp
, ret
, charcount
, GetLastError());
341 for (i
= 0; i
< 256; i
++)
343 if(!(mbcinfo
->mbctype
[i
+ 1] & _M1
))
345 if(mbcinfo
->mbctype
[i
] & (C1_UPPER
|C1_LOWER
))
346 mbcinfo
->mbcasemap
[i
] = bufA
[charcount
];
351 if (newcp
== 932) /* CP932 only - set _MP and _MS */
353 /* On Windows it's possible to calculate the _MP and _MS from CT_CTYPE1
354 * and CT_CTYPE3. But as of Wine 0.9.43 we return wrong values what makes
355 * it hard. As this is set only for codepage 932 we hardcode it what gives
356 * also faster execution.
358 for (i
= 161; i
<= 165; i
++)
359 mbcinfo
->mbctype
[i
+ 1] |= _MP
;
360 for (i
= 166; i
<= 223; i
++)
361 mbcinfo
->mbctype
[i
+ 1] |= _MS
;
364 mbcinfo
->mbcodepage
= newcp
;
365 if(MSVCRT_locale
&& mbcinfo
== MSVCRT_locale
->mbcinfo
)
366 memcpy(MSVCRT_mbctype
, MSVCRT_locale
->mbcinfo
->mbctype
, sizeof(MSVCRT_mbctype
));
371 /*********************************************************************
372 * _setmbcp (MSVCRT.@)
374 int CDECL
_setmbcp(int cp
)
376 return _setmbcp_l(cp
, -1, NULL
);
379 /*********************************************************************
380 * _getmbcp (MSVCRT.@)
382 int CDECL
_getmbcp(void)
384 return get_mbcinfo()->mbcodepage
;
387 /*********************************************************************
388 * _mbsnextc(MSVCRT.@)
390 unsigned int CDECL
_mbsnextc(const unsigned char* str
)
393 return *str
<< 8 | str
[1];
397 /*********************************************************************
398 * _mbctolower(MSVCRT.@)
400 unsigned int CDECL
_mbctolower(unsigned int c
)
404 FIXME("Handle MBC chars\n");
407 return tolower(c
); /* ASCII CP or SB char */
410 /*********************************************************************
411 * _mbctoupper(MSVCRT.@)
413 unsigned int CDECL
_mbctoupper(unsigned int c
)
417 FIXME("Handle MBC chars\n");
420 return toupper(c
); /* ASCII CP or SB char */
423 /*********************************************************************
424 * _mbctombb (MSVCRT.@)
426 unsigned int CDECL
_mbctombb(unsigned int c
)
430 if(get_mbcinfo()->mbcodepage
== 932)
432 if(c
>= 0x829f && c
<= 0x82f1) /* Hiragana */
433 return mbctombb_932_kana
[c
- 0x829f];
434 if(c
>= 0x8340 && c
<= 0x8396 && c
!= 0x837f) /* Katakana */
435 return mbctombb_932_kana
[c
- 0x8340 - (c
>= 0x837f ? 1 : 0)];
436 if(c
>= 0x8140 && c
<= 0x8197) /* Punctuation */
438 value
= mbctombb_932_punct
[c
- 0x8140];
439 return value
? value
: c
;
441 if((c
>= 0x824f && c
<= 0x8258) || /* Fullwidth digits */
442 (c
>= 0x8260 && c
<= 0x8279)) /* Fullwidth capitals letters */
444 if(c
>= 0x8281 && c
<= 0x829a) /* Fullwidth small letters */
446 /* all other cases return c */
451 /*********************************************************************
452 * _mbcjistojms(MSVCRT.@)
454 * Converts a jis character to sjis.
455 * Based on description from
456 * http://www.slayers.ne.jp/~oouchi/code/jistosjis.html
458 unsigned int CDECL
_mbcjistojms(unsigned int c
)
460 /* Conversion takes place only when codepage is 932.
461 In all other cases, c is returned unchanged */
462 if(get_mbcinfo()->mbcodepage
== 932)
464 if(HIBYTE(c
) >= 0x21 && HIBYTE(c
) <= 0x7e &&
465 LOBYTE(c
) >= 0x21 && LOBYTE(c
) <= 0x7e)
472 if(LOBYTE(c
) >= 0x7F)
475 c
= (((HIBYTE(c
) - 0x21)/2 + 0x81) << 8) | LOBYTE(c
);
481 return 0; /* Codepage is 932, but c can't be converted */
487 /*********************************************************************
488 * _mbcjmstojis(MSVCRT.@)
490 * Converts a sjis character to jis.
492 unsigned int CDECL
_mbcjmstojis(unsigned int c
)
494 /* Conversion takes place only when codepage is 932.
495 In all other cases, c is returned unchanged */
496 if(get_mbcinfo()->mbcodepage
== 932)
498 if(_ismbclegal(c
) && HIBYTE(c
) < 0xf0)
500 if(HIBYTE(c
) >= 0xe0)
503 c
= (((HIBYTE(c
) - 0x81)*2 + 0x21) << 8) | LOBYTE(c
);
514 return 0; /* Codepage is 932, but c can't be converted */
520 /*********************************************************************
523 unsigned char* CDECL
_mbsdec(const unsigned char* start
, const unsigned char* cur
)
525 if(get_mbcinfo()->ismbcodepage
)
526 return (unsigned char *)(_ismbstrail(start
,cur
-1) ? cur
- 2 : cur
-1);
528 return (unsigned char *)cur
- 1; /* ASCII CP or SB char */
531 /*********************************************************************
534 unsigned int CDECL
_mbclen(const unsigned char* str
)
536 return _ismbblead(*str
) ? 2 : 1;
539 /*********************************************************************
542 unsigned char* CDECL
_mbsinc(const unsigned char* str
)
544 return (unsigned char *)(str
+ _mbclen(str
));
547 /*********************************************************************
550 unsigned char* CDECL
_mbsninc(const unsigned char* str
, MSVCRT_size_t num
)
555 while (num
> 0 && *str
)
557 if (_ismbblead(*str
))
567 return (unsigned char*)str
;
570 /*********************************************************************
573 MSVCRT_size_t CDECL
_mbslen(const unsigned char* str
)
575 MSVCRT_size_t len
= 0;
578 if (_ismbblead(*str
))
581 if (!*str
) /* count only full chars */
590 /*********************************************************************
593 void CDECL
_mbccpy(unsigned char* dest
, const unsigned char* src
)
597 *++dest
= *++src
; /* MB char */
600 /*********************************************************************
603 * The parameter n is the number or characters to copy, not the size of
604 * the buffer. Use _mbsnbcpy for a function analogical to strncpy
606 unsigned char* CDECL
_mbsncpy(unsigned char* dst
, const unsigned char* src
, MSVCRT_size_t n
)
608 unsigned char* ret
= dst
;
611 if (get_mbcinfo()->ismbcodepage
)
616 if (_ismbblead(*src
))
636 if (!(*dst
++ = *src
++)) break;
639 while (n
--) *dst
++ = 0;
643 /*********************************************************************
644 * _mbsnbcpy_s(MSVCRT.@)
646 * Unlike _mbsnbcpy this function does not pad the rest of the dest
649 int CDECL
_mbsnbcpy_s(unsigned char* dst
, MSVCRT_size_t size
, const unsigned char* src
, MSVCRT_size_t n
)
651 MSVCRT_size_t pos
= 0;
653 if(!dst
|| size
== 0)
654 return MSVCRT_EINVAL
;
658 return MSVCRT_EINVAL
;
663 if(get_mbcinfo()->ismbcodepage
)
671 return MSVCRT_ERANGE
;
673 is_lead
= (!is_lead
&& _ismbblead(*src
));
678 if (is_lead
) /* if string ends with a lead, remove it */
689 return MSVCRT_ERANGE
;
702 return MSVCRT_ERANGE
;
708 /*********************************************************************
709 * _mbsnbcpy(MSVCRT.@)
711 * Like strncpy this function doesn't enforce the string to be
714 unsigned char* CDECL
_mbsnbcpy(unsigned char* dst
, const unsigned char* src
, MSVCRT_size_t n
)
716 unsigned char* ret
= dst
;
719 if(get_mbcinfo()->ismbcodepage
)
724 is_lead
= (!is_lead
&& _ismbblead(*src
));
729 if (is_lead
) /* if string ends with a lead, remove it */
737 if (!(*dst
++ = *src
++)) break;
740 while (n
--) *dst
++ = 0;
744 /*********************************************************************
747 int CDECL
_mbscmp(const unsigned char* str
, const unsigned char* cmp
)
749 if(get_mbcinfo()->ismbcodepage
)
751 unsigned int strc
, cmpc
;
754 return *cmp
? -1 : 0;
757 strc
= _mbsnextc(str
);
758 cmpc
= _mbsnextc(cmp
);
760 return strc
< cmpc
? -1 : 1;
761 str
+=(strc
> 255) ? 2 : 1;
762 cmp
+=(strc
> 255) ? 2 : 1; /* equal, use same increment */
765 return u_strcmp(str
, cmp
); /* ASCII CP */
768 /*********************************************************************
769 * _mbsicoll(MSVCRT.@)
770 * FIXME: handle locales.
772 int CDECL
_mbsicoll(const unsigned char* str
, const unsigned char* cmp
)
774 if(get_mbcinfo()->ismbcodepage
)
776 unsigned int strc
, cmpc
;
779 return *cmp
? -1 : 0;
782 strc
= _mbctolower(_mbsnextc(str
));
783 cmpc
= _mbctolower(_mbsnextc(cmp
));
785 return strc
< cmpc
? -1 : 1;
786 str
+=(strc
> 255) ? 2 : 1;
787 cmp
+=(strc
> 255) ? 2 : 1; /* equal, use same increment */
790 return u_strcasecmp(str
, cmp
); /* ASCII CP */
793 /*********************************************************************
795 * Performs a case-sensitive comparison according to the current code page
797 * _NLSCMPERROR if error
798 * FIXME: handle locales.
800 int CDECL
_mbscoll(const unsigned char* str
, const unsigned char* cmp
)
802 if(get_mbcinfo()->ismbcodepage
)
804 unsigned int strc
, cmpc
;
807 return *cmp
? -1 : 0;
810 strc
= _mbsnextc(str
);
811 cmpc
= _mbsnextc(cmp
);
813 return strc
< cmpc
? -1 : 1;
814 str
+=(strc
> 255) ? 2 : 1;
815 cmp
+=(strc
> 255) ? 2 : 1; /* equal, use same increment */
818 return u_strcmp(str
, cmp
); /* ASCII CP */
822 /*********************************************************************
825 int CDECL
_mbsicmp(const unsigned char* str
, const unsigned char* cmp
)
827 if(get_mbcinfo()->ismbcodepage
)
829 unsigned int strc
, cmpc
;
832 return *cmp
? -1 : 0;
835 strc
= _mbctolower(_mbsnextc(str
));
836 cmpc
= _mbctolower(_mbsnextc(cmp
));
838 return strc
< cmpc
? -1 : 1;
839 str
+=(strc
> 255) ? 2 : 1;
840 cmp
+=(strc
> 255) ? 2 : 1; /* equal, use same increment */
843 return u_strcasecmp(str
, cmp
); /* ASCII CP */
846 /*********************************************************************
849 int CDECL
_mbsncmp(const unsigned char* str
, const unsigned char* cmp
, MSVCRT_size_t len
)
854 if(get_mbcinfo()->ismbcodepage
)
856 unsigned int strc
, cmpc
;
861 return *cmp
? -1 : 0;
864 strc
= _mbsnextc(str
);
865 cmpc
= _mbsnextc(cmp
);
867 return strc
< cmpc
? -1 : 1;
868 inc
=(strc
> 255) ? 2 : 1; /* Equal, use same increment */
872 return 0; /* Matched len chars */
874 return u_strncmp(str
, cmp
, len
); /* ASCII CP */
877 /*********************************************************************
878 * _mbsnbcmp(MSVCRT.@)
880 int CDECL
_mbsnbcmp(const unsigned char* str
, const unsigned char* cmp
, MSVCRT_size_t len
)
884 if(get_mbcinfo()->ismbcodepage
)
886 unsigned int strc
, cmpc
;
891 return *cmp
? -1 : 0;
894 if (_ismbblead(*str
))
896 strc
=(len
>=2)?_mbsnextc(str
):0;
904 if (_ismbblead(*cmp
))
905 cmpc
=(len
>=2)?_mbsnextc(cmp
):0;
909 return strc
< cmpc
? -1 : 1;
914 return 0; /* Matched len chars */
916 return u_strncmp(str
,cmp
,len
);
919 /*********************************************************************
920 * _mbsnicmp(MSVCRT.@)
922 * Compare two multibyte strings case insensitively to 'len' characters.
924 int CDECL
_mbsnicmp(const unsigned char* str
, const unsigned char* cmp
, MSVCRT_size_t len
)
926 /* FIXME: No tolower() for mb strings yet */
927 if(get_mbcinfo()->ismbcodepage
)
929 unsigned int strc
, cmpc
;
933 return *cmp
? -1 : 0;
936 strc
= _mbctolower(_mbsnextc(str
));
937 cmpc
= _mbctolower(_mbsnextc(cmp
));
939 return strc
< cmpc
? -1 : 1;
940 str
+=(strc
> 255) ? 2 : 1;
941 cmp
+=(strc
> 255) ? 2 : 1; /* Equal, use same increment */
943 return 0; /* Matched len chars */
945 return u_strncasecmp(str
, cmp
, len
); /* ASCII CP */
948 /*********************************************************************
949 * _mbsnbicmp(MSVCRT.@)
951 int CDECL
_mbsnbicmp(const unsigned char* str
, const unsigned char* cmp
, MSVCRT_size_t len
)
955 if(get_mbcinfo()->ismbcodepage
)
957 unsigned int strc
, cmpc
;
962 return *cmp
? -1 : 0;
965 if (_ismbblead(*str
))
967 strc
=(len
>=2)?_mbsnextc(str
):0;
975 if (_ismbblead(*cmp
))
976 cmpc
=(len
>=2)?_mbsnextc(cmp
):0;
979 strc
= _mbctolower(strc
);
980 cmpc
= _mbctolower(cmpc
);
982 return strc
< cmpc
? -1 : 1;
987 return 0; /* Matched len bytes */
989 return u_strncasecmp(str
,cmp
,len
);
992 /*********************************************************************
995 unsigned char * CDECL
_mbscat( unsigned char *dst
, const unsigned char *src
)
997 strcat( (char *)dst
, (const char *)src
);
1001 /*********************************************************************
1002 * _mbscpy (MSVCRT.@)
1004 unsigned char* CDECL
_mbscpy( unsigned char *dst
, const unsigned char *src
)
1006 strcpy( (char *)dst
, (const char *)src
);
1010 /*********************************************************************
1011 * _mbsstr (MSVCRT.@)
1013 unsigned char * CDECL
_mbsstr(const unsigned char *haystack
, const unsigned char *needle
)
1015 return (unsigned char *)strstr( (const char *)haystack
, (const char *)needle
);
1018 /*********************************************************************
1021 * Find a multibyte character in a multibyte string.
1023 unsigned char* CDECL
_mbschr(const unsigned char* s
, unsigned int x
)
1025 if(get_mbcinfo()->ismbcodepage
)
1032 return (unsigned char*)s
;
1035 s
+= c
> 255 ? 2 : 1;
1038 return u_strchr(s
, x
); /* ASCII CP */
1041 /*********************************************************************
1042 * _mbsrchr(MSVCRT.@)
1044 unsigned char* CDECL
_mbsrchr(const unsigned char* s
, unsigned int x
)
1046 if(get_mbcinfo()->ismbcodepage
)
1049 unsigned char* match
=NULL
;
1055 match
=(unsigned char*)s
;
1058 s
+=(c
> 255) ? 2 : 1;
1061 return u_strrchr(s
, x
);
1064 /*********************************************************************
1067 * Find and extract tokens from strings
1069 unsigned char* CDECL
_mbstok(unsigned char *str
, const unsigned char *delim
)
1071 thread_data_t
*data
= msvcrt_get_thread_data();
1074 if(get_mbcinfo()->ismbcodepage
)
1079 if (!(str
= data
->mbstok_next
)) return NULL
;
1081 while ((c
= _mbsnextc(str
)) && _mbschr(delim
, c
)) {
1082 str
+= c
> 255 ? 2 : 1;
1084 if (!*str
) return NULL
;
1086 while ((c
= _mbsnextc(str
)) && !_mbschr(delim
, c
)) {
1087 str
+= c
> 255 ? 2 : 1;
1091 if (c
> 255) *str
++ = 0;
1093 data
->mbstok_next
= str
;
1096 return u_strtok(str
, delim
); /* ASCII CP */
1099 /*********************************************************************
1100 * _mbbtombc(MSVCRT.@)
1102 unsigned int CDECL
_mbbtombc(unsigned int c
)
1104 if(get_mbcinfo()->mbcodepage
== 932)
1106 if(c
>= 0x20 && c
<= 0x7e) {
1107 if((c
>= 0x41 && c
<= 0x5a) || (c
>= 0x61 && c
<= 0x7a) || (c
>= 0x30 && c
<= 0x39))
1108 return mbbtombc_932
[c
- 0x20] | 0x8200;
1110 return mbbtombc_932
[c
- 0x20] | 0x8100;
1112 else if(c
>= 0xa1 && c
<= 0xdf) {
1113 if(c
>= 0xa6 && c
<= 0xdd && c
!= 0xb0)
1114 return mbbtombc_932
[c
- 0xa1 + 0x5f] | 0x8300;
1116 return mbbtombc_932
[c
- 0xa1 + 0x5f] | 0x8100;
1119 return c
; /* not Japanese or no MB char */
1122 /*********************************************************************
1123 * _mbbtype(MSVCRT.@)
1125 int CDECL
_mbbtype(unsigned char c
, int type
)
1129 if ((c
>= 0x20 && c
<= 0x7e) || (c
>= 0xa1 && c
<= 0xdf))
1131 else if ((c
>= 0x40 && c
<= 0x7e) || (c
>= 0x80 && c
<= 0xfc))
1134 return _MBC_ILLEGAL
;
1138 if ((c
>= 0x20 && c
<= 0x7e) || (c
>= 0xa1 && c
<= 0xdf))
1140 else if ((c
>= 0x81 && c
<= 0x9f) || (c
>= 0xe0 && c
<= 0xfc))
1143 return _MBC_ILLEGAL
;
1147 /*********************************************************************
1148 * _ismbbkana(MSVCRT.@)
1150 int CDECL
_ismbbkana(unsigned int c
)
1152 /* FIXME: use lc_ctype when supported, not lc_all */
1153 if(get_mbcinfo()->mbcodepage
== 932)
1155 /* Japanese/Katakana, CP 932 */
1156 return (c
>= 0xa1 && c
<= 0xdf);
1161 /*********************************************************************
1162 * _ismbcdigit(MSVCRT.@)
1164 int CDECL
_ismbcdigit(unsigned int ch
)
1166 MSVCRT_wchar_t wch
= msvcrt_mbc_to_wc( ch
);
1167 return (get_char_typeW( wch
) & C1_DIGIT
);
1170 /*********************************************************************
1171 * _ismbcgraph(MSVCRT.@)
1173 int CDECL
_ismbcgraph(unsigned int ch
)
1175 MSVCRT_wchar_t wch
= msvcrt_mbc_to_wc( ch
);
1176 return (get_char_typeW( wch
) & (C1_UPPER
| C1_LOWER
| C1_DIGIT
| C1_PUNCT
| C1_ALPHA
));
1179 /*********************************************************************
1180 * _ismbcalpha (MSVCRT.@)
1182 int CDECL
_ismbcalpha(unsigned int ch
)
1184 MSVCRT_wchar_t wch
= msvcrt_mbc_to_wc( ch
);
1185 return (get_char_typeW( wch
) & C1_ALPHA
);
1188 /*********************************************************************
1189 * _ismbclower (MSVCRT.@)
1191 int CDECL
_ismbclower(unsigned int ch
)
1193 MSVCRT_wchar_t wch
= msvcrt_mbc_to_wc( ch
);
1194 return (get_char_typeW( wch
) & C1_UPPER
);
1197 /*********************************************************************
1198 * _ismbcupper (MSVCRT.@)
1200 int CDECL
_ismbcupper(unsigned int ch
)
1202 MSVCRT_wchar_t wch
= msvcrt_mbc_to_wc( ch
);
1203 return (get_char_typeW( wch
) & C1_LOWER
);
1206 /*********************************************************************
1207 * _ismbcsymbol(MSVCRT.@)
1209 int CDECL
_ismbcsymbol(unsigned int ch
)
1211 MSVCRT_wchar_t wch
= msvcrt_mbc_to_wc( ch
);
1213 if (!GetStringTypeW(CT_CTYPE3
, &wch
, 1, &ctype
))
1215 WARN("GetStringTypeW failed on %x\n", ch
);
1218 return ((ctype
& C3_SYMBOL
) != 0);
1221 /*********************************************************************
1222 * _ismbcalnum (MSVCRT.@)
1224 int CDECL
_ismbcalnum(unsigned int ch
)
1226 MSVCRT_wchar_t wch
= msvcrt_mbc_to_wc( ch
);
1227 return (get_char_typeW( wch
) & (C1_ALPHA
| C1_DIGIT
));
1230 /*********************************************************************
1231 * _ismbcspace (MSVCRT.@)
1233 int CDECL
_ismbcspace(unsigned int ch
)
1235 MSVCRT_wchar_t wch
= msvcrt_mbc_to_wc( ch
);
1236 return (get_char_typeW( wch
) & C1_SPACE
);
1239 /*********************************************************************
1240 * _ismbcprint (MSVCRT.@)
1242 int CDECL
_ismbcprint(unsigned int ch
)
1244 MSVCRT_wchar_t wch
= msvcrt_mbc_to_wc( ch
);
1245 return (get_char_typeW( wch
) & (C1_UPPER
| C1_LOWER
| C1_DIGIT
| C1_PUNCT
| C1_ALPHA
| C1_SPACE
));
1248 /*********************************************************************
1249 * _ismbcpunct(MSVCRT.@)
1251 int CDECL
_ismbcpunct(unsigned int ch
)
1253 MSVCRT_wchar_t wch
= msvcrt_mbc_to_wc( ch
);
1254 return (get_char_typeW( wch
) & C1_PUNCT
);
1257 /*********************************************************************
1258 * _ismbchira(MSVCRT.@)
1260 int CDECL
_ismbchira(unsigned int c
)
1262 /* FIXME: use lc_ctype when supported, not lc_all */
1263 if(get_mbcinfo()->mbcodepage
== 932)
1265 /* Japanese/Hiragana, CP 932 */
1266 return (c
>= 0x829f && c
<= 0x82f1);
1271 /*********************************************************************
1272 * _ismbckata(MSVCRT.@)
1274 int CDECL
_ismbckata(unsigned int c
)
1276 /* FIXME: use lc_ctype when supported, not lc_all */
1277 if(get_mbcinfo()->mbcodepage
== 932)
1280 return _ismbbkana(c
);
1281 /* Japanese/Katakana, CP 932 */
1282 return (c
>= 0x8340 && c
<= 0x8396 && c
!= 0x837f);
1287 /*********************************************************************
1288 * _ismbblead(MSVCRT.@)
1290 int CDECL
_ismbblead(unsigned int c
)
1292 return (get_mbcinfo()->mbctype
[(c
&0xff) + 1] & _M1
) != 0;
1296 /*********************************************************************
1297 * _ismbbtrail(MSVCRT.@)
1299 int CDECL
_ismbbtrail(unsigned int c
)
1301 return (get_mbcinfo()->mbctype
[(c
&0xff) + 1] & _M2
) != 0;
1304 /*********************************************************************
1305 * _ismbclegal(MSVCRT.@)
1307 int CDECL
_ismbclegal(unsigned int c
)
1309 return _ismbblead(HIBYTE(c
)) && _ismbbtrail(LOBYTE(c
));
1312 /*********************************************************************
1313 * _ismbslead(MSVCRT.@)
1315 int CDECL
_ismbslead(const unsigned char* start
, const unsigned char* str
)
1319 if(!get_mbcinfo()->ismbcodepage
)
1322 /* Lead bytes can also be trail bytes so we need to analyse the string
1324 while (start
<= str
)
1328 lead
= !lead
&& _ismbblead(*start
);
1332 return lead
? -1 : 0;
1335 /*********************************************************************
1336 * _ismbstrail(MSVCRT.@)
1338 int CDECL
_ismbstrail(const unsigned char* start
, const unsigned char* str
)
1340 /* Note: this function doesn't check _ismbbtrail */
1341 if ((str
> start
) && _ismbslead(start
, str
-1))
1347 /*********************************************************************
1348 * _mbsbtype (MSVCRT.@)
1350 int CDECL
_mbsbtype(const unsigned char *str
, MSVCRT_size_t count
)
1353 const unsigned char *end
= str
+ count
;
1355 /* Lead bytes can also be trail bytes so we need to analyse the string.
1356 * Also we must return _MBC_ILLEGAL for chars past the end of the string
1358 while (str
< end
) /* Note: we skip the last byte - will check after the loop */
1361 return _MBC_ILLEGAL
;
1362 lead
= get_mbcinfo()->ismbcodepage
&& !lead
&& _ismbblead(*str
);
1367 if (_ismbbtrail(*str
))
1370 return _MBC_ILLEGAL
;
1372 if (_ismbblead(*str
))
1378 /*********************************************************************
1381 unsigned char* CDECL
_mbsset(unsigned char* str
, unsigned int c
)
1383 unsigned char* ret
= str
;
1385 if(!get_mbcinfo()->ismbcodepage
|| c
< 256)
1386 return u__strset(str
, c
); /* ASCII CP or SB char */
1388 c
&= 0xffff; /* Strip high bits */
1390 while(str
[0] && str
[1])
1396 str
[0] = '\0'; /* FIXME: OK to shorten? */
1401 /*********************************************************************
1402 * _mbsnbset(MSVCRT.@)
1404 unsigned char* CDECL
_mbsnbset(unsigned char *str
, unsigned int c
, MSVCRT_size_t len
)
1406 unsigned char *ret
= str
;
1411 if(!get_mbcinfo()->ismbcodepage
|| c
< 256)
1412 return u__strnset(str
, c
, len
); /* ASCII CP or SB char */
1414 c
&= 0xffff; /* Strip high bits */
1416 while(str
[0] && str
[1] && (len
> 1))
1424 /* as per msdn pad with a blank character */
1431 /*********************************************************************
1432 * _mbsnset(MSVCRT.@)
1434 unsigned char* CDECL
_mbsnset(unsigned char* str
, unsigned int c
, MSVCRT_size_t len
)
1436 unsigned char *ret
= str
;
1441 if(!get_mbcinfo()->ismbcodepage
|| c
< 256)
1442 return u__strnset(str
, c
, len
); /* ASCII CP or SB char */
1444 c
&= 0xffff; /* Strip high bits */
1446 while(str
[0] && str
[1] && len
--)
1452 str
[0] = '\0'; /* FIXME: OK to shorten? */
1457 /*********************************************************************
1458 * _mbsnccnt(MSVCRT.@)
1459 * 'c' is for 'character'.
1461 MSVCRT_size_t CDECL
_mbsnccnt(const unsigned char* str
, MSVCRT_size_t len
)
1464 if(get_mbcinfo()->ismbcodepage
)
1467 while(*str
&& len
-- > 0)
1469 if(_ismbblead(*str
))
1482 return min(ret
, len
); /* ASCII CP */
1485 /*********************************************************************
1486 * _mbsnbcnt(MSVCRT.@)
1487 * 'b' is for byte count.
1489 MSVCRT_size_t CDECL
_mbsnbcnt(const unsigned char* str
, MSVCRT_size_t len
)
1492 if(get_mbcinfo()->ismbcodepage
)
1494 const unsigned char* xstr
= str
;
1495 while(*xstr
&& len
-- > 0)
1497 if (_ismbblead(*xstr
++))
1503 return min(ret
, len
); /* ASCII CP */
1506 /*********************************************************************
1507 * _mbsnbcat(MSVCRT.@)
1509 unsigned char* CDECL
_mbsnbcat(unsigned char* dst
, const unsigned char* src
, MSVCRT_size_t len
)
1511 if(get_mbcinfo()->ismbcodepage
)
1513 unsigned char *res
= dst
;
1515 if (_ismbblead(*dst
++)) {
1519 /* as per msdn overwrite the lead byte in front of '\0' */
1525 while (*src
&& len
--) *dst
++ = *src
++;
1529 return u_strncat(dst
, src
, len
); /* ASCII CP */
1532 int CDECL
_mbsnbcat_s(unsigned char *dst
, MSVCRT_size_t size
, const unsigned char *src
, MSVCRT_size_t len
)
1534 unsigned char *ptr
= dst
;
1537 if (!dst
&& !size
&& !src
&& !len
)
1540 if (!dst
|| !size
|| !src
)
1545 *MSVCRT__errno() = MSVCRT_EINVAL
;
1546 return MSVCRT_EINVAL
;
1549 /* Find the null terminator of the destination buffer. */
1550 while (size
&& *ptr
)
1556 *MSVCRT__errno() = MSVCRT_EINVAL
;
1557 return MSVCRT_EINVAL
;
1560 /* If necessary, check that the character preceding the null terminator is
1561 * a lead byte and move the pointer back by one for later overwrite. */
1562 if (ptr
!= dst
&& get_mbcinfo()->ismbcodepage
&& _ismbblead(*(ptr
- 1)))
1565 for (i
= 0; *src
&& i
< len
; i
++)
1573 *MSVCRT__errno() = MSVCRT_ERANGE
;
1574 return MSVCRT_ERANGE
;
1582 /*********************************************************************
1583 * _mbsncat(MSVCRT.@)
1585 unsigned char* CDECL
_mbsncat(unsigned char* dst
, const unsigned char* src
, MSVCRT_size_t len
)
1587 if(get_mbcinfo()->ismbcodepage
)
1589 unsigned char *res
= dst
;
1592 if (_ismbblead(*dst
++))
1595 while (*src
&& len
--)
1598 if(_ismbblead(*src
++))
1604 return u_strncat(dst
, src
, len
); /* ASCII CP */
1608 /*********************************************************************
1611 unsigned char* CDECL
_mbslwr(unsigned char* s
)
1613 unsigned char *ret
= s
;
1616 if (get_mbcinfo()->ismbcodepage
)
1621 c
= _mbctolower(_mbsnextc(s
));
1622 /* Note that I assume that the size of the character is unchanged */
1631 else for ( ; *s
; s
++) *s
= tolower(*s
);
1636 /*********************************************************************
1637 * _mbslwr_s(MSVCRT.@)
1639 int CDECL
_mbslwr_s(unsigned char* s
, MSVCRT_size_t len
)
1645 else if (!s
|| !len
)
1647 *MSVCRT__errno() = MSVCRT_EINVAL
;
1648 return MSVCRT_EINVAL
;
1650 if (get_mbcinfo()->ismbcodepage
)
1653 for ( ; *s
&& len
> 0; len
--)
1655 c
= _mbctolower(_mbsnextc(s
));
1656 /* Note that I assume that the size of the character is unchanged */
1665 else for ( ; *s
&& len
> 0; s
++, len
--) *s
= tolower(*s
);
1669 *MSVCRT__errno() = MSVCRT_EINVAL
;
1670 return MSVCRT_EINVAL
;
1676 /*********************************************************************
1679 unsigned char* CDECL
_mbsupr(unsigned char* s
)
1681 unsigned char *ret
= s
;
1684 if (get_mbcinfo()->ismbcodepage
)
1689 c
= _mbctoupper(_mbsnextc(s
));
1690 /* Note that I assume that the size of the character is unchanged */
1699 else for ( ; *s
; s
++) *s
= toupper(*s
);
1704 /*********************************************************************
1705 * _mbsupr_s(MSVCRT.@)
1707 int CDECL
_mbsupr_s(unsigned char* s
, MSVCRT_size_t len
)
1713 else if (!s
|| !len
)
1715 *MSVCRT__errno() = MSVCRT_EINVAL
;
1716 return MSVCRT_EINVAL
;
1718 if (get_mbcinfo()->ismbcodepage
)
1721 for ( ; *s
&& len
> 0; len
--)
1723 c
= _mbctoupper(_mbsnextc(s
));
1724 /* Note that I assume that the size of the character is unchanged */
1733 else for ( ; *s
&& len
> 0; s
++, len
--) *s
= toupper(*s
);
1737 *MSVCRT__errno() = MSVCRT_EINVAL
;
1738 return MSVCRT_EINVAL
;
1744 /*********************************************************************
1745 * _mbsspn (MSVCRT.@)
1747 MSVCRT_size_t CDECL
_mbsspn(const unsigned char* string
, const unsigned char* set
)
1749 const unsigned char *p
, *q
;
1751 for (p
= string
; *p
; p
++)
1755 for (q
= set
; *q
; q
++)
1759 if ((*p
== *q
) && (p
[1] == q
[1]))
1763 if (!q
[0] || !q
[1]) break;
1767 for (q
= set
; *q
; q
++)
1776 /*********************************************************************
1777 * _mbsspnp (MSVCRT.@)
1779 unsigned char* CDECL
_mbsspnp(const unsigned char* string
, const unsigned char* set
)
1781 const unsigned char *p
, *q
;
1783 for (p
= string
; *p
; p
++)
1787 for (q
= set
; *q
; q
++)
1791 if ((*p
== *q
) && (p
[1] == q
[1]))
1795 if (!q
[0] || !q
[1]) break;
1799 for (q
= set
; *q
; q
++)
1807 return (unsigned char *)p
;
1810 /*********************************************************************
1811 * _mbscspn(MSVCRT.@)
1813 MSVCRT_size_t CDECL
_mbscspn(const unsigned char* str
, const unsigned char* cmp
)
1815 if (get_mbcinfo()->ismbcodepage
)
1816 FIXME("don't handle double character case\n");
1817 return u_strcspn(str
, cmp
);
1820 /*********************************************************************
1821 * _mbsrev (MSVCRT.@)
1823 unsigned char* CDECL
_mbsrev(unsigned char* str
)
1825 int i
, len
= _mbslen(str
);
1826 unsigned char *p
, *temp
=MSVCRT_malloc(len
*2);
1831 /* unpack multibyte string to temp buffer */
1833 for(i
=0; i
<len
; i
++)
1847 /* repack it in the reverse order */
1849 for(i
=len
-1; i
>=0; i
--)
1851 if(_ismbblead(temp
[i
*2]))
1867 /*********************************************************************
1868 * _mbspbrk (MSVCRT.@)
1870 unsigned char* CDECL
_mbspbrk(const unsigned char* str
, const unsigned char* accept
)
1872 const unsigned char* p
;
1876 for(p
= accept
; *p
; p
+= (_ismbblead(*p
)?2:1) )
1879 if( !_ismbblead(*p
) || ( *(p
+1) == *(str
+1) ) )
1880 return (unsigned char*)str
;
1882 str
+= (_ismbblead(*str
)?2:1);
1889 * Functions depending on locale codepage
1892 /*********************************************************************
1895 * Unlike most of the multibyte string functions this function uses
1896 * the locale codepage, not the codepage set by _setmbcp
1898 int CDECL
MSVCRT_mblen(const char* str
, MSVCRT_size_t size
)
1900 if (str
&& *str
&& size
)
1902 if(get_locinfo()->mb_cur_max
== 1)
1903 return 1; /* ASCII CP */
1905 return !MSVCRT_isleadbyte(*str
) ? 1 : (size
>1 ? 2 : -1);
1910 /*********************************************************************
1911 * _mbstrlen_l(MSVCRT.@)
1913 MSVCRT_size_t CDECL
_mbstrlen_l(const char* str
, MSVCRT__locale_t locale
)
1915 MSVCRT_pthreadlocinfo locinfo
;
1918 locinfo
= get_locinfo();
1920 locinfo
= locale
->locinfo
;
1922 if(locinfo
->mb_cur_max
> 1) {
1924 len
= MultiByteToWideChar(locinfo
->lc_codepage
, MB_ERR_INVALID_CHARS
,
1927 *MSVCRT__errno() = MSVCRT_EILSEQ
;
1936 /*********************************************************************
1937 * _mbstrlen(MSVCRT.@)
1939 MSVCRT_size_t CDECL
_mbstrlen(const char* str
)
1941 return _mbstrlen_l(str
, NULL
);
1944 /*********************************************************************
1945 * _mbtowc_l(MSVCRT.@)
1947 int CDECL
MSVCRT_mbtowc_l(MSVCRT_wchar_t
*dst
, const char* str
, MSVCRT_size_t n
, MSVCRT__locale_t locale
)
1949 MSVCRT_pthreadlocinfo locinfo
;
1950 MSVCRT_wchar_t tmpdst
= '\0';
1953 locinfo
= get_locinfo();
1955 locinfo
= locale
->locinfo
;
1959 if(!MultiByteToWideChar(locinfo
->lc_codepage
, 0, str
, n
, &tmpdst
, 1))
1963 /* return the number of bytes from src that have been used */
1966 if(n
>= 2 && MSVCRT__isleadbyte_l(*str
, locale
) && str
[1])
1971 /*********************************************************************
1974 int CDECL
MSVCRT_mbtowc(MSVCRT_wchar_t
*dst
, const char* str
, MSVCRT_size_t n
)
1976 return MSVCRT_mbtowc_l(dst
, str
, n
, NULL
);
1979 /*********************************************************************
1980 * _mbstowcs_l(MSVCRT.@)
1982 MSVCRT_size_t CDECL
MSVCRT__mbstowcs_l(MSVCRT_wchar_t
*wcstr
, const char *mbstr
,
1983 MSVCRT_size_t count
, MSVCRT__locale_t locale
)
1985 MSVCRT_pthreadlocinfo locinfo
;
1986 MSVCRT_size_t i
, size
;
1989 locinfo
= get_locinfo();
1991 locinfo
= locale
->locinfo
;
1993 /* Ignore count parameter */
1995 return MultiByteToWideChar(locinfo
->lc_codepage
, 0, mbstr
, -1, NULL
, 0)-1;
1997 for(i
=0, size
=0; i
<count
; i
++) {
1998 if(mbstr
[size
] == '\0')
2001 size
+= (MSVCRT__isleadbyte_l(mbstr
[size
], locale
) ? 2 : 1);
2004 size
= MultiByteToWideChar(locinfo
->lc_codepage
, 0,
2005 mbstr
, size
, wcstr
, count
);
2007 if(size
<count
&& wcstr
)
2013 /*********************************************************************
2014 * mbstowcs(MSVCRT.@)
2016 MSVCRT_size_t CDECL
MSVCRT_mbstowcs(MSVCRT_wchar_t
*wcstr
,
2017 const char *mbstr
, MSVCRT_size_t count
)
2019 return MSVCRT__mbstowcs_l(wcstr
, mbstr
, count
, NULL
);
2022 /*********************************************************************
2023 * _mbstowcs_s_l(MSVCRT.@)
2025 int CDECL
MSVCRT__mbstowcs_s_l(MSVCRT_size_t
*ret
, MSVCRT_wchar_t
*wcstr
,
2026 MSVCRT_size_t size
, const char *mbstr
,
2027 MSVCRT_size_t count
, MSVCRT__locale_t locale
)
2031 if(!wcstr
&& !size
) {
2032 conv
= MSVCRT__mbstowcs_l(NULL
, mbstr
, 0, locale
);
2038 if (!MSVCRT_CHECK_PMT(wcstr
!= NULL
)) return MSVCRT_EINVAL
;
2039 if (!MSVCRT_CHECK_PMT(mbstr
!= NULL
)) {
2040 if(size
) wcstr
[0] = '\0';
2041 return MSVCRT_EINVAL
;
2044 if(count
==MSVCRT__TRUNCATE
|| size
<count
)
2049 conv
= MSVCRT__mbstowcs_l(wcstr
, mbstr
, conv
, locale
);
2051 wcstr
[conv
++] = '\0';
2052 else if(conv
==size
&& (count
==MSVCRT__TRUNCATE
|| wcstr
[conv
-1]=='\0'))
2053 wcstr
[conv
-1] = '\0';
2055 MSVCRT_INVALID_PMT("wcstr[size] is too small", MSVCRT_ERANGE
);
2058 return MSVCRT_ERANGE
;
2066 /*********************************************************************
2067 * mbstowcs_s(MSVCRT.@)
2069 int CDECL
MSVCRT__mbstowcs_s(MSVCRT_size_t
*ret
, MSVCRT_wchar_t
*wcstr
,
2070 MSVCRT_size_t size
, const char *mbstr
, MSVCRT_size_t count
)
2072 return MSVCRT__mbstowcs_s_l(ret
, wcstr
, size
, mbstr
, count
, NULL
);