1 // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003
2 // Free Software Foundation, Inc.
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)
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.
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,
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.
31 #include <cstdlib> // For getenv, free.
33 #include <cwctype> // For towupper, etc.
35 #include <bits/atomicity.h>
39 // Defined in globals.cc.
40 extern std::locale c_locale;
41 extern std::locale::_Impl c_locale_impl;
43 extern std::locale::facet* facet_vec[_GLIBCXX_NUM_FACETS];
44 extern char* name_vec[6 + _GLIBCXX_NUM_CATEGORIES];
45 extern char name_c[6 + _GLIBCXX_NUM_CATEGORIES][2];
47 extern std::ctype<char> ctype_c;
48 extern std::collate<char> collate_c;
49 extern std::numpunct<char> numpunct_c;
50 extern std::num_get<char> num_get_c;
51 extern std::num_put<char> num_put_c;
52 extern std::codecvt<char, char, mbstate_t> codecvt_c;
53 extern std::moneypunct<char, false> moneypunct_cf;
54 extern std::moneypunct<char, true> moneypunct_ct;
55 extern std::money_get<char> money_get_c;
56 extern std::money_put<char> money_put_c;
57 extern std::__timepunct<char> timepunct_c;
58 extern std::time_get<char> time_get_c;
59 extern std::time_put<char> time_put_c;
60 extern std::messages<char> messages_c;
61 #ifdef _GLIBCXX_USE_WCHAR_T
62 extern std::ctype<wchar_t> ctype_w;
63 extern std::collate<wchar_t> collate_w;
64 extern std::numpunct<wchar_t> numpunct_w;
65 extern std::num_get<wchar_t> num_get_w;
66 extern std::num_put<wchar_t> num_put_w;
67 extern std::codecvt<wchar_t, char, mbstate_t> codecvt_w;
68 extern std::moneypunct<wchar_t, false> moneypunct_wf;
69 extern std::moneypunct<wchar_t, true> moneypunct_wt;
70 extern std::money_get<wchar_t> money_get_w;
71 extern std::money_put<wchar_t> money_put_w;
72 extern std::__timepunct<wchar_t> timepunct_w;
73 extern std::time_get<wchar_t> time_get_w;
74 extern std::time_put<wchar_t> time_put_w;
75 extern std::messages<wchar_t> messages_w;
79 extern std::locale::facet* cache_vec[_GLIBCXX_NUM_FACETS];
80 extern std::__numpunct_cache<char> numpunct_cache_c;
81 extern std::__moneypunct_cache<char> moneypunct_cache_cf;
82 extern std::__moneypunct_cache<char> moneypunct_cache_ct;
83 extern std::__timepunct_cache<char> timepunct_cache_c;
84 #ifdef _GLIBCXX_USE_WCHAR_T
85 extern std::__numpunct_cache<wchar_t> numpunct_cache_w;
86 extern std::__moneypunct_cache<wchar_t> moneypunct_cache_wf;
87 extern std::__moneypunct_cache<wchar_t> moneypunct_cache_wt;
88 extern std::__timepunct_cache<wchar_t> timepunct_cache_w;
90 } // namespace __gnu_cxx
94 using namespace __gnu_cxx;
96 locale::locale() throw()
99 (_M_impl = _S_global)->_M_add_reference();
103 locale::global(const locale& __other)
108 _Impl* __old = _S_global;
109 __other._M_impl->_M_add_reference();
110 _S_global = __other._M_impl;
111 if (_S_global->_M_check_same_name()
112 && (std::strcmp(_S_global->_M_names[0], "*") != 0))
113 setlocale(LC_ALL, __other.name().c_str());
115 // Reference count sanity check: one reference removed for the
116 // subsition of __other locale, one added by return-by-value. Net
117 // difference: zero. When the returned locale object's destrutor
118 // is called, then the reference count is decremented and possibly
120 return locale(__old);
131 locale::_S_initialize_once()
134 // One reference for _S_classic, one for _S_global
135 _S_classic = new (&c_locale_impl) _Impl(2);
136 _S_global = _S_classic;
137 new (&c_locale) locale(_S_classic);
141 locale::_S_initialize()
144 if (__gthread_active_p())
145 __gthread_once(&_S_once, _S_initialize_once);
148 _S_initialize_once();
151 // Definitions for static const data members of locale::_Impl
152 const locale::id* const
153 locale::_Impl::_S_id_ctype[] =
155 &std::ctype<char>::id,
156 &codecvt<char, char, mbstate_t>::id,
157 #ifdef _GLIBCXX_USE_WCHAR_T
158 &std::ctype<wchar_t>::id,
159 &codecvt<wchar_t, char, mbstate_t>::id,
164 const locale::id* const
165 locale::_Impl::_S_id_numeric[] =
170 #ifdef _GLIBCXX_USE_WCHAR_T
171 &num_get<wchar_t>::id,
172 &num_put<wchar_t>::id,
173 &numpunct<wchar_t>::id,
178 const locale::id* const
179 locale::_Impl::_S_id_collate[] =
181 &std::collate<char>::id,
182 #ifdef _GLIBCXX_USE_WCHAR_T
183 &std::collate<wchar_t>::id,
188 const locale::id* const
189 locale::_Impl::_S_id_time[] =
191 &__timepunct<char>::id,
194 #ifdef _GLIBCXX_USE_WCHAR_T
195 &__timepunct<wchar_t>::id,
196 &time_get<wchar_t>::id,
197 &time_put<wchar_t>::id,
202 const locale::id* const
203 locale::_Impl::_S_id_monetary[] =
205 &money_get<char>::id,
206 &money_put<char>::id,
207 &moneypunct<char, false>::id,
208 &moneypunct<char, true >::id,
209 #ifdef _GLIBCXX_USE_WCHAR_T
210 &money_get<wchar_t>::id,
211 &money_put<wchar_t>::id,
212 &moneypunct<wchar_t, false>::id,
213 &moneypunct<wchar_t, true >::id,
218 const locale::id* const
219 locale::_Impl::_S_id_messages[] =
221 &std::messages<char>::id,
222 #ifdef _GLIBCXX_USE_WCHAR_T
223 &std::messages<wchar_t>::id,
228 const locale::id* const* const
229 locale::_Impl::_S_facet_categories[] =
231 // Order must match the decl order in class locale.
232 locale::_Impl::_S_id_ctype,
233 locale::_Impl::_S_id_numeric,
234 locale::_Impl::_S_id_collate,
235 locale::_Impl::_S_id_time,
236 locale::_Impl::_S_id_monetary,
237 locale::_Impl::_S_id_messages,
241 // Construct "C" _Impl.
243 _Impl(size_t __refs) throw()
244 : _M_references(__refs), _M_facets_size(_GLIBCXX_NUM_FACETS)
246 _M_facets = new (&facet_vec) const facet*[_M_facets_size];
247 _M_caches = new (&cache_vec) const facet*[_M_facets_size];
248 for (size_t __i = 0; __i < _M_facets_size; ++__i)
249 _M_facets[__i] = _M_caches[__i] = 0;
251 // Name all the categories.
252 _M_names = new (&name_vec) char*[_S_categories_size];
253 for (size_t __i = 0; __i < _S_categories_size; ++__i)
255 _M_names[__i] = new (&name_c[__i]) char[2];
256 std::strcpy(_M_names[__i], locale::facet::_S_get_c_name());
259 // This is needed as presently the C++ version of "C" locales
260 // != data in the underlying locale model for __timepunct,
261 // numpunct, and moneypunct. Also, the "C" locales must be
262 // constructed in a way such that they are pre-allocated.
263 // NB: Set locale::facets(ref) count to one so that each individual
264 // facet is not destroyed when the locale (and thus locale::_Impl) is
266 _M_init_facet(new (&ctype_c) std::ctype<char>(0, false, 1));
267 _M_init_facet(new (&codecvt_c) codecvt<char, char, mbstate_t>(1));
269 typedef __numpunct_cache<char> num_cache_c;
270 num_cache_c* __npc = new (&numpunct_cache_c) num_cache_c(2);
271 _M_init_facet(new (&numpunct_c) numpunct<char>(__npc, 1));
273 _M_init_facet(new (&num_get_c) num_get<char>(1));
274 _M_init_facet(new (&num_put_c) num_put<char>(1));
275 _M_init_facet(new (&collate_c) std::collate<char>(1));
277 typedef __moneypunct_cache<char> money_cache_c;
278 money_cache_c* __mpcf = new (&moneypunct_cache_cf) money_cache_c(2);
279 _M_init_facet(new (&moneypunct_cf) moneypunct<char, false>(__mpcf, 1));
280 money_cache_c* __mpct = new (&moneypunct_cache_ct) money_cache_c(2);
281 _M_init_facet(new (&moneypunct_ct) moneypunct<char, true>(__mpct, 1));
283 _M_init_facet(new (&money_get_c) money_get<char>(1));
284 _M_init_facet(new (&money_put_c) money_put<char>(1));
286 typedef __timepunct_cache<char> time_cache_c;
287 time_cache_c* __tpc = new (&timepunct_cache_c) time_cache_c(2);
288 _M_init_facet(new (&timepunct_c) __timepunct<char>(__tpc, 1));
290 _M_init_facet(new (&time_get_c) time_get<char>(1));
291 _M_init_facet(new (&time_put_c) time_put<char>(1));
292 _M_init_facet(new (&messages_c) std::messages<char>(1));
294 #ifdef _GLIBCXX_USE_WCHAR_T
295 _M_init_facet(new (&ctype_w) std::ctype<wchar_t>(1));
296 _M_init_facet(new (&codecvt_w) codecvt<wchar_t, char, mbstate_t>(1));
298 typedef __numpunct_cache<wchar_t> num_cache_w;
299 num_cache_w* __npw = new (&numpunct_cache_w) num_cache_w(2);
300 _M_init_facet(new (&numpunct_w) numpunct<wchar_t>(__npw, 1));
302 _M_init_facet(new (&num_get_w) num_get<wchar_t>(1));
303 _M_init_facet(new (&num_put_w) num_put<wchar_t>(1));
304 _M_init_facet(new (&collate_w) std::collate<wchar_t>(1));
306 typedef __moneypunct_cache<wchar_t> money_cache_w;
307 money_cache_w* __mpwf = new (&moneypunct_cache_wf) money_cache_w(2);
308 _M_init_facet(new (&moneypunct_wf) moneypunct<wchar_t, false>(__mpwf, 1));
309 money_cache_w* __mpwt = new (&moneypunct_cache_wt) money_cache_w(2);
310 _M_init_facet(new (&moneypunct_wt) moneypunct<wchar_t, true>(__mpwt, 1));
312 _M_init_facet(new (&money_get_w) money_get<wchar_t>(1));
313 _M_init_facet(new (&money_put_w) money_put<wchar_t>(1));
315 typedef __timepunct_cache<wchar_t> time_cache_w;
316 time_cache_w* __tpw = new (&timepunct_cache_w) time_cache_w(2);
317 _M_init_facet(new (&timepunct_w) __timepunct<wchar_t>(__tpw, 1));
319 _M_init_facet(new (&time_get_w) time_get<wchar_t>(1));
320 _M_init_facet(new (&time_put_w) time_put<wchar_t>(1));
321 _M_init_facet(new (&messages_w) std::messages<wchar_t>(1));
324 // This locale is safe to pre-cache, after all the facets have
325 // been created and installed.
326 _M_caches[numpunct<char>::id._M_id()] = __npc;
327 _M_caches[moneypunct<char, false>::id._M_id()] = __mpcf;
328 _M_caches[moneypunct<char, true>::id._M_id()] = __mpct;
329 _M_caches[__timepunct<char>::id._M_id()] = __tpc;
330 #ifdef _GLIBCXX_USE_WCHAR_T
331 _M_caches[numpunct<wchar_t>::id._M_id()] = __npw;
332 _M_caches[moneypunct<wchar_t, false>::id._M_id()] = __mpwf;
333 _M_caches[moneypunct<wchar_t, true>::id._M_id()] = __mpwt;
334 _M_caches[__timepunct<wchar_t>::id._M_id()] = __tpw;