git.oblomov.eu Git - wine/blob - dlls/msvcp80/msvcp80.c

   1 /*
   2  * msvcp80 specific functions
   3  *
   4  * Copyright 2010 Piotr Caban for CodeWeavers
   5  *
   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.
  10  *
  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.
  15  *
  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
  19  */
  20
  21 #include "config.h"
  22
  23 #include <stdarg.h>
  24
  25 #include "windef.h"
  26 #include "winbase.h"
  27
  28 #ifdef __i386__  /* thiscall functions are i386-specific */
  29
  30 #define THISCALL(func) __thiscall_ ## func
  31 #define THISCALL_NAME(func) __ASM_NAME("__thiscall_" #func)
  32 #define __thiscall __stdcall
  33 #define DEFINE_THISCALL_WRAPPER(func,args) \
  34     extern void THISCALL(func)(void); \
  35     __ASM_GLOBAL_FUNC(__thiscall_ ## func, \
  36                       "popl %eax\n\t" \
  37                       "pushl %ecx\n\t" \
  38                       "pushl %eax\n\t" \
  39                       "jmp " __ASM_NAME(#func) __ASM_STDCALL(args) )
  40 #else /* __i386__ */
  41
  42 #define THISCALL(func) func
  43 #define THISCALL_NAME(func) __ASM_NAME(#func)
  44 #define __thiscall __cdecl
  45 #define DEFINE_THISCALL_WRAPPER(func,args) /* nothing */
  46
  47 #endif /* __i386__ */
  48
  49 typedef SIZE_T MSVCP_size_t;
  50 struct locale_facet;
  51 struct locale;
  52
  53 /* basic_string<char, char_traits<char>, allocator<char>> */
  54 #define BUF_SIZE_CHAR 16
  55 typedef struct
  56 {
  57     void *allocator;
  58     union {
  59         char buf[BUF_SIZE_CHAR];
  60         char *ptr;
  61     } data;
  62     MSVCP_size_t size;
  63     MSVCP_size_t res;
  64 } basic_string_char;
  65
  66 #define BUF_SIZE_WCHAR 8
  67 typedef struct
  68 {
  69     void *allocator;
  70     union {
  71         wchar_t buf[BUF_SIZE_WCHAR];
  72         wchar_t *ptr;
  73     } data;
  74     MSVCP_size_t size;
  75     MSVCP_size_t res;
  76 } basic_string_wchar;
  77
  78 /* _String_iterator<char> and _String_const_iterator<char> class */
  79 typedef struct {
  80     void *cont;
  81     const basic_string_char *bstr;
  82     const char *pos;
  83 } basic_string_char_reverse_iter;
  84
  85 typedef struct {
  86     void *cont;
  87     const basic_string_wchar *bstr;
  88     const wchar_t *pos;
  89 } basic_string_wchar_reverse_iter;
  90
  91 const struct locale* (CDECL *plocale_classic)(void);
  92 MSVCP_size_t (CDECL *pcollate_char__Getcat)(const struct locale_facet**,const struct locale*);
  93 MSVCP_size_t (CDECL *pcollate_wchar__Getcat)(const struct locale_facet**,const struct locale*);
  94 MSVCP_size_t (CDECL *pcollate_short__Getcat)(const struct locale_facet**,const struct locale*);
  95 MSVCP_size_t (CDECL *pctype_char__Getcat)(const struct locale_facet**,const struct locale*);
  96 MSVCP_size_t (CDECL *pctype_wchar__Getcat)(const struct locale_facet**,const struct locale*);
  97 MSVCP_size_t (CDECL *pctype_short__Getcat)(const struct locale_facet**,const struct locale*);
  98 MSVCP_size_t (CDECL *pcodecvt_char__Getcat)(const struct locale_facet**,const struct locale*);
  99 MSVCP_size_t (CDECL *pnumpunct_char__Getcat)(const struct locale_facet**,const struct locale*);
 100 MSVCP_size_t (CDECL *pnumpunct_wchar__Getcat)(const struct locale_facet**,const struct locale*);
 101 MSVCP_size_t (CDECL *pnumpunct_short__Getcat)(const struct locale_facet**,const struct locale*);
 102
 103 static BOOL init_funcs(void)
 104 {
 105     HMODULE hmod = GetModuleHandleA("msvcp90.dll");
 106     if(!hmod)
 107         return FALSE;
 108
 109     if(sizeof(void*) > sizeof(int)) { /* 64-bit has different names */
 110         plocale_classic = (void*)GetProcAddress(hmod, "?classic@locale@std@@SAAEBV12@XZ");
 111         pcollate_char__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$collate@D@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z");
 112         pcollate_wchar__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$collate@_W@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z");
 113         pcollate_short__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$collate@G@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z");
 114         pctype_char__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$ctype@D@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z");
 115         pctype_wchar__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$ctype@_W@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z");
 116         pctype_short__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$ctype@G@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z");
 117         pcodecvt_char__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$codecvt@DDH@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z");
 118         pnumpunct_char__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$numpunct@D@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z");
 119         pnumpunct_wchar__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$numpunct@_W@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z");
 120         pnumpunct_short__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$numpunct@G@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z");
 121     }else {
 122         plocale_classic = (void*)GetProcAddress(hmod, "?classic@locale@std@@SAABV12@XZ");
 123         pcollate_char__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$collate@D@std@@SAIPAPBVfacet@locale@2@PBV42@@Z");
 124         pcollate_wchar__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$collate@_W@std@@SAIPAPBVfacet@locale@2@PBV42@@Z");
 125         pcollate_short__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$collate@G@std@@SAIPAPBVfacet@locale@2@PBV42@@Z");
 126         pctype_char__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$ctype@D@std@@SAIPAPBVfacet@locale@2@PBV42@@Z");
 127         pctype_wchar__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$ctype@_W@std@@SAIPAPBVfacet@locale@2@PBV42@@Z");
 128         pctype_short__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$ctype@G@std@@SAIPAPBVfacet@locale@2@PBV42@@Z(ptr");
 129         pcodecvt_char__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$codecvt@DDH@std@@SAIPAPBVfacet@locale@2@PBV42@@Z");
 130         pnumpunct_char__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$numpunct@D@std@@SAIPAPBVfacet@locale@2@PBV42@@Z");
 131         pnumpunct_wchar__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$numpunct@_W@std@@SAIPAPBVfacet@locale@2@PBV42@@Z");
 132         pnumpunct_short__Getcat = (void*)GetProcAddress(hmod, "?_Getcat@?$numpunct@G@std@@SAIPAPBVfacet@locale@2@PBV42@@Z");
 133     }
 134
 135     return TRUE;
 136 }
 137
 138 BOOL WINAPI DllMain(HINSTANCE hdll, DWORD reason, LPVOID reserved)
 139 {
 140     switch (reason)
 141     {
 142         case DLL_WINE_PREATTACH:
 143             return FALSE;  /* prefer native version */
 144
 145         case DLL_PROCESS_ATTACH:
 146             DisableThreadLibraryCalls(hdll);
 147             if(!init_funcs())
 148                 return FALSE;
 149     }
 150     return TRUE;
 151 }
 152
 153 /* ?_Getcat@?$collate@D@std@@SAIPAPBVfacet@locale@2@@Z */
 154 /* ?_Getcat@?$collate@D@std@@SA_KPEAPEBVfacet@locale@2@@Z */
 155 MSVCP_size_t __cdecl collate_char__Getcat(const struct locale_facet **facet)
 156 {
 157     return pcollate_char__Getcat(facet, plocale_classic());
 158 }
 159
 160 /* ?_Getcat@?$collate@_W@std@@SAIPAPBVfacet@locale@2@@Z */
 161 /* ?_Getcat@?$collate@_W@std@@SA_KPEAPEBVfacet@locale@2@@Z */
 162 MSVCP_size_t __cdecl collate_wchar__Getcat(const struct locale_facet **facet)
 163 {
 164     return pcollate_wchar__Getcat(facet, plocale_classic());
 165 }
 166
 167 /* ?_Getcat@?$collate@G@std@@SAIPAPBVfacet@locale@2@@Z */
 168 /* ?_Getcat@?$collate@G@std@@SA_KPEAPEBVfacet@locale@2@@Z */
 169 MSVCP_size_t __cdecl collate_short__Getcat(const struct locale_facet **facet)
 170 {
 171     return pcollate_short__Getcat(facet, plocale_classic());
 172 }
 173
 174 /* ?_Getcat@?$ctype@D@std@@SAIPAPBVfacet@locale@2@@Z */
 175 /* ?_Getcat@?$ctype@D@std@@SA_KPEAPEBVfacet@locale@2@@Z */
 176 MSVCP_size_t __cdecl ctype_char__Getcat(const struct locale_facet **facet)
 177 {
 178     return pctype_char__Getcat(facet, plocale_classic());
 179 }
 180
 181 /* ?_Getcat@?$ctype@_W@std@@SAIPAPBVfacet@locale@2@@Z */
 182 /* ?_Getcat@?$ctype@_W@std@@SA_KPEAPEBVfacet@locale@2@@Z */
 183 MSVCP_size_t __cdecl ctype_wchar__Getcat(const struct locale_facet **facet)
 184 {
 185     return pctype_wchar__Getcat(facet, plocale_classic());
 186 }
 187
 188 /* ?_Getcat@?$ctype@G@std@@SAIPAPBVfacet@locale@2@@Z */
 189 /* ?_Getcat@?$ctype@G@std@@SA_KPEAPEBVfacet@locale@2@@Z */
 190 MSVCP_size_t __cdecl ctype_short__Getcat(const struct locale_facet **facet)
 191 {
 192     return pctype_short__Getcat(facet, plocale_classic());
 193 }
 194
 195 /* ?_Getcat@?$codecvt@DDH@std@@SAIPAPBVfacet@locale@2@@Z */
 196 /* ?_Getcat@?$codecvt@DDH@std@@SA_KPEAPEBVfacet@locale@2@@Z */
 197 MSVCP_size_t __cdecl codecvt_char__Getcat(const struct locale_facet **facet)
 198 {
 199     return pcodecvt_char__Getcat(facet, plocale_classic());
 200 }
 201
 202 /* ?_Getcat@?$numpunct@D@std@@SAIPAPBVfacet@locale@2@@Z */
 203 /* ?_Getcat@?$numpunct@D@std@@SA_KPEAPEBVfacet@locale@2@@Z */
 204 MSVCP_size_t __cdecl numpunct_char__Getcat(const struct locale_facet **facet)
 205 {
 206     return pnumpunct_char__Getcat(facet, plocale_classic());
 207 }
 208
 209 /* ?_Getcat@?$numpunct@_W@std@@SAIPAPBVfacet@locale@2@@Z */
 210 /* ?_Getcat@?$numpunct@_W@std@@SA_KPEAPEBVfacet@locale@2@@Z */
 211 MSVCP_size_t __cdecl numpunct_wchar__Getcat(const struct locale_facet **facet)
 212 {
 213     return pnumpunct_wchar__Getcat(facet, plocale_classic());
 214 }
 215
 216 /* ?_Getcat@?$numpunct@G@std@@SAIPAPBVfacet@locale@2@@Z */
 217 /* ?_Getcat@?$numpunct@G@std@@SA_KPEAPEBVfacet@locale@2@@Z */
 218 MSVCP_size_t __cdecl numpunct_short__Getcat(const struct locale_facet **facet)
 219 {
 220     return pnumpunct_short__Getcat(facet, plocale_classic());
 221 }
 222
 223 static const char* basic_string_char_const_ptr(const basic_string_char *this)
 224 {
 225     if(this->res == BUF_SIZE_CHAR-1)
 226         return this->data.buf;
 227     return this->data.ptr;
 228 }
 229
 230 static const wchar_t* basic_string_wchar_const_ptr(const basic_string_wchar *this)
 231 {
 232         if(this->res == BUF_SIZE_WCHAR-1)
 233             return this->data.buf;
 234         return this->data.ptr;
 235 }
 236
 237 /* ?rbegin@?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@QAE?AV?$reverse_iterator@V?$_String_iterator@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@XZ */
 238 /* ?rbegin@?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@QEAA?AV?$reverse_iterator@V?$_String_iterator@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@XZ */
 239 /* ?rbegin@?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@QBE?AV?$reverse_iterator@V?$_String_const_iterator@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@XZ */
 240 /* ?rbegin@?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@QEBA?AV?$reverse_iterator@V?$_String_const_iterator@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@XZ */
 241 DEFINE_THISCALL_WRAPPER(basic_string_char_rbegin, 8)
 242 basic_string_char_reverse_iter* __thiscall basic_string_char_rbegin(const basic_string_char *this, basic_string_char_reverse_iter *ret)
 243 {
 244     ret->cont = NULL;
 245     ret->bstr = this;
 246     ret->pos = basic_string_char_const_ptr(this)+this->size;
 247     return ret;
 248 }
 249
 250 /* ?rbegin@?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@QAE?AV?$reverse_iterator@V?$_String_iterator@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@@2@XZ */
 251 /* ?rbegin@?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@QEAA?AV?$reverse_iterator@V?$_String_iterator@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@@2@XZ */
 252 /* ?rbegin@?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@QAE?AV?$reverse_iterator@V?$_String_iterator@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@@2@XZ */
 253 /* ?rbegin@?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@QEAA?AV?$reverse_iterator@V?$_String_iterator@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@@2@XZ */
 254 /* ?rbegin@?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@QBE?AV?$reverse_iterator@V?$_String_const_iterator@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@@2@XZ */
 255 /* ?rbegin@?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@QEBA?AV?$reverse_iterator@V?$_String_const_iterator@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@@2@XZ */
 256 /* ?rbegin@?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@QBE?AV?$reverse_iterator@V?$_String_const_iterator@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@@2@XZ */
 257 /* ?rbegin@?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@QEBA?AV?$reverse_iterator@V?$_String_const_iterator@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@@2@XZ */
 258 DEFINE_THISCALL_WRAPPER(basic_string_wchar_rbegin, 8)
 259 basic_string_wchar_reverse_iter* __thiscall basic_string_wchar_rbegin(const basic_string_wchar *this, basic_string_wchar_reverse_iter *ret)
 260 {
 261     ret->cont = NULL;
 262     ret->bstr = this;
 263     ret->pos = basic_string_wchar_const_ptr(this)+this->size;
 264     return ret;
 265 }
 266
 267 /* ?rend@?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@QAE?AV?$reverse_iterator@V?$_String_iterator@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@XZ */
 268 /* ?rend@?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@QEAA?AV?$reverse_iterator@V?$_String_iterator@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@XZ */
 269 /* ?rend@?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@QBE?AV?$reverse_iterator@V?$_String_const_iterator@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@XZ */
 270 /* ?rend@?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@QEBA?AV?$reverse_iterator@V?$_String_const_iterator@DU?$char_traits@D@std@@V?$allocator@D@2@@std@@@2@XZ */
 271 DEFINE_THISCALL_WRAPPER(basic_string_char_rend, 8)
 272 basic_string_char_reverse_iter* __thiscall basic_string_char_rend(const basic_string_char *this, basic_string_char_reverse_iter *ret)
 273 {
 274     ret->cont = NULL;
 275     ret->bstr = this;
 276     ret->pos = basic_string_char_const_ptr(this);
 277     return ret;
 278 }
 279
 280 /* ?rend@?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@QAE?AV?$reverse_iterator@V?$_String_iterator@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@@2@XZ */
 281 /* ?rend@?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@QEAA?AV?$reverse_iterator@V?$_String_iterator@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@@2@XZ */
 282 /* ?rend@?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@QAE?AV?$reverse_iterator@V?$_String_iterator@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@@2@XZ */
 283 /* ?rend@?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@QEAA?AV?$reverse_iterator@V?$_String_iterator@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@@2@XZ */
 284 /* ?rend@?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@QBE?AV?$reverse_iterator@V?$_String_const_iterator@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@@2@XZ */
 285 /* ?rend@?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@QEBA?AV?$reverse_iterator@V?$_String_const_iterator@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@std@@@2@XZ */
 286 /* ?rend@?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@QBE?AV?$reverse_iterator@V?$_String_const_iterator@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@@2@XZ */
 287 /* ?rend@?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@QEBA?AV?$reverse_iterator@V?$_String_const_iterator@GU?$char_traits@G@std@@V?$allocator@G@2@@std@@@2@XZ */
 288 DEFINE_THISCALL_WRAPPER(basic_string_wchar_rend, 8)
 289 basic_string_wchar_reverse_iter* __thiscall basic_string_wchar_rend(const basic_string_wchar *this, basic_string_wchar_reverse_iter *ret)
 290 {
 291     ret->cont = NULL;
 292     ret->bstr = this;
 293     ret->pos = basic_string_wchar_const_ptr(this);
 294     return ret;
 295 }