1 // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
3 // Free Software Foundation, Inc.
5 // This file is part of the GNU ISO C++ Library. This library is free
6 // software; you can redistribute it and/or modify it under the
7 // terms of the GNU General Public License as published by the
8 // Free Software Foundation; either version 3, or (at your option)
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 // GNU General Public License for more details.
16 // Under Section 7 of GPL version 3, you are granted additional
17 // permissions described in the GCC Runtime Library Exception, version
18 // 3.1, as published by the Free Software Foundation.
20 // You should have received a copy of the GNU General Public License and
21 // a copy of the GCC Runtime Library Exception along with this program;
22 // see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
23 // <http://www.gnu.org/licenses/>.
27 #include <cstdlib> // For getenv, free.
29 #include <cwctype> // For towupper, etc.
31 #include <ext/concurrence.h>
38 static __gnu_cxx::__mutex locale_mutex
;
44 typedef char fake_locale_Impl
[sizeof(locale::_Impl
)]
45 __attribute__ ((aligned(__alignof__(locale::_Impl
))));
46 fake_locale_Impl c_locale_impl
;
48 typedef char fake_locale
[sizeof(locale
)]
49 __attribute__ ((aligned(__alignof__(locale
))));
52 typedef char fake_name_vec
[sizeof(char*)]
53 __attribute__ ((aligned(__alignof__(char*))));
54 fake_name_vec name_vec
[6 + _GLIBCXX_NUM_CATEGORIES
];
56 typedef char fake_names
[sizeof(char[2])]
57 __attribute__ ((aligned(__alignof__(char[2]))));
58 fake_names name_c
[6 + _GLIBCXX_NUM_CATEGORIES
];
60 typedef char fake_facet_vec
[sizeof(locale::facet
*)]
61 __attribute__ ((aligned(__alignof__(locale::facet
*))));
62 fake_facet_vec facet_vec
[_GLIBCXX_NUM_FACETS
];
64 typedef char fake_cache_vec
[sizeof(locale::facet
*)]
65 __attribute__ ((aligned(__alignof__(locale::facet
*))));
66 fake_cache_vec cache_vec
[_GLIBCXX_NUM_FACETS
];
68 typedef char fake_ctype_c
[sizeof(std::ctype
<char>)]
69 __attribute__ ((aligned(__alignof__(std::ctype
<char>))));
72 typedef char fake_collate_c
[sizeof(std::collate
<char>)]
73 __attribute__ ((aligned(__alignof__(std::collate
<char>))));
74 fake_collate_c collate_c
;
76 typedef char fake_numpunct_c
[sizeof(numpunct
<char>)]
77 __attribute__ ((aligned(__alignof__(numpunct
<char>))));
78 fake_numpunct_c numpunct_c
;
80 typedef char fake_num_get_c
[sizeof(num_get
<char>)]
81 __attribute__ ((aligned(__alignof__(num_get
<char>))));
82 fake_num_get_c num_get_c
;
84 typedef char fake_num_put_c
[sizeof(num_put
<char>)]
85 __attribute__ ((aligned(__alignof__(num_put
<char>))));
86 fake_num_put_c num_put_c
;
88 typedef char fake_codecvt_c
[sizeof(codecvt
<char, char, mbstate_t>)]
89 __attribute__ ((aligned(__alignof__(codecvt
<char, char, mbstate_t>))));
90 fake_codecvt_c codecvt_c
;
92 typedef char fake_moneypunct_c
[sizeof(moneypunct
<char, true>)]
93 __attribute__ ((aligned(__alignof__(moneypunct
<char, true>))));
94 fake_moneypunct_c moneypunct_ct
;
95 fake_moneypunct_c moneypunct_cf
;
97 typedef char fake_money_get_c
[sizeof(money_get
<char>)]
98 __attribute__ ((aligned(__alignof__(money_get
<char>))));
99 fake_money_get_c money_get_c
;
101 typedef char fake_money_put_c
[sizeof(money_put
<char>)]
102 __attribute__ ((aligned(__alignof__(money_put
<char>))));
103 fake_money_put_c money_put_c
;
105 typedef char fake_timepunct_c
[sizeof(__timepunct
<char>)]
106 __attribute__ ((aligned(__alignof__(__timepunct
<char>))));
107 fake_timepunct_c timepunct_c
;
109 typedef char fake_time_get_c
[sizeof(time_get
<char>)]
110 __attribute__ ((aligned(__alignof__(time_get
<char>))));
111 fake_time_get_c time_get_c
;
113 typedef char fake_time_put_c
[sizeof(time_put
<char>)]
114 __attribute__ ((aligned(__alignof__(time_put
<char>))));
115 fake_time_put_c time_put_c
;
117 typedef char fake_messages_c
[sizeof(messages
<char>)]
118 __attribute__ ((aligned(__alignof__(messages
<char>))));
119 fake_messages_c messages_c
;
121 #ifdef _GLIBCXX_USE_WCHAR_T
122 typedef char fake_wtype_w
[sizeof(std::ctype
<wchar_t>)]
123 __attribute__ ((aligned(__alignof__(std::ctype
<wchar_t>))));
124 fake_wtype_w ctype_w
;
126 typedef char fake_wollate_w
[sizeof(std::collate
<wchar_t>)]
127 __attribute__ ((aligned(__alignof__(std::collate
<wchar_t>))));
128 fake_wollate_w collate_w
;
130 typedef char fake_numpunct_w
[sizeof(numpunct
<wchar_t>)]
131 __attribute__ ((aligned(__alignof__(numpunct
<wchar_t>))));
132 fake_numpunct_w numpunct_w
;
134 typedef char fake_num_get_w
[sizeof(num_get
<wchar_t>)]
135 __attribute__ ((aligned(__alignof__(num_get
<wchar_t>))));
136 fake_num_get_w num_get_w
;
138 typedef char fake_num_put_w
[sizeof(num_put
<wchar_t>)]
139 __attribute__ ((aligned(__alignof__(num_put
<wchar_t>))));
140 fake_num_put_w num_put_w
;
142 typedef char fake_wodecvt_w
[sizeof(codecvt
<wchar_t, char, mbstate_t>)]
143 __attribute__ ((aligned(__alignof__(codecvt
<wchar_t, char, mbstate_t>))));
144 fake_wodecvt_w codecvt_w
;
146 typedef char fake_moneypunct_w
[sizeof(moneypunct
<wchar_t, true>)]
147 __attribute__ ((aligned(__alignof__(moneypunct
<wchar_t, true>))));
148 fake_moneypunct_w moneypunct_wt
;
149 fake_moneypunct_w moneypunct_wf
;
151 typedef char fake_money_get_w
[sizeof(money_get
<wchar_t>)]
152 __attribute__ ((aligned(__alignof__(money_get
<wchar_t>))));
153 fake_money_get_w money_get_w
;
155 typedef char fake_money_put_w
[sizeof(money_put
<wchar_t>)]
156 __attribute__ ((aligned(__alignof__(money_put
<wchar_t>))));
157 fake_money_put_w money_put_w
;
159 typedef char fake_timepunct_w
[sizeof(__timepunct
<wchar_t>)]
160 __attribute__ ((aligned(__alignof__(__timepunct
<wchar_t>))));
161 fake_timepunct_w timepunct_w
;
163 typedef char fake_time_get_w
[sizeof(time_get
<wchar_t>)]
164 __attribute__ ((aligned(__alignof__(time_get
<wchar_t>))));
165 fake_time_get_w time_get_w
;
167 typedef char fake_time_put_w
[sizeof(time_put
<wchar_t>)]
168 __attribute__ ((aligned(__alignof__(time_put
<wchar_t>))));
169 fake_time_put_w time_put_w
;
171 typedef char fake_messages_w
[sizeof(messages
<wchar_t>)]
172 __attribute__ ((aligned(__alignof__(messages
<wchar_t>))));
173 fake_messages_w messages_w
;
176 // Storage for "C" locale caches.
177 typedef char fake_num_cache_c
[sizeof(std::__numpunct_cache
<char>)]
178 __attribute__ ((aligned(__alignof__(std::__numpunct_cache
<char>))));
179 fake_num_cache_c numpunct_cache_c
;
181 typedef char fake_money_cache_c
[sizeof(std::__moneypunct_cache
<char, true>)]
182 __attribute__ ((aligned(__alignof__(std::__moneypunct_cache
<char, true>))));
183 fake_money_cache_c moneypunct_cache_ct
;
184 fake_money_cache_c moneypunct_cache_cf
;
186 typedef char fake_time_cache_c
[sizeof(std::__timepunct_cache
<char>)]
187 __attribute__ ((aligned(__alignof__(std::__timepunct_cache
<char>))));
188 fake_time_cache_c timepunct_cache_c
;
190 #ifdef _GLIBCXX_USE_WCHAR_T
191 typedef char fake_num_cache_w
[sizeof(std::__numpunct_cache
<wchar_t>)]
192 __attribute__ ((aligned(__alignof__(std::__numpunct_cache
<wchar_t>))));
193 fake_num_cache_w numpunct_cache_w
;
195 typedef char fake_money_cache_w
[sizeof(std::__moneypunct_cache
<wchar_t,true>)]
196 __attribute__ ((aligned(__alignof__(std::__moneypunct_cache
<wchar_t,true>))));
197 fake_money_cache_w moneypunct_cache_wt
;
198 fake_money_cache_w moneypunct_cache_wf
;
200 typedef char fake_time_cache_w
[sizeof(std::__timepunct_cache
<wchar_t>)]
201 __attribute__ ((aligned(__alignof__(std::__timepunct_cache
<wchar_t>))));
202 fake_time_cache_w timepunct_cache_w
;
204 } // anonymous namespace
206 namespace std
_GLIBCXX_VISIBILITY(default)
208 _GLIBCXX_BEGIN_NAMESPACE_VERSION
210 locale::locale() throw() : _M_impl(0)
214 // Checked locking to optimize the common case where _S_global
215 // still points to _S_classic (locale::_S_initialize_once()):
216 // - If they are the same, just increment the reference count and
217 // we are done. This effectively constructs a C locale object
218 // identical to the static c_locale.
219 // - Otherwise, _S_global can and may be destroyed due to
220 // locale::global() call on another thread, in which case we
221 // fall back to lock protected access to both _S_global and
222 // its reference count.
224 if (_M_impl
== _S_classic
)
225 _M_impl
->_M_add_reference();
228 __gnu_cxx::__scoped_lock
sentry(get_locale_mutex());
229 _S_global
->_M_add_reference();
235 locale::global(const locale
& __other
)
240 __gnu_cxx::__scoped_lock
sentry(get_locale_mutex());
242 __other
._M_impl
->_M_add_reference();
243 _S_global
= __other
._M_impl
;
244 const string __other_name
= __other
.name();
245 if (__other_name
!= "*")
246 setlocale(LC_ALL
, __other_name
.c_str());
249 // Reference count sanity check: one reference removed for the
250 // subsition of __other locale, one added by return-by-value. Net
251 // difference: zero. When the returned locale object's destrutor
252 // is called, then the reference count is decremented and possibly
254 return locale(__old
);
261 return *(new (&c_locale
) locale(_S_classic
));
265 locale::_S_initialize_once() throw()
268 // One reference for _S_classic, one for _S_global
269 _S_classic
= new (&c_locale_impl
) _Impl(2);
270 _S_global
= _S_classic
;
274 locale::_S_initialize()
277 if (__gthread_active_p())
278 __gthread_once(&_S_once
, _S_initialize_once
);
281 _S_initialize_once();
284 // Definitions for static const data members of locale::_Impl
285 const locale::id
* const
286 locale::_Impl::_S_id_ctype
[] =
288 &std::ctype
<char>::id
,
289 &codecvt
<char, char, mbstate_t>::id
,
290 #ifdef _GLIBCXX_USE_WCHAR_T
291 &std::ctype
<wchar_t>::id
,
292 &codecvt
<wchar_t, char, mbstate_t>::id
,
297 const locale::id
* const
298 locale::_Impl::_S_id_numeric
[] =
303 #ifdef _GLIBCXX_USE_WCHAR_T
304 &num_get
<wchar_t>::id
,
305 &num_put
<wchar_t>::id
,
306 &numpunct
<wchar_t>::id
,
311 const locale::id
* const
312 locale::_Impl::_S_id_collate
[] =
314 &std::collate
<char>::id
,
315 #ifdef _GLIBCXX_USE_WCHAR_T
316 &std::collate
<wchar_t>::id
,
321 const locale::id
* const
322 locale::_Impl::_S_id_time
[] =
324 &__timepunct
<char>::id
,
327 #ifdef _GLIBCXX_USE_WCHAR_T
328 &__timepunct
<wchar_t>::id
,
329 &time_get
<wchar_t>::id
,
330 &time_put
<wchar_t>::id
,
335 const locale::id
* const
336 locale::_Impl::_S_id_monetary
[] =
338 &money_get
<char>::id
,
339 &money_put
<char>::id
,
340 &moneypunct
<char, false>::id
,
341 &moneypunct
<char, true >::id
,
342 #ifdef _GLIBCXX_USE_WCHAR_T
343 &money_get
<wchar_t>::id
,
344 &money_put
<wchar_t>::id
,
345 &moneypunct
<wchar_t, false>::id
,
346 &moneypunct
<wchar_t, true >::id
,
351 const locale::id
* const
352 locale::_Impl::_S_id_messages
[] =
354 &std::messages
<char>::id
,
355 #ifdef _GLIBCXX_USE_WCHAR_T
356 &std::messages
<wchar_t>::id
,
361 const locale::id
* const* const
362 locale::_Impl::_S_facet_categories
[] =
364 // Order must match the decl order in class locale.
365 locale::_Impl::_S_id_ctype
,
366 locale::_Impl::_S_id_numeric
,
367 locale::_Impl::_S_id_collate
,
368 locale::_Impl::_S_id_time
,
369 locale::_Impl::_S_id_monetary
,
370 locale::_Impl::_S_id_messages
,
374 // Construct "C" _Impl.
376 _Impl(size_t __refs
) throw()
377 : _M_refcount(__refs
), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS
),
378 _M_caches(0), _M_names(0)
380 _M_facets
= new (&facet_vec
) const facet
*[_M_facets_size
];
381 _M_caches
= new (&cache_vec
) const facet
*[_M_facets_size
];
382 for (size_t __i
= 0; __i
< _M_facets_size
; ++__i
)
383 _M_facets
[__i
] = _M_caches
[__i
] = 0;
385 // Name the categories.
386 _M_names
= new (&name_vec
) char*[_S_categories_size
];
387 _M_names
[0] = new (&name_c
[0]) char[2];
388 std::memcpy(_M_names
[0], locale::facet::_S_get_c_name(), 2);
389 for (size_t __j
= 1; __j
< _S_categories_size
; ++__j
)
392 // This is needed as presently the C++ version of "C" locales
393 // != data in the underlying locale model for __timepunct,
394 // numpunct, and moneypunct. Also, the "C" locales must be
395 // constructed in a way such that they are pre-allocated.
396 // NB: Set locale::facets(ref) count to one so that each individual
397 // facet is not destroyed when the locale (and thus locale::_Impl) is
399 _M_init_facet(new (&ctype_c
) std::ctype
<char>(0, false, 1));
400 _M_init_facet(new (&codecvt_c
) codecvt
<char, char, mbstate_t>(1));
402 typedef __numpunct_cache
<char> num_cache_c
;
403 num_cache_c
* __npc
= new (&numpunct_cache_c
) num_cache_c(2);
404 _M_init_facet(new (&numpunct_c
) numpunct
<char>(__npc
, 1));
406 _M_init_facet(new (&num_get_c
) num_get
<char>(1));
407 _M_init_facet(new (&num_put_c
) num_put
<char>(1));
408 _M_init_facet(new (&collate_c
) std::collate
<char>(1));
410 typedef __moneypunct_cache
<char, false> money_cache_cf
;
411 typedef __moneypunct_cache
<char, true> money_cache_ct
;
412 money_cache_cf
* __mpcf
= new (&moneypunct_cache_cf
) money_cache_cf(2);
413 _M_init_facet(new (&moneypunct_cf
) moneypunct
<char, false>(__mpcf
, 1));
414 money_cache_ct
* __mpct
= new (&moneypunct_cache_ct
) money_cache_ct(2);
415 _M_init_facet(new (&moneypunct_ct
) moneypunct
<char, true>(__mpct
, 1));
417 _M_init_facet(new (&money_get_c
) money_get
<char>(1));
418 _M_init_facet(new (&money_put_c
) money_put
<char>(1));
420 typedef __timepunct_cache
<char> time_cache_c
;
421 time_cache_c
* __tpc
= new (&timepunct_cache_c
) time_cache_c(2);
422 _M_init_facet(new (&timepunct_c
) __timepunct
<char>(__tpc
, 1));
424 _M_init_facet(new (&time_get_c
) time_get
<char>(1));
425 _M_init_facet(new (&time_put_c
) time_put
<char>(1));
426 _M_init_facet(new (&messages_c
) std::messages
<char>(1));
428 #ifdef _GLIBCXX_USE_WCHAR_T
429 _M_init_facet(new (&ctype_w
) std::ctype
<wchar_t>(1));
430 _M_init_facet(new (&codecvt_w
) codecvt
<wchar_t, char, mbstate_t>(1));
432 typedef __numpunct_cache
<wchar_t> num_cache_w
;
433 num_cache_w
* __npw
= new (&numpunct_cache_w
) num_cache_w(2);
434 _M_init_facet(new (&numpunct_w
) numpunct
<wchar_t>(__npw
, 1));
436 _M_init_facet(new (&num_get_w
) num_get
<wchar_t>(1));
437 _M_init_facet(new (&num_put_w
) num_put
<wchar_t>(1));
438 _M_init_facet(new (&collate_w
) std::collate
<wchar_t>(1));
440 typedef __moneypunct_cache
<wchar_t, false> money_cache_wf
;
441 typedef __moneypunct_cache
<wchar_t, true> money_cache_wt
;
442 money_cache_wf
* __mpwf
= new (&moneypunct_cache_wf
) money_cache_wf(2);
443 _M_init_facet(new (&moneypunct_wf
) moneypunct
<wchar_t, false>(__mpwf
, 1));
444 money_cache_wt
* __mpwt
= new (&moneypunct_cache_wt
) money_cache_wt(2);
445 _M_init_facet(new (&moneypunct_wt
) moneypunct
<wchar_t, true>(__mpwt
, 1));
447 _M_init_facet(new (&money_get_w
) money_get
<wchar_t>(1));
448 _M_init_facet(new (&money_put_w
) money_put
<wchar_t>(1));
450 typedef __timepunct_cache
<wchar_t> time_cache_w
;
451 time_cache_w
* __tpw
= new (&timepunct_cache_w
) time_cache_w(2);
452 _M_init_facet(new (&timepunct_w
) __timepunct
<wchar_t>(__tpw
, 1));
454 _M_init_facet(new (&time_get_w
) time_get
<wchar_t>(1));
455 _M_init_facet(new (&time_put_w
) time_put
<wchar_t>(1));
456 _M_init_facet(new (&messages_w
) std::messages
<wchar_t>(1));
459 // This locale is safe to pre-cache, after all the facets have
460 // been created and installed.
461 _M_caches
[numpunct
<char>::id
._M_id()] = __npc
;
462 _M_caches
[moneypunct
<char, false>::id
._M_id()] = __mpcf
;
463 _M_caches
[moneypunct
<char, true>::id
._M_id()] = __mpct
;
464 _M_caches
[__timepunct
<char>::id
._M_id()] = __tpc
;
465 #ifdef _GLIBCXX_USE_WCHAR_T
466 _M_caches
[numpunct
<wchar_t>::id
._M_id()] = __npw
;
467 _M_caches
[moneypunct
<wchar_t, false>::id
._M_id()] = __mpwf
;
468 _M_caches
[moneypunct
<wchar_t, true>::id
._M_id()] = __mpwt
;
469 _M_caches
[__timepunct
<wchar_t>::id
._M_id()] = __tpw
;
473 _GLIBCXX_END_NAMESPACE_VERSION