locale_init.cc revision 132720
1// Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 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, 59 Temple Place - Suite 330, Boston, MA 02111-1307, 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 <bits/atomicity.h> 36#include <bits/concurrence.h> 37 38namespace __gnu_internal 39{ 40 // Defined in globals.cc. 41 extern std::locale c_locale; 42 extern std::locale::_Impl c_locale_impl; 43 44 extern std::locale::facet* facet_vec[_GLIBCXX_NUM_FACETS]; 45 extern char* name_vec[6 + _GLIBCXX_NUM_CATEGORIES]; 46 extern char name_c[6 + _GLIBCXX_NUM_CATEGORIES][2]; 47 48 extern std::ctype<char> ctype_c; 49 extern std::collate<char> collate_c; 50 extern std::numpunct<char> numpunct_c; 51 extern std::num_get<char> num_get_c; 52 extern std::num_put<char> num_put_c; 53 extern std::codecvt<char, char, mbstate_t> codecvt_c; 54 extern std::moneypunct<char, false> moneypunct_cf; 55 extern std::moneypunct<char, true> moneypunct_ct; 56 extern std::money_get<char> money_get_c; 57 extern std::money_put<char> money_put_c; 58 extern std::__timepunct<char> timepunct_c; 59 extern std::time_get<char> time_get_c; 60 extern std::time_put<char> time_put_c; 61 extern std::messages<char> messages_c; 62#ifdef _GLIBCXX_USE_WCHAR_T 63 extern std::ctype<wchar_t> ctype_w; 64 extern std::collate<wchar_t> collate_w; 65 extern std::numpunct<wchar_t> numpunct_w; 66 extern std::num_get<wchar_t> num_get_w; 67 extern std::num_put<wchar_t> num_put_w; 68 extern std::codecvt<wchar_t, char, mbstate_t> codecvt_w; 69 extern std::moneypunct<wchar_t, false> moneypunct_wf; 70 extern std::moneypunct<wchar_t, true> moneypunct_wt; 71 extern std::money_get<wchar_t> money_get_w; 72 extern std::money_put<wchar_t> money_put_w; 73 extern std::__timepunct<wchar_t> timepunct_w; 74 extern std::time_get<wchar_t> time_get_w; 75 extern std::time_put<wchar_t> time_put_w; 76 extern std::messages<wchar_t> messages_w; 77#endif 78 79 // And the caches.... 80 extern std::locale::facet* cache_vec[_GLIBCXX_NUM_FACETS]; 81 extern std::__numpunct_cache<char> numpunct_cache_c; 82 extern std::__moneypunct_cache<char, false> moneypunct_cache_cf; 83 extern std::__moneypunct_cache<char, true> moneypunct_cache_ct; 84 extern std::__timepunct_cache<char> timepunct_cache_c; 85#ifdef _GLIBCXX_USE_WCHAR_T 86 extern std::__numpunct_cache<wchar_t> numpunct_cache_w; 87 extern std::__moneypunct_cache<wchar_t, false> moneypunct_cache_wf; 88 extern std::__moneypunct_cache<wchar_t, true> moneypunct_cache_wt; 89 extern std::__timepunct_cache<wchar_t> timepunct_cache_w; 90#endif 91 92 // Mutex objects for locale initialization. 93 __glibcxx_mutex_define_initialized(locale_cons_mutex); 94 __glibcxx_mutex_define_initialized(locale_global_mutex); 95} // namespace __gnu_internal 96 97namespace std 98{ 99 using namespace __gnu_internal; 100 101 locale::locale() throw() : _M_impl(0) 102 { 103 _S_initialize(); 104 __glibcxx_mutex_lock(__gnu_internal::locale_cons_mutex); 105 _S_global->_M_add_reference(); 106 _M_impl = _S_global; 107 __glibcxx_mutex_unlock(__gnu_internal::locale_cons_mutex); 108 } 109 110 locale 111 locale::global(const locale& __other) 112 { 113 _S_initialize(); 114 __glibcxx_mutex_lock(__gnu_internal::locale_global_mutex); 115 _Impl* __old = _S_global; 116 __other._M_impl->_M_add_reference(); 117 _S_global = __other._M_impl; 118 if (__other.name() != "*") 119 setlocale(LC_ALL, __other.name().c_str()); 120 __glibcxx_mutex_unlock(__gnu_internal::locale_global_mutex); 121 122 // Reference count sanity check: one reference removed for the 123 // subsition of __other locale, one added by return-by-value. Net 124 // difference: zero. When the returned locale object's destrutor 125 // is called, then the reference count is decremented and possibly 126 // destroyed. 127 return locale(__old); 128 } 129 130 const locale& 131 locale::classic() 132 { 133 _S_initialize(); 134 return c_locale; 135 } 136 137 void 138 locale::_S_initialize_once() 139 { 140 // 2 references. 141 // One reference for _S_classic, one for _S_global 142 _S_classic = new (&c_locale_impl) _Impl(2); 143 _S_global = _S_classic; 144 new (&c_locale) locale(_S_classic); 145 } 146 147 void 148 locale::_S_initialize() 149 { 150#ifdef __GTHREADS 151 if (__gthread_active_p()) 152 __gthread_once(&_S_once, _S_initialize_once); 153#endif 154 if (!_S_classic) 155 _S_initialize_once(); 156 } 157 158 // Definitions for static const data members of locale::_Impl 159 const locale::id* const 160 locale::_Impl::_S_id_ctype[] = 161 { 162 &std::ctype<char>::id, 163 &codecvt<char, char, mbstate_t>::id, 164#ifdef _GLIBCXX_USE_WCHAR_T 165 &std::ctype<wchar_t>::id, 166 &codecvt<wchar_t, char, mbstate_t>::id, 167#endif 168 0 169 }; 170 171 const locale::id* const 172 locale::_Impl::_S_id_numeric[] = 173 { 174 &num_get<char>::id, 175 &num_put<char>::id, 176 &numpunct<char>::id, 177#ifdef _GLIBCXX_USE_WCHAR_T 178 &num_get<wchar_t>::id, 179 &num_put<wchar_t>::id, 180 &numpunct<wchar_t>::id, 181#endif 182 0 183 }; 184 185 const locale::id* const 186 locale::_Impl::_S_id_collate[] = 187 { 188 &std::collate<char>::id, 189#ifdef _GLIBCXX_USE_WCHAR_T 190 &std::collate<wchar_t>::id, 191#endif 192 0 193 }; 194 195 const locale::id* const 196 locale::_Impl::_S_id_time[] = 197 { 198 &__timepunct<char>::id, 199 &time_get<char>::id, 200 &time_put<char>::id, 201#ifdef _GLIBCXX_USE_WCHAR_T 202 &__timepunct<wchar_t>::id, 203 &time_get<wchar_t>::id, 204 &time_put<wchar_t>::id, 205#endif 206 0 207 }; 208 209 const locale::id* const 210 locale::_Impl::_S_id_monetary[] = 211 { 212 &money_get<char>::id, 213 &money_put<char>::id, 214 &moneypunct<char, false>::id, 215 &moneypunct<char, true >::id, 216#ifdef _GLIBCXX_USE_WCHAR_T 217 &money_get<wchar_t>::id, 218 &money_put<wchar_t>::id, 219 &moneypunct<wchar_t, false>::id, 220 &moneypunct<wchar_t, true >::id, 221#endif 222 0 223 }; 224 225 const locale::id* const 226 locale::_Impl::_S_id_messages[] = 227 { 228 &std::messages<char>::id, 229#ifdef _GLIBCXX_USE_WCHAR_T 230 &std::messages<wchar_t>::id, 231#endif 232 0 233 }; 234 235 const locale::id* const* const 236 locale::_Impl::_S_facet_categories[] = 237 { 238 // Order must match the decl order in class locale. 239 locale::_Impl::_S_id_ctype, 240 locale::_Impl::_S_id_numeric, 241 locale::_Impl::_S_id_collate, 242 locale::_Impl::_S_id_time, 243 locale::_Impl::_S_id_monetary, 244 locale::_Impl::_S_id_messages, 245 0 246 }; 247 248 // Construct "C" _Impl. 249 locale::_Impl:: 250 _Impl(size_t __refs) throw() 251 : _M_refcount(__refs), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS), 252 _M_caches(0), _M_names(0) 253 { 254 _M_facets = new (&facet_vec) const facet*[_M_facets_size]; 255 _M_caches = new (&cache_vec) const facet*[_M_facets_size]; 256 for (size_t __i = 0; __i < _M_facets_size; ++__i) 257 _M_facets[__i] = _M_caches[__i] = 0; 258 259 // Name all the categories. 260 _M_names = new (&name_vec) char*[_S_categories_size]; 261 for (size_t __j = 0; __j < _S_categories_size; ++__j) 262 { 263 _M_names[__j] = new (&name_c[__j]) char[2]; 264 std::strcpy(_M_names[__j], locale::facet::_S_get_c_name()); 265 } 266 267 // This is needed as presently the C++ version of "C" locales 268 // != data in the underlying locale model for __timepunct, 269 // numpunct, and moneypunct. Also, the "C" locales must be 270 // constructed in a way such that they are pre-allocated. 271 // NB: Set locale::facets(ref) count to one so that each individual 272 // facet is not destroyed when the locale (and thus locale::_Impl) is 273 // destroyed. 274 _M_init_facet(new (&ctype_c) std::ctype<char>(0, false, 1)); 275 _M_init_facet(new (&codecvt_c) codecvt<char, char, mbstate_t>(1)); 276 277 typedef __numpunct_cache<char> num_cache_c; 278 num_cache_c* __npc = new (&numpunct_cache_c) num_cache_c(2); 279 _M_init_facet(new (&numpunct_c) numpunct<char>(__npc, 1)); 280 281 _M_init_facet(new (&num_get_c) num_get<char>(1)); 282 _M_init_facet(new (&num_put_c) num_put<char>(1)); 283 _M_init_facet(new (&collate_c) std::collate<char>(1)); 284 285 typedef __moneypunct_cache<char, false> money_cache_cf; 286 typedef __moneypunct_cache<char, true> money_cache_ct; 287 money_cache_cf* __mpcf = new (&moneypunct_cache_cf) money_cache_cf(2); 288 _M_init_facet(new (&moneypunct_cf) moneypunct<char, false>(__mpcf, 1)); 289 money_cache_ct* __mpct = new (&moneypunct_cache_ct) money_cache_ct(2); 290 _M_init_facet(new (&moneypunct_ct) moneypunct<char, true>(__mpct, 1)); 291 292 _M_init_facet(new (&money_get_c) money_get<char>(1)); 293 _M_init_facet(new (&money_put_c) money_put<char>(1)); 294 295 typedef __timepunct_cache<char> time_cache_c; 296 time_cache_c* __tpc = new (&timepunct_cache_c) time_cache_c(2); 297 _M_init_facet(new (&timepunct_c) __timepunct<char>(__tpc, 1)); 298 299 _M_init_facet(new (&time_get_c) time_get<char>(1)); 300 _M_init_facet(new (&time_put_c) time_put<char>(1)); 301 _M_init_facet(new (&messages_c) std::messages<char>(1)); 302 303#ifdef _GLIBCXX_USE_WCHAR_T 304 _M_init_facet(new (&ctype_w) std::ctype<wchar_t>(1)); 305 _M_init_facet(new (&codecvt_w) codecvt<wchar_t, char, mbstate_t>(1)); 306 307 typedef __numpunct_cache<wchar_t> num_cache_w; 308 num_cache_w* __npw = new (&numpunct_cache_w) num_cache_w(2); 309 _M_init_facet(new (&numpunct_w) numpunct<wchar_t>(__npw, 1)); 310 311 _M_init_facet(new (&num_get_w) num_get<wchar_t>(1)); 312 _M_init_facet(new (&num_put_w) num_put<wchar_t>(1)); 313 _M_init_facet(new (&collate_w) std::collate<wchar_t>(1)); 314 315 typedef __moneypunct_cache<wchar_t, false> money_cache_wf; 316 typedef __moneypunct_cache<wchar_t, true> money_cache_wt; 317 money_cache_wf* __mpwf = new (&moneypunct_cache_wf) money_cache_wf(2); 318 _M_init_facet(new (&moneypunct_wf) moneypunct<wchar_t, false>(__mpwf, 1)); 319 money_cache_wt* __mpwt = new (&moneypunct_cache_wt) money_cache_wt(2); 320 _M_init_facet(new (&moneypunct_wt) moneypunct<wchar_t, true>(__mpwt, 1)); 321 322 _M_init_facet(new (&money_get_w) money_get<wchar_t>(1)); 323 _M_init_facet(new (&money_put_w) money_put<wchar_t>(1)); 324 325 typedef __timepunct_cache<wchar_t> time_cache_w; 326 time_cache_w* __tpw = new (&timepunct_cache_w) time_cache_w(2); 327 _M_init_facet(new (&timepunct_w) __timepunct<wchar_t>(__tpw, 1)); 328 329 _M_init_facet(new (&time_get_w) time_get<wchar_t>(1)); 330 _M_init_facet(new (&time_put_w) time_put<wchar_t>(1)); 331 _M_init_facet(new (&messages_w) std::messages<wchar_t>(1)); 332#endif 333 334 // This locale is safe to pre-cache, after all the facets have 335 // been created and installed. 336 _M_caches[numpunct<char>::id._M_id()] = __npc; 337 _M_caches[moneypunct<char, false>::id._M_id()] = __mpcf; 338 _M_caches[moneypunct<char, true>::id._M_id()] = __mpct; 339 _M_caches[__timepunct<char>::id._M_id()] = __tpc; 340#ifdef _GLIBCXX_USE_WCHAR_T 341 _M_caches[numpunct<wchar_t>::id._M_id()] = __npw; 342 _M_caches[moneypunct<wchar_t, false>::id._M_id()] = __mpwf; 343 _M_caches[moneypunct<wchar_t, true>::id._M_id()] = __mpwt; 344 _M_caches[__timepunct<wchar_t>::id._M_id()] = __tpw; 345#endif 346 } 347} // namespace std 348