1 // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 2 // Free Software Foundation, Inc. 3 // 4 // This file is part of the GNU ISO C++ Library. This library is free 5 // software; you can redistribute it and/or modify it under the 6 // terms of the GNU General Public License as published by the 7 // Free Software Foundation; either version 2, or (at your option) 8 // any later version. 9 10 // This library is distributed in the hope that it will be useful, 11 // but WITHOUT ANY WARRANTY; without even the implied warranty of 12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 // GNU General Public License for more details. 14 15 // You should have received a copy of the GNU General Public License along 16 // with this library; see the file COPYING. If not, write to the Free 17 // Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, 18 // USA. 19 20 // As a special exception, you may use this file as part of a free software 21 // library without restriction. Specifically, if other files instantiate 22 // templates or use macros or inline functions from this file, or you compile 23 // this file and link it with other files to produce an executable, this 24 // file does not by itself cause the resulting executable to be covered by 25 // the GNU General Public License. This exception does not however 26 // invalidate any other reasons why the executable file might be covered by 27 // the GNU General Public License. 28 29 #include <clocale> 30 #include <cstring> 31 #include <cstdlib> // For getenv, free. 32 #include <cctype> 33 #include <cwctype> // For towupper, etc. 34 #include <locale> 35 #include <ext/concurrence.h> 36 37 namespace 38 { 39 __gnu_cxx::__mutex& 40 get_locale_mutex() 41 { 42 static __gnu_cxx::__mutex locale_mutex; 43 return locale_mutex; 44 } 45 46 using namespace std; 47 48 typedef char fake_locale_Impl[sizeof(locale::_Impl)] 49 __attribute__ ((aligned(__alignof__(locale::_Impl)))); 50 fake_locale_Impl c_locale_impl; 51 52 typedef char fake_locale[sizeof(locale)] 53 __attribute__ ((aligned(__alignof__(locale)))); 54 fake_locale c_locale; 55 56 typedef char fake_name_vec[sizeof(char*)] 57 __attribute__ ((aligned(__alignof__(char*)))); 58 fake_name_vec name_vec[6 + _GLIBCXX_NUM_CATEGORIES]; 59 60 typedef char fake_names[sizeof(char[2])] 61 __attribute__ ((aligned(__alignof__(char[2])))); 62 fake_names name_c[6 + _GLIBCXX_NUM_CATEGORIES]; 63 64 typedef char fake_facet_vec[sizeof(locale::facet*)] 65 __attribute__ ((aligned(__alignof__(locale::facet*)))); 66 fake_facet_vec facet_vec[_GLIBCXX_NUM_FACETS]; 67 68 typedef char fake_cache_vec[sizeof(locale::facet*)] 69 __attribute__ ((aligned(__alignof__(locale::facet*)))); 70 fake_cache_vec cache_vec[_GLIBCXX_NUM_FACETS]; 71 72 typedef char fake_ctype_c[sizeof(std::ctype<char>)] 73 __attribute__ ((aligned(__alignof__(std::ctype<char>)))); 74 fake_ctype_c ctype_c; 75 76 typedef char fake_collate_c[sizeof(std::collate<char>)] 77 __attribute__ ((aligned(__alignof__(std::collate<char>)))); 78 fake_collate_c collate_c; 79 80 typedef char fake_numpunct_c[sizeof(numpunct<char>)] 81 __attribute__ ((aligned(__alignof__(numpunct<char>)))); 82 fake_numpunct_c numpunct_c; 83 84 typedef char fake_num_get_c[sizeof(num_get<char>)] 85 __attribute__ ((aligned(__alignof__(num_get<char>)))); 86 fake_num_get_c num_get_c; 87 88 typedef char fake_num_put_c[sizeof(num_put<char>)] 89 __attribute__ ((aligned(__alignof__(num_put<char>)))); 90 fake_num_put_c num_put_c; 91 92 typedef char fake_codecvt_c[sizeof(codecvt<char, char, mbstate_t>)] 93 __attribute__ ((aligned(__alignof__(codecvt<char, char, mbstate_t>)))); 94 fake_codecvt_c codecvt_c; 95 96 typedef char fake_moneypunct_c[sizeof(moneypunct<char, true>)] 97 __attribute__ ((aligned(__alignof__(moneypunct<char, true>)))); 98 fake_moneypunct_c moneypunct_ct; 99 fake_moneypunct_c moneypunct_cf; 100 101 typedef char fake_money_get_c[sizeof(money_get<char>)] 102 __attribute__ ((aligned(__alignof__(money_get<char>)))); 103 fake_money_get_c money_get_c; 104 105 typedef char fake_money_put_c[sizeof(money_put<char>)] 106 __attribute__ ((aligned(__alignof__(money_put<char>)))); 107 fake_money_put_c money_put_c; 108 109 typedef char fake_timepunct_c[sizeof(__timepunct<char>)] 110 __attribute__ ((aligned(__alignof__(__timepunct<char>)))); 111 fake_timepunct_c timepunct_c; 112 113 typedef char fake_time_get_c[sizeof(time_get<char>)] 114 __attribute__ ((aligned(__alignof__(time_get<char>)))); 115 fake_time_get_c time_get_c; 116 117 typedef char fake_time_put_c[sizeof(time_put<char>)] 118 __attribute__ ((aligned(__alignof__(time_put<char>)))); 119 fake_time_put_c time_put_c; 120 121 typedef char fake_messages_c[sizeof(messages<char>)] 122 __attribute__ ((aligned(__alignof__(messages<char>)))); 123 fake_messages_c messages_c; 124 125 #ifdef _GLIBCXX_USE_WCHAR_T 126 typedef char fake_wtype_w[sizeof(std::ctype<wchar_t>)] 127 __attribute__ ((aligned(__alignof__(std::ctype<wchar_t>)))); 128 fake_wtype_w ctype_w; 129 130 typedef char fake_wollate_w[sizeof(std::collate<wchar_t>)] 131 __attribute__ ((aligned(__alignof__(std::collate<wchar_t>)))); 132 fake_wollate_w collate_w; 133 134 typedef char fake_numpunct_w[sizeof(numpunct<wchar_t>)] 135 __attribute__ ((aligned(__alignof__(numpunct<wchar_t>)))); 136 fake_numpunct_w numpunct_w; 137 138 typedef char fake_num_get_w[sizeof(num_get<wchar_t>)] 139 __attribute__ ((aligned(__alignof__(num_get<wchar_t>)))); 140 fake_num_get_w num_get_w; 141 142 typedef char fake_num_put_w[sizeof(num_put<wchar_t>)] 143 __attribute__ ((aligned(__alignof__(num_put<wchar_t>)))); 144 fake_num_put_w num_put_w; 145 146 typedef char fake_wodecvt_w[sizeof(codecvt<wchar_t, char, mbstate_t>)] 147 __attribute__ ((aligned(__alignof__(codecvt<wchar_t, char, mbstate_t>)))); 148 fake_wodecvt_w codecvt_w; 149 150 typedef char fake_moneypunct_w[sizeof(moneypunct<wchar_t, true>)] 151 __attribute__ ((aligned(__alignof__(moneypunct<wchar_t, true>)))); 152 fake_moneypunct_w moneypunct_wt; 153 fake_moneypunct_w moneypunct_wf; 154 155 typedef char fake_money_get_w[sizeof(money_get<wchar_t>)] 156 __attribute__ ((aligned(__alignof__(money_get<wchar_t>)))); 157 fake_money_get_w money_get_w; 158 159 typedef char fake_money_put_w[sizeof(money_put<wchar_t>)] 160 __attribute__ ((aligned(__alignof__(money_put<wchar_t>)))); 161 fake_money_put_w money_put_w; 162 163 typedef char fake_timepunct_w[sizeof(__timepunct<wchar_t>)] 164 __attribute__ ((aligned(__alignof__(__timepunct<wchar_t>)))); 165 fake_timepunct_w timepunct_w; 166 167 typedef char fake_time_get_w[sizeof(time_get<wchar_t>)] 168 __attribute__ ((aligned(__alignof__(time_get<wchar_t>)))); 169 fake_time_get_w time_get_w; 170 171 typedef char fake_time_put_w[sizeof(time_put<wchar_t>)] 172 __attribute__ ((aligned(__alignof__(time_put<wchar_t>)))); 173 fake_time_put_w time_put_w; 174 175 typedef char fake_messages_w[sizeof(messages<wchar_t>)] 176 __attribute__ ((aligned(__alignof__(messages<wchar_t>)))); 177 fake_messages_w messages_w; 178 #endif 179 180 // Storage for "C" locale caches. 181 typedef char fake_num_cache_c[sizeof(std::__numpunct_cache<char>)] 182 __attribute__ ((aligned(__alignof__(std::__numpunct_cache<char>)))); 183 fake_num_cache_c numpunct_cache_c; 184 185 typedef char fake_money_cache_c[sizeof(std::__moneypunct_cache<char, true>)] 186 __attribute__ ((aligned(__alignof__(std::__moneypunct_cache<char, true>)))); 187 fake_money_cache_c moneypunct_cache_ct; 188 fake_money_cache_c moneypunct_cache_cf; 189 190 typedef char fake_time_cache_c[sizeof(std::__timepunct_cache<char>)] 191 __attribute__ ((aligned(__alignof__(std::__timepunct_cache<char>)))); 192 fake_time_cache_c timepunct_cache_c; 193 194 #ifdef _GLIBCXX_USE_WCHAR_T 195 typedef char fake_num_cache_w[sizeof(std::__numpunct_cache<wchar_t>)] 196 __attribute__ ((aligned(__alignof__(std::__numpunct_cache<wchar_t>)))); 197 fake_num_cache_w numpunct_cache_w; 198 199 typedef char fake_money_cache_w[sizeof(std::__moneypunct_cache<wchar_t,true>)] 200 __attribute__ ((aligned(__alignof__(std::__moneypunct_cache<wchar_t,true>)))); 201 fake_money_cache_w moneypunct_cache_wt; 202 fake_money_cache_w moneypunct_cache_wf; 203 204 typedef char fake_time_cache_w[sizeof(std::__timepunct_cache<wchar_t>)] 205 __attribute__ ((aligned(__alignof__(std::__timepunct_cache<wchar_t>)))); 206 fake_time_cache_w timepunct_cache_w; 207 #endif 208 } // anonymous namespace 209 210 _GLIBCXX_BEGIN_NAMESPACE(std) 211 212 locale::locale() throw() : _M_impl(0) 213 { 214 _S_initialize(); 215 __gnu_cxx::__scoped_lock sentry(get_locale_mutex()); 216 _S_global->_M_add_reference(); 217 _M_impl = _S_global; 218 } 219 220 locale 221 locale::global(const locale& __other) 222 { 223 _S_initialize(); 224 _Impl* __old; 225 { 226 __gnu_cxx::__scoped_lock sentry(get_locale_mutex()); 227 __old = _S_global; 228 __other._M_impl->_M_add_reference(); 229 _S_global = __other._M_impl; 230 const string __other_name = __other.name(); 231 if (__other_name != "*") 232 setlocale(LC_ALL, __other_name.c_str()); 233 } 234 235 // Reference count sanity check: one reference removed for the 236 // subsition of __other locale, one added by return-by-value. Net 237 // difference: zero. When the returned locale object's destrutor 238 // is called, then the reference count is decremented and possibly 239 // destroyed. 240 return locale(__old); 241 } 242 243 const locale& 244 locale::classic() 245 { 246 _S_initialize(); 247 return reinterpret_cast<const locale&>(c_locale); 248 } 249 250 void 251 locale::_S_initialize_once() 252 { 253 // 2 references. 254 // One reference for _S_classic, one for _S_global 255 _S_classic = new (&c_locale_impl) _Impl(2); 256 _S_global = _S_classic; 257 new (&c_locale) locale(_S_classic); 258 } 259 260 void 261 locale::_S_initialize() 262 { 263 #ifdef __GTHREADS 264 if (__gthread_active_p()) 265 __gthread_once(&_S_once, _S_initialize_once); 266 #endif 267 if (!_S_classic) 268 _S_initialize_once(); 269 } 270 271 // Definitions for static const data members of locale::_Impl 272 const locale::id* const 273 locale::_Impl::_S_id_ctype[] = 274 { 275 &std::ctype<char>::id, 276 &codecvt<char, char, mbstate_t>::id, 277 #ifdef _GLIBCXX_USE_WCHAR_T 278 &std::ctype<wchar_t>::id, 279 &codecvt<wchar_t, char, mbstate_t>::id, 280 #endif 281 0 282 }; 283 284 const locale::id* const 285 locale::_Impl::_S_id_numeric[] = 286 { 287 &num_get<char>::id, 288 &num_put<char>::id, 289 &numpunct<char>::id, 290 #ifdef _GLIBCXX_USE_WCHAR_T 291 &num_get<wchar_t>::id, 292 &num_put<wchar_t>::id, 293 &numpunct<wchar_t>::id, 294 #endif 295 0 296 }; 297 298 const locale::id* const 299 locale::_Impl::_S_id_collate[] = 300 { 301 &std::collate<char>::id, 302 #ifdef _GLIBCXX_USE_WCHAR_T 303 &std::collate<wchar_t>::id, 304 #endif 305 0 306 }; 307 308 const locale::id* const 309 locale::_Impl::_S_id_time[] = 310 { 311 &__timepunct<char>::id, 312 &time_get<char>::id, 313 &time_put<char>::id, 314 #ifdef _GLIBCXX_USE_WCHAR_T 315 &__timepunct<wchar_t>::id, 316 &time_get<wchar_t>::id, 317 &time_put<wchar_t>::id, 318 #endif 319 0 320 }; 321 322 const locale::id* const 323 locale::_Impl::_S_id_monetary[] = 324 { 325 &money_get<char>::id, 326 &money_put<char>::id, 327 &moneypunct<char, false>::id, 328 &moneypunct<char, true >::id, 329 #ifdef _GLIBCXX_USE_WCHAR_T 330 &money_get<wchar_t>::id, 331 &money_put<wchar_t>::id, 332 &moneypunct<wchar_t, false>::id, 333 &moneypunct<wchar_t, true >::id, 334 #endif 335 0 336 }; 337 338 const locale::id* const 339 locale::_Impl::_S_id_messages[] = 340 { 341 &std::messages<char>::id, 342 #ifdef _GLIBCXX_USE_WCHAR_T 343 &std::messages<wchar_t>::id, 344 #endif 345 0 346 }; 347 348 const locale::id* const* const 349 locale::_Impl::_S_facet_categories[] = 350 { 351 // Order must match the decl order in class locale. 352 locale::_Impl::_S_id_ctype, 353 locale::_Impl::_S_id_numeric, 354 locale::_Impl::_S_id_collate, 355 locale::_Impl::_S_id_time, 356 locale::_Impl::_S_id_monetary, 357 locale::_Impl::_S_id_messages, 358 0 359 }; 360 361 // Construct "C" _Impl. 362 locale::_Impl:: 363 _Impl(size_t __refs) throw() 364 : _M_refcount(__refs), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS), 365 _M_caches(0), _M_names(0) 366 { 367 _M_facets = new (&facet_vec) const facet*[_M_facets_size]; 368 _M_caches = new (&cache_vec) const facet*[_M_facets_size]; 369 for (size_t __i = 0; __i < _M_facets_size; ++__i) 370 _M_facets[__i] = _M_caches[__i] = 0; 371 372 // Name the categories. 373 _M_names = new (&name_vec) char*[_S_categories_size]; 374 _M_names[0] = new (&name_c[0]) char[2]; 375 std::memcpy(_M_names[0], locale::facet::_S_get_c_name(), 2); 376 for (size_t __j = 1; __j < _S_categories_size; ++__j) 377 _M_names[__j] = 0; 378 379 // This is needed as presently the C++ version of "C" locales 380 // != data in the underlying locale model for __timepunct, 381 // numpunct, and moneypunct. Also, the "C" locales must be 382 // constructed in a way such that they are pre-allocated. 383 // NB: Set locale::facets(ref) count to one so that each individual 384 // facet is not destroyed when the locale (and thus locale::_Impl) is 385 // destroyed. 386 _M_init_facet(new (&ctype_c) std::ctype<char>(0, false, 1)); 387 _M_init_facet(new (&codecvt_c) codecvt<char, char, mbstate_t>(1)); 388 389 typedef __numpunct_cache<char> num_cache_c; 390 num_cache_c* __npc = new (&numpunct_cache_c) num_cache_c(2); 391 _M_init_facet(new (&numpunct_c) numpunct<char>(__npc, 1)); 392 393 _M_init_facet(new (&num_get_c) num_get<char>(1)); 394 _M_init_facet(new (&num_put_c) num_put<char>(1)); 395 _M_init_facet(new (&collate_c) std::collate<char>(1)); 396 397 typedef __moneypunct_cache<char, false> money_cache_cf; 398 typedef __moneypunct_cache<char, true> money_cache_ct; 399 money_cache_cf* __mpcf = new (&moneypunct_cache_cf) money_cache_cf(2); 400 _M_init_facet(new (&moneypunct_cf) moneypunct<char, false>(__mpcf, 1)); 401 money_cache_ct* __mpct = new (&moneypunct_cache_ct) money_cache_ct(2); 402 _M_init_facet(new (&moneypunct_ct) moneypunct<char, true>(__mpct, 1)); 403 404 _M_init_facet(new (&money_get_c) money_get<char>(1)); 405 _M_init_facet(new (&money_put_c) money_put<char>(1)); 406 407 typedef __timepunct_cache<char> time_cache_c; 408 time_cache_c* __tpc = new (&timepunct_cache_c) time_cache_c(2); 409 _M_init_facet(new (&timepunct_c) __timepunct<char>(__tpc, 1)); 410 411 _M_init_facet(new (&time_get_c) time_get<char>(1)); 412 _M_init_facet(new (&time_put_c) time_put<char>(1)); 413 _M_init_facet(new (&messages_c) std::messages<char>(1)); 414 415 #ifdef _GLIBCXX_USE_WCHAR_T 416 _M_init_facet(new (&ctype_w) std::ctype<wchar_t>(1)); 417 _M_init_facet(new (&codecvt_w) codecvt<wchar_t, char, mbstate_t>(1)); 418 419 typedef __numpunct_cache<wchar_t> num_cache_w; 420 num_cache_w* __npw = new (&numpunct_cache_w) num_cache_w(2); 421 _M_init_facet(new (&numpunct_w) numpunct<wchar_t>(__npw, 1)); 422 423 _M_init_facet(new (&num_get_w) num_get<wchar_t>(1)); 424 _M_init_facet(new (&num_put_w) num_put<wchar_t>(1)); 425 _M_init_facet(new (&collate_w) std::collate<wchar_t>(1)); 426 427 typedef __moneypunct_cache<wchar_t, false> money_cache_wf; 428 typedef __moneypunct_cache<wchar_t, true> money_cache_wt; 429 money_cache_wf* __mpwf = new (&moneypunct_cache_wf) money_cache_wf(2); 430 _M_init_facet(new (&moneypunct_wf) moneypunct<wchar_t, false>(__mpwf, 1)); 431 money_cache_wt* __mpwt = new (&moneypunct_cache_wt) money_cache_wt(2); 432 _M_init_facet(new (&moneypunct_wt) moneypunct<wchar_t, true>(__mpwt, 1)); 433 434 _M_init_facet(new (&money_get_w) money_get<wchar_t>(1)); 435 _M_init_facet(new (&money_put_w) money_put<wchar_t>(1)); 436 437 typedef __timepunct_cache<wchar_t> time_cache_w; 438 time_cache_w* __tpw = new (&timepunct_cache_w) time_cache_w(2); 439 _M_init_facet(new (&timepunct_w) __timepunct<wchar_t>(__tpw, 1)); 440 441 _M_init_facet(new (&time_get_w) time_get<wchar_t>(1)); 442 _M_init_facet(new (&time_put_w) time_put<wchar_t>(1)); 443 _M_init_facet(new (&messages_w) std::messages<wchar_t>(1)); 444 #endif 445 446 // This locale is safe to pre-cache, after all the facets have 447 // been created and installed. 448 _M_caches[numpunct<char>::id._M_id()] = __npc; 449 _M_caches[moneypunct<char, false>::id._M_id()] = __mpcf; 450 _M_caches[moneypunct<char, true>::id._M_id()] = __mpct; 451 _M_caches[__timepunct<char>::id._M_id()] = __tpc; 452 #ifdef _GLIBCXX_USE_WCHAR_T 453 _M_caches[numpunct<wchar_t>::id._M_id()] = __npw; 454 _M_caches[moneypunct<wchar_t, false>::id._M_id()] = __mpwf; 455 _M_caches[moneypunct<wchar_t, true>::id._M_id()] = __mpwt; 456 _M_caches[__timepunct<wchar_t>::id._M_id()] = __tpw; 457 #endif 458 } 459 460 _GLIBCXX_END_NAMESPACE 461