1 // Copyright (C) 1997-2014 Free Software Foundation, Inc.
3 // This file is part of the GNU ISO C++ Library. This library is free
4 // software; you can redistribute it and/or modify it under the
5 // terms of the GNU General Public License as published by the
6 // Free Software Foundation; either version 3, or (at your option)
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
12 // GNU General Public License for more details.
14 // Under Section 7 of GPL version 3, you are granted additional
15 // permissions described in the GCC Runtime Library Exception, version
16 // 3.1, as published by the Free Software Foundation.
18 // You should have received a copy of the GNU General Public License and
19 // a copy of the GCC Runtime Library Exception along with this program;
20 // see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
21 // <http://www.gnu.org/licenses/>.
25 #include <cstdlib> // For getenv, free.
27 #include <cwctype> // For towupper, etc.
29 #include <ext/concurrence.h>
36 static __gnu_cxx::__mutex locale_mutex
;
42 typedef char fake_locale_Impl
[sizeof(locale::_Impl
)]
43 __attribute__ ((aligned(__alignof__(locale::_Impl
))));
44 fake_locale_Impl c_locale_impl
;
46 typedef char fake_locale
[sizeof(locale
)]
47 __attribute__ ((aligned(__alignof__(locale
))));
50 typedef char fake_name_vec
[sizeof(char*)]
51 __attribute__ ((aligned(__alignof__(char*))));
52 fake_name_vec name_vec
[6 + _GLIBCXX_NUM_CATEGORIES
];
54 typedef char fake_names
[sizeof(char[2])]
55 __attribute__ ((aligned(__alignof__(char[2]))));
56 fake_names name_c
[6 + _GLIBCXX_NUM_CATEGORIES
];
58 typedef char fake_facet_vec
[sizeof(locale::facet
*)]
59 __attribute__ ((aligned(__alignof__(locale::facet
*))));
60 fake_facet_vec facet_vec
[_GLIBCXX_NUM_FACETS
];
62 typedef char fake_cache_vec
[sizeof(locale::facet
*)]
63 __attribute__ ((aligned(__alignof__(locale::facet
*))));
64 fake_cache_vec cache_vec
[_GLIBCXX_NUM_FACETS
];
66 typedef char fake_ctype_c
[sizeof(std::ctype
<char>)]
67 __attribute__ ((aligned(__alignof__(std::ctype
<char>))));
70 typedef char fake_collate_c
[sizeof(std::collate
<char>)]
71 __attribute__ ((aligned(__alignof__(std::collate
<char>))));
72 fake_collate_c collate_c
;
74 typedef char fake_numpunct_c
[sizeof(numpunct
<char>)]
75 __attribute__ ((aligned(__alignof__(numpunct
<char>))));
76 fake_numpunct_c numpunct_c
;
78 typedef char fake_num_get_c
[sizeof(num_get
<char>)]
79 __attribute__ ((aligned(__alignof__(num_get
<char>))));
80 fake_num_get_c num_get_c
;
82 typedef char fake_num_put_c
[sizeof(num_put
<char>)]
83 __attribute__ ((aligned(__alignof__(num_put
<char>))));
84 fake_num_put_c num_put_c
;
86 typedef char fake_codecvt_c
[sizeof(codecvt
<char, char, mbstate_t>)]
87 __attribute__ ((aligned(__alignof__(codecvt
<char, char, mbstate_t>))));
88 fake_codecvt_c codecvt_c
;
90 typedef char fake_moneypunct_c
[sizeof(moneypunct
<char, true>)]
91 __attribute__ ((aligned(__alignof__(moneypunct
<char, true>))));
92 fake_moneypunct_c moneypunct_ct
;
93 fake_moneypunct_c moneypunct_cf
;
95 typedef char fake_money_get_c
[sizeof(money_get
<char>)]
96 __attribute__ ((aligned(__alignof__(money_get
<char>))));
97 fake_money_get_c money_get_c
;
99 typedef char fake_money_put_c
[sizeof(money_put
<char>)]
100 __attribute__ ((aligned(__alignof__(money_put
<char>))));
101 fake_money_put_c money_put_c
;
103 typedef char fake_timepunct_c
[sizeof(__timepunct
<char>)]
104 __attribute__ ((aligned(__alignof__(__timepunct
<char>))));
105 fake_timepunct_c timepunct_c
;
107 typedef char fake_time_get_c
[sizeof(time_get
<char>)]
108 __attribute__ ((aligned(__alignof__(time_get
<char>))));
109 fake_time_get_c time_get_c
;
111 typedef char fake_time_put_c
[sizeof(time_put
<char>)]
112 __attribute__ ((aligned(__alignof__(time_put
<char>))));
113 fake_time_put_c time_put_c
;
115 typedef char fake_messages_c
[sizeof(messages
<char>)]
116 __attribute__ ((aligned(__alignof__(messages
<char>))));
117 fake_messages_c messages_c
;
119 #ifdef _GLIBCXX_USE_WCHAR_T
120 typedef char fake_wtype_w
[sizeof(std::ctype
<wchar_t>)]
121 __attribute__ ((aligned(__alignof__(std::ctype
<wchar_t>))));
122 fake_wtype_w ctype_w
;
124 typedef char fake_wollate_w
[sizeof(std::collate
<wchar_t>)]
125 __attribute__ ((aligned(__alignof__(std::collate
<wchar_t>))));
126 fake_wollate_w collate_w
;
128 typedef char fake_numpunct_w
[sizeof(numpunct
<wchar_t>)]
129 __attribute__ ((aligned(__alignof__(numpunct
<wchar_t>))));
130 fake_numpunct_w numpunct_w
;
132 typedef char fake_num_get_w
[sizeof(num_get
<wchar_t>)]
133 __attribute__ ((aligned(__alignof__(num_get
<wchar_t>))));
134 fake_num_get_w num_get_w
;
136 typedef char fake_num_put_w
[sizeof(num_put
<wchar_t>)]
137 __attribute__ ((aligned(__alignof__(num_put
<wchar_t>))));
138 fake_num_put_w num_put_w
;
140 typedef char fake_wodecvt_w
[sizeof(codecvt
<wchar_t, char, mbstate_t>)]
141 __attribute__ ((aligned(__alignof__(codecvt
<wchar_t, char, mbstate_t>))));
142 fake_wodecvt_w codecvt_w
;
144 typedef char fake_moneypunct_w
[sizeof(moneypunct
<wchar_t, true>)]
145 __attribute__ ((aligned(__alignof__(moneypunct
<wchar_t, true>))));
146 fake_moneypunct_w moneypunct_wt
;
147 fake_moneypunct_w moneypunct_wf
;
149 typedef char fake_money_get_w
[sizeof(money_get
<wchar_t>)]
150 __attribute__ ((aligned(__alignof__(money_get
<wchar_t>))));
151 fake_money_get_w money_get_w
;
153 typedef char fake_money_put_w
[sizeof(money_put
<wchar_t>)]
154 __attribute__ ((aligned(__alignof__(money_put
<wchar_t>))));
155 fake_money_put_w money_put_w
;
157 typedef char fake_timepunct_w
[sizeof(__timepunct
<wchar_t>)]
158 __attribute__ ((aligned(__alignof__(__timepunct
<wchar_t>))));
159 fake_timepunct_w timepunct_w
;
161 typedef char fake_time_get_w
[sizeof(time_get
<wchar_t>)]
162 __attribute__ ((aligned(__alignof__(time_get
<wchar_t>))));
163 fake_time_get_w time_get_w
;
165 typedef char fake_time_put_w
[sizeof(time_put
<wchar_t>)]
166 __attribute__ ((aligned(__alignof__(time_put
<wchar_t>))));
167 fake_time_put_w time_put_w
;
169 typedef char fake_messages_w
[sizeof(messages
<wchar_t>)]
170 __attribute__ ((aligned(__alignof__(messages
<wchar_t>))));
171 fake_messages_w messages_w
;
174 // Storage for "C" locale caches.
175 typedef char fake_num_cache_c
[sizeof(std::__numpunct_cache
<char>)]
176 __attribute__ ((aligned(__alignof__(std::__numpunct_cache
<char>))));
177 fake_num_cache_c numpunct_cache_c
;
179 typedef char fake_money_cache_c
[sizeof(std::__moneypunct_cache
<char, true>)]
180 __attribute__ ((aligned(__alignof__(std::__moneypunct_cache
<char, true>))));
181 fake_money_cache_c moneypunct_cache_ct
;
182 fake_money_cache_c moneypunct_cache_cf
;
184 typedef char fake_time_cache_c
[sizeof(std::__timepunct_cache
<char>)]
185 __attribute__ ((aligned(__alignof__(std::__timepunct_cache
<char>))));
186 fake_time_cache_c timepunct_cache_c
;
188 #ifdef _GLIBCXX_USE_WCHAR_T
189 typedef char fake_num_cache_w
[sizeof(std::__numpunct_cache
<wchar_t>)]
190 __attribute__ ((aligned(__alignof__(std::__numpunct_cache
<wchar_t>))));
191 fake_num_cache_w numpunct_cache_w
;
193 typedef char fake_money_cache_w
[sizeof(std::__moneypunct_cache
<wchar_t,true>)]
194 __attribute__ ((aligned(__alignof__(std::__moneypunct_cache
<wchar_t,true>))));
195 fake_money_cache_w moneypunct_cache_wt
;
196 fake_money_cache_w moneypunct_cache_wf
;
198 typedef char fake_time_cache_w
[sizeof(std::__timepunct_cache
<wchar_t>)]
199 __attribute__ ((aligned(__alignof__(std::__timepunct_cache
<wchar_t>))));
200 fake_time_cache_w timepunct_cache_w
;
202 } // anonymous namespace
204 namespace std
_GLIBCXX_VISIBILITY(default)
206 _GLIBCXX_BEGIN_NAMESPACE_VERSION
208 locale::locale() throw() : _M_impl(0)
212 // Checked locking to optimize the common case where _S_global
213 // still points to _S_classic (locale::_S_initialize_once()):
214 // - If they are the same, just increment the reference count and
215 // we are done. This effectively constructs a C locale object
216 // identical to the static c_locale.
217 // - Otherwise, _S_global can and may be destroyed due to
218 // locale::global() call on another thread, in which case we
219 // fall back to lock protected access to both _S_global and
220 // its reference count.
222 if (_M_impl
== _S_classic
)
223 _M_impl
->_M_add_reference();
226 __gnu_cxx::__scoped_lock
sentry(get_locale_mutex());
227 _S_global
->_M_add_reference();
233 locale::global(const locale
& __other
)
238 __gnu_cxx::__scoped_lock
sentry(get_locale_mutex());
240 __other
._M_impl
->_M_add_reference();
241 _S_global
= __other
._M_impl
;
242 const string __other_name
= __other
.name();
243 if (__other_name
!= "*")
244 setlocale(LC_ALL
, __other_name
.c_str());
247 // Reference count sanity check: one reference removed for the
248 // subsition of __other locale, one added by return-by-value. Net
249 // difference: zero. When the returned locale object's destrutor
250 // is called, then the reference count is decremented and possibly
252 return locale(__old
);
259 return *(new (&c_locale
) locale(_S_classic
));
263 locale::_S_initialize_once() throw()
266 // One reference for _S_classic, one for _S_global
267 _S_classic
= new (&c_locale_impl
) _Impl(2);
268 _S_global
= _S_classic
;
272 locale::_S_initialize()
275 if (__gthread_active_p())
276 __gthread_once(&_S_once
, _S_initialize_once
);
279 _S_initialize_once();
282 // Definitions for static const data members of locale::_Impl
283 const locale::id
* const
284 locale::_Impl::_S_id_ctype
[] =
286 &std::ctype
<char>::id
,
287 &codecvt
<char, char, mbstate_t>::id
,
288 #ifdef _GLIBCXX_USE_WCHAR_T
289 &std::ctype
<wchar_t>::id
,
290 &codecvt
<wchar_t, char, mbstate_t>::id
,
295 const locale::id
* const
296 locale::_Impl::_S_id_numeric
[] =
301 #ifdef _GLIBCXX_USE_WCHAR_T
302 &num_get
<wchar_t>::id
,
303 &num_put
<wchar_t>::id
,
304 &numpunct
<wchar_t>::id
,
309 const locale::id
* const
310 locale::_Impl::_S_id_collate
[] =
312 &std::collate
<char>::id
,
313 #ifdef _GLIBCXX_USE_WCHAR_T
314 &std::collate
<wchar_t>::id
,
319 const locale::id
* const
320 locale::_Impl::_S_id_time
[] =
322 &__timepunct
<char>::id
,
325 #ifdef _GLIBCXX_USE_WCHAR_T
326 &__timepunct
<wchar_t>::id
,
327 &time_get
<wchar_t>::id
,
328 &time_put
<wchar_t>::id
,
333 const locale::id
* const
334 locale::_Impl::_S_id_monetary
[] =
336 &money_get
<char>::id
,
337 &money_put
<char>::id
,
338 &moneypunct
<char, false>::id
,
339 &moneypunct
<char, true >::id
,
340 #ifdef _GLIBCXX_USE_WCHAR_T
341 &money_get
<wchar_t>::id
,
342 &money_put
<wchar_t>::id
,
343 &moneypunct
<wchar_t, false>::id
,
344 &moneypunct
<wchar_t, true >::id
,
349 const locale::id
* const
350 locale::_Impl::_S_id_messages
[] =
352 &std::messages
<char>::id
,
353 #ifdef _GLIBCXX_USE_WCHAR_T
354 &std::messages
<wchar_t>::id
,
359 const locale::id
* const* const
360 locale::_Impl::_S_facet_categories
[] =
362 // Order must match the decl order in class locale.
363 locale::_Impl::_S_id_ctype
,
364 locale::_Impl::_S_id_numeric
,
365 locale::_Impl::_S_id_collate
,
366 locale::_Impl::_S_id_time
,
367 locale::_Impl::_S_id_monetary
,
368 locale::_Impl::_S_id_messages
,
372 // Construct "C" _Impl.
374 _Impl(size_t __refs
) throw()
375 : _M_refcount(__refs
), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS
),
376 _M_caches(0), _M_names(0)
378 _M_facets
= new (&facet_vec
) const facet
*[_M_facets_size
]();
379 _M_caches
= new (&cache_vec
) const facet
*[_M_facets_size
]();
381 // Name the categories.
382 _M_names
= new (&name_vec
) char*[_S_categories_size
]();
383 _M_names
[0] = new (&name_c
[0]) char[2];
384 std::memcpy(_M_names
[0], locale::facet::_S_get_c_name(), 2);
386 // This is needed as presently the C++ version of "C" locales
387 // != data in the underlying locale model for __timepunct,
388 // numpunct, and moneypunct. Also, the "C" locales must be
389 // constructed in a way such that they are pre-allocated.
390 // NB: Set locale::facets(ref) count to one so that each individual
391 // facet is not destroyed when the locale (and thus locale::_Impl) is
393 _M_init_facet(new (&ctype_c
) std::ctype
<char>(0, false, 1));
394 _M_init_facet(new (&codecvt_c
) codecvt
<char, char, mbstate_t>(1));
396 typedef __numpunct_cache
<char> num_cache_c
;
397 num_cache_c
* __npc
= new (&numpunct_cache_c
) num_cache_c(2);
398 _M_init_facet(new (&numpunct_c
) numpunct
<char>(__npc
, 1));
400 _M_init_facet(new (&num_get_c
) num_get
<char>(1));
401 _M_init_facet(new (&num_put_c
) num_put
<char>(1));
402 _M_init_facet(new (&collate_c
) std::collate
<char>(1));
404 typedef __moneypunct_cache
<char, false> money_cache_cf
;
405 typedef __moneypunct_cache
<char, true> money_cache_ct
;
406 money_cache_cf
* __mpcf
= new (&moneypunct_cache_cf
) money_cache_cf(2);
407 _M_init_facet(new (&moneypunct_cf
) moneypunct
<char, false>(__mpcf
, 1));
408 money_cache_ct
* __mpct
= new (&moneypunct_cache_ct
) money_cache_ct(2);
409 _M_init_facet(new (&moneypunct_ct
) moneypunct
<char, true>(__mpct
, 1));
411 _M_init_facet(new (&money_get_c
) money_get
<char>(1));
412 _M_init_facet(new (&money_put_c
) money_put
<char>(1));
414 typedef __timepunct_cache
<char> time_cache_c
;
415 time_cache_c
* __tpc
= new (&timepunct_cache_c
) time_cache_c(2);
416 _M_init_facet(new (&timepunct_c
) __timepunct
<char>(__tpc
, 1));
418 _M_init_facet(new (&time_get_c
) time_get
<char>(1));
419 _M_init_facet(new (&time_put_c
) time_put
<char>(1));
420 _M_init_facet(new (&messages_c
) std::messages
<char>(1));
422 #ifdef _GLIBCXX_USE_WCHAR_T
423 _M_init_facet(new (&ctype_w
) std::ctype
<wchar_t>(1));
424 _M_init_facet(new (&codecvt_w
) codecvt
<wchar_t, char, mbstate_t>(1));
426 typedef __numpunct_cache
<wchar_t> num_cache_w
;
427 num_cache_w
* __npw
= new (&numpunct_cache_w
) num_cache_w(2);
428 _M_init_facet(new (&numpunct_w
) numpunct
<wchar_t>(__npw
, 1));
430 _M_init_facet(new (&num_get_w
) num_get
<wchar_t>(1));
431 _M_init_facet(new (&num_put_w
) num_put
<wchar_t>(1));
432 _M_init_facet(new (&collate_w
) std::collate
<wchar_t>(1));
434 typedef __moneypunct_cache
<wchar_t, false> money_cache_wf
;
435 typedef __moneypunct_cache
<wchar_t, true> money_cache_wt
;
436 money_cache_wf
* __mpwf
= new (&moneypunct_cache_wf
) money_cache_wf(2);
437 _M_init_facet(new (&moneypunct_wf
) moneypunct
<wchar_t, false>(__mpwf
, 1));
438 money_cache_wt
* __mpwt
= new (&moneypunct_cache_wt
) money_cache_wt(2);
439 _M_init_facet(new (&moneypunct_wt
) moneypunct
<wchar_t, true>(__mpwt
, 1));
441 _M_init_facet(new (&money_get_w
) money_get
<wchar_t>(1));
442 _M_init_facet(new (&money_put_w
) money_put
<wchar_t>(1));
444 typedef __timepunct_cache
<wchar_t> time_cache_w
;
445 time_cache_w
* __tpw
= new (&timepunct_cache_w
) time_cache_w(2);
446 _M_init_facet(new (&timepunct_w
) __timepunct
<wchar_t>(__tpw
, 1));
448 _M_init_facet(new (&time_get_w
) time_get
<wchar_t>(1));
449 _M_init_facet(new (&time_put_w
) time_put
<wchar_t>(1));
450 _M_init_facet(new (&messages_w
) std::messages
<wchar_t>(1));
453 // This locale is safe to pre-cache, after all the facets have
454 // been created and installed.
455 _M_caches
[numpunct
<char>::id
._M_id()] = __npc
;
456 _M_caches
[moneypunct
<char, false>::id
._M_id()] = __mpcf
;
457 _M_caches
[moneypunct
<char, true>::id
._M_id()] = __mpct
;
458 _M_caches
[__timepunct
<char>::id
._M_id()] = __tpc
;
459 #ifdef _GLIBCXX_USE_WCHAR_T
460 _M_caches
[numpunct
<wchar_t>::id
._M_id()] = __npw
;
461 _M_caches
[moneypunct
<wchar_t, false>::id
._M_id()] = __mpwf
;
462 _M_caches
[moneypunct
<wchar_t, true>::id
._M_id()] = __mpwt
;
463 _M_caches
[__timepunct
<wchar_t>::id
._M_id()] = __tpw
;
467 _GLIBCXX_END_NAMESPACE_VERSION