Piotr Caban : msvcp90: Added ctype<char>::toupper functions implementation.
Alexandre Julliard
julliard at winehq.org
Wed Dec 21 12:38:09 CST 2011
Module: wine
Branch: master
Commit: 7fe9abd5cc63f6b8e66226d8157acb89bb0ab432
URL: http://source.winehq.org/git/wine.git/?a=commit;h=7fe9abd5cc63f6b8e66226d8157acb89bb0ab432
Author: Piotr Caban <piotr at codeweavers.com>
Date: Wed Dec 21 15:59:18 2011 +0100
msvcp90: Added ctype<char>::toupper functions implementation.
---
dlls/msvcp90/locale.c | 66 +++++++++++++++++++++++++++++++++++++++-----
dlls/msvcp90/msvcp90.spec | 2 +-
2 files changed, 59 insertions(+), 9 deletions(-)
diff --git a/dlls/msvcp90/locale.c b/dlls/msvcp90/locale.c
index 39f01bf..7708e38 100644
--- a/dlls/msvcp90/locale.c
+++ b/dlls/msvcp90/locale.c
@@ -1505,23 +1505,73 @@ const char* __thiscall ctype_char_tolower(const ctype_char *this, char *first, c
return call_ctype_char_do_tolower(this, first, last);
}
+/* _Toupper */
+int __cdecl _Toupper(int ch, const _Ctypevec *ctype)
+{
+ unsigned int cp;
+
+ TRACE("%d %p\n", ch, ctype);
+
+ if(ctype)
+ cp = ctype->page;
+ else
+ cp = ___lc_codepage_func();
+
+ /* Don't convert to unicode in case of C locale */
+ if(!cp) {
+ if(ch>='a' && ch<='z')
+ ch = ch-'a'+'A';
+ return ch;
+ } else {
+ WCHAR wide, upper;
+ char str[2];
+ int size;
+
+ if(ch > 255) {
+ str[0] = (ch>>8) & 255;
+ str[1] = ch & 255;
+ size = 2;
+ } else {
+ str[0] = ch & 255;
+ size = 1;
+ }
+
+ if(!MultiByteToWideChar(cp, MB_ERR_INVALID_CHARS, str, size, &wide, 1))
+ return ch;
+
+ upper = toupperW(wide);
+ if(upper == wide)
+ return ch;
+
+ WideCharToMultiByte(cp, 0, &upper, 1, str, 2, NULL, NULL);
+
+ return str[0] + (str[1]<<8);
+ }
+}
+
/* ?do_toupper@?$ctype at D@std@@MBEDD at Z */
/* ?do_toupper@?$ctype at D@std@@MEBADD at Z */
+#define call_ctype_char_do_toupper_ch(this, ch) CALL_VTBL_FUNC(this, 16, \
+ char, (const ctype_char*, char), (this, ch))
DEFINE_THISCALL_WRAPPER(ctype_char_do_toupper_ch, 8)
char __thiscall ctype_char_do_toupper_ch(const ctype_char *this, char ch)
{
- FIXME("(%p %c) stub\n", this, ch);
- return 0;
+ TRACE("(%p %c)\n", this, ch);
+ return _Toupper(ch, &this->ctype);
}
/* ?do_toupper@?$ctype at D@std@@MBEPBDPADPBD at Z */
/* ?do_toupper@?$ctype at D@std@@MEBAPEBDPEADPEBD at Z */
+#define call_ctype_char_do_toupper(this, first, last) CALL_VTBL_FUNC(this, 12, \
+ const char*, (const ctype_char*, char*, const char*), (this, first, last))
DEFINE_THISCALL_WRAPPER(ctype_char_do_toupper, 12)
const char* __thiscall ctype_char_do_toupper(const ctype_char *this,
char *first, const char *last)
{
- FIXME("(%p %p %p) stub\n", this, first, last);
- return NULL;
+ TRACE("(%p %p %p)\n", this, first, last);
+ for(; first<last; first++)
+ *first = _Toupper(*first, &this->ctype);
+ return last;
}
/* ?toupper@?$ctype at D@std@@QBEDD at Z */
@@ -1529,8 +1579,8 @@ const char* __thiscall ctype_char_do_toupper(const ctype_char *this,
DEFINE_THISCALL_WRAPPER(ctype_char_toupper_ch, 8)
char __thiscall ctype_char_toupper_ch(const ctype_char *this, char ch)
{
- FIXME("(%p %c) stub\n", this, ch);
- return 0;
+ TRACE("(%p %c)\n", this, ch);
+ return call_ctype_char_do_toupper_ch(this, ch);
}
/* ?toupper@?$ctype at D@std@@QBEPBDPADPBD at Z */
@@ -1538,8 +1588,8 @@ char __thiscall ctype_char_toupper_ch(const ctype_char *this, char ch)
DEFINE_THISCALL_WRAPPER(ctype_char_toupper, 12)
const char* __thiscall ctype_char_toupper(const ctype_char *this, char *first, const char *last)
{
- FIXME("(%p %p %p) stub\n", this, first, last);
- return NULL;
+ TRACE("(%p %p %p)\n", this, first, last);
+ return call_ctype_char_do_toupper(this, first, last);
}
/* ?is@?$ctype at D@std@@QBE_NFD at Z */
diff --git a/dlls/msvcp90/msvcp90.spec b/dlls/msvcp90/msvcp90.spec
index b7599ef..976ab8f 100644
--- a/dlls/msvcp90/msvcp90.spec
+++ b/dlls/msvcp90/msvcp90.spec
@@ -5799,7 +5799,7 @@
@ cdecl _Strcoll(ptr ptr ptr ptr ptr)
@ stub _Strxfrm
@ cdecl _Tolower(long ptr)
-@ stub _Toupper
+@ cdecl _Toupper(long ptr)
@ stub _Towlower
@ stub _Towupper
@ stub _Wcrtomb
More information about the wine-cvs
mailing list