git.oblomov.eu Git - wine/blob - dlls/msvcp90/locale.c

   1 /*
   2  * Copyright 2010 Piotr Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "config.h"
  20
  21 #include <stdarg.h>
  22
  23 #include "msvcp90.h"
  24 #include "locale.h"
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winnls.h"
  29 #include "wine/debug.h"
  30 WINE_DEFAULT_DEBUG_CHANNEL(msvcp90);
  31
  32 char* __cdecl _Getdays(void);
  33 char* __cdecl _Getmonths(void);
  34 void* __cdecl _Gettnames(void);
  35
  36 typedef int category;
  37
  38 typedef struct {
  39     MSVCP_size_t id;
  40 } locale_id;
  41
  42 typedef struct {
  43     const vtable_ptr *vtable;
  44     MSVCP_size_t refs;
  45 } locale_facet;
  46
  47 typedef struct _locale__Locimp {
  48     locale_facet facet;
  49     locale_facet **facetvec;
  50     MSVCP_size_t facet_cnt;
  51     category catmask;
  52     MSVCP_bool transparent;
  53     basic_string_char name;
  54 } locale__Locimp;
  55
  56 typedef struct {
  57     void *timeptr;
  58 } _Timevec;
  59
  60 typedef struct {
  61     _Lockit lock;
  62     basic_string_char days;
  63     basic_string_char months;
  64     basic_string_char oldlocname;
  65     basic_string_char newlocname;
  66 } _Locinfo;
  67
  68 typedef struct {
  69     LCID handle;
  70     unsigned page;
  71 } _Collvec;
  72
  73 typedef struct {
  74     LCID handle;
  75     unsigned page;
  76     const short *table;
  77     int delfl;
  78 } _Ctypevec;
  79
  80 typedef struct {
  81     LCID handle;
  82     unsigned page;
  83 } _Cvtvec;
  84
  85 typedef struct {
  86     locale_facet facet;
  87     _Collvec coll;
  88 } collate;
  89
  90 typedef struct {
  91     locale_facet facet;
  92 } ctype_base;
  93
  94 typedef struct {
  95     ctype_base base;
  96     _Ctypevec ctype;
  97 } ctype_char;
  98
  99 typedef struct {
 100     ctype_base base;
 101     _Ctypevec ctype;
 102     _Cvtvec cvt;
 103 } ctype_wchar;
 104
 105 /* ?_Id_cnt@id@locale@std@@0HA */
 106 int locale_id__Id_cnt = 0;
 107
 108 /* ?_Clocptr@_Locimp@locale@std@@0PAV123@A */
 109 /* ?_Clocptr@_Locimp@locale@std@@0PEAV123@EA */
 110 locale__Locimp *locale__Locimp__Clocptr = NULL;
 111
 112 /* ??1facet@locale@std@@UAE@XZ */
 113 /* ??1facet@locale@std@@UEAA@XZ */
 114 DEFINE_THISCALL_WRAPPER(locale_facet_dtor, 4)
 115 void __thiscall locale_facet_dtor(locale_facet *this)
 116 {
 117     TRACE("(%p)\n", this);
 118 }
 119
 120 DEFINE_THISCALL_WRAPPER(MSVCP_locale_facet_vector_dtor, 8)
 121 #define call_locale_facet_vector_dtor(this, flags) CALL_VTBL_FUNC(this, 0, \
 122         locale_facet*, (locale_facet*, unsigned int), (this, flags))
 123 locale_facet* __thiscall MSVCP_locale_facet_vector_dtor(locale_facet *this, unsigned int flags)
 124 {
 125     TRACE("(%p %x)\n", this, flags);
 126     if(flags & 2) {
 127         /* we have an array, with the number of elements stored before the first object */
 128         int i, *ptr = (int *)this-1;
 129
 130         for(i=*ptr-1; i>=0; i--)
 131             locale_facet_dtor(this+i);
 132         MSVCRT_operator_delete(ptr);
 133     } else {
 134         locale_facet_dtor(this);
 135         if(flags & 1)
 136             MSVCRT_operator_delete(this);
 137     }
 138
 139     return this;
 140 }
 141
 142 const vtable_ptr MSVCP_locale_facet_vtable[] = {
 143     (vtable_ptr)THISCALL_NAME(MSVCP_locale_facet_vector_dtor)
 144 };
 145
 146 /* ??0id@locale@std@@QAE@I@Z */
 147 /* ??0id@locale@std@@QEAA@_K@Z */
 148 DEFINE_THISCALL_WRAPPER(locale_id_ctor_id, 8)
 149 locale_id* __thiscall locale_id_ctor_id(locale_id *this, MSVCP_size_t id)
 150 {
 151     TRACE("(%p %lu)\n", this, id);
 152
 153     this->id = id;
 154     return this;
 155 }
 156
 157 /* ??_Fid@locale@std@@QAEXXZ */
 158 /* ??_Fid@locale@std@@QEAAXXZ */
 159 DEFINE_THISCALL_WRAPPER(locale_id_ctor, 4)
 160 locale_id* __thiscall locale_id_ctor(locale_id *this)
 161 {
 162     TRACE("(%p)\n", this);
 163
 164     this->id = 0;
 165     return this;
 166 }
 167
 168 /* ??Bid@locale@std@@QAEIXZ */
 169 /* ??Bid@locale@std@@QEAA_KXZ */
 170 DEFINE_THISCALL_WRAPPER(locale_id_operator_size_t, 4)
 171 MSVCP_size_t __thiscall locale_id_operator_size_t(locale_id *this)
 172 {
 173     _Lockit lock;
 174
 175     TRACE("(%p)\n", this);
 176
 177     if(!this->id) {
 178         _Lockit_ctor_locktype(&lock, _LOCK_LOCALE);
 179         this->id = ++locale_id__Id_cnt;
 180         _Lockit_dtor(&lock);
 181     }
 182
 183     return this->id;
 184 }
 185
 186 /* ?_Id_cnt_func@id@locale@std@@CAAAHXZ */
 187 /* ?_Id_cnt_func@id@locale@std@@CAAEAHXZ */
 188 int* __cdecl locale_id__Id_cnt_func(void)
 189 {
 190     TRACE("\n");
 191     return &locale_id__Id_cnt;
 192 }
 193
 194 /* ??_Ffacet@locale@std@@QAEXXZ */
 195 /* ??_Ffacet@locale@std@@QEAAXXZ */
 196 DEFINE_THISCALL_WRAPPER(locale_facet_ctor, 4)
 197 locale_facet* __thiscall locale_facet_ctor(locale_facet *this)
 198 {
 199     TRACE("(%p)\n", this);
 200     this->vtable = MSVCP_locale_facet_vtable;
 201     this->refs = 0;
 202     return this;
 203 }
 204
 205 /* ??0facet@locale@std@@IAE@I@Z */
 206 /* ??0facet@locale@std@@IEAA@_K@Z */
 207 DEFINE_THISCALL_WRAPPER(locale_facet_ctor_refs, 8)
 208 locale_facet* __thiscall locale_facet_ctor_refs(locale_facet *this, MSVCP_size_t refs)
 209 {
 210     TRACE("(%p %lu)\n", this, refs);
 211     this->vtable = MSVCP_locale_facet_vtable;
 212     this->refs = refs;
 213     return this;
 214 }
 215
 216 /* ?_Incref@facet@locale@std@@QAEXXZ */
 217 /* ?_Incref@facet@locale@std@@QEAAXXZ */
 218 DEFINE_THISCALL_WRAPPER(locale_facet__Incref, 4)
 219 void __thiscall locale_facet__Incref(locale_facet *this)
 220 {
 221     _Lockit lock;
 222
 223     TRACE("(%p)\n", this);
 224
 225     _Lockit_ctor_locktype(&lock, _LOCK_LOCALE);
 226     this->refs++;
 227     _Lockit_dtor(&lock);
 228 }
 229
 230 /* ?_Decref@facet@locale@std@@QAEPAV123@XZ */
 231 /* ?_Decref@facet@locale@std@@QEAAPEAV123@XZ */
 232 DEFINE_THISCALL_WRAPPER(locale_facet__Decref, 4)
 233 locale_facet* __thiscall locale_facet__Decref(locale_facet *this)
 234 {
 235     _Lockit lock;
 236     locale_facet *ret;
 237
 238     TRACE("(%p)\n", this);
 239
 240     _Lockit_ctor_locktype(&lock, _LOCK_LOCALE);
 241     if(this->refs)
 242         this->refs--;
 243
 244     ret = this->refs ? NULL : this;
 245     _Lockit_dtor(&lock);
 246
 247     return ret;
 248 }
 249
 250 /* ?_Getcat@facet@locale@std@@SAIPAPBV123@PBV23@@Z */
 251 /* ?_Getcat@facet@locale@std@@SA_KPEAPEBV123@PEBV23@@Z */
 252 MSVCP_size_t __cdecl locale_facet__Getcat(const locale_facet **facet, const locale *loc)
 253 {
 254     TRACE("(%p %p)\n", facet, loc);
 255     return -1;
 256 }
 257
 258 /* ??0_Timevec@std@@QAE@ABV01@@Z */
 259 /* ??0_Timevec@std@@QEAA@AEBV01@@Z */
 260 /* This copy constructor modifies copied object */
 261 DEFINE_THISCALL_WRAPPER(_Timevec_copy_ctor, 8)
 262 _Timevec* __thiscall _Timevec_copy_ctor(_Timevec *this, _Timevec *copy)
 263 {
 264     TRACE("(%p %p)\n", this, copy);
 265     this->timeptr = copy->timeptr;
 266     copy->timeptr = NULL;
 267     return this;
 268 }
 269
 270 /* ??0_Timevec@std@@QAE@PAX@Z */
 271 /* ??0_Timevec@std@@QEAA@PEAX@Z */
 272 DEFINE_THISCALL_WRAPPER(_Timevec_ctor_timeptr, 8)
 273 _Timevec* __thiscall _Timevec_ctor_timeptr(_Timevec *this, void *timeptr)
 274 {
 275     TRACE("(%p %p)\n", this, timeptr);
 276     this->timeptr = timeptr;
 277     return this;
 278 }
 279
 280 /* ??_F_Timevec@std@@QAEXXZ */
 281 /* ??_F_Timevec@std@@QEAAXXZ */
 282 DEFINE_THISCALL_WRAPPER(_Timevec_ctor, 4)
 283 _Timevec* __thiscall _Timevec_ctor(_Timevec *this)
 284 {
 285     TRACE("(%p)\n", this);
 286     this->timeptr = NULL;
 287     return this;
 288 }
 289
 290 /* ??1_Timevec@std@@QAE@XZ */
 291 /* ??1_Timevec@std@@QEAA@XZ */
 292 DEFINE_THISCALL_WRAPPER(_Timevec_dtor, 4)
 293 void __thiscall _Timevec_dtor(_Timevec *this)
 294 {
 295     TRACE("(%p)\n", this);
 296     free(this->timeptr);
 297 }
 298
 299 /* ??4_Timevec@std@@QAEAAV01@ABV01@@Z */
 300 /* ??4_Timevec@std@@QEAAAEAV01@AEBV01@@Z */
 301 DEFINE_THISCALL_WRAPPER(_Timevec_op_assign, 8)
 302 _Timevec* __thiscall _Timevec_op_assign(_Timevec *this, _Timevec *right)
 303 {
 304     TRACE("(%p %p)\n", this, right);
 305     this->timeptr = right->timeptr;
 306     right->timeptr = NULL;
 307     return this;
 308 }
 309
 310 /* ?_Getptr@_Timevec@std@@QBEPAXXZ */
 311 /* ?_Getptr@_Timevec@std@@QEBAPEAXXZ */
 312 DEFINE_THISCALL_WRAPPER(_Timevec__Getptr, 4)
 313 void* __thiscall _Timevec__Getptr(_Timevec *this)
 314 {
 315     TRACE("(%p)\n", this);
 316     return this->timeptr;
 317 }
 318
 319 /* ?_Locinfo_ctor@_Locinfo@std@@SAXPAV12@HPBD@Z */
 320 /* ?_Locinfo_ctor@_Locinfo@std@@SAXPEAV12@HPEBD@Z */
 321 _Locinfo* __cdecl _Locinfo__Locinfo_ctor_cat_cstr(_Locinfo *locinfo, int category, const char *locstr)
 322 {
 323     const char *locale = NULL;
 324
 325     /* This function is probably modifying more global objects */
 326     FIXME("(%p %d %s) semi-stub\n", locinfo, category, locstr);
 327
 328     if(!locstr)
 329         throw_exception(EXCEPTION_RUNTIME_ERROR, "bad locale name");
 330
 331     _Lockit_ctor_locktype(&locinfo->lock, _LOCK_LOCALE);
 332     MSVCP_basic_string_char_ctor_cstr(&locinfo->days, "");
 333     MSVCP_basic_string_char_ctor_cstr(&locinfo->months, "");
 334     MSVCP_basic_string_char_ctor_cstr(&locinfo->oldlocname, setlocale(LC_ALL, NULL));
 335
 336     if(category)
 337         locale = setlocale(LC_ALL, locstr);
 338     else
 339         locale = setlocale(LC_ALL, NULL);
 340
 341     if(locale)
 342         MSVCP_basic_string_char_ctor_cstr(&locinfo->newlocname, locale);
 343     else
 344         MSVCP_basic_string_char_ctor_cstr(&locinfo->newlocname, "*");
 345
 346     return locinfo;
 347 }
 348
 349 /* ??0_Locinfo@std@@QAE@HPBD@Z */
 350 /* ??0_Locinfo@std@@QEAA@HPEBD@Z */
 351 DEFINE_THISCALL_WRAPPER(_Locinfo_ctor_cat_cstr, 12)
 352 _Locinfo* __thiscall _Locinfo_ctor_cat_cstr(_Locinfo *this, int category, const char *locstr)
 353 {
 354     return _Locinfo__Locinfo_ctor_cat_cstr(this, category, locstr);
 355 }
 356
 357 /* ?_Locinfo_ctor@_Locinfo@std@@SAXPAV12@ABV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@@Z */
 358 /* ?_Locinfo_ctor@_Locinfo@std@@SAXPEAV12@AEBV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@@Z */
 359 _Locinfo* __cdecl _Locinfo__Locinfo_ctor_bstr(_Locinfo *locinfo, const basic_string_char *locstr)
 360 {
 361     return _Locinfo__Locinfo_ctor_cat_cstr(locinfo, 1/*FIXME*/, MSVCP_basic_string_char_c_str(locstr));
 362 }
 363
 364 /* ??0_Locinfo@std@@QAE@ABV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@1@@Z */
 365 /* ??0_Locinfo@std@@QEAA@AEBV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@1@@Z */
 366 DEFINE_THISCALL_WRAPPER(_Locinfo_ctor_bstr, 8)
 367 _Locinfo* __thiscall _Locinfo_ctor_bstr(_Locinfo *this, const basic_string_char *locstr)
 368 {
 369     return _Locinfo__Locinfo_ctor_cat_cstr(this, 1/*FIXME*/, MSVCP_basic_string_char_c_str(locstr));
 370 }
 371
 372 /* ?_Locinfo_ctor@_Locinfo@std@@SAXPAV12@PBD@Z */
 373 /* ?_Locinfo_ctor@_Locinfo@std@@SAXPEAV12@PEBD@Z */
 374 _Locinfo* __cdecl _Locinfo__Locinfo_ctor_cstr(_Locinfo *locinfo, const char *locstr)
 375 {
 376     return _Locinfo__Locinfo_ctor_cat_cstr(locinfo, 1/*FIXME*/, locstr);
 377 }
 378
 379 /* ??0_Locinfo@std@@QAE@PBD@Z */
 380 /* ??0_Locinfo@std@@QEAA@PEBD@Z */
 381 DEFINE_THISCALL_WRAPPER(_Locinfo_ctor_cstr, 8)
 382 _Locinfo* __thiscall _Locinfo_ctor_cstr(_Locinfo *this, const char *locstr)
 383 {
 384     return _Locinfo__Locinfo_ctor_cat_cstr(this, 1/*FIXME*/, locstr);
 385 }
 386
 387 /* ?_Locinfo_dtor@_Locinfo@std@@SAXPAV12@@Z */
 388 /* ?_Locinfo_dtor@_Locinfo@std@@SAXPEAV12@@Z */
 389 void __cdecl _Locinfo__Locinfo_dtor(_Locinfo *locinfo)
 390 {
 391     TRACE("(%p)\n", locinfo);
 392
 393     setlocale(LC_ALL, MSVCP_basic_string_char_c_str(&locinfo->oldlocname));
 394     MSVCP_basic_string_char_dtor(&locinfo->days);
 395     MSVCP_basic_string_char_dtor(&locinfo->months);
 396     MSVCP_basic_string_char_dtor(&locinfo->oldlocname);
 397     MSVCP_basic_string_char_dtor(&locinfo->newlocname);
 398     _Lockit_dtor(&locinfo->lock);
 399 }
 400
 401 /* ??_F_Locinfo@std@@QAEXXZ */
 402 /* ??_F_Locinfo@std@@QEAAXXZ */
 403 DEFINE_THISCALL_WRAPPER(_Locinfo_ctor, 4)
 404 _Locinfo* __thiscall _Locinfo_ctor(_Locinfo *this)
 405 {
 406     return _Locinfo__Locinfo_ctor_cat_cstr(this, 1/*FIXME*/, "C");
 407 }
 408
 409 /* ??1_Locinfo@std@@QAE@XZ */
 410 /* ??1_Locinfo@std@@QEAA@XZ */
 411 DEFINE_THISCALL_WRAPPER(_Locinfo_dtor, 4)
 412 void __thiscall _Locinfo_dtor(_Locinfo *this)
 413 {
 414     _Locinfo__Locinfo_dtor(this);
 415 }
 416
 417 /* ?_Locinfo_Addcats@_Locinfo@std@@SAAAV12@PAV12@HPBD@Z */
 418 /* ?_Locinfo_Addcats@_Locinfo@std@@SAAEAV12@PEAV12@HPEBD@Z */
 419 _Locinfo* __cdecl _Locinfo__Locinfo_Addcats(_Locinfo *locinfo, int category, const char *locstr)
 420 {
 421     const char *locale = NULL;
 422
 423     /* This function is probably modifying more global objects */
 424     FIXME("(%p %d %s) semi-stub\n", locinfo, category, locstr);
 425     if(!locstr)
 426         throw_exception(EXCEPTION_RUNTIME_ERROR, "bad locale name");
 427
 428     MSVCP_basic_string_char_dtor(&locinfo->newlocname);
 429
 430     if(category)
 431         locale = setlocale(LC_ALL, locstr);
 432     else
 433         locale = setlocale(LC_ALL, NULL);
 434
 435     if(locale)
 436         MSVCP_basic_string_char_ctor_cstr(&locinfo->newlocname, locale);
 437     else
 438         MSVCP_basic_string_char_ctor_cstr(&locinfo->newlocname, "*");
 439
 440     return locinfo;
 441 }
 442
 443 /* ?_Addcats@_Locinfo@std@@QAEAAV12@HPBD@Z */
 444 /* ?_Addcats@_Locinfo@std@@QEAAAEAV12@HPEBD@Z */
 445 DEFINE_THISCALL_WRAPPER(_Locinfo__Addcats, 12)
 446 _Locinfo* __thiscall _Locinfo__Addcats(_Locinfo *this, int category, const char *locstr)
 447 {
 448     return _Locinfo__Locinfo_Addcats(this, category, locstr);
 449 }
 450
 451 /* _Getcoll */
 452 _Collvec __cdecl _Getcoll(void)
 453 {
 454     _Collvec ret;
 455     _locale_t locale = _get_current_locale();
 456
 457     TRACE("\n");
 458
 459     ret.page = locale->locinfo->lc_collate_cp;
 460     ret.handle = locale->locinfo->lc_handle[LC_COLLATE];
 461     _free_locale(locale);
 462     return ret;
 463 }
 464
 465 /* ?_Getcoll@_Locinfo@std@@QBE?AU_Collvec@@XZ */
 466 /* ?_Getcoll@_Locinfo@std@@QEBA?AU_Collvec@@XZ */
 467 DEFINE_THISCALL_WRAPPER(_Locinfo__Getcoll, 4)
 468 _Collvec __thiscall _Locinfo__Getcoll(const _Locinfo *this)
 469 {
 470     return _Getcoll();
 471 }
 472
 473 /* _Getctype */
 474 _Ctypevec __cdecl _Getctype(void)
 475 {
 476     _Ctypevec ret;
 477     _locale_t locale = _get_current_locale();
 478     short *table;
 479
 480     TRACE("\n");
 481
 482     ret.page = locale->locinfo->lc_codepage;
 483     ret.handle = locale->locinfo->lc_handle[LC_COLLATE];
 484     ret.delfl = TRUE;
 485     table = malloc(sizeof(short[256]));
 486     if(!table) {
 487         _free_locale(locale);
 488         throw_exception(EXCEPTION_BAD_ALLOC, NULL);
 489     }
 490     memcpy(table, locale->locinfo->pctype, sizeof(short[256]));
 491     ret.table = table;
 492     _free_locale(locale);
 493     return ret;
 494 }
 495
 496 /* ?_Getctype@_Locinfo@std@@QBE?AU_Ctypevec@@XZ */
 497 /* ?_Getctype@_Locinfo@std@@QEBA?AU_Ctypevec@@XZ */
 498 DEFINE_THISCALL_WRAPPER_RETPTR(_Locinfo__Getctype, 4)
 499 _Ctypevec __thiscall _Locinfo__Getctype(const _Locinfo *this)
 500 {
 501     return _Getctype();
 502 }
 503
 504 /* _Getcvt */
 505 _Cvtvec __cdecl _Getcvt(void)
 506 {
 507     _Cvtvec ret;
 508     _locale_t locale = _get_current_locale();
 509
 510     TRACE("\n");
 511
 512     ret.page = locale->locinfo->lc_codepage;
 513     ret.handle = locale->locinfo->lc_handle[LC_CTYPE];
 514     _free_locale(locale);
 515     return ret;
 516 }
 517
 518 /* ?_Getcvt@_Locinfo@std@@QBE?AU_Cvtvec@@XZ */
 519 /* ?_Getcvt@_Locinfo@std@@QEBA?AU_Cvtvec@@XZ */
 520 DEFINE_THISCALL_WRAPPER(_Locinfo__Getcvt, 4)
 521 _Cvtvec __thiscall _Locinfo__Getcvt(const _Locinfo *this)
 522 {
 523     return _Getcvt();
 524 }
 525
 526 /* ?_Getdateorder@_Locinfo@std@@QBEHXZ */
 527 /* ?_Getdateorder@_Locinfo@std@@QEBAHXZ */
 528 DEFINE_THISCALL_WRAPPER(_Locinfo__Getdateorder, 4)
 529 int __thiscall _Locinfo__Getdateorder(const _Locinfo *this)
 530 {
 531     FIXME("(%p) stub\n", this);
 532     return 0;
 533 }
 534
 535 /* ?_Getdays@_Locinfo@std@@QBEPBDXZ */
 536 /* ?_Getdays@_Locinfo@std@@QEBAPEBDXZ */
 537 DEFINE_THISCALL_WRAPPER(_Locinfo__Getdays, 4)
 538 const char* __thiscall _Locinfo__Getdays(_Locinfo *this)
 539 {
 540     char *days = _Getdays();
 541
 542     TRACE("(%p)\n", this);
 543
 544     if(days) {
 545         MSVCP_basic_string_char_dtor(&this->days);
 546         MSVCP_basic_string_char_ctor_cstr(&this->days, days);
 547         free(days);
 548     }
 549
 550     return this->days.size ? MSVCP_basic_string_char_c_str(&this->days) :
 551         ":Sun:Sunday:Mon:Monday:Tue:Tuesday:Wed:Wednesday:Thu:Thursday:Fri:Friday:Sat:Saturday";
 552 }
 553
 554 /* ?_Getmonths@_Locinfo@std@@QBEPBDXZ */
 555 /* ?_Getmonths@_Locinfo@std@@QEBAPEBDXZ */
 556 DEFINE_THISCALL_WRAPPER(_Locinfo__Getmonths, 4)
 557 const char* __thiscall _Locinfo__Getmonths(_Locinfo *this)
 558 {
 559     char *months = _Getmonths();
 560
 561     TRACE("(%p)\n", this);
 562
 563     if(months) {
 564         MSVCP_basic_string_char_dtor(&this->months);
 565         MSVCP_basic_string_char_ctor_cstr(&this->months, months);
 566         free(months);
 567     }
 568
 569     return this->months.size ? MSVCP_basic_string_char_c_str(&this->months) :
 570         ":Jan:January:Feb:February:Mar:March:Apr:April:May:May:Jun:June:Jul:July"
 571         ":Aug:August:Sep:September:Oct:October:Nov:November:Dec:December";
 572 }
 573
 574 /* ?_Getfalse@_Locinfo@std@@QBEPBDXZ */
 575 /* ?_Getfalse@_Locinfo@std@@QEBAPEBDXZ */
 576 DEFINE_THISCALL_WRAPPER(_Locinfo__Getfalse, 4)
 577 const char* __thiscall _Locinfo__Getfalse(const _Locinfo *this)
 578 {
 579     TRACE("(%p)\n", this);
 580     return "false";
 581 }
 582
 583 /* ?_Gettrue@_Locinfo@std@@QBEPBDXZ */
 584 /* ?_Gettrue@_Locinfo@std@@QEBAPEBDXZ */
 585 DEFINE_THISCALL_WRAPPER(_Locinfo__Gettrue, 4)
 586 const char* __thiscall _Locinfo__Gettrue(const _Locinfo *this)
 587 {
 588     TRACE("(%p)\n", this);
 589     return "true";
 590 }
 591
 592 /* ?_Getlconv@_Locinfo@std@@QBEPBUlconv@@XZ */
 593 /* ?_Getlconv@_Locinfo@std@@QEBAPEBUlconv@@XZ */
 594 DEFINE_THISCALL_WRAPPER(_Locinfo__Getlconv, 4)
 595 const struct lconv* __thiscall _Locinfo__Getlconv(const _Locinfo *this)
 596 {
 597     TRACE("(%p)\n", this);
 598     return localeconv();
 599 }
 600
 601 /* ?_Getname@_Locinfo@std@@QBE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@XZ */
 602 /* ?_Getname@_Locinfo@std@@QEBA?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@XZ */
 603 DEFINE_THISCALL_WRAPPER_RETPTR(_Locinfo__Getname, 4)
 604 basic_string_char __thiscall _Locinfo__Getname(const _Locinfo *this)
 605 {
 606     basic_string_char ret;
 607
 608     TRACE("(%p)\n", this);
 609
 610     MSVCP_basic_string_char_copy_ctor(&ret, &this->newlocname);
 611     return ret;
 612 }
 613
 614 /* ?_Gettnames@_Locinfo@std@@QBE?AV_Timevec@2@XZ */
 615 /* ?_Gettnames@_Locinfo@std@@QEBA?AV_Timevec@2@XZ */
 616 DEFINE_THISCALL_WRAPPER(_Locinfo__Gettnames, 4)
 617 _Timevec __thiscall _Locinfo__Gettnames(const _Locinfo *this)
 618 {
 619     _Timevec ret;
 620
 621     TRACE("(%p)\n", this);
 622
 623     _Timevec_ctor_timeptr(&ret, _Gettnames());
 624     return ret;
 625 }
 626
 627 static const type_info locale_facet_type_info = {
 628     MSVCP_locale_facet_vtable,
 629     NULL,
 630     ".?AVfacet@locale@std@@"
 631 };
 632
 633 /* ?id@?$collate@D@std@@2V0locale@2@A */
 634 locale_id collate_char_id = {0};
 635
 636 /* ??_7?$collate@D@std@@6B@ */
 637 extern const vtable_ptr MSVCP_collate_char_vtable;
 638
 639 /* ?_Init@?$collate@D@std@@IAEXABV_Locinfo@2@@Z */
 640 /* ?_Init@?$collate@D@std@@IEAAXAEBV_Locinfo@2@@Z */
 641 DEFINE_THISCALL_WRAPPER(collate_char__Init, 8)
 642 void __thiscall collate_char__Init(collate *this, const _Locinfo *locinfo)
 643 {
 644     TRACE("(%p %p)\n", this, locinfo);
 645     this->coll = _Locinfo__Getcoll(locinfo);
 646 }
 647
 648 /* ??0?$collate@D@std@@IAE@PBDI@Z */
 649 /* ??0?$collate@D@std@@IEAA@PEBD_K@Z */
 650 DEFINE_THISCALL_WRAPPER(collate_char_ctor_name, 12)
 651 collate* __thiscall collate_char_ctor_name(collate *this, const char *name, MSVCP_size_t refs)
 652 {
 653     _Locinfo locinfo;
 654
 655     TRACE("(%p %s %lu)\n", this, name, refs);
 656
 657     locale_facet_ctor_refs(&this->facet, refs);
 658     this->facet.vtable = &MSVCP_collate_char_vtable;
 659
 660     _Locinfo_ctor_cstr(&locinfo, name);
 661     collate_char__Init(this, &locinfo);
 662     _Locinfo_dtor(&locinfo);
 663     return this;
 664 }
 665
 666 /* ??0?$collate@D@std@@QAE@ABV_Locinfo@1@I@Z */
 667 /* ??0?$collate@D@std@@QEAA@AEBV_Locinfo@1@_K@Z */
 668 DEFINE_THISCALL_WRAPPER(collate_char_ctor_locinfo, 12)
 669 collate* __thiscall collate_char_ctor_locinfo(collate *this, _Locinfo *locinfo, MSVCP_size_t refs)
 670 {
 671     TRACE("(%p %p %lu)\n", this, locinfo, refs);
 672
 673     locale_facet_ctor_refs(&this->facet, refs);
 674     this->facet.vtable = &MSVCP_collate_char_vtable;
 675     collate_char__Init(this, locinfo);
 676     return this;
 677 }
 678
 679 /* ??0?$collate@D@std@@QAE@I@Z */
 680 /* ??0?$collate@D@std@@QEAA@_K@Z */
 681 DEFINE_THISCALL_WRAPPER(collate_char_ctor_refs, 8)
 682 collate* __thiscall collate_char_ctor_refs(collate *this, MSVCP_size_t refs)
 683 {
 684     return collate_char_ctor_name(this, "C", refs);
 685 }
 686
 687 /* ??1?$collate@D@std@@MAE@XZ */
 688 /* ??1?$collate@D@std@@MEAA@XZ */
 689 DEFINE_THISCALL_WRAPPER(collate_char_dtor, 4)
 690 void __thiscall collate_char_dtor(collate *this)
 691 {
 692     TRACE("(%p)\n", this);
 693 }
 694
 695 DEFINE_THISCALL_WRAPPER(MSVCP_collate_char_vector_dtor, 8)
 696 collate* __thiscall MSVCP_collate_char_vector_dtor(collate *this, unsigned int flags)
 697 {
 698     TRACE("(%p %x)\n", this, flags);
 699     if(flags & 2) {
 700         /* we have an array, with the number of elements stored before the first object */
 701         int i, *ptr = (int *)this-1;
 702
 703         for(i=*ptr-1; i>=0; i--)
 704             collate_char_dtor(this+i);
 705         MSVCRT_operator_delete(ptr);
 706     } else {
 707         collate_char_dtor(this);
 708         if(flags & 1)
 709             MSVCRT_operator_delete(this);
 710     }
 711
 712     return this;
 713 }
 714
 715 /* ??_F?$collate@D@std@@QAEXXZ */
 716 /* ??_F?$collate@D@std@@QEAAXXZ */
 717 DEFINE_THISCALL_WRAPPER(collate_char_ctor, 4)
 718 collate* __thiscall collate_char_ctor(collate *this)
 719 {
 720     return collate_char_ctor_name(this, "C", 0);
 721 }
 722
 723 /* ?_Getcat@?$collate@D@std@@SAIPAPBVfacet@locale@2@PBV42@@Z */
 724 /* ?_Getcat@?$collate@D@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z */
 725 MSVCP_size_t __cdecl collate_char__Getcat(const locale_facet **facet, const locale *loc)
 726 {
 727     TRACE("(%p %p)\n", facet, loc);
 728
 729     if(facet && !*facet) {
 730         *facet = MSVCRT_operator_new(sizeof(collate));
 731         if(!*facet) {
 732             ERR("Out of memory\n");
 733             throw_exception(EXCEPTION_BAD_ALLOC, NULL);
 734             return 0;
 735         }
 736         collate_char_ctor_name((collate*)*facet,
 737                 MSVCP_basic_string_char_c_str(&loc->ptr->name), 0);
 738     }
 739
 740     return LC_COLLATE;
 741 }
 742
 743 /* _Strcoll */
 744 int __cdecl _Strcoll(const char *first1, const char *last1, const char *first2,
 745         const char *last2, const _Collvec *coll)
 746 {
 747     TRACE("(%s %s)\n", debugstr_an(first1, last1-first1), debugstr_an(first2, last2-first2));
 748     return CompareStringA(coll->handle, 0, first1, last1-first1, first2, last2-first2)-2;
 749 }
 750
 751 /* ?do_compare@?$collate@D@std@@MBEHPBD000@Z */
 752 /* ?do_compare@?$collate@D@std@@MEBAHPEBD000@Z */
 753 DEFINE_THISCALL_WRAPPER(collate_char_do_compare, 20)
 754 #define call_collate_char_do_compare(this, first1, last1, first2, last2) CALL_VTBL_FUNC(this, 4, int, \
 755         (const collate*, const char*, const char*, const char*, const char*), \
 756         (this, first1, last1, first2, last2))
 757 int __thiscall collate_char_do_compare(const collate *this, const char *first1,
 758         const char *last1, const char *first2, const char *last2)
 759 {
 760     TRACE("(%p %p %p %p %p)\n", this, first1, last1, first2, last2);
 761     return _Strcoll(first1, last1, first2, last2, &this->coll);
 762 }
 763
 764 /* ?compare@?$collate@D@std@@QBEHPBD000@Z */
 765 /* ?compare@?$collate@D@std@@QEBAHPEBD000@Z */
 766 DEFINE_THISCALL_WRAPPER(collate_char_compare, 20)
 767 int __thiscall collate_char_compare(const collate *this, const char *first1,
 768         const char *last1, const char *first2, const char *last2)
 769 {
 770     TRACE("(%p %p %p %p %p)\n", this, first1, last1, first2, last2);
 771     return call_collate_char_do_compare(this, first1, last1, first2, last2);
 772 }
 773
 774 /* ?do_hash@?$collate@D@std@@MBEJPBD0@Z */
 775 /* ?do_hash@?$collate@D@std@@MEBAJPEBD0@Z */
 776 DEFINE_THISCALL_WRAPPER(collate_char_do_hash, 12)
 777 #define call_collate_char_do_hash(this, first, last) CALL_VTBL_FUNC(this, 12, LONG, \
 778         (const collate*, const char*, const char*), (this, first, last))
 779 LONG __thiscall collate_char_do_hash(const collate *this,
 780         const char *first, const char *last)
 781 {
 782     ULONG ret = 0;
 783
 784     TRACE("(%p %p %p)\n", this, first, last);
 785
 786     for(; first<last; first++)
 787         ret = (ret<<8 | ret>>24) + *first;
 788     return ret;
 789 }
 790
 791 /* ?hash@?$collate@D@std@@QBEJPBD0@Z */
 792 /* ?hash@?$collate@D@std@@QEBAJPEBD0@Z */
 793 DEFINE_THISCALL_WRAPPER(collate_char_hash, 12)
 794 LONG __thiscall collate_char_hash(const collate *this,
 795         const char *first, const char *last)
 796 {
 797     TRACE("(%p %p %p)\n", this, first, last);
 798     return call_collate_char_do_hash(this, first, last);
 799 }
 800
 801 /* ?do_transform@?$collate@D@std@@MBE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@PBD0@Z */
 802 /* ?do_transform@?$collate@D@std@@MEBA?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@PEBD0@Z */
 803 DEFINE_THISCALL_WRAPPER_RETPTR(collate_char_do_transform, 12)
 804 basic_string_char __thiscall collate_char_do_transform(const collate *this,
 805         const char *first, const char *last)
 806 {
 807     basic_string_char ret = {0}; /* FIXME */
 808     FIXME("(%p %p %p) stub\n", this, first, last);
 809     return ret;
 810 }
 811
 812 /* ?transform@?$collate@D@std@@QBE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@PBD0@Z */
 813 /* ?transform@?$collate@D@std@@QEBA?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@PEBD0@Z */
 814 DEFINE_THISCALL_WRAPPER_RETPTR(collate_char_transform, 12)
 815 basic_string_char __thiscall collate_char_transform(const collate *this,
 816         const char *first, const char *last)
 817 {
 818     basic_string_char ret = {0}; /* FIXME */
 819     FIXME("(%p %p %p) stub\n", this, first, last);
 820     return ret;
 821 }
 822
 823 /* ?id@?$collate@_W@std@@2V0locale@2@A */
 824 locale_id collate_wchar_id = {0};
 825 /* ?id@?$collate@G@std@@2V0locale@2@A */
 826 locale_id collate_short_id = {0};
 827
 828 /* ??_7?$collate@_W@std@@6B@ */
 829 extern const vtable_ptr MSVCP_collate_wchar_vtable;
 830 /* ??_7?$collate@G@std@@6B@ */
 831 extern const vtable_ptr MSVCP_collate_short_vtable;
 832
 833 /* ?_Init@?$collate@_W@std@@IAEXABV_Locinfo@2@@Z */
 834 /* ?_Init@?$collate@_W@std@@IEAAXAEBV_Locinfo@2@@Z */
 835 /* ?_Init@?$collate@G@std@@IAEXABV_Locinfo@2@@Z */
 836 /* ?_Init@?$collate@G@std@@IEAAXAEBV_Locinfo@2@@Z */
 837 DEFINE_THISCALL_WRAPPER(collate_wchar__Init, 8)
 838 void __thiscall collate_wchar__Init(collate *this, const _Locinfo *locinfo)
 839 {
 840     TRACE("(%p %p)\n", this, locinfo);
 841     this->coll = _Locinfo__Getcoll(locinfo);
 842 }
 843
 844 /* ??0?$collate@_W@std@@IAE@PBDI@Z */
 845 /* ??0?$collate@_W@std@@IEAA@PEBD_K@Z */
 846 DEFINE_THISCALL_WRAPPER(collate_wchar_ctor_name, 12)
 847 collate* __thiscall collate_wchar_ctor_name(collate *this, const char *name, MSVCP_size_t refs)
 848 {
 849     _Locinfo locinfo;
 850
 851     TRACE("(%p %s %lu)\n", this, name, refs);
 852
 853     locale_facet_ctor_refs(&this->facet, refs);
 854     this->facet.vtable = &MSVCP_collate_wchar_vtable;
 855
 856     _Locinfo_ctor_cstr(&locinfo, name);
 857     collate_wchar__Init(this, &locinfo);
 858     _Locinfo_dtor(&locinfo);
 859     return this;
 860 }
 861
 862 /* ??0?$collate@G@std@@IAE@PBDI@Z */
 863 /* ??0?$collate@G@std@@IEAA@PEBD_K@Z */
 864 DEFINE_THISCALL_WRAPPER(collate_short_ctor_name, 12)
 865 collate* __thiscall collate_short_ctor_name(collate *this, const char *name, MSVCP_size_t refs)
 866 {
 867     collate *ret = collate_wchar_ctor_name(this, name, refs);
 868     ret->facet.vtable = &MSVCP_collate_short_vtable;
 869     return ret;
 870 }
 871
 872 /* ??0?$collate@_W@std@@QAE@ABV_Locinfo@1@I@Z */
 873 /* ??0?$collate@_W@std@@QEAA@AEBV_Locinfo@1@_K@Z */
 874 DEFINE_THISCALL_WRAPPER(collate_wchar_ctor_locinfo, 12)
 875 collate* __thiscall collate_wchar_ctor_locinfo(collate *this, _Locinfo *locinfo, MSVCP_size_t refs)
 876 {
 877     TRACE("(%p %p %lu)\n", this, locinfo, refs);
 878
 879     locale_facet_ctor_refs(&this->facet, refs);
 880     this->facet.vtable = &MSVCP_collate_wchar_vtable;
 881     collate_wchar__Init(this, locinfo);
 882     return this;
 883 }
 884
 885 /* ??0?$collate@G@std@@QAE@ABV_Locinfo@1@I@Z */
 886 /* ??0?$collate@G@std@@QEAA@AEBV_Locinfo@1@_K@Z */
 887 DEFINE_THISCALL_WRAPPER(collate_short_ctor_locinfo, 12)
 888 collate* __thiscall collate_short_ctor_locinfo(collate *this, _Locinfo *locinfo, MSVCP_size_t refs)
 889 {
 890     collate *ret = collate_wchar_ctor_locinfo(this, locinfo, refs);
 891     ret->facet.vtable = &MSVCP_collate_short_vtable;
 892     return ret;
 893 }
 894
 895 /* ??0?$collate@_W@std@@QAE@I@Z */
 896 /* ??0?$collate@_W@std@@QEAA@_K@Z */
 897 DEFINE_THISCALL_WRAPPER(collate_wchar_ctor_refs, 8)
 898 collate* __thiscall collate_wchar_ctor_refs(collate *this, MSVCP_size_t refs)
 899 {
 900     return collate_wchar_ctor_name(this, "C", refs);
 901 }
 902
 903 /* ??0?$collate@G@std@@QAE@I@Z */
 904 /* ??0?$collate@G@std@@QEAA@_K@Z */
 905 DEFINE_THISCALL_WRAPPER(collate_short_ctor_refs, 8)
 906 collate* __thiscall collate_short_ctor_refs(collate *this, MSVCP_size_t refs)
 907 {
 908     collate *ret = collate_wchar_ctor_refs(this, refs);
 909     ret->facet.vtable = &MSVCP_collate_short_vtable;
 910     return ret;
 911 }
 912
 913 /* ??1?$collate@_W@std@@MAE@XZ */
 914 /* ??1?$collate@_W@std@@MEAA@XZ */
 915 /* ??1?$collate@G@std@@MAE@XZ */
 916 /* ??1?$collate@G@std@@MEAA@XZ */
 917 DEFINE_THISCALL_WRAPPER(collate_wchar_dtor, 4)
 918 void __thiscall collate_wchar_dtor(collate *this)
 919 {
 920     TRACE("(%p)\n", this);
 921 }
 922
 923 DEFINE_THISCALL_WRAPPER(MSVCP_collate_wchar_vector_dtor, 8)
 924 collate* __thiscall MSVCP_collate_wchar_vector_dtor(collate *this, unsigned int flags)
 925 {
 926     TRACE("(%p %x)\n", this, flags);
 927     if(flags & 2) {
 928         /* we have an array, with the number of elements stored before the first object */
 929         int i, *ptr = (int *)this-1;
 930
 931         for(i=*ptr-1; i>=0; i--)
 932             collate_wchar_dtor(this+i);
 933         MSVCRT_operator_delete(ptr);
 934     } else {
 935         collate_wchar_dtor(this);
 936         if(flags & 1)
 937             MSVCRT_operator_delete(this);
 938     }
 939
 940     return this;
 941 }
 942
 943 DEFINE_THISCALL_WRAPPER(MSVCP_collate_short_vector_dtor, 8)
 944 collate* __thiscall MSVCP_collate_short_vector_dtor(collate *this, unsigned int flags)
 945 {
 946     return MSVCP_collate_wchar_vector_dtor(this, flags);
 947 }
 948
 949 /* ??_F?$collate@_W@std@@QAEXXZ */
 950 /* ??_F?$collate@_W@std@@QEAAXXZ */
 951 DEFINE_THISCALL_WRAPPER(collate_wchar_ctor, 4)
 952 collate* __thiscall collate_wchar_ctor(collate *this)
 953 {
 954     return collate_wchar_ctor_name(this, "C", 0);
 955 }
 956
 957 /* ??_F?$collate@G@std@@QAEXXZ */
 958 /* ??_F?$collate@G@std@@QEAAXXZ */
 959 DEFINE_THISCALL_WRAPPER(collate_short_ctor, 4)
 960 collate* __thiscall collate_short_ctor(collate *this)
 961 {
 962     collate *ret = collate_wchar_ctor(this);
 963     ret->facet.vtable = &MSVCP_collate_short_vtable;
 964     return ret;
 965 }
 966
 967 /* ?_Getcat@?$collate@_W@std@@SAIPAPBVfacet@locale@2@PBV42@@Z */
 968 /* ?_Getcat@?$collate@_W@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z */
 969 /* ?_Getcat@?$collate@G@std@@SAIPAPBVfacet@locale@2@PBV42@@Z */
 970 /* ?_Getcat@?$collate@G@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z */
 971 MSVCP_size_t __cdecl collate_wchar__Getcat(const locale_facet **facet, const locale *loc)
 972 {
 973     TRACE("(%p %p)\n", facet, loc);
 974
 975     if(facet && !*facet) {
 976         *facet = MSVCRT_operator_new(sizeof(collate));
 977         if(!*facet) {
 978             ERR("Out of memory\n");
 979             throw_exception(EXCEPTION_BAD_ALLOC, NULL);
 980             return 0;
 981         }
 982         collate_wchar_ctor_name((collate*)*facet,
 983                 MSVCP_basic_string_char_c_str(&loc->ptr->name), 0);
 984     }
 985
 986     return LC_COLLATE;
 987 }
 988
 989 /* _Wcscoll */
 990 int __cdecl _Wcscoll(const wchar_t *first1, const wchar_t *last1, const wchar_t *first2,
 991         const wchar_t *last2, const _Collvec *coll)
 992 {
 993     TRACE("(%s %s)\n", debugstr_wn(first1, last1-first1), debugstr_wn(first2, last2-first2));
 994     return CompareStringW(coll->handle, 0, first1, last1-first1, first2, last2-first2)-2;
 995 }
 996
 997 /* ?do_compare@?$collate@_W@std@@MBEHPB_W000@Z */
 998 /* ?do_compare@?$collate@_W@std@@MEBAHPEB_W000@Z */
 999 /* ?do_compare@?$collate@G@std@@MBEHPBG000@Z */
1000 /* ?do_compare@?$collate@G@std@@MEBAHPEBG000@Z */
1001 DEFINE_THISCALL_WRAPPER(collate_wchar_do_compare, 20)
1002 #define call_collate_wchar_do_compare(this, first1, last1, first2, last2) CALL_VTBL_FUNC(this, 4, int, \
1003         (const collate*, const wchar_t*, const wchar_t*, const wchar_t*, const wchar_t*), \
1004         (this, first1, last1, first2, last2))
1005 int __thiscall collate_wchar_do_compare(const collate *this, const wchar_t *first1,
1006         const wchar_t *last1, const wchar_t *first2, const wchar_t *last2)
1007 {
1008     TRACE("(%p %p %p %p %p)\n", this, first1, last1, first2, last2);
1009     return _Wcscoll(first1, last1, first2, last2, &this->coll);
1010 }
1011
1012 /* ?compare@?$collate@_W@std@@QBEHPB_W000@Z */
1013 /* ?compare@?$collate@_W@std@@QEBAHPEB_W000@Z */
1014 /* ?compare@?$collate@G@std@@QBEHPBG000@Z */
1015 /* ?compare@?$collate@G@std@@QEBAHPEBG000@Z */
1016 DEFINE_THISCALL_WRAPPER(collate_wchar_compare, 20)
1017 int __thiscall collate_wchar_compare(const collate *this, const wchar_t *first1,
1018         const wchar_t *last1, const wchar_t *first2, const wchar_t *last2)
1019 {
1020     TRACE("(%p %p %p %p %p)\n", this, first1, last1, first2, last2);
1021     return call_collate_wchar_do_compare(this, first1, last1, first2, last2);
1022 }
1023
1024 /* ?do_hash@?$collate@_W@std@@MBEJPB_W0@Z */
1025 /* ?do_hash@?$collate@_W@std@@MEBAJPEB_W0@Z */
1026 /* ?do_hash@?$collate@G@std@@MBEJPBG0@Z */
1027 /* ?do_hash@?$collate@G@std@@MEBAJPEBG0@Z */
1028 DEFINE_THISCALL_WRAPPER(collate_wchar_do_hash, 12)
1029 #define call_collate_wchar_do_hash(this, first, last) CALL_VTBL_FUNC(this, 12, LONG, \
1030         (const collate*, const wchar_t*, const wchar_t*), (this, first, last))
1031 LONG __thiscall collate_wchar_do_hash(const collate *this,
1032         const wchar_t *first, const wchar_t *last)
1033 {
1034     ULONG ret = 0;
1035
1036     TRACE("(%p %p %p)\n", this, first, last);
1037
1038     for(; first<last; first++)
1039         ret = (ret<<8 | ret>>24) + *first;
1040     return ret;
1041 }
1042
1043 /* ?hash@?$collate@_W@std@@QBEJPB_W0@Z */
1044 /* ?hash@?$collate@_W@std@@QEBAJPEB_W0@Z */
1045 /* ?hash@?$collate@G@std@@QBEJPBG0@Z */
1046 /* ?hash@?$collate@G@std@@QEBAJPEBG0@Z */
1047 DEFINE_THISCALL_WRAPPER(collate_wchar_hash, 12)
1048 LONG __thiscall collate_wchar_hash(const collate *this,
1049         const wchar_t *first, const wchar_t *last)
1050 {
1051     TRACE("(%p %p %p)\n", this, first, last);
1052     return call_collate_wchar_do_hash(this, first, last);
1053 }
1054
1055 /* ?do_transform@?$collate@_W@std@@MBE?AV?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@2@PB_W0@Z */
1056 /* ?do_transform@?$collate@_W@std@@MEBA?AV?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@2@PEB_W0@Z */
1057 /* ?do_transform@?$collate@G@std@@MBE?AV?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@2@PBG0@Z */
1058 /* ?do_transform@?$collate@G@std@@MEBA?AV?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@2@PEBG0@Z */
1059 DEFINE_THISCALL_WRAPPER_RETPTR(collate_wchar_do_transform, 12)
1060 basic_string_wchar __thiscall collate_wchar_do_transform(const collate *this,
1061         const wchar_t *first, const wchar_t *last)
1062 {
1063     basic_string_wchar ret = {0}; /* FIXME */
1064     FIXME("(%p %p %p) stub\n", this, first, last);
1065     return ret;
1066 }
1067
1068 /* ?transform@?$collate@_W@std@@QBE?AV?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@2@PB_W0@Z */
1069 /* ?transform@?$collate@_W@std@@QEBA?AV?$basic_string@_WU?$char_traits@_W@std@@V?$allocator@_W@2@@2@PEB_W0@Z */
1070 /* ?transform@?$collate@G@std@@QBE?AV?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@2@PBG0@Z */
1071 /* ?transform@?$collate@G@std@@QEBA?AV?$basic_string@GU?$char_traits@G@std@@V?$allocator@G@2@@2@PEBG0@Z */
1072 DEFINE_THISCALL_WRAPPER_RETPTR(collate_wchar_transform, 12)
1073 basic_string_wchar __thiscall collate_wchar_transform(const collate *this,
1074         const wchar_t *first, const wchar_t *last)
1075 {
1076     basic_string_wchar ret = {0}; /* FIXME */
1077     FIXME("(%p %p %p) stub\n", this, first, last);
1078     return ret;
1079 }
1080
1081 /* ??_7ctype_base@std@@6B@ */
1082 extern const vtable_ptr MSVCP_ctype_base_vtable;
1083
1084 /* ??0ctype_base@std@@QAE@I@Z */
1085 /* ??0ctype_base@std@@QEAA@_K@Z */
1086 DEFINE_THISCALL_WRAPPER(ctype_base_ctor_refs, 8)
1087 ctype_base* __thiscall ctype_base_ctor_refs(ctype_base *this, MSVCP_size_t refs)
1088 {
1089     TRACE("(%p %lu)\n", this, refs);
1090     locale_facet_ctor_refs(&this->facet, refs);
1091     this->facet.vtable = &MSVCP_ctype_base_vtable;
1092     return this;
1093 }
1094
1095 /* ??_Fctype_base@std@@QAEXXZ */
1096 /* ??_Fctype_base@std@@QEAAXXZ */
1097 DEFINE_THISCALL_WRAPPER(ctype_base_ctor, 4)
1098 ctype_base* __thiscall ctype_base_ctor(ctype_base *this)
1099 {
1100     TRACE("(%p)\n", this);
1101     locale_facet_ctor_refs(&this->facet, 0);
1102     this->facet.vtable = &MSVCP_ctype_base_vtable;
1103     return this;
1104 }
1105
1106 /* ??1ctype_base@std@@UAE@XZ */
1107 /* ??1ctype_base@std@@UEAA@XZ */
1108 DEFINE_THISCALL_WRAPPER(ctype_base_dtor, 4)
1109 void __thiscall ctype_base_dtor(ctype_base *this)
1110 {
1111     TRACE("(%p)\n", this);
1112 }
1113
1114 DEFINE_THISCALL_WRAPPER(MSVCP_ctype_base_vector_dtor, 8)
1115 ctype_base* __thiscall MSVCP_ctype_base_vector_dtor(ctype_base *this, unsigned int flags)
1116 {
1117     TRACE("(%p %x)\n", this, flags);
1118     if(flags & 2) {
1119         /* we have an array, with the number of elements stored before the first object */
1120         int i, *ptr = (int *)this-1;
1121
1122         for(i=*ptr-1; i>=0; i--)
1123             ctype_base_dtor(this+i);
1124         MSVCRT_operator_delete(ptr);
1125     } else {
1126         ctype_base_dtor(this);
1127         if(flags & 1)
1128             MSVCRT_operator_delete(this);
1129     }
1130
1131     return this;
1132 }
1133
1134 /* ?_Xran@ctype_base@std@@KAXXZ */
1135 void __cdecl ctype_base__Xran(void)
1136 {
1137     throw_exception(EXCEPTION_OUT_OF_RANGE, "out of range in ctype<T>");
1138 }
1139
1140 /* ?id@?$ctype@D@std@@2V0locale@2@A */
1141 locale_id ctype_char_id = {0};
1142 /* ?table_size@?$ctype@D@std@@2IB */
1143 /* ?table_size@?$ctype@D@std@@2_KB */
1144 MSVCP_size_t ctype_char_table_size = 256;
1145
1146 /* ??_7?$ctype@D@std@@6B@ */
1147 extern const vtable_ptr MSVCP_ctype_char_vtable;
1148
1149 /* ?_Id_func@?$ctype@D@std@@SAAAVid@locale@2@XZ */
1150 /* ?_Id_func@?$ctype@D@std@@SAAEAVid@locale@2@XZ */
1151 locale_id* __cdecl ctype_char__Id_func(void)
1152 {
1153     TRACE("()\n");
1154     return &ctype_char_id;
1155 }
1156
1157 /* ?_Init@?$ctype@D@std@@IAEXABV_Locinfo@2@@Z */
1158 /* ?_Init@?$ctype@D@std@@IEAAXAEBV_Locinfo@2@@Z */
1159 DEFINE_THISCALL_WRAPPER(ctype_char__Init, 8)
1160 void __thiscall ctype_char__Init(ctype_char *this, _Locinfo *locinfo)
1161 {
1162     TRACE("(%p %p)\n", this, locinfo);
1163     this->ctype = _Locinfo__Getctype(locinfo);
1164 }
1165
1166 /* ?_Tidy@?$ctype@D@std@@IAEXXZ */
1167 /* ?_Tidy@?$ctype@D@std@@IEAAXXZ */
1168 DEFINE_THISCALL_WRAPPER(ctype_char__Tidy, 4)
1169 void __thiscall ctype_char__Tidy(ctype_char *this)
1170 {
1171     TRACE("(%p)\n", this);
1172
1173     if(this->ctype.delfl)
1174         free((short*)this->ctype.table);
1175 }
1176
1177 /* ?classic_table@?$ctype@D@std@@KAPBFXZ */
1178 /* ?classic_table@?$ctype@D@std@@KAPEBFXZ */
1179 const short* __cdecl ctype_char_classic_table(void)
1180 {
1181     TRACE("()\n");
1182     return &((short*)GetProcAddress(GetModuleHandleA("msvcrt.dll"), "_ctype"))[1];
1183 }
1184
1185 /* ??0?$ctype@D@std@@QAE@ABV_Locinfo@1@I@Z */
1186 /* ??0?$ctype@D@std@@QEAA@AEBV_Locinfo@1@_K@Z */
1187 DEFINE_THISCALL_WRAPPER(ctype_char_ctor_locinfo, 12)
1188 ctype_char* __thiscall ctype_char_ctor_locinfo(ctype_char *this,
1189         _Locinfo *locinfo, MSVCP_size_t refs)
1190 {
1191     TRACE("(%p %p %lu)\n", this, locinfo, refs);
1192     ctype_base_ctor_refs(&this->base, refs);
1193     this->base.facet.vtable = &MSVCP_ctype_char_vtable;
1194     ctype_char__Init(this, locinfo);
1195     return this;
1196 }
1197
1198 /* ??0?$ctype@D@std@@QAE@PBF_NI@Z */
1199 /* ??0?$ctype@D@std@@QEAA@PEBF_N_K@Z */
1200 DEFINE_THISCALL_WRAPPER(ctype_char_ctor_table, 16)
1201 ctype_char* __thiscall ctype_char_ctor_table(ctype_char *this,
1202         const short *table, MSVCP_bool delete, MSVCP_size_t refs)
1203 {
1204     _Locinfo locinfo;
1205
1206     TRACE("(%p %p %d %lu)\n", this, table, delete, refs);
1207
1208     ctype_base_ctor_refs(&this->base, refs);
1209     this->base.facet.vtable = &MSVCP_ctype_char_vtable;
1210
1211     _Locinfo_ctor(&locinfo);
1212     ctype_char__Init(this, &locinfo);
1213     _Locinfo_dtor(&locinfo);
1214
1215     if(table) {
1216         ctype_char__Tidy(this);
1217         this->ctype.table = table;
1218         this->ctype.delfl = delete;
1219     }
1220     return this;
1221 }
1222
1223 /* ??_F?$ctype@D@std@@QAEXXZ */
1224 /* ??_F?$ctype@D@std@@QEAAXXZ */
1225 DEFINE_THISCALL_WRAPPER(ctype_char_ctor, 4)
1226 ctype_char* __thiscall ctype_char_ctor(ctype_char *this)
1227 {
1228     return ctype_char_ctor_table(this, NULL, FALSE, 0);
1229 }
1230
1231 /* ??1?$ctype@D@std@@MAE@XZ */
1232 /* ??1?$ctype@D@std@@MEAA@XZ */
1233 DEFINE_THISCALL_WRAPPER(ctype_char_dtor, 4)
1234 void __thiscall ctype_char_dtor(ctype_char *this)
1235 {
1236     TRACE("(%p)\n", this);
1237     ctype_char__Tidy(this);
1238 }
1239
1240 DEFINE_THISCALL_WRAPPER(MSVCP_ctype_char_vector_dtor, 8)
1241 ctype_char* __thiscall MSVCP_ctype_char_vector_dtor(ctype_char *this, unsigned int flags)
1242 {
1243     TRACE("(%p %x)\n", this, flags);
1244     if(flags & 2) {
1245         /* we have an array, with the number of elements stored before the first object */
1246         int i, *ptr = (int *)this-1;
1247
1248         for(i=*ptr-1; i>=0; i--)
1249             ctype_char_dtor(this+i);
1250         MSVCRT_operator_delete(ptr);
1251     } else {
1252         ctype_char_dtor(this);
1253         if(flags & 1)
1254             MSVCRT_operator_delete(this);
1255     }
1256
1257     return this;
1258 }
1259
1260 /* ?do_narrow@?$ctype@D@std@@MBEDDD@Z */
1261 /* ?do_narrow@?$ctype@D@std@@MEBADDD@Z */
1262 DEFINE_THISCALL_WRAPPER(ctype_char_do_narrow_ch, 12)
1263 #define call_ctype_char_do_narrow_ch(this, ch, unused) CALL_VTBL_FUNC(this, 36, \
1264         char, (const ctype_char*, char, char), (this, ch, unused))
1265 char __thiscall ctype_char_do_narrow_ch(const ctype_char *this, char ch, char unused)
1266 {
1267     TRACE("(%p %c %c)\n", this, ch, unused);
1268     return ch;
1269 }
1270
1271 /* ?do_narrow@?$ctype@D@std@@MBEPBDPBD0DPAD@Z */
1272 /* ?do_narrow@?$ctype@D@std@@MEBAPEBDPEBD0DPEAD@Z */
1273 DEFINE_THISCALL_WRAPPER(ctype_char_do_narrow, 20)
1274 #define call_ctype_char_do_narrow(this, first, last, unused, dest) CALL_VTBL_FUNC(this, 32, \
1275         const char*, (const ctype_char*, const char*, const char*, char, char*), \
1276         (this, first, last, unused, dest))
1277 const char* __thiscall ctype_char_do_narrow(const ctype_char *this,
1278         const char *first, const char *last, char unused, char *dest)
1279 {
1280     TRACE("(%p %p %p %p)\n", this, first, last, dest);
1281     memcpy(dest, first, last-first);
1282     return last;
1283 }
1284
1285 /* ?_Do_narrow_s@?$ctype@D@std@@MBEPBDPBD0DPADI@Z */
1286 /* ?_Do_narrow_s@?$ctype@D@std@@MEBAPEBDPEBD0DPEAD_K@Z */
1287 DEFINE_THISCALL_WRAPPER(ctype_char__Do_narrow_s, 24)
1288 #define call_ctype_char__Do_narrow_s(this, first, last, unused, dest, size) CALL_VTBL_FUNC(this, 40, \
1289         const char*, (const ctype_char*, const char*, const char*, char, char*, MSVCP_size_t), \
1290         (this, first, last, unused, dest, size))
1291 const char* __thiscall ctype_char__Do_narrow_s(const ctype_char *this, const char *first,
1292         const char *last, char unused, char *dest, MSVCP_size_t size)
1293 {
1294     TRACE("(%p %p %p %p %lu)\n", this, first, last, dest, size);
1295     memcpy_s(dest, size, first, last-first);
1296     return last;
1297 }
1298
1299 /* ?narrow@?$ctype@D@std@@QBEDDD@Z */
1300 /* ?narrow@?$ctype@D@std@@QEBADDD@Z */
1301 DEFINE_THISCALL_WRAPPER(ctype_char_narrow_ch, 12)
1302 char __thiscall ctype_char_narrow_ch(const ctype_char *this, char ch, char dflt)
1303 {
1304     TRACE("(%p %c %c)\n", this, ch, dflt);
1305     return call_ctype_char_do_narrow_ch(this, ch, dflt);
1306 }
1307
1308 /* ?narrow@?$ctype@D@std@@QBEPBDPBD0DPAD@Z */
1309 /* ?narrow@?$ctype@D@std@@QEBAPEBDPEBD0DPEAD@Z */
1310 DEFINE_THISCALL_WRAPPER(ctype_char_narrow, 20)
1311 const char* __thiscall ctype_char_narrow(const ctype_char *this,
1312         const char *first, const char *last, char dflt, char *dest)
1313 {
1314     TRACE("(%p %p %p %c %p)\n", this, first, last, dflt, dest);
1315     return call_ctype_char_do_narrow(this, first, last, dflt, dest);
1316 }
1317
1318 /* ?_Narrow_s@?$ctype@D@std@@QBEPBDPBD0DPADI@Z */
1319 /* ?_Narrow_s@?$ctype@D@std@@QEBAPEBDPEBD0DPEAD_K@Z */
1320 DEFINE_THISCALL_WRAPPER(ctype_char__Narrow_s, 24)
1321 const char* __thiscall ctype_char__Narrow_s(const ctype_char *this, const char *first,
1322         const char *last, char dflt, char *dest, MSVCP_size_t size)
1323 {
1324     TRACE("(%p %p %p %p %lu)\n", this, first, last, dest, size);
1325     return call_ctype_char__Do_narrow_s(this, first, last, dflt, dest, size);
1326 }
1327
1328 /* ?do_widen@?$ctype@D@std@@MBEDD@Z */
1329 /* ?do_widen@?$ctype@D@std@@MEBADD@Z */
1330 DEFINE_THISCALL_WRAPPER(ctype_char_do_widen_ch, 8)
1331 #define call_ctype_char_do_widen_ch(this, ch) CALL_VTBL_FUNC(this, 24, \
1332         char, (const ctype_char*, char), (this, ch))
1333 char __thiscall ctype_char_do_widen_ch(const ctype_char *this, char ch)
1334 {
1335     TRACE("(%p %c)\n", this, ch);
1336     return ch;
1337 }
1338
1339 /* ?do_widen@?$ctype@D@std@@MBEPBDPBD0PAD@Z */
1340 /* ?do_widen@?$ctype@D@std@@MEBAPEBDPEBD0PEAD@Z */
1341 DEFINE_THISCALL_WRAPPER(ctype_char_do_widen, 16)
1342 #define call_ctype_char_do_widen(this, first, last, dest) CALL_VTBL_FUNC(this, 20, \
1343         const char*, (const ctype_char*, const char*, const char*, char*), \
1344         (this, first, last, dest))
1345 const char* __thiscall ctype_char_do_widen(const ctype_char *this,
1346         const char *first, const char *last, char *dest)
1347 {
1348     TRACE("(%p %p %p %p)\n", this, first, last, dest);
1349     memcpy(dest, first, last-first);
1350     return last;
1351 }
1352
1353 /* ?_Do_widen_s@?$ctype@D@std@@MBEPBDPBD0PADI@Z */
1354 /* ?_Do_widen_s@?$ctype@D@std@@MEBAPEBDPEBD0PEAD_K@Z */
1355 DEFINE_THISCALL_WRAPPER(ctype_char__Do_widen_s, 20)
1356 #define call_ctype_char__Do_widen_s(this, first, last, dest, size) CALL_VTBL_FUNC(this, 28, \
1357         const char*, (const ctype_char*, const char*, const char*, char*, MSVCP_size_t), \
1358         (this, first, last, dest, size))
1359 const char* __thiscall ctype_char__Do_widen_s(const ctype_char *this,
1360         const char *first, const char *last, char *dest, MSVCP_size_t size)
1361 {
1362     TRACE("(%p %p %p %p %lu)\n", this, first, last, dest, size);
1363     memcpy_s(dest, size, first, last-first);
1364     return last;
1365 }
1366
1367 /* ?widen@?$ctype@D@std@@QBEDD@Z */
1368 /* ?widen@?$ctype@D@std@@QEBADD@Z */
1369 DEFINE_THISCALL_WRAPPER(ctype_char_widen_ch, 8)
1370 char __thiscall ctype_char_widen_ch(const ctype_char *this, char ch)
1371 {
1372     TRACE("(%p %c)\n", this, ch);
1373     return call_ctype_char_do_widen_ch(this, ch);
1374 }
1375
1376 /* ?widen@?$ctype@D@std@@QBEPBDPBD0PAD@Z */
1377 /* ?widen@?$ctype@D@std@@QEBAPEBDPEBD0PEAD@Z */
1378 DEFINE_THISCALL_WRAPPER(ctype_char_widen, 16)
1379 const char* __thiscall ctype_char_widen(const ctype_char *this,
1380         const char *first, const char *last, char *dest)
1381 {
1382     TRACE("(%p %p %p %p)\n", this, first, last, dest);
1383     return call_ctype_char_do_widen(this, first, last, dest);
1384 }
1385
1386 /* ?_Widen_s@?$ctype@D@std@@QBEPBDPBD0PADI@Z */
1387 /* ?_Widen_s@?$ctype@D@std@@QEBAPEBDPEBD0PEAD_K@Z */
1388 DEFINE_THISCALL_WRAPPER(ctype_char__Widen_s, 20)
1389 const char* __thiscall ctype_char__Widen_s(const ctype_char *this,
1390         const char *first, const char *last, char *dest, MSVCP_size_t size)
1391 {
1392     TRACE("(%p %p %p %p %lu)\n", this, first, last, dest, size);
1393     return call_ctype_char__Do_widen_s(this, first, last, dest, size);
1394 }
1395
1396 /* ?_Getcat@?$ctype@D@std@@SAIPAPBVfacet@locale@2@PBV42@@Z */
1397 /* ?_Getcat@?$ctype@D@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z */
1398 MSVCP_size_t __cdecl ctype_char__Getcat(const locale_facet **facet, const locale *loc)
1399 {
1400     FIXME("(%p %p) stub\n", facet, loc);
1401     return 0;
1402 }
1403
1404 /* ?do_tolower@?$ctype@D@std@@MBEDD@Z */
1405 /* ?do_tolower@?$ctype@D@std@@MEBADD@Z */
1406 DEFINE_THISCALL_WRAPPER(ctype_char_do_tolower_ch, 8)
1407 char __thiscall ctype_char_do_tolower_ch(const ctype_char *this, char ch)
1408 {
1409     FIXME("(%p %c) stub\n", this, ch);
1410     return 0;
1411 }
1412
1413 /* ?do_tolower@?$ctype@D@std@@MBEPBDPADPBD@Z */
1414 /* ?do_tolower@?$ctype@D@std@@MEBAPEBDPEADPEBD@Z */
1415 DEFINE_THISCALL_WRAPPER(ctype_char_do_tolower, 12)
1416 const char* __thiscall ctype_char_do_tolower(const ctype_char *this, char *first, const char *last)
1417 {
1418     FIXME("(%p %p %p) stub\n", this, first, last);
1419     return NULL;
1420 }
1421
1422 /* ?tolower@?$ctype@D@std@@QBEDD@Z */
1423 /* ?tolower@?$ctype@D@std@@QEBADD@Z */
1424 DEFINE_THISCALL_WRAPPER(ctype_char_tolower_ch, 8)
1425 char __thiscall ctype_char_tolower_ch(const ctype_char *this, char ch)
1426 {
1427     FIXME("(%p %c) stub\n", this, ch);
1428     return 0;
1429 }
1430
1431 /* ?tolower@?$ctype@D@std@@QBEPBDPADPBD@Z */
1432 /* ?tolower@?$ctype@D@std@@QEBAPEBDPEADPEBD@Z */
1433 DEFINE_THISCALL_WRAPPER(ctype_char_tolower, 12)
1434 const char* __thiscall ctype_char_tolower(const ctype_char *this, char *first, const char *last)
1435 {
1436     FIXME("(%p %p %p) stub\n", this, first, last);
1437     return NULL;
1438 }
1439
1440 /* ?do_toupper@?$ctype@D@std@@MBEDD@Z */
1441 /* ?do_toupper@?$ctype@D@std@@MEBADD@Z */
1442 DEFINE_THISCALL_WRAPPER(ctype_char_do_toupper_ch, 8)
1443 char __thiscall ctype_char_do_toupper_ch(const ctype_char *this, char ch)
1444 {
1445     FIXME("(%p %c) stub\n", this, ch);
1446     return 0;
1447 }
1448
1449 /* ?do_toupper@?$ctype@D@std@@MBEPBDPADPBD@Z */
1450 /* ?do_toupper@?$ctype@D@std@@MEBAPEBDPEADPEBD@Z */
1451 DEFINE_THISCALL_WRAPPER(ctype_char_do_toupper, 12)
1452 const char* __thiscall ctype_char_do_toupper(const ctype_char *this,
1453         char *first, const char *last)
1454 {
1455     FIXME("(%p %p %p) stub\n", this, first, last);
1456     return NULL;
1457 }
1458
1459 /* ?toupper@?$ctype@D@std@@QBEDD@Z */
1460 /* ?toupper@?$ctype@D@std@@QEBADD@Z */
1461 DEFINE_THISCALL_WRAPPER(ctype_char_toupper_ch, 8)
1462 char __thiscall ctype_char_toupper_ch(const ctype_char *this, char ch)
1463 {
1464     FIXME("(%p %c) stub\n", this, ch);
1465     return 0;
1466 }
1467
1468 /* ?toupper@?$ctype@D@std@@QBEPBDPADPBD@Z */
1469 /* ?toupper@?$ctype@D@std@@QEBAPEBDPEADPEBD@Z */
1470 DEFINE_THISCALL_WRAPPER(ctype_char_toupper, 12)
1471 const char* __thiscall ctype_char_toupper(const ctype_char *this, char *first, const char *last)
1472 {
1473     FIXME("(%p %p %p) stub\n", this, first, last);
1474     return NULL;
1475 }
1476
1477 /* ?is@?$ctype@D@std@@QBE_NFD@Z */
1478 /* ?is@?$ctype@D@std@@QEBA_NFD@Z */
1479 DEFINE_THISCALL_WRAPPER(ctype_char_is_ch, 12)
1480 MSVCP_bool __thiscall ctype_char_is_ch(const ctype_char *this, short mask, char ch)
1481 {
1482     FIXME("(%p %x %c) stub\n", this, mask, ch);
1483     return 0;
1484 }
1485
1486 /* ?is@?$ctype@D@std@@QBEPBDPBD0PAF@Z */
1487 /* ?is@?$ctype@D@std@@QEBAPEBDPEBD0PEAF@Z */
1488 DEFINE_THISCALL_WRAPPER(ctype_char_is, 16)
1489 const char* __thiscall ctype_char_is(const ctype_char *this, const char *first, const char *last, short *dest)
1490 {
1491     FIXME("(%p %p %p %p) stub\n", this, first, last, dest);
1492     return NULL;
1493 }
1494
1495 /* ?scan_is@?$ctype@D@std@@QBEPBDFPBD0@Z */
1496 /* ?scan_is@?$ctype@D@std@@QEBAPEBDFPEBD0@Z */
1497 DEFINE_THISCALL_WRAPPER(ctype_char_scan_is, 16)
1498 const char* __thiscall ctype_char_scan_is(const ctype_char *this, short mask, const char *first, const char *last)
1499 {
1500     FIXME("(%p %x %p %p) stub\n", this, mask, first, last);
1501     return NULL;
1502 }
1503
1504 /* ?scan_not@?$ctype@D@std@@QBEPBDFPBD0@Z */
1505 /* ?scan_not@?$ctype@D@std@@QEBAPEBDFPEBD0@Z */
1506 DEFINE_THISCALL_WRAPPER(ctype_char_scan_not, 16)
1507 const char* __thiscall ctype_char_scan_not(const ctype_char *this, short mask, const char *first, const char *last)
1508 {
1509     FIXME("(%p %x %p %p) stub\n", this, mask, first, last);
1510     return NULL;
1511 }
1512
1513 /* ?table@?$ctype@D@std@@IBEPBFXZ */
1514 /* ?table@?$ctype@D@std@@IEBAPEBFXZ */
1515 DEFINE_THISCALL_WRAPPER(ctype_char_table, 4)
1516 const short* __thiscall ctype_char_table(const ctype_char *this)
1517 {
1518     FIXME("(%p) stub\n", this);
1519     return NULL;
1520 }
1521
1522 /* ?id@?$ctype@_W@std@@2V0locale@2@A */
1523 locale_id ctype_wchar_id = {0};
1524 /* ?id@?$ctype@G@std@@2V0locale@2@A */
1525 locale_id ctype_short_id = {0};
1526
1527 /* ??_7?$ctype@_W@std@@6B@ */
1528 extern const vtable_ptr MSVCP_ctype_wchar_vtable;
1529 /* ??_7?$ctype@G@std@@6B@ */
1530 extern const vtable_ptr MSVCP_ctype_short_vtable;
1531
1532 /* ?_Id_func@?$ctype@_W@std@@SAAAVid@locale@2@XZ */
1533 /* ?_Id_func@?$ctype@_W@std@@SAAEAVid@locale@2@XZ */
1534 locale_id* __cdecl ctype_wchar__Id_func(void)
1535 {
1536     FIXME("() stub\n");
1537     return NULL;
1538 }
1539
1540 /* ?_Id_func@?$ctype@G@std@@SAAAVid@locale@2@XZ */
1541 /* ?_Id_func@?$ctype@G@std@@SAAEAVid@locale@2@XZ */
1542 locale_id* __cdecl ctype_short__Id_func(void)
1543 {
1544     FIXME("() stub\n");
1545     return NULL;
1546 }
1547
1548 /* ?_Init@?$ctype@_W@std@@IAEXABV_Locinfo@2@@Z */
1549 /* ?_Init@?$ctype@_W@std@@IEAAXAEBV_Locinfo@2@@Z */
1550 /* ?_Init@?$ctype@G@std@@IAEXABV_Locinfo@2@@Z */
1551 /* ?_Init@?$ctype@G@std@@IEAAXAEBV_Locinfo@2@@Z */
1552 DEFINE_THISCALL_WRAPPER(ctype_wchar__Init, 8)
1553 void __thiscall ctype_wchar__Init(ctype_wchar *this, _Locinfo *locinfo)
1554 {
1555     FIXME("(%p %p) stub\n", this, locinfo);
1556 }
1557
1558 /* ??0?$ctype@_W@std@@QAE@ABV_Locinfo@1@I@Z */
1559 /* ??0?$ctype@_W@std@@QEAA@AEBV_Locinfo@1@_K@Z */
1560 DEFINE_THISCALL_WRAPPER(ctype_wchar_ctor_locinfo, 12)
1561 ctype_wchar* __thiscall ctype_wchar_ctor_locinfo(ctype_wchar *this,
1562         _Locinfo *locinfo, MSVCP_size_t refs)
1563 {
1564     FIXME("(%p %p %lu) stub\n", this, locinfo, refs);
1565     this->base.facet.vtable = &MSVCP_ctype_wchar_vtable;
1566     return NULL;
1567 }
1568
1569 /* ??0?$ctype@G@std@@QAE@ABV_Locinfo@1@I@Z */
1570 /* ??0?$ctype@G@std@@QEAA@AEBV_Locinfo@1@_K@Z */
1571 DEFINE_THISCALL_WRAPPER(ctype_short_ctor_locinfo, 12)
1572 ctype_wchar* __thiscall ctype_short_ctor_locinfo(ctype_wchar *this,
1573         _Locinfo *locinfo, MSVCP_size_t refs)
1574 {
1575     ctype_wchar *ret = ctype_wchar_ctor_locinfo(this, locinfo, refs);
1576     this->base.facet.vtable = &MSVCP_ctype_short_vtable;
1577     return ret;
1578 }
1579
1580 /* ??0?$ctype@_W@std@@QAE@I@Z */
1581 /* ??0?$ctype@_W@std@@QEAA@_K@Z */
1582 DEFINE_THISCALL_WRAPPER(ctype_wchar_ctor_refs, 8)
1583 ctype_wchar* __thiscall ctype_wchar_ctor_refs(ctype_wchar *this, MSVCP_size_t refs)
1584 {
1585     FIXME("(%p %lu) stub\n", this, refs);
1586     this->base.facet.vtable = &MSVCP_ctype_wchar_vtable;
1587     return NULL;
1588 }
1589
1590 /* ??0?$ctype@G@std@@QAE@I@Z */
1591 /* ??0?$ctype@G@std@@QEAA@_K@Z */
1592 DEFINE_THISCALL_WRAPPER(ctype_short_ctor_refs, 8)
1593 ctype_wchar* __thiscall ctype_short_ctor_refs(ctype_wchar *this, MSVCP_size_t refs)
1594 {
1595     ctype_wchar *ret = ctype_wchar_ctor_refs(this, refs);
1596     this->base.facet.vtable = &MSVCP_ctype_short_vtable;
1597     return ret;
1598 }
1599
1600 /* ??0?$ctype@G@std@@IAE@PBDI@Z */
1601 DEFINE_THISCALL_WRAPPER(ctype_short_ctor_name, 12)
1602 ctype_wchar* __thiscall ctype_short_ctor_name(ctype_wchar *this,
1603     const char *name, MSVCP_size_t refs)
1604 {
1605     FIXME("(%p %s %lu) stub\n", this, debugstr_a(name), refs);
1606     this->base.facet.vtable = &MSVCP_ctype_short_vtable;
1607     return NULL;
1608 }
1609
1610 /* ??_F?$ctype@_W@std@@QAEXXZ */
1611 /* ??_F?$ctype@_W@std@@QEAAXXZ */
1612 DEFINE_THISCALL_WRAPPER(ctype_wchar_ctor, 4)
1613 ctype_wchar* __thiscall ctype_wchar_ctor(ctype_wchar *this)
1614 {
1615     FIXME("(%p) stub\n", this);
1616     this->base.facet.vtable = &MSVCP_ctype_wchar_vtable;
1617     return NULL;
1618 }
1619
1620 /* ??_F?$ctype@G@std@@QAEXXZ */
1621 /* ??_F?$ctype@G@std@@QEAAXXZ */
1622 DEFINE_THISCALL_WRAPPER(ctype_short_ctor, 4)
1623 ctype_wchar* __thiscall ctype_short_ctor(ctype_wchar *this)
1624 {
1625     ctype_wchar *ret = ctype_wchar_ctor(this);
1626     this->base.facet.vtable = &MSVCP_ctype_short_vtable;
1627     return ret;
1628 }
1629
1630 /* ??1?$ctype@_W@std@@MAE@XZ */
1631 /* ??1?$ctype@_W@std@@MEAA@XZ */
1632 /* ??1?$ctype@G@std@@MAE@XZ */
1633 /* ??1?$ctype@G@std@@MEAA@XZ */
1634 DEFINE_THISCALL_WRAPPER(ctype_wchar_dtor, 4)
1635 void __thiscall ctype_wchar_dtor(ctype_wchar *this)
1636 {
1637     FIXME("(%p) stub\n", this);
1638 }
1639
1640 DEFINE_THISCALL_WRAPPER(MSVCP_ctype_wchar_vector_dtor, 8)
1641 ctype_wchar* __thiscall MSVCP_ctype_wchar_vector_dtor(ctype_wchar *this, unsigned int flags)
1642 {
1643     TRACE("(%p %x)\n", this, flags);
1644     if(flags & 2) {
1645         /* we have an array, with the number of elements stored before the first object */
1646         int i, *ptr = (int *)this-1;
1647
1648         for(i=*ptr-1; i>=0; i--)
1649             ctype_wchar_dtor(this+i);
1650         MSVCRT_operator_delete(ptr);
1651     } else {
1652         ctype_wchar_dtor(this);
1653         if(flags & 1)
1654             MSVCRT_operator_delete(this);
1655     }
1656
1657     return this;
1658 }
1659
1660 DEFINE_THISCALL_WRAPPER(MSVCP_ctype_short_vector_dtor, 8)
1661 ctype_wchar* __thiscall MSVCP_ctype_short_vector_dtor(ctype_wchar *this, unsigned int flags)
1662 {
1663     return MSVCP_ctype_wchar_vector_dtor(this, flags);
1664 }
1665
1666 /* ?_Donarrow@?$ctype@_W@std@@IBED_WD@Z */
1667 /* ?_Donarrow@?$ctype@_W@std@@IEBAD_WD@Z */
1668 /* ?_Donarrow@?$ctype@G@std@@IBEDGD@Z */
1669 /* ?_Donarrow@?$ctype@G@std@@IEBADGD@Z */
1670 DEFINE_THISCALL_WRAPPER(ctype_wchar__Donarrow, 12)
1671 char __thiscall ctype_wchar__Donarrow(const ctype_wchar *this, wchar_t ch, char dflt)
1672 {
1673     FIXME("(%p %d %d) stub\n", this, ch, dflt);
1674     return 0;
1675 }
1676
1677 /* ?do_narrow@?$ctype@_W@std@@MBED_WD@Z */
1678 /* ?do_narrow@?$ctype@_W@std@@MEBAD_WD@Z */
1679 /* ?do_narrow@?$ctype@G@std@@MBEDGD@Z */
1680 /* ?do_narrow@?$ctype@G@std@@MEBADGD@Z */
1681 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_narrow_ch, 12)
1682 wchar_t __thiscall ctype_wchar_do_narrow_ch(const ctype_wchar *this, wchar_t ch, char dflt)
1683 {
1684     FIXME("(%p %d %d) stub\n", this, ch, dflt);
1685     return 0;
1686 }
1687
1688 /* ?do_narrow@?$ctype@_W@std@@MBEPB_WPB_W0DPAD@Z */
1689 /* ?do_narrow@?$ctype@_W@std@@MEBAPEB_WPEB_W0DPEAD@Z */
1690 /* ?do_narrow@?$ctype@G@std@@MBEPBGPBG0DPAD@Z */
1691 /* ?do_narrow@?$ctype@G@std@@MEBAPEBGPEBG0DPEAD@Z */
1692 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_narrow, 20)
1693 const wchar_t* __thiscall ctype_wchar_do_narrow(const ctype_wchar *this,
1694         const wchar_t *first, const wchar_t *last, char dflt, char *dest)
1695 {
1696     FIXME("(%p %p %p %d %p) stub\n", this, first, last, dflt, dest);
1697     return NULL;
1698 }
1699
1700 /* ?_Do_narrow_s@?$ctype@_W@std@@MBEPB_WPB_W0DPADI@Z */
1701 /* ?_Do_narrow_s@?$ctype@_W@std@@MEBAPEB_WPEB_W0DPEAD_K@Z */
1702 /* ?_Do_narrow_s@?$ctype@G@std@@MBEPBGPBG0DPADI@Z */
1703 /* ?_Do_narrow_s@?$ctype@G@std@@MEBAPEBGPEBG0DPEAD_K@Z */
1704 DEFINE_THISCALL_WRAPPER(ctype_wchar__Do_narrow_s, 24)
1705 const wchar_t* __thiscall ctype_wchar__Do_narrow_s(const ctype_wchar *this,
1706         const wchar_t *first, const wchar_t *last, char dflt, char *dest, MSVCP_size_t size)
1707 {
1708     FIXME("(%p %p %p %d %p %lu) stub\n", this, first, last, dflt, dest, size);
1709     return NULL;
1710 }
1711
1712 /* ?narrow@?$ctype@_W@std@@QBED_WD@Z */
1713 /* ?narrow@?$ctype@_W@std@@QEBAD_WD@Z */
1714 /* ?narrow@?$ctype@G@std@@QBEDGD@Z */
1715 /* ?narrow@?$ctype@G@std@@QEBADGD@Z */
1716 DEFINE_THISCALL_WRAPPER(ctype_wchar_narrow_ch, 12)
1717 char __thiscall ctype_wchar_narrow_ch(const ctype_wchar *this, wchar_t ch, char dflt)
1718 {
1719     FIXME("(%p %d %d) stub\n", this, ch, dflt);
1720     return 0;
1721 }
1722
1723 /* ?narrow@?$ctype@_W@std@@QBEPB_WPB_W0DPAD@Z */
1724 /* ?narrow@?$ctype@_W@std@@QEBAPEB_WPEB_W0DPEAD@Z */
1725 /* ?narrow@?$ctype@G@std@@QBEPBGPBG0DPAD@Z */
1726 /* ?narrow@?$ctype@G@std@@QEBAPEBGPEBG0DPEAD@Z */
1727 DEFINE_THISCALL_WRAPPER(ctype_wchar_narrow, 20)
1728 const wchar_t* __thiscall ctype_wchar_narrow(const ctype_wchar *this,
1729         const wchar_t *first, const wchar_t *last, char dflt, char *dest)
1730 {
1731     FIXME("(%p %p %p %d %p) stub\n", this, first, last, dflt, dest);
1732     return NULL;
1733 }
1734
1735 /* ?_Narrow_s@?$ctype@_W@std@@QBEPB_WPB_W0DPADI@Z */
1736 /* ?_Narrow_s@?$ctype@_W@std@@QEBAPEB_WPEB_W0DPEAD_K@Z */
1737 /* ?_Narrow_s@?$ctype@G@std@@QBEPBGPBG0DPADI@Z */
1738 /* ?_Narrow_s@?$ctype@G@std@@QEBAPEBGPEBG0DPEAD_K@Z */
1739 DEFINE_THISCALL_WRAPPER(ctype_wchar__Narrow_s, 24)
1740 const wchar_t* __thiscall ctype_wchar__Narrow_s(const ctype_wchar *this, const wchar_t *first,
1741         const wchar_t *last, char dflt, char *dest, unsigned int size)
1742 {
1743     FIXME("(%p %p %p %d %p %d) stub\n", this, first, last, dflt, dest, size);
1744     return NULL;
1745 }
1746
1747 /* ?_Dowiden@?$ctype@_W@std@@IBE_WD@Z */
1748 /* ?_Dowiden@?$ctype@_W@std@@IEBA_WD@Z */
1749 /* ?_Dowiden@?$ctype@G@std@@IBEGD@Z */
1750 /* ?_Dowiden@?$ctype@G@std@@IEBAGD@Z */
1751 DEFINE_THISCALL_WRAPPER(ctype_wchar__Dowiden, 8)
1752 wchar_t __thiscall ctype_wchar__Dowiden(const ctype_wchar *this, char ch)
1753 {
1754     FIXME("(%p %d) stub\n", this, ch);
1755     return 0;
1756 }
1757
1758 /* ?do_widen@?$ctype@_W@std@@MBE_WD@Z */
1759 /* ?do_widen@?$ctype@_W@std@@MEBA_WD@Z */
1760 /* ?do_widen@?$ctype@G@std@@MBEGD@Z */
1761 /* ?do_widen@?$ctype@G@std@@MEBAGD@Z */
1762 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_widen_ch, 8)
1763 wchar_t __thiscall ctype_wchar_do_widen_ch(const ctype_wchar *this, char ch)
1764 {
1765     FIXME("(%p %d) stub\n", this, ch);
1766     return 0;
1767 }
1768
1769 /* ?do_widen@?$ctype@_W@std@@MBEPBDPBD0PA_W@Z */
1770 /* ?do_widen@?$ctype@_W@std@@MEBAPEBDPEBD0PEA_W@Z */
1771 /* ?do_widen@?$ctype@G@std@@MBEPBDPBD0PAG@Z */
1772 /* ?do_widen@?$ctype@G@std@@MEBAPEBDPEBD0PEAG@Z */
1773 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_widen, 16)
1774 const char* __thiscall ctype_wchar_do_widen(const ctype_wchar *this,
1775         const char *first, const char *last, wchar_t *dest)
1776 {
1777     FIXME("(%p %p %p %p) stub\n", this, first, last, dest);
1778     return NULL;
1779 }
1780
1781 /* ?_Do_widen_s@?$ctype@_W@std@@MBEPBDPBD0PA_WI@Z */
1782 /* ?_Do_widen_s@?$ctype@_W@std@@MEBAPEBDPEBD0PEA_W_K@Z */
1783 /* ?_Do_widen_s@?$ctype@G@std@@MBEPBDPBD0PAGI@Z */
1784 /* ?_Do_widen_s@?$ctype@G@std@@MEBAPEBDPEBD0PEAG_K@Z */
1785 DEFINE_THISCALL_WRAPPER(ctype_wchar__Do_widen_s, 20)
1786 const char* __thiscall ctype_wchar__Do_widen_s(const ctype_wchar *this,
1787         const char *first, const char *last, wchar_t *dest, MSVCP_size_t size)
1788 {
1789     FIXME("(%p %p %p %p %lu) stub\n", this, first, last, dest, size);
1790     return NULL;
1791 }
1792
1793 /* ?widen@?$ctype@_W@std@@QBE_WD@Z */
1794 /* ?widen@?$ctype@_W@std@@QEBA_WD@Z */
1795 /* ?widen@?$ctype@G@std@@QBEGD@Z */
1796 /* ?widen@?$ctype@G@std@@QEBAGD@Z */
1797 DEFINE_THISCALL_WRAPPER(ctype_wchar_widen_ch, 8)
1798 wchar_t __thiscall ctype_wchar_widen_ch(const ctype_wchar *this, char ch)
1799 {
1800     FIXME("(%p %d) stub\n", this, ch);
1801     return 0;
1802 }
1803
1804 /* ?widen@?$ctype@_W@std@@QBEPBDPBD0PA_W@Z */
1805 /* ?widen@?$ctype@_W@std@@QEBAPEBDPEBD0PEA_W@Z */
1806 /* ?widen@?$ctype@G@std@@QBEPBDPBD0PAG@Z */
1807 /* ?widen@?$ctype@G@std@@QEBAPEBDPEBD0PEAG@Z */
1808 DEFINE_THISCALL_WRAPPER(ctype_wchar_widen, 16)
1809 const char* __thiscall ctype_wchar_widen(const ctype_wchar *this,
1810         const char *first, const char *last, wchar_t *dest)
1811 {
1812     FIXME("(%p %p %p %p) stub\n", this, first, last, dest);
1813     return NULL;
1814 }
1815
1816 /* ?_Widen_s@?$ctype@_W@std@@QBEPBDPBD0PA_WI@Z */
1817 /* ?_Widen_s@?$ctype@_W@std@@QEBAPEBDPEBD0PEA_W_K@Z */
1818 /* ?_Widen_s@?$ctype@G@std@@QBEPBDPBD0PAGI@Z */
1819 /* ?_Widen_s@?$ctype@G@std@@QEBAPEBDPEBD0PEAG_K@Z */
1820 DEFINE_THISCALL_WRAPPER(ctype_wchar__Widen_s, 20)
1821 const char* __thiscall ctype_wchar__Widen_s(const ctype_wchar *this,
1822         const char *first, const char *last, wchar_t *dest, MSVCP_size_t size)
1823 {
1824     FIXME("(%p %p %p %p %lu) stub\n", this, first, last, dest, size);
1825     return NULL;
1826 }
1827
1828 /* ?_Getcat@?$ctype@_W@std@@SAIPAPBVfacet@locale@2@PBV42@@Z */
1829 /* ?_Getcat@?$ctype@_W@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z */
1830 /* ?_Getcat@?$ctype@G@std@@SAIPAPBVfacet@locale@2@PBV42@@Z */
1831 /* ?_Getcat@?$ctype@G@std@@SA_KPEAPEBVfacet@locale@2@PEBV42@@Z */
1832 MSVCP_size_t __cdecl ctype_wchar__Getcat(const locale_facet **facet, const locale *loc)
1833 {
1834     FIXME("(%p %p) stub\n", facet, loc);
1835     return 0;
1836 }
1837
1838 /* ?do_tolower@?$ctype@_W@std@@MBE_W_W@Z */
1839 /* ?do_tolower@?$ctype@_W@std@@MEBA_W_W@Z */
1840 /* ?do_tolower@?$ctype@G@std@@MBEGG@Z */
1841 /* ?do_tolower@?$ctype@G@std@@MEBAGG@Z */
1842 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_tolower_ch, 8)
1843 char __thiscall ctype_wchar_do_tolower_ch(const ctype_wchar *this, wchar_t ch)
1844 {
1845     FIXME("(%p %d) stub\n", this, ch);
1846     return 0;
1847 }
1848
1849 /* ?do_tolower@?$ctype@_W@std@@MBEPB_WPA_WPB_W@Z */
1850 /* ?do_tolower@?$ctype@_W@std@@MEBAPEB_WPEA_WPEB_W@Z */
1851 /* ?do_tolower@?$ctype@G@std@@MBEPBGPAGPBG@Z */
1852 /* ?do_tolower@?$ctype@G@std@@MEBAPEBGPEAGPEBG@Z */
1853 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_tolower, 12)
1854 const wchar_t* __thiscall ctype_wchar_do_tolower(const ctype_wchar *this,
1855         wchar_t *first, const wchar_t *last)
1856 {
1857     FIXME("(%p %p %p) stub\n", this, first, last);
1858     return NULL;
1859 }
1860
1861 /* ?tolower@?$ctype@_W@std@@QBE_W_W@Z */
1862 /* ?tolower@?$ctype@_W@std@@QEBA_W_W@Z */
1863 /* ?tolower@?$ctype@G@std@@QBEGG@Z */
1864 /* ?tolower@?$ctype@G@std@@QEBAGG@Z */
1865 DEFINE_THISCALL_WRAPPER(ctype_wchar_tolower_ch, 8)
1866 wchar_t __thiscall ctype_wchar_tolower_ch(const ctype_wchar *this, wchar_t ch)
1867 {
1868     FIXME("(%p %d) stub\n", this, ch);
1869     return 0;
1870 }
1871
1872 /* ?tolower@?$ctype@_W@std@@QBEPB_WPA_WPB_W@Z */
1873 /* ?tolower@?$ctype@_W@std@@QEBAPEB_WPEA_WPEB_W@Z */
1874 /* ?tolower@?$ctype@G@std@@QBEPBGPAGPBG@Z */
1875 /* ?tolower@?$ctype@G@std@@QEBAPEBGPEAGPEBG@Z */
1876 DEFINE_THISCALL_WRAPPER(ctype_wchar_tolower, 12)
1877 const wchar_t* __thiscall ctype_wchar_tolower(const ctype_wchar *this,
1878         wchar_t *first, const wchar_t *last)
1879 {
1880     FIXME("(%p %p %p) stub\n", this, first, last);
1881     return NULL;
1882 }
1883
1884 /* ?do_toupper@?$ctype@_W@std@@MBE_W_W@Z */
1885 /* ?do_toupper@?$ctype@_W@std@@MEBA_W_W@Z */
1886 /* ?do_toupper@?$ctype@G@std@@MBEGG@Z */
1887 /* ?do_toupper@?$ctype@G@std@@MEBAGG@Z */
1888 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_toupper_ch, 8)
1889 wchar_t __thiscall ctype_wchar_do_toupper_ch(const ctype_wchar *this, wchar_t ch)
1890 {
1891     FIXME("(%p %d) stub\n", this, ch);
1892     return 0;
1893 }
1894
1895 /* ?do_toupper@?$ctype@_W@std@@MBEPB_WPA_WPB_W@Z */
1896 /* ?do_toupper@?$ctype@_W@std@@MEBAPEB_WPEA_WPEB_W@Z */
1897 /* ?do_toupper@?$ctype@G@std@@MBEPBGPAGPBG@Z */
1898 /* ?do_toupper@?$ctype@G@std@@MEBAPEBGPEAGPEBG@Z */
1899 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_toupper, 12)
1900 const wchar_t* __thiscall ctype_wchar_do_toupper(const ctype_wchar *this,
1901         wchar_t *first, const wchar_t *last)
1902 {
1903     FIXME("(%p %p %p) stub\n", this, first, last);
1904     return NULL;
1905 }
1906
1907 /* ?toupper@?$ctype@_W@std@@QBE_W_W@Z */
1908 /* ?toupper@?$ctype@_W@std@@QEBA_W_W@Z */
1909 /* ?toupper@?$ctype@G@std@@QBEGG@Z */
1910 /* ?toupper@?$ctype@G@std@@QEBAGG@Z */
1911 DEFINE_THISCALL_WRAPPER(ctype_wchar_toupper_ch, 8)
1912 wchar_t __thiscall ctype_wchar_toupper_ch(const ctype_wchar *this, wchar_t ch)
1913 {
1914     FIXME("(%p %d) stub\n", this, ch);
1915     return 0;
1916 }
1917
1918 /* ?toupper@?$ctype@_W@std@@QBEPB_WPA_WPB_W@Z */
1919 /* ?toupper@?$ctype@_W@std@@QEBAPEB_WPEA_WPEB_W@Z */
1920 /* ?toupper@?$ctype@G@std@@QBEPBGPAGPBG@Z */
1921 /* ?toupper@?$ctype@G@std@@QEBAPEBGPEAGPEBG@Z */
1922 DEFINE_THISCALL_WRAPPER(ctype_wchar_toupper, 12)
1923 const wchar_t* __thiscall ctype_wchar_toupper(const ctype_wchar *this,
1924         wchar_t *first, const wchar_t *last)
1925 {
1926     FIXME("(%p %p %p) stub\n", this, first, last);
1927     return NULL;
1928 }
1929
1930 /* ?do_is@?$ctype@_W@std@@MBE_NF_W@Z */
1931 /* ?do_is@?$ctype@_W@std@@MEBA_NF_W@Z */
1932 /* ?do_is@?$ctype@G@std@@MBE_NFG@Z */
1933 /* ?do_is@?$ctype@G@std@@MEBA_NFG@Z */
1934 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_is_ch, 12)
1935 MSVCP_bool __thiscall ctype_wchar_do_is_ch(const ctype_wchar *this, short mask, wchar_t ch)
1936 {
1937     FIXME("(%p %x %d) stub\n", this, mask, ch);
1938     return 0;
1939 }
1940
1941 /* ?do_is@?$ctype@_W@std@@MBEPB_WPB_W0PAF@Z */
1942 /* ?do_is@?$ctype@_W@std@@MEBAPEB_WPEB_W0PEAF@Z */
1943 /* ?do_is@?$ctype@G@std@@MBEPBGPBG0PAF@Z */
1944 /* ?do_is@?$ctype@G@std@@MEBAPEBGPEBG0PEAF@Z */
1945 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_is, 16)
1946 const wchar_t* __thiscall ctype_wchar_do_is(const ctype_wchar *this,
1947         const wchar_t *first, const wchar_t *last, short *dest)
1948 {
1949     FIXME("(%p %p %p %p) stub\n", this, first, last, dest);
1950     return NULL;
1951 }
1952
1953 /* ?is@?$ctype@_W@std@@QBE_NF_W@Z */
1954 /* ?is@?$ctype@_W@std@@QEBA_NF_W@Z */
1955 /* ?is@?$ctype@G@std@@QBE_NFG@Z */
1956 /* ?is@?$ctype@G@std@@QEBA_NFG@Z */
1957 DEFINE_THISCALL_WRAPPER(ctype_wchar_is_ch, 12)
1958 MSVCP_bool __thiscall ctype_wchar_is_ch(const ctype_wchar *this, short mask, wchar_t ch)
1959 {
1960     FIXME("(%p %x %d) stub\n", this, mask, ch);
1961     return 0;
1962 }
1963
1964 /* ?is@?$ctype@_W@std@@QBEPB_WPB_W0PAF@Z */
1965 /* ?is@?$ctype@_W@std@@QEBAPEB_WPEB_W0PEAF@Z */
1966 /* ?is@?$ctype@G@std@@QBEPBGPBG0PAF@Z */
1967 /* ?is@?$ctype@G@std@@QEBAPEBGPEBG0PEAF@Z */
1968 DEFINE_THISCALL_WRAPPER(ctype_wchar_is, 16)
1969 const wchar_t* __thiscall ctype_wchar_is(const ctype_wchar *this,
1970         const wchar_t *first, const wchar_t *last, short *dest)
1971 {
1972     FIXME("(%p %p %p %p) stub\n", this, first, last, dest);
1973     return NULL;
1974 }
1975
1976 /* ?do_scan_is@?$ctype@_W@std@@MBEPB_WFPB_W0@Z */
1977 /* ?do_scan_is@?$ctype@_W@std@@MEBAPEB_WFPEB_W0@Z */
1978 /* ?do_scan_is@?$ctype@G@std@@MBEPBGFPBG0@Z */
1979 /* ?do_scan_is@?$ctype@G@std@@MEBAPEBGFPEBG0@Z */
1980 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_scan_is, 16)
1981 const wchar_t* __thiscall ctype_wchar_do_scan_is(const ctype_wchar *this,
1982         short mask, const wchar_t *first, const wchar_t *last)
1983 {
1984     FIXME("(%p %d %p %p) stub\n", this, mask, first, last);
1985     return NULL;
1986 }
1987
1988 /* ?scan_is@?$ctype@_W@std@@QBEPB_WFPB_W0@Z */
1989 /* ?scan_is@?$ctype@_W@std@@QEBAPEB_WFPEB_W0@Z */
1990 /* ?scan_is@?$ctype@G@std@@QBEPBGFPBG0@Z */
1991 /* ?scan_is@?$ctype@G@std@@QEBAPEBGFPEBG0@Z */
1992 DEFINE_THISCALL_WRAPPER(ctype_wchar_scan_is, 16)
1993 const wchar_t* __thiscall ctype_wchar_scan_is(const ctype_wchar *this,
1994         short mask, const wchar_t *first, const wchar_t *last)
1995 {
1996     FIXME("(%p %x %p %p) stub\n", this, mask, first, last);
1997     return NULL;
1998 }
1999
2000 /* ?do_scan_not@?$ctype@_W@std@@MBEPB_WFPB_W0@Z */
2001 /* ?do_scan_not@?$ctype@_W@std@@MEBAPEB_WFPEB_W0@Z */
2002 /* ?do_scan_not@?$ctype@G@std@@MBEPBGFPBG0@Z */
2003 /* ?do_scan_not@?$ctype@G@std@@MEBAPEBGFPEBG0@Z */
2004 DEFINE_THISCALL_WRAPPER(ctype_wchar_do_scan_not, 16)
2005 const wchar_t* __thiscall ctype_wchar_do_scan_not(const ctype_wchar *this,
2006         short mask, const wchar_t *first, const wchar_t *last)
2007 {
2008     FIXME("(%p %x %p %p) stub\n", this, mask, first, last);
2009     return NULL;
2010 }
2011
2012 /* ?scan_not@?$ctype@_W@std@@QBEPB_WFPB_W0@Z */
2013 /* ?scan_not@?$ctype@_W@std@@QEBAPEB_WFPEB_W0@Z */
2014 /* ?scan_not@?$ctype@G@std@@QBEPBGFPBG0@Z */
2015 /* ?scan_not@?$ctype@G@std@@QEBAPEBGFPEBG0@Z */
2016 DEFINE_THISCALL_WRAPPER(ctype_wchar_scan_not, 16)
2017 const wchar_t* __thiscall ctype_wchar_scan_not(const ctype_wchar *this,
2018         short mask, const wchar_t *first, const wchar_t *last)
2019 {
2020     FIXME("(%p %x %p %p) stub\n", this, mask, first, last);
2021     return NULL;
2022 }
2023
2024 /* ??0_Locimp@locale@std@@AAE@_N@Z */
2025 /* ??0_Locimp@locale@std@@AEAA@_N@Z */
2026 DEFINE_THISCALL_WRAPPER(locale__Locimp_ctor_transparent, 8)
2027 locale__Locimp* __thiscall locale__Locimp_ctor_transparent(locale__Locimp *this, MSVCP_bool transparent)
2028 {
2029     TRACE("(%p %d)\n", this, transparent);
2030
2031     memset(this, 0, sizeof(locale__Locimp));
2032     locale_facet_ctor_refs(&this->facet, 1);
2033     this->transparent = transparent;
2034     MSVCP_basic_string_char_ctor_cstr(&this->name, "*");
2035     return this;
2036 }
2037
2038 /* ??_F_Locimp@locale@std@@QAEXXZ */
2039 /* ??_F_Locimp@locale@std@@QEAAXXZ */
2040 DEFINE_THISCALL_WRAPPER(locale__Locimp_ctor, 4)
2041 locale__Locimp* __thiscall locale__Locimp_ctor(locale__Locimp *this)
2042 {
2043     return locale__Locimp_ctor_transparent(this, FALSE);
2044 }
2045
2046 /* ??0_Locimp@locale@std@@AAE@ABV012@@Z */
2047 /* ??0_Locimp@locale@std@@AEAA@AEBV012@@Z */
2048 DEFINE_THISCALL_WRAPPER(locale__Locimp_copy_ctor, 8)
2049 locale__Locimp* __thiscall locale__Locimp_copy_ctor(locale__Locimp *this, const locale__Locimp *copy)
2050 {
2051     _Lockit lock;
2052     MSVCP_size_t i;
2053
2054     TRACE("(%p %p)\n", this, copy);
2055
2056     _Lockit_ctor_locktype(&lock, _LOCK_LOCALE);
2057     memcpy(this, copy, sizeof(locale__Locimp));
2058     locale_facet_ctor_refs(&this->facet, 1);
2059     if(copy->facetvec) {
2060         this->facetvec = MSVCRT_operator_new(copy->facet_cnt*sizeof(locale_facet*));
2061         if(!this->facetvec) {
2062             _Lockit_dtor(&lock);
2063             ERR("Out of memory\n");
2064             throw_exception(EXCEPTION_BAD_ALLOC, NULL);
2065             return NULL;
2066         }
2067         for(i=0; i<this->facet_cnt; i++)
2068             if(this->facetvec[i])
2069                 locale_facet__Incref(this->facetvec[i]);
2070     }
2071     MSVCP_basic_string_char_copy_ctor(&this->name, &copy->name);
2072     _Lockit_dtor(&lock);
2073     return this;
2074 }
2075
2076 /* ?_Locimp_ctor@_Locimp@locale@std@@CAXPAV123@ABV123@@Z */
2077 /* ?_Locimp_ctor@_Locimp@locale@std@@CAXPEAV123@AEBV123@@Z */
2078 locale__Locimp* __cdecl locale__Locimp__Locimp_ctor(locale__Locimp *this, const locale__Locimp *copy)
2079 {
2080     return locale__Locimp_copy_ctor(this, copy);
2081 }
2082
2083 /* ??1_Locimp@locale@std@@MAE@XZ */
2084 /* ??1_Locimp@locale@std@@MEAA@XZ */
2085 DEFINE_THISCALL_WRAPPER(locale__Locimp_dtor, 4)
2086 void __thiscall locale__Locimp_dtor(locale__Locimp *this)
2087 {
2088     TRACE("(%p)\n", this);
2089
2090     if(locale_facet__Decref(&this->facet)) {
2091         MSVCP_size_t i;
2092         for(i=0; i<this->facet_cnt; i++)
2093             if(this->facetvec[i] && locale_facet__Decref(this->facetvec[i]))
2094                 call_locale_facet_vector_dtor(this->facetvec[i], 0);
2095
2096         MSVCRT_operator_delete(this->facetvec);
2097         MSVCP_basic_string_char_dtor(&this->name);
2098     }
2099 }
2100
2101 /* ?_Locimp_dtor@_Locimp@locale@std@@CAXPAV123@@Z */
2102 /* ?_Locimp_dtor@_Locimp@locale@std@@CAXPEAV123@@Z */
2103 void __cdecl locale__Locimp__Locimp_dtor(locale__Locimp *this)
2104 {
2105     locale__Locimp_dtor(this);
2106 }
2107
2108 DEFINE_THISCALL_WRAPPER(MSVCP_locale__Locimp_vector_dtor, 8)
2109 locale__Locimp* __thiscall MSVCP_locale__Locimp_vector_dtor(locale__Locimp *this, unsigned int flags)
2110 {
2111     TRACE("(%p %x)\n", this, flags);
2112     if(flags & 2) {
2113         /* we have an array, with the number of elements stored before the first object */
2114         int i, *ptr = (int *)this-1;
2115
2116         for(i=*ptr-1; i>=0; i--)
2117             locale__Locimp_dtor(this+i);
2118         MSVCRT_operator_delete(ptr);
2119     } else {
2120         locale__Locimp_dtor(this);
2121         if(flags & 1)
2122             MSVCRT_operator_delete(this);
2123     }
2124
2125     return this;
2126 }
2127
2128 /* ?_Locimp_Addfac@_Locimp@locale@std@@CAXPAV123@PAVfacet@23@I@Z */
2129 /* ?_Locimp_Addfac@_Locimp@locale@std@@CAXPEAV123@PEAVfacet@23@_K@Z */
2130 void __cdecl locale__Locimp__Locimp_Addfac(locale__Locimp *locimp, locale_facet *facet, MSVCP_size_t id)
2131 {
2132     _Lockit lock;
2133
2134     TRACE("(%p %p %lu)\n", locimp, facet, id);
2135
2136     _Lockit_ctor_locktype(&lock, _LOCK_LOCALE);
2137     if(id >= locimp->facet_cnt) {
2138         MSVCP_size_t new_size = id+1;
2139         locale_facet **new_facetvec;
2140
2141         if(new_size < locale_id__Id_cnt+1)
2142             new_size = locale_id__Id_cnt+1;
2143
2144         new_facetvec = MSVCRT_operator_new(sizeof(locale_facet*)*new_size);
2145         if(!new_facetvec) {
2146             _Lockit_dtor(&lock);
2147             ERR("Out of memory\n");
2148             throw_exception(EXCEPTION_BAD_ALLOC, NULL);
2149             return;
2150         }
2151
2152         memset(new_facetvec, 0, sizeof(locale_facet*)*new_size);
2153         memcpy(new_facetvec, locimp->facetvec, sizeof(locale_facet*)*locimp->facet_cnt);
2154         MSVCRT_operator_delete(locimp->facetvec);
2155         locimp->facetvec = new_facetvec;
2156         locimp->facet_cnt = new_size;
2157     }
2158
2159     if(locimp->facetvec[id] && locale_facet__Decref(locimp->facetvec[id]))
2160         call_locale_facet_vector_dtor(locimp->facetvec[id], 0);
2161
2162     locimp->facetvec[id] = facet;
2163     if(facet)
2164         locale_facet__Incref(facet);
2165     _Lockit_dtor(&lock);
2166 }
2167
2168 /* ?_Addfac@_Locimp@locale@std@@AAEXPAVfacet@23@I@Z */
2169 /* ?_Addfac@_Locimp@locale@std@@AEAAXPEAVfacet@23@_K@Z */
2170 DEFINE_THISCALL_WRAPPER(locale__Locimp__Addfac, 12)
2171 void __thiscall locale__Locimp__Addfac(locale__Locimp *this, locale_facet *facet, MSVCP_size_t id)
2172 {
2173     locale__Locimp__Locimp_Addfac(this, facet, id);
2174 }
2175
2176 /* ?_Clocptr_func@_Locimp@locale@std@@CAAAPAV123@XZ */
2177 /* ?_Clocptr_func@_Locimp@locale@std@@CAAEAPEAV123@XZ */
2178 locale__Locimp** __cdecl locale__Locimp__Clocptr_func(void)
2179 {
2180     FIXME("stub\n");
2181     return NULL;
2182 }
2183
2184 /* ?_Makeloc@_Locimp@locale@std@@CAPAV123@ABV_Locinfo@3@HPAV123@PBV23@@Z */
2185 /* ?_Makeloc@_Locimp@locale@std@@CAPEAV123@AEBV_Locinfo@3@HPEAV123@PEBV23@@Z */
2186 locale__Locimp* __cdecl locale__Locimp__Makeloc(const _Locinfo *locinfo, category cat, locale__Locimp *locimp, const locale *loc)
2187 {
2188     FIXME("(%p %d %p %p) stub\n", locinfo, cat, locimp, loc);
2189     return NULL;
2190 }
2191
2192 /* ?_Makeushloc@_Locimp@locale@std@@CAXABV_Locinfo@3@HPAV123@PBV23@@Z */
2193 /* ?_Makeushloc@_Locimp@locale@std@@CAXAEBV_Locinfo@3@HPEAV123@PEBV23@@Z */
2194 void __cdecl locale__Locimp__Makeushloc(const _Locinfo *locinfo, category cat, locale__Locimp *locimp, const locale *loc)
2195 {
2196     FIXME("(%p %d %p %p) stub\n", locinfo, cat, locimp, loc);
2197 }
2198
2199 /* ?_Makewloc@_Locimp@locale@std@@CAXABV_Locinfo@3@HPAV123@PBV23@@Z */
2200 /* ?_Makewloc@_Locimp@locale@std@@CAXAEBV_Locinfo@3@HPEAV123@PEBV23@@Z */
2201 void __cdecl locale__Locimp__Makewloc(const _Locinfo *locinfo, category cat, locale__Locimp *locimp, const locale *loc)
2202 {
2203     FIXME("(%p %d %p %p) stub\n", locinfo, cat, locimp, loc);
2204 }
2205
2206 /* ?_Makexloc@_Locimp@locale@std@@CAXABV_Locinfo@3@HPAV123@PBV23@@Z */
2207 /* ?_Makexloc@_Locimp@locale@std@@CAXAEBV_Locinfo@3@HPEAV123@PEBV23@@Z */
2208 void __cdecl locale__Locimp__Makexloc(const _Locinfo *locinfo, category cat, locale__Locimp *locimp, const locale *loc)
2209 {
2210     FIXME("(%p %d %p %p) stub\n", locinfo, cat, locimp, loc);
2211 }
2212
2213 /* ??_7_Locimp@locale@std@@6B@ */
2214 const vtable_ptr MSVCP_locale__Locimp_vtable[] = {
2215     (vtable_ptr)THISCALL_NAME(MSVCP_locale__Locimp_vector_dtor)
2216 };
2217
2218 /* ??0locale@std@@AAE@PAV_Locimp@01@@Z */
2219 /* ??0locale@std@@AEAA@PEAV_Locimp@01@@Z */
2220 DEFINE_THISCALL_WRAPPER(locale_ctor_locimp, 8)
2221 locale* __thiscall locale_ctor_locimp(locale *this, locale__Locimp *locimp)
2222 {
2223     TRACE("(%p %p)\n", this, locimp);
2224     /* Don't change locimp reference counter */
2225     this->ptr = locimp;
2226     return this;
2227 }
2228
2229 /* ??0locale@std@@QAE@ABV01@0H@Z */
2230 /* ??0locale@std@@QEAA@AEBV01@0H@Z */
2231 DEFINE_THISCALL_WRAPPER(locale_ctor_locale_locale, 16)
2232 locale* __thiscall locale_ctor_locale_locale(locale *this, const locale *loc, const locale *other, category cat)
2233 {
2234     FIXME("(%p %p %p %d) stub\n", this, loc, other, cat);
2235     return NULL;
2236 }
2237
2238 /* ??0locale@std@@QAE@ABV01@@Z */
2239 /* ??0locale@std@@QEAA@AEBV01@@Z */
2240 DEFINE_THISCALL_WRAPPER(locale_copy_ctor, 8)
2241 locale* __thiscall locale_copy_ctor(locale *this, const locale *copy)
2242 {
2243     TRACE("(%p %p)\n", this, copy);
2244     this->ptr = copy->ptr;
2245     locale_facet__Incref(&this->ptr->facet);
2246     return this;
2247 }
2248
2249 /* ??0locale@std@@QAE@ABV01@PBDH@Z */
2250 /* ??0locale@std@@QEAA@AEBV01@PEBDH@Z */
2251 DEFINE_THISCALL_WRAPPER(locale_ctor_locale_cstr, 16)
2252 locale* __thiscall locale_ctor_locale_cstr(locale *this, const locale *loc, const char *locname, category cat)
2253 {
2254     FIXME("(%p %p %s %d) stub\n", this, loc, locname, cat);
2255     return NULL;
2256 }
2257
2258 /* ??0locale@std@@QAE@PBDH@Z */
2259 /* ??0locale@std@@QEAA@PEBDH@Z */
2260 DEFINE_THISCALL_WRAPPER(locale_ctor_cstr, 12)
2261 locale* __thiscall locale_ctor_cstr(locale *this, const char *locname, category cat)
2262 {
2263     FIXME("(%p %s %d) stub\n", this, locname, cat);
2264     return NULL;
2265 }
2266
2267 /* ??0locale@std@@QAE@W4_Uninitialized@1@@Z */
2268 /* ??0locale@std@@QEAA@W4_Uninitialized@1@@Z */
2269 DEFINE_THISCALL_WRAPPER(locale_ctor_uninitialized, 8)
2270 locale* __thiscall locale_ctor_uninitialized(locale *this, int uninitialized)
2271 {
2272     TRACE("(%p)\n", this);
2273     this->ptr = NULL;
2274     return this;
2275 }
2276
2277 /* ??0locale@std@@QAE@XZ */
2278 /* ??0locale@std@@QEAA@XZ */
2279 DEFINE_THISCALL_WRAPPER(locale_ctor, 4)
2280 locale* __thiscall locale_ctor(locale *this)
2281 {
2282     TRACE("(%p)\n", this);
2283     this->ptr = MSVCRT_operator_new(sizeof(locale__Locimp));
2284     if(!this->ptr) {
2285         ERR("Out of memory\n");
2286         throw_exception(EXCEPTION_BAD_ALLOC, NULL);
2287         return NULL;
2288     }
2289
2290     locale__Locimp_ctor(this->ptr);
2291     return this;
2292 }
2293
2294 /* ??1locale@std@@QAE@XZ */
2295 /* ??1locale@std@@QEAA@XZ */
2296 DEFINE_THISCALL_WRAPPER(locale_dtor, 4)
2297 void __thiscall locale_dtor(locale *this)
2298 {
2299     TRACE("(%p)\n", this);
2300     if(this->ptr)
2301         locale__Locimp_dtor(this->ptr);
2302 }
2303
2304 DEFINE_THISCALL_WRAPPER(MSVCP_locale_vector_dtor, 8)
2305 locale* __thiscall MSVCP_locale_vector_dtor(locale *this, unsigned int flags)
2306 {
2307     TRACE("(%p %x)\n", this, flags);
2308     if(flags & 2) {
2309         /* we have an array, with the number of elements stored before the first object */
2310         int i, *ptr = (int *)this-1;
2311
2312         for(i=*ptr-1; i>=0; i--)
2313             locale_dtor(this+i);
2314         MSVCRT_operator_delete(ptr);
2315     } else {
2316         locale_dtor(this);
2317         if(flags & 1)
2318             MSVCRT_operator_delete(this);
2319     }
2320
2321     return this;
2322 }
2323
2324 /* ??4locale@std@@QAEAAV01@ABV01@@Z */
2325 /* ??4locale@std@@QEAAAEAV01@AEBV01@@Z */
2326 DEFINE_THISCALL_WRAPPER(locale_operator_assign, 8)
2327 locale* __thiscall locale_operator_assign(locale *this, const locale *loc)
2328 {
2329     FIXME("(%p %p) stub\n", this, loc);
2330     return NULL;
2331 }
2332
2333 /* ??8locale@std@@QBE_NABV01@@Z */
2334 /* ??8locale@std@@QEBA_NAEBV01@@Z */
2335 DEFINE_THISCALL_WRAPPER(locale_operator_equal, 8)
2336 MSVCP_bool __thiscall locale_operator_equal(const locale *this, const locale *loc)
2337 {
2338     FIXME("(%p %p) stub\n", this, loc);
2339     return 0;
2340 }
2341
2342 /* ??9locale@std@@QBE_NABV01@@Z */
2343 /* ??9locale@std@@QEBA_NAEBV01@@Z */
2344 DEFINE_THISCALL_WRAPPER(locale_operator_not_equal, 8)
2345 MSVCP_bool __thiscall locale_operator_not_equal(const locale *this, locale const *loc)
2346 {
2347     FIXME("(%p %p) stub\n", this, loc);
2348     return 0;
2349 }
2350
2351 /* ?_Addfac@locale@std@@QAEAAV12@PAVfacet@12@II@Z */
2352 /* ?_Addfac@locale@std@@QEAAAEAV12@PEAVfacet@12@_K1@Z */
2353 DEFINE_THISCALL_WRAPPER(locale__Addfac, 16)
2354 locale* __thiscall locale__Addfac(locale *this, locale_facet *facet, MSVCP_size_t id, MSVCP_size_t catmask)
2355 {
2356     TRACE("(%p %p %lu %lu)\n", this, facet, id, catmask);
2357
2358     if(this->ptr->facet.refs > 1) {
2359         locale__Locimp *new_ptr = MSVCRT_operator_new(sizeof(locale__Locimp));
2360         if(!new_ptr) {
2361             ERR("Out of memory\n");
2362             throw_exception(EXCEPTION_BAD_ALLOC, NULL);
2363             return NULL;
2364         }
2365         locale__Locimp_copy_ctor(new_ptr, this->ptr);
2366         locale_facet__Decref(&this->ptr->facet);
2367         this->ptr = new_ptr;
2368     }
2369
2370     locale__Locimp__Addfac(this->ptr, facet, id);
2371
2372     if(catmask) {
2373         MSVCP_basic_string_char_dtor(&this->ptr->name);
2374         MSVCP_basic_string_char_ctor_cstr(&this->ptr->name, "*");
2375     }
2376     return this;
2377 }
2378
2379 /* ?_Getfacet@locale@std@@QBEPBVfacet@12@I@Z */
2380 /* ?_Getfacet@locale@std@@QEBAPEBVfacet@12@_K@Z */
2381 DEFINE_THISCALL_WRAPPER(locale__Getfacet, 8)
2382 const locale_facet* __thiscall locale__Getfacet(const locale *this, MSVCP_size_t id)
2383 {
2384     FIXME("(%p %lu) stub\n", this, id);
2385     return NULL;
2386 }
2387
2388 /* ?_Init@locale@std@@CAPAV_Locimp@12@XZ */
2389 /* ?_Init@locale@std@@CAPEAV_Locimp@12@XZ */
2390 locale__Locimp* __cdecl locale__Init(void)
2391 {
2392     FIXME("stub\n");
2393     return NULL;
2394 }
2395
2396 /* ?_Getgloballocale@locale@std@@CAPAV_Locimp@12@XZ */
2397 /* ?_Getgloballocale@locale@std@@CAPEAV_Locimp@12@XZ */
2398 locale__Locimp* __cdecl locale__Getgloballocale(void)
2399 {
2400     FIXME("stub\n");
2401     return NULL;
2402 }
2403
2404 /* ?_Setgloballocale@locale@std@@CAXPAX@Z */
2405 /* ?_Setgloballocale@locale@std@@CAXPEAX@Z */
2406 void __cdecl locale__Setgloballocale(void *locimp)
2407 {
2408     FIXME("(%p) stub\n", locimp);
2409 }
2410
2411 /* ?classic@locale@std@@SAABV12@XZ */
2412 /* ?classic@locale@std@@SAAEBV12@XZ */
2413 const locale* __cdecl locale_classic(void)
2414 {
2415     FIXME("stub\n");
2416     return NULL;
2417 }
2418
2419 /* ?name@locale@std@@QBE?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@XZ */
2420 /* ?name@locale@std@@QEBA?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@XZ */
2421 DEFINE_THISCALL_WRAPPER_RETPTR(locale_name, 4)
2422 basic_string_char __thiscall locale_name(const locale *this)
2423 {
2424     TRACE( "(%p)\n", this);
2425     return this->ptr->name;
2426 }
2427
2428 static const rtti_base_descriptor locale_facet_rtti_base_descriptor = {
2429     &locale_facet_type_info,
2430     0,
2431     { 0, -1, 0},
2432     64
2433 };
2434
2435 DEFINE_RTTI_DATA(collate_char, 0, 1, &locale_facet_rtti_base_descriptor, NULL, NULL, ".?AV?$collate@D@std@@");
2436 DEFINE_RTTI_DATA(collate_wchar, 0, 1, &locale_facet_rtti_base_descriptor, NULL, NULL, ".?AV?$collate@_W@std@@");
2437 DEFINE_RTTI_DATA(collate_short, 0, 1, &locale_facet_rtti_base_descriptor, NULL, NULL, ".?AV?$collate@G@std@@");
2438 DEFINE_RTTI_DATA(ctype_base, 0, 1, &locale_facet_rtti_base_descriptor, NULL, NULL, ".?AUctype_base@std@@");
2439 DEFINE_RTTI_DATA(ctype_char, 0, 2, &ctype_base_rtti_base_descriptor, &locale_facet_rtti_base_descriptor, NULL, ".?AV?$ctype@D@std@@");
2440 DEFINE_RTTI_DATA(ctype_wchar, 0, 2, &ctype_base_rtti_base_descriptor, &locale_facet_rtti_base_descriptor, NULL, ".?AV?$ctype@_W@std@@");
2441 DEFINE_RTTI_DATA(ctype_short, 0, 2, &ctype_base_rtti_base_descriptor, &locale_facet_rtti_base_descriptor, NULL, ".?AV?$ctype@G@std@@");
2442
2443 #ifndef __GNUC__
2444 void __asm_dummy_vtables(void) {
2445 #endif
2446     __ASM_VTABLE(collate_char,
2447             VTABLE_ADD_FUNC(collate_char_do_compare)
2448             VTABLE_ADD_FUNC(collate_char_do_transform)
2449             VTABLE_ADD_FUNC(collate_char_do_hash));
2450     __ASM_VTABLE(collate_wchar,
2451             VTABLE_ADD_FUNC(collate_wchar_do_compare)
2452             VTABLE_ADD_FUNC(collate_wchar_do_transform)
2453             VTABLE_ADD_FUNC(collate_wchar_do_hash));
2454     __ASM_VTABLE(collate_short,
2455             VTABLE_ADD_FUNC(collate_wchar_do_compare)
2456             VTABLE_ADD_FUNC(collate_wchar_do_transform)
2457             VTABLE_ADD_FUNC(collate_wchar_do_hash));
2458     __ASM_VTABLE(ctype_base, "");
2459     __ASM_VTABLE(ctype_char,
2460             VTABLE_ADD_FUNC(ctype_char_do_tolower)
2461             VTABLE_ADD_FUNC(ctype_char_do_tolower_ch)
2462             VTABLE_ADD_FUNC(ctype_char_do_toupper)
2463             VTABLE_ADD_FUNC(ctype_char_do_toupper_ch)
2464             VTABLE_ADD_FUNC(ctype_char_do_widen)
2465             VTABLE_ADD_FUNC(ctype_char_do_widen_ch)
2466             VTABLE_ADD_FUNC(ctype_char__Do_widen_s)
2467             VTABLE_ADD_FUNC(ctype_char_do_narrow)
2468             VTABLE_ADD_FUNC(ctype_char_do_narrow_ch)
2469             VTABLE_ADD_FUNC(ctype_char__Do_narrow_s));
2470     __ASM_VTABLE(ctype_wchar,
2471             VTABLE_ADD_FUNC(ctype_wchar_do_is)
2472             VTABLE_ADD_FUNC(ctype_wchar_do_is_ch)
2473             VTABLE_ADD_FUNC(ctype_wchar_do_scan_is)
2474             VTABLE_ADD_FUNC(ctype_wchar_do_scan_not)
2475             VTABLE_ADD_FUNC(ctype_wchar_do_tolower)
2476             VTABLE_ADD_FUNC(ctype_wchar_do_tolower_ch)
2477             VTABLE_ADD_FUNC(ctype_wchar_do_toupper)
2478             VTABLE_ADD_FUNC(ctype_wchar_do_toupper_ch)
2479             VTABLE_ADD_FUNC(ctype_wchar_do_widen)
2480             VTABLE_ADD_FUNC(ctype_wchar_do_widen_ch)
2481             VTABLE_ADD_FUNC(ctype_wchar__Do_widen_s)
2482             VTABLE_ADD_FUNC(ctype_wchar_do_narrow)
2483             VTABLE_ADD_FUNC(ctype_wchar_do_narrow_ch)
2484             VTABLE_ADD_FUNC(ctype_wchar__Do_narrow_s));
2485     __ASM_VTABLE(ctype_short,
2486             VTABLE_ADD_FUNC(ctype_wchar_do_is)
2487             VTABLE_ADD_FUNC(ctype_wchar_do_is_ch)
2488             VTABLE_ADD_FUNC(ctype_wchar_do_scan_is)
2489             VTABLE_ADD_FUNC(ctype_wchar_do_scan_not)
2490             VTABLE_ADD_FUNC(ctype_wchar_do_tolower)
2491             VTABLE_ADD_FUNC(ctype_wchar_do_tolower_ch)
2492             VTABLE_ADD_FUNC(ctype_wchar_do_toupper)
2493             VTABLE_ADD_FUNC(ctype_wchar_do_toupper_ch)
2494             VTABLE_ADD_FUNC(ctype_wchar_do_widen)
2495             VTABLE_ADD_FUNC(ctype_wchar_do_widen_ch)
2496             VTABLE_ADD_FUNC(ctype_wchar__Do_widen_s)
2497             VTABLE_ADD_FUNC(ctype_wchar_do_narrow)
2498             VTABLE_ADD_FUNC(ctype_wchar_do_narrow_ch)
2499             VTABLE_ADD_FUNC(ctype_wchar__Do_narrow_s));
2500 #ifndef __GNUC__
2501 }
2502 #endif