1 /* 2 * Copyright (c) 1999 3 * Silicon Graphics Computer Systems, Inc. 4 * 5 * Copyright (c) 1999 6 * Boris Fomitchev 7 * 8 * This material is provided "as is", with absolutely no warranty expressed 9 * or implied. Any use is at your own risk. 10 * 11 * Permission to use or copy this software for any purpose is hereby granted 12 * without fee, provided the above notices are retained on all copies. 13 * Permission to modify the code and to distribute modified code is granted, 14 * provided the above notices are retained, and a notice that the code was 15 * modified is included with the above copyright notice. 16 * 17 */ 18 #include "stlport_prefix.h" 19 20 #include <locale> 21 #include <algorithm> 22 #include <typeinfo> 23 24 #include "c_locale.h" 25 #include "aligned_buffer.h" 26 #include "acquire_release.h" 27 #include "locale_impl.h" 28 29 _STLP_BEGIN_NAMESPACE 30 31 static const string _Nameless("*"); 32 33 static inline bool is_C_locale_name (const char* name) 34 { return ((name[0] == 'C') && (name[1] == 0)); } 35 36 locale::facet * _STLP_CALL _get_facet(locale::facet *f) 37 { 38 if (f != 0) 39 f->_M_incr(); 40 return f; 41 } 42 43 void _STLP_CALL _release_facet(locale::facet *&f) 44 { 45 if ((f != 0) && (f->_M_decr() == 0)) { 46 delete f; 47 f = 0; 48 } 49 } 50 51 size_t locale::id::_S_max = 27; 52 53 static void _Stl_loc_assign_ids(); 54 55 static _Stl_aligned_buffer<_Locale_impl::Init> __Loc_init_buf; 56 57 _Locale_impl::Init::Init() { 58 if (_M_count()._M_incr() == 1) { 59 _Locale_impl::_S_initialize(); 60 } 61 } 62 63 _Locale_impl::Init::~Init() { 64 if (_M_count()._M_decr() == 0) { 65 _Locale_impl::_S_uninitialize(); 66 } 67 } 68 69 _Refcount_Base& _Locale_impl::Init::_M_count() const { 70 static _Refcount_Base _S_count(0); 71 return _S_count; 72 } 73 74 _Locale_impl::_Locale_impl(const char* s) 75 : _Refcount_Base(0), name(s), facets_vec() { 76 facets_vec.reserve( locale::id::_S_max ); 77 new (&__Loc_init_buf) Init(); 78 } 79 80 _Locale_impl::_Locale_impl( _Locale_impl const& locimpl ) 81 : _Refcount_Base(0), name(locimpl.name), facets_vec() { 82 for_each( locimpl.facets_vec.begin(), locimpl.facets_vec.end(), _get_facet); 83 facets_vec = locimpl.facets_vec; 84 new (&__Loc_init_buf) Init(); 85 } 86 87 _Locale_impl::_Locale_impl( size_t n, const char* s) 88 : _Refcount_Base(0), name(s), facets_vec(n, 0) { 89 new (&__Loc_init_buf) Init(); 90 } 91 92 _Locale_impl::~_Locale_impl() { 93 (&__Loc_init_buf)->~Init(); 94 for_each( facets_vec.begin(), facets_vec.end(), _release_facet); 95 } 96 97 // Initialization of the locale system. This must be called before 98 // any locales are constructed. (Meaning that it must be called when 99 // the I/O library itself is initialized.) 100 void _STLP_CALL _Locale_impl::_S_initialize() { 101 _Stl_loc_assign_ids(); 102 make_classic_locale(); 103 } 104 105 // Release of the classic locale ressources. Has to be called after the last 106 // locale destruction and not only after the classic locale destruction as 107 // the facets can be shared between different facets. 108 void _STLP_CALL _Locale_impl::_S_uninitialize() { 109 //Not necessary anymore as classic facets are now 'normal' dynamically allocated 110 //facets with a reference counter telling to _release_facet when the facet can be 111 //deleted. 112 //free_classic_locale(); 113 } 114 115 // _Locale_impl non-inline member functions. 116 void _STLP_CALL _Locale_impl::_M_throw_bad_cast() { 117 _STLP_THROW(bad_cast()); 118 } 119 120 void _Locale_impl::insert(_Locale_impl *from, const locale::id& n) { 121 if (n._M_index > 0 && n._M_index < from->size()) { 122 this->insert(from->facets_vec[n._M_index], n); 123 } 124 } 125 126 locale::facet* _Locale_impl::insert(locale::facet *f, const locale::id& n) { 127 if (f == 0 || n._M_index == 0) 128 return 0; 129 130 if (n._M_index >= facets_vec.size()) { 131 facets_vec.resize(n._M_index + 1); 132 } 133 134 if (f != facets_vec[n._M_index]) 135 { 136 _release_facet(facets_vec[n._M_index]); 137 facets_vec[n._M_index] = _get_facet(f); 138 } 139 140 return f; 141 } 142 143 // 144 // <locale> content which is dependent on the name 145 // 146 147 /* Six functions, one for each category. Each of them takes a 148 * a name, constructs that appropriate category facets by name, 149 * and inserts them into the locale. */ 150 _Locale_name_hint* _Locale_impl::insert_ctype_facets(const char* &name, char *buf, _Locale_name_hint* hint) { 151 if (name[0] == 0) 152 name = _Locale_ctype_default(buf); 153 154 if (name == 0 || name[0] == 0 || is_C_locale_name(name)) { 155 _Locale_impl* i2 = locale::classic()._M_impl; 156 this->insert(i2, ctype<char>::id); 157 this->insert(i2, codecvt<char, char, mbstate_t>::id); 158 #ifndef _STLP_NO_WCHAR_T 159 this->insert(i2, ctype<wchar_t>::id); 160 this->insert(i2, codecvt<wchar_t, char, mbstate_t>::id); 161 #endif 162 } else { 163 locale::facet* ct = 0; 164 locale::facet* cvt = 0; 165 #ifndef _STLP_NO_WCHAR_T 166 locale::facet* wct = 0; 167 locale::facet* wcvt = 0; 168 #endif 169 int __err_code; 170 _Locale_ctype *__lct = _STLP_PRIV __acquire_ctype(name, buf, hint, &__err_code); 171 if (!__lct) { 172 locale::_M_throw_on_creation_failure(__err_code, name, "ctype"); 173 return hint; 174 } 175 176 if (hint == 0) hint = _Locale_get_ctype_hint(__lct); 177 178 _STLP_TRY { 179 ct = new ctype_byname<char>(__lct); 180 } 181 _STLP_UNWIND(_STLP_PRIV __release_ctype(__lct)); 182 183 _STLP_TRY { 184 cvt = new codecvt_byname<char, char, mbstate_t>(name); 185 } 186 _STLP_UNWIND(delete ct); 187 188 #ifndef _STLP_NO_WCHAR_T 189 _STLP_TRY { 190 _Locale_ctype *__lwct = _STLP_PRIV __acquire_ctype(name, buf, hint, &__err_code); 191 if (!__lwct) { 192 locale::_M_throw_on_creation_failure(__err_code, name, "ctype"); 193 return hint; 194 } 195 196 _STLP_TRY { 197 wct = new ctype_byname<wchar_t>(__lwct); 198 } 199 _STLP_UNWIND(_STLP_PRIV __release_ctype(__lwct)); 200 201 _Locale_codecvt *__lwcvt = _STLP_PRIV __acquire_codecvt(name, buf, hint, &__err_code); 202 if (__lwcvt) { 203 _STLP_TRY { 204 wcvt = new codecvt_byname<wchar_t, char, mbstate_t>(__lwcvt); 205 } 206 _STLP_UNWIND(_STLP_PRIV __release_codecvt(__lwcvt); delete wct); 207 } 208 } 209 _STLP_UNWIND(delete cvt; delete ct); 210 #endif 211 212 this->insert(ct, ctype<char>::id); 213 this->insert(cvt, codecvt<char, char, mbstate_t>::id); 214 #ifndef _STLP_NO_WCHAR_T 215 this->insert(wct, ctype<wchar_t>::id); 216 if (wcvt) this->insert(wcvt, codecvt<wchar_t, char, mbstate_t>::id); 217 #endif 218 } 219 return hint; 220 } 221 222 _Locale_name_hint* _Locale_impl::insert_numeric_facets(const char* &name, char *buf, _Locale_name_hint* hint) { 223 if (name[0] == 0) 224 name = _Locale_numeric_default(buf); 225 226 _Locale_impl* i2 = locale::classic()._M_impl; 227 228 // We first insert name independant facets taken from the classic locale instance: 229 this->insert(i2, 230 num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id); 231 this->insert(i2, 232 num_get<char, istreambuf_iterator<char, char_traits<char> > >::id); 233 #ifndef _STLP_NO_WCHAR_T 234 this->insert(i2, 235 num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); 236 this->insert(i2, 237 num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); 238 #endif 239 240 if (name == 0 || name[0] == 0 || is_C_locale_name(name)) { 241 this->insert(i2, numpunct<char>::id); 242 #ifndef _STLP_NO_WCHAR_T 243 this->insert(i2, numpunct<wchar_t>::id); 244 #endif 245 } 246 else { 247 locale::facet* punct = 0; 248 #ifndef _STLP_NO_WCHAR_T 249 locale::facet* wpunct = 0; 250 #endif 251 252 int __err_code; 253 _Locale_numeric *__lpunct = _STLP_PRIV __acquire_numeric(name, buf, hint, &__err_code); 254 if (!__lpunct) { 255 locale::_M_throw_on_creation_failure(__err_code, name, "numpunct"); 256 return hint; 257 } 258 259 if (hint == 0) hint = _Locale_get_numeric_hint(__lpunct); 260 _STLP_TRY { 261 punct = new numpunct_byname<char>(__lpunct); 262 } 263 _STLP_UNWIND(_STLP_PRIV __release_numeric(__lpunct)); 264 265 #ifndef _STLP_NO_WCHAR_T 266 _Locale_numeric *__lwpunct = _STLP_PRIV __acquire_numeric(name, buf, hint, &__err_code); 267 if (!__lwpunct) { 268 delete punct; 269 locale::_M_throw_on_creation_failure(__err_code, name, "numpunct"); 270 return hint; 271 } 272 if (__lwpunct) { 273 _STLP_TRY { 274 wpunct = new numpunct_byname<wchar_t>(__lwpunct); 275 } 276 _STLP_UNWIND(_STLP_PRIV __release_numeric(__lwpunct); delete punct); 277 } 278 #endif 279 280 this->insert(punct, numpunct<char>::id); 281 #ifndef _STLP_NO_WCHAR_T 282 this->insert(wpunct, numpunct<wchar_t>::id); 283 #endif 284 } 285 return hint; 286 } 287 288 _Locale_name_hint* _Locale_impl::insert_time_facets(const char* &name, char *buf, _Locale_name_hint* hint) { 289 if (name[0] == 0) 290 name = _Locale_time_default(buf); 291 292 if (name == 0 || name[0] == 0 || is_C_locale_name(name)) { 293 _Locale_impl* i2 = locale::classic()._M_impl; 294 this->insert(i2, 295 time_get<char, istreambuf_iterator<char, char_traits<char> > >::id); 296 this->insert(i2, 297 time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id); 298 #ifndef _STLP_NO_WCHAR_T 299 this->insert(i2, 300 time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); 301 this->insert(i2, 302 time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); 303 #endif 304 } else { 305 locale::facet *get = 0; 306 locale::facet *put = 0; 307 #ifndef _STLP_NO_WCHAR_T 308 locale::facet *wget = 0; 309 locale::facet *wput = 0; 310 #endif 311 312 int __err_code; 313 _Locale_time *__time = _STLP_PRIV __acquire_time(name, buf, hint, &__err_code); 314 if (!__time) { 315 // time facets category is not mandatory for correct stream behavior so if platform 316 // do not support it we do not generate a runtime_error exception. 317 if (__err_code == _STLP_LOC_NO_MEMORY) { 318 _STLP_THROW_BAD_ALLOC; 319 } 320 return hint; 321 } 322 323 if (!hint) hint = _Locale_get_time_hint(__time); 324 _STLP_TRY { 325 get = new time_get_byname<char, istreambuf_iterator<char, char_traits<char> > >(__time); 326 put = new time_put_byname<char, ostreambuf_iterator<char, char_traits<char> > >(__time); 327 #ifndef _STLP_NO_WCHAR_T 328 wget = new time_get_byname<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >(__time); 329 wput = new time_put_byname<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >(__time); 330 #endif 331 } 332 #ifndef _STLP_NO_WCHAR_T 333 _STLP_UNWIND(delete wget; delete put; delete get; _STLP_PRIV __release_time(__time)); 334 #else 335 _STLP_UNWIND(delete get; _STLP_PRIV __release_time(__time)); 336 #endif 337 338 _STLP_PRIV __release_time(__time); 339 340 this->insert(get, time_get<char, istreambuf_iterator<char, char_traits<char> > >::id); 341 this->insert(put, time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id); 342 #ifndef _STLP_NO_WCHAR_T 343 this->insert(wget, time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); 344 this->insert(wput, time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); 345 #endif 346 } 347 return hint; 348 } 349 350 _Locale_name_hint* _Locale_impl::insert_collate_facets(const char* &name, char *buf, _Locale_name_hint* hint) { 351 if (name[0] == 0) 352 name = _Locale_collate_default(buf); 353 354 if (name == 0 || name[0] == 0 || is_C_locale_name(name)) { 355 _Locale_impl* i2 = locale::classic()._M_impl; 356 this->insert(i2, collate<char>::id); 357 #ifndef _STLP_NO_WCHAR_T 358 this->insert(i2, collate<wchar_t>::id); 359 #endif 360 } 361 else { 362 locale::facet *col = 0; 363 #ifndef _STLP_NO_WCHAR_T 364 locale::facet *wcol = 0; 365 #endif 366 367 int __err_code; 368 _Locale_collate *__coll = _STLP_PRIV __acquire_collate(name, buf, hint, &__err_code); 369 if (!__coll) { 370 if (__err_code == _STLP_LOC_NO_MEMORY) { 371 _STLP_THROW_BAD_ALLOC; 372 } 373 return hint; 374 } 375 376 if (hint == 0) hint = _Locale_get_collate_hint(__coll); 377 _STLP_TRY { 378 col = new collate_byname<char>(__coll); 379 } 380 _STLP_UNWIND(_STLP_PRIV __release_collate(__coll)); 381 382 #ifndef _STLP_NO_WCHAR_T 383 _Locale_collate *__wcoll = _STLP_PRIV __acquire_collate(name, buf, hint, &__err_code); 384 if (!__wcoll) { 385 if (__err_code == _STLP_LOC_NO_MEMORY) { 386 delete col; 387 _STLP_THROW_BAD_ALLOC; 388 } 389 } 390 if (__wcoll) { 391 _STLP_TRY { 392 wcol = new collate_byname<wchar_t>(__wcoll); 393 } 394 _STLP_UNWIND(_STLP_PRIV __release_collate(__wcoll); delete col); 395 } 396 #endif 397 398 this->insert(col, collate<char>::id); 399 #ifndef _STLP_NO_WCHAR_T 400 if (wcol) this->insert(wcol, collate<wchar_t>::id); 401 #endif 402 } 403 return hint; 404 } 405 406 _Locale_name_hint* _Locale_impl::insert_monetary_facets(const char* &name, char *buf, _Locale_name_hint* hint) { 407 if (name[0] == 0) 408 name = _Locale_monetary_default(buf); 409 410 _Locale_impl* i2 = locale::classic()._M_impl; 411 412 // We first insert name independant facets taken from the classic locale instance: 413 this->insert(i2, money_get<char, istreambuf_iterator<char, char_traits<char> > >::id); 414 this->insert(i2, money_put<char, ostreambuf_iterator<char, char_traits<char> > >::id); 415 #ifndef _STLP_NO_WCHAR_T 416 this->insert(i2, money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); 417 this->insert(i2, money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); 418 #endif 419 420 if (name == 0 || name[0] == 0 || is_C_locale_name(name)) { 421 this->insert(i2, moneypunct<char, false>::id); 422 this->insert(i2, moneypunct<char, true>::id); 423 #ifndef _STLP_NO_WCHAR_T 424 this->insert(i2, moneypunct<wchar_t, false>::id); 425 this->insert(i2, moneypunct<wchar_t, true>::id); 426 #endif 427 } 428 else { 429 locale::facet *punct = 0; 430 locale::facet *ipunct = 0; 431 432 #ifndef _STLP_NO_WCHAR_T 433 locale::facet* wpunct = 0; 434 locale::facet* wipunct = 0; 435 #endif 436 437 int __err_code; 438 _Locale_monetary *__mon = _STLP_PRIV __acquire_monetary(name, buf, hint, &__err_code); 439 if (!__mon) { 440 if (__err_code == _STLP_LOC_NO_MEMORY) { 441 _STLP_THROW_BAD_ALLOC; 442 } 443 return hint; 444 } 445 446 if (hint == 0) hint = _Locale_get_monetary_hint(__mon); 447 448 _STLP_TRY { 449 punct = new moneypunct_byname<char, false>(__mon); 450 } 451 _STLP_UNWIND(_STLP_PRIV __release_monetary(__mon)); 452 453 _Locale_monetary *__imon = _STLP_PRIV __acquire_monetary(name, buf, hint, &__err_code); 454 if (!__imon) { 455 delete punct; 456 if (__err_code == _STLP_LOC_NO_MEMORY) { 457 _STLP_THROW_BAD_ALLOC; 458 } 459 return hint; 460 } 461 462 _STLP_TRY { 463 ipunct = new moneypunct_byname<char, true>(__imon); 464 } 465 _STLP_UNWIND(_STLP_PRIV __release_monetary(__imon); delete punct); 466 467 #ifndef _STLP_NO_WCHAR_T 468 _STLP_TRY { 469 _Locale_monetary *__wmon = _STLP_PRIV __acquire_monetary(name, buf, hint, &__err_code); 470 if (!__wmon) { 471 if (__err_code == _STLP_LOC_NO_MEMORY) { 472 _STLP_THROW_BAD_ALLOC; 473 } 474 } 475 476 if (__wmon) { 477 _STLP_TRY { 478 wpunct = new moneypunct_byname<wchar_t, false>(__wmon); 479 } 480 _STLP_UNWIND(_STLP_PRIV __release_monetary(__wmon)); 481 482 _Locale_monetary *__wimon = _STLP_PRIV __acquire_monetary(name, buf, hint, &__err_code); 483 if (!__wimon) { 484 delete wpunct; 485 if (__err_code == _STLP_LOC_NO_MEMORY) { 486 _STLP_THROW_BAD_ALLOC; 487 } 488 wpunct = 0; 489 } 490 else { 491 _STLP_TRY { 492 wipunct = new moneypunct_byname<wchar_t, true>(__wimon); 493 } 494 _STLP_UNWIND(_STLP_PRIV __release_monetary(__wimon); delete wpunct); 495 } 496 } 497 } 498 _STLP_UNWIND(delete ipunct; delete punct); 499 #endif 500 501 this->insert(punct, moneypunct<char, false>::id); 502 this->insert(ipunct, moneypunct<char, true>::id); 503 #ifndef _STLP_NO_WCHAR_T 504 if (wpunct) this->insert(wpunct, moneypunct<wchar_t, false>::id); 505 if (wipunct) this->insert(wipunct, moneypunct<wchar_t, true>::id); 506 #endif 507 } 508 return hint; 509 } 510 511 _Locale_name_hint* _Locale_impl::insert_messages_facets(const char* &name, char *buf, _Locale_name_hint* hint) { 512 if (name[0] == 0) 513 name = _Locale_messages_default(buf); 514 515 if (name == 0 || name[0] == 0 || is_C_locale_name(name)) { 516 _Locale_impl* i2 = locale::classic()._M_impl; 517 this->insert(i2, messages<char>::id); 518 #ifndef _STLP_NO_WCHAR_T 519 this->insert(i2, messages<wchar_t>::id); 520 #endif 521 } 522 else { 523 locale::facet *msg = 0; 524 #ifndef _STLP_NO_WCHAR_T 525 locale::facet *wmsg = 0; 526 #endif 527 528 int __err_code; 529 _Locale_messages *__msg = _STLP_PRIV __acquire_messages(name, buf, hint, &__err_code); 530 if (!__msg) { 531 if (__err_code == _STLP_LOC_NO_MEMORY) { 532 _STLP_THROW_BAD_ALLOC; 533 } 534 return hint; 535 } 536 537 _STLP_TRY { 538 msg = new messages_byname<char>(__msg); 539 } 540 _STLP_UNWIND(_STLP_PRIV __release_messages(__msg)); 541 542 #ifndef _STLP_NO_WCHAR_T 543 _STLP_TRY { 544 _Locale_messages *__wmsg = _STLP_PRIV __acquire_messages(name, buf, hint, &__err_code); 545 if (!__wmsg) { 546 if (__err_code == _STLP_LOC_NO_MEMORY) { 547 _STLP_THROW_BAD_ALLOC; 548 } 549 } 550 551 if (__wmsg) { 552 _STLP_TRY { 553 wmsg = new messages_byname<wchar_t>(__wmsg); 554 } 555 _STLP_UNWIND(_STLP_PRIV __release_messages(__wmsg)); 556 } 557 } 558 _STLP_UNWIND(delete msg); 559 #endif 560 561 this->insert(msg, messages<char>::id); 562 #ifndef _STLP_NO_WCHAR_T 563 if (wmsg) this->insert(wmsg, messages<wchar_t>::id); 564 #endif 565 } 566 return hint; 567 } 568 569 static void _Stl_loc_assign_ids() { 570 // This assigns ids to every facet that is a member of a category, 571 // and also to money_get/put, num_get/put, and time_get/put 572 // instantiated using ordinary pointers as the input/output 573 // iterators. (The default is [io]streambuf_iterator.) 574 575 money_get<char, istreambuf_iterator<char, char_traits<char> > >::id._M_index = 8; 576 money_put<char, ostreambuf_iterator<char, char_traits<char> > >::id._M_index = 9; 577 num_get<char, istreambuf_iterator<char, char_traits<char> > >::id._M_index = 10; 578 num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id._M_index = 11; 579 time_get<char, istreambuf_iterator<char, char_traits<char> > >::id._M_index = 12; 580 time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id._M_index = 13; 581 582 #ifndef _STLP_NO_WCHAR_T 583 money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id._M_index = 21; 584 money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id._M_index = 22; 585 num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id._M_index = 23; 586 num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > ::id._M_index = 24; 587 time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id._M_index = 25; 588 time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id._M_index = 26; 589 #endif 590 // locale::id::_S_max = 27; 591 } 592 593 // To access those static instance use the getter below, they guaranty 594 // a correct initialization. 595 static locale *_Stl_classic_locale = 0; 596 static locale *_Stl_global_locale = 0; 597 598 locale* _Stl_get_classic_locale() { 599 static _Locale_impl::Init init; 600 return _Stl_classic_locale; 601 } 602 603 locale* _Stl_get_global_locale() { 604 static _Locale_impl::Init init; 605 return _Stl_global_locale; 606 } 607 608 #if defined (_STLP_MSVC) || defined (__ICL) || defined (__ISCPP__) || defined (__DMC__) 609 /* 610 * The following static variable needs to be initialized before STLport 611 * users static variable in order for him to be able to use Standard 612 * streams in its variable initialization. 613 * This variable is here because MSVC do not allow to change the initialization 614 * segment in a given translation unit, iostream.cpp already contains an 615 * initialization segment specification. 616 */ 617 # pragma warning (disable : 4073) 618 # pragma init_seg(lib) 619 #endif 620 621 static ios_base::Init _IosInit; 622 623 void _Locale_impl::make_classic_locale() { 624 // This funcion will be called once: during build classic _Locale_impl 625 626 // The classic locale contains every facet that belongs to a category. 627 static _Stl_aligned_buffer<_Locale_impl> _Locale_classic_impl_buf; 628 _Locale_impl *classic = new(&_Locale_classic_impl_buf) _Locale_impl("C"); 629 630 locale::facet* classic_facets[] = { 631 0, 632 new collate<char>(1), 633 new ctype<char>(0, false, 1), 634 new codecvt<char, char, mbstate_t>(1), 635 new moneypunct<char, true>(1), 636 new moneypunct<char, false>(1), 637 new numpunct<char>(1), 638 new messages<char>(1), 639 new money_get<char, istreambuf_iterator<char, char_traits<char> > >(1), 640 new money_put<char, ostreambuf_iterator<char, char_traits<char> > >(1), 641 new num_get<char, istreambuf_iterator<char, char_traits<char> > >(1), 642 new num_put<char, ostreambuf_iterator<char, char_traits<char> > >(1), 643 new time_get<char, istreambuf_iterator<char, char_traits<char> > >(1), 644 new time_put<char, ostreambuf_iterator<char, char_traits<char> > >(1), 645 #ifndef _STLP_NO_WCHAR_T 646 new collate<wchar_t>(1), 647 new ctype<wchar_t>(1), 648 new codecvt<wchar_t, char, mbstate_t>(1), 649 new moneypunct<wchar_t, true>(1), 650 new moneypunct<wchar_t, false>(1), 651 new numpunct<wchar_t>(1), 652 new messages<wchar_t>(1), 653 new money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1), 654 new money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1), 655 new num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1), 656 new num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1), 657 new time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1), 658 new time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1), 659 #endif 660 0 661 }; 662 663 const size_t nb_classic_facets = sizeof(classic_facets) / sizeof(locale::facet *); 664 classic->facets_vec.reserve(nb_classic_facets); 665 classic->facets_vec.assign(&classic_facets[0], &classic_facets[0] + nb_classic_facets); 666 667 static locale _Locale_classic(classic); 668 _Stl_classic_locale = &_Locale_classic; 669 670 static locale _Locale_global(classic); 671 _Stl_global_locale = &_Locale_global; 672 } 673 674 // Declarations of (non-template) facets' static data members 675 // size_t locale::id::_S_max = 27; // made before 676 677 locale::id collate<char>::id = { 1 }; 678 locale::id ctype<char>::id = { 2 }; 679 locale::id codecvt<char, char, mbstate_t>::id = { 3 }; 680 locale::id moneypunct<char, true>::id = { 4 }; 681 locale::id moneypunct<char, false>::id = { 5 }; 682 locale::id numpunct<char>::id = { 6 } ; 683 locale::id messages<char>::id = { 7 }; 684 685 #ifndef _STLP_NO_WCHAR_T 686 locale::id collate<wchar_t>::id = { 14 }; 687 locale::id ctype<wchar_t>::id = { 15 }; 688 locale::id codecvt<wchar_t, char, mbstate_t>::id = { 16 }; 689 locale::id moneypunct<wchar_t, true>::id = { 17 } ; 690 locale::id moneypunct<wchar_t, false>::id = { 18 } ; 691 locale::id numpunct<wchar_t>::id = { 19 }; 692 locale::id messages<wchar_t>::id = { 20 }; 693 #endif 694 695 _STLP_DECLSPEC _Locale_impl* _STLP_CALL _get_Locale_impl(_Locale_impl *loc) 696 { 697 _STLP_ASSERT( loc != 0 ); 698 loc->_M_incr(); 699 return loc; 700 } 701 702 void _STLP_CALL _release_Locale_impl(_Locale_impl *& loc) 703 { 704 _STLP_ASSERT( loc != 0 ); 705 if (loc->_M_decr() == 0) { 706 if (*loc != *_Stl_classic_locale) 707 delete loc; 708 else 709 loc->~_Locale_impl(); 710 loc = 0; 711 } 712 } 713 714 _STLP_DECLSPEC _Locale_impl* _STLP_CALL _copy_Nameless_Locale_impl(_Locale_impl *loc) 715 { 716 _STLP_ASSERT( loc != 0 ); 717 _Locale_impl *loc_new = new _Locale_impl(*loc); 718 loc_new->name = _Nameless; 719 return loc_new; 720 } 721 722 /* _GetFacetId implementation have to be here in order to be in the same translation unit 723 * as where id are initialize (in _Stl_loc_assign_ids) */ 724 _STLP_MOVE_TO_PRIV_NAMESPACE 725 726 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const money_get<char, istreambuf_iterator<char, char_traits<char> > >*) 727 { return money_get<char, istreambuf_iterator<char, char_traits<char> > >::id; } 728 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const money_put<char, ostreambuf_iterator<char, char_traits<char> > >*) 729 { return money_put<char, ostreambuf_iterator<char, char_traits<char> > >::id; } 730 #ifndef _STLP_NO_WCHAR_T 731 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >*) 732 { return money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id; } 733 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >*) 734 { return money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id; } 735 #endif 736 737 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const num_get<char, istreambuf_iterator<char, char_traits<char> > >*) 738 { return num_get<char, istreambuf_iterator<char, char_traits<char> > >::id; } 739 #ifndef _STLP_NO_WCHAR_T 740 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >*) 741 { return num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id; } 742 #endif 743 744 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const num_put<char, ostreambuf_iterator<char, char_traits<char> > >*) 745 { return num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id; } 746 #ifndef _STLP_NO_WCHAR_T 747 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >*) 748 { return num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id; } 749 #endif 750 751 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const time_get<char, istreambuf_iterator<char, char_traits<char> > >*) 752 { return time_get<char, istreambuf_iterator<char, char_traits<char> > >::id; } 753 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const time_put<char, ostreambuf_iterator<char, char_traits<char> > >*) 754 { return time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id; } 755 #ifndef _STLP_NO_WCHAR_T 756 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >*) 757 { return time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id; } 758 _STLP_DECLSPEC locale::id& _STLP_CALL _GetFacetId(const time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >*) 759 { return time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id; } 760 #endif 761 762 _STLP_MOVE_TO_STD_NAMESPACE 763 764 _STLP_END_NAMESPACE 765 766
