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>
36 #include <bits/concurrence.h>
40 // Defined in globals.cc.
41 extern std::locale c_locale
;
42 extern std::locale::_Impl c_locale_impl
;
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];
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
;
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> moneypunct_cache_cf
;
83 extern std::__moneypunct_cache
<char> 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> moneypunct_cache_wf
;
88 extern std::__moneypunct_cache
<wchar_t> moneypunct_cache_wt
;
89 extern std::__timepunct_cache
<wchar_t> timepunct_cache_w
;
91 } // namespace __gnu_cxx
95 using namespace __gnu_cxx
;
97 locale::locale() throw()
100 __glibcxx_mutex_define_initialized(lock
);
101 __glibcxx_mutex_lock(lock
);
102 _S_global
->_M_add_reference();
104 __glibcxx_mutex_unlock(lock
);
108 locale::global(const locale
& __other
)
111 __glibcxx_mutex_define_initialized(lock
);
112 __glibcxx_mutex_lock(lock
);
113 _Impl
* __old
= _S_global
;
114 __other
._M_impl
->_M_add_reference();
115 _S_global
= __other
._M_impl
;
116 if (_S_global
->_M_check_same_name()
117 && (std::strcmp(_S_global
->_M_names
[0], "*") != 0))
118 setlocale(LC_ALL
, __other
.name().c_str());
119 __glibcxx_mutex_unlock(lock
);
121 // Reference count sanity check: one reference removed for the
122 // subsition of __other locale, one added by return-by-value. Net
123 // difference: zero. When the returned locale object's destrutor
124 // is called, then the reference count is decremented and possibly
126 return locale(__old
);
137 locale::_S_initialize_once()
140 // One reference for _S_classic, one for _S_global
141 _S_classic
= new (&c_locale_impl
) _Impl(2);
142 _S_global
= _S_classic
;
143 new (&c_locale
) locale(_S_classic
);
147 locale::_S_initialize()
150 if (__gthread_active_p())
151 __gthread_once(&_S_once
, _S_initialize_once
);
154 _S_initialize_once();
157 // Definitions for static const data members of locale::_Impl
158 const locale::id
* const
159 locale::_Impl::_S_id_ctype
[] =
161 &std::ctype
<char>::id
,
162 &codecvt
<char, char, mbstate_t>::id
,
163 #ifdef _GLIBCXX_USE_WCHAR_T
164 &std::ctype
<wchar_t>::id
,
165 &codecvt
<wchar_t, char, mbstate_t>::id
,
170 const locale::id
* const
171 locale::_Impl::_S_id_numeric
[] =
176 #ifdef _GLIBCXX_USE_WCHAR_T
177 &num_get
<wchar_t>::id
,
178 &num_put
<wchar_t>::id
,
179 &numpunct
<wchar_t>::id
,
184 const locale::id
* const
185 locale::_Impl::_S_id_collate
[] =
187 &std::collate
<char>::id
,
188 #ifdef _GLIBCXX_USE_WCHAR_T
189 &std::collate
<wchar_t>::id
,
194 const locale::id
* const
195 locale::_Impl::_S_id_time
[] =
197 &__timepunct
<char>::id
,
200 #ifdef _GLIBCXX_USE_WCHAR_T
201 &__timepunct
<wchar_t>::id
,
202 &time_get
<wchar_t>::id
,
203 &time_put
<wchar_t>::id
,
208 const locale::id
* const
209 locale::_Impl::_S_id_monetary
[] =
211 &money_get
<char>::id
,
212 &money_put
<char>::id
,
213 &moneypunct
<char, false>::id
,
214 &moneypunct
<char, true >::id
,
215 #ifdef _GLIBCXX_USE_WCHAR_T
216 &money_get
<wchar_t>::id
,
217 &money_put
<wchar_t>::id
,
218 &moneypunct
<wchar_t, false>::id
,
219 &moneypunct
<wchar_t, true >::id
,
224 const locale::id
* const
225 locale::_Impl::_S_id_messages
[] =
227 &std::messages
<char>::id
,
228 #ifdef _GLIBCXX_USE_WCHAR_T
229 &std::messages
<wchar_t>::id
,
234 const locale::id
* const* const
235 locale::_Impl::_S_facet_categories
[] =
237 // Order must match the decl order in class locale.
238 locale::_Impl::_S_id_ctype
,
239 locale::_Impl::_S_id_numeric
,
240 locale::_Impl::_S_id_collate
,
241 locale::_Impl::_S_id_time
,
242 locale::_Impl::_S_id_monetary
,
243 locale::_Impl::_S_id_messages
,
247 // Construct "C" _Impl.
249 _Impl(size_t __refs
) throw()
250 : _M_refcount(__refs
), _M_facets_size(_GLIBCXX_NUM_FACETS
)
252 _M_facets
= new (&facet_vec
) const facet
*[_M_facets_size
];
253 _M_caches
= new (&cache_vec
) const facet
*[_M_facets_size
];
254 for (size_t __i
= 0; __i
< _M_facets_size
; ++__i
)
255 _M_facets
[__i
] = _M_caches
[__i
] = 0;
257 // Name all the categories.
258 _M_names
= new (&name_vec
) char*[_S_categories_size
];
259 for (size_t __i
= 0; __i
< _S_categories_size
; ++__i
)
261 _M_names
[__i
] = new (&name_c
[__i
]) char[2];
262 std::strcpy(_M_names
[__i
], locale::facet::_S_get_c_name());
265 // This is needed as presently the C++ version of "C" locales
266 // != data in the underlying locale model for __timepunct,
267 // numpunct, and moneypunct. Also, the "C" locales must be
268 // constructed in a way such that they are pre-allocated.
269 // NB: Set locale::facets(ref) count to one so that each individual
270 // facet is not destroyed when the locale (and thus locale::_Impl) is
272 _M_init_facet(new (&ctype_c
) std::ctype
<char>(0, false, 1));
273 _M_init_facet(new (&codecvt_c
) codecvt
<char, char, mbstate_t>(1));
275 typedef __numpunct_cache
<char> num_cache_c
;
276 num_cache_c
* __npc
= new (&numpunct_cache_c
) num_cache_c(2);
277 _M_init_facet(new (&numpunct_c
) numpunct
<char>(__npc
, 1));
279 _M_init_facet(new (&num_get_c
) num_get
<char>(1));
280 _M_init_facet(new (&num_put_c
) num_put
<char>(1));
281 _M_init_facet(new (&collate_c
) std::collate
<char>(1));
283 typedef __moneypunct_cache
<char> money_cache_c
;
284 money_cache_c
* __mpcf
= new (&moneypunct_cache_cf
) money_cache_c(2);
285 _M_init_facet(new (&moneypunct_cf
) moneypunct
<char, false>(__mpcf
, 1));
286 money_cache_c
* __mpct
= new (&moneypunct_cache_ct
) money_cache_c(2);
287 _M_init_facet(new (&moneypunct_ct
) moneypunct
<char, true>(__mpct
, 1));
289 _M_init_facet(new (&money_get_c
) money_get
<char>(1));
290 _M_init_facet(new (&money_put_c
) money_put
<char>(1));
292 typedef __timepunct_cache
<char> time_cache_c
;
293 time_cache_c
* __tpc
= new (&timepunct_cache_c
) time_cache_c(2);
294 _M_init_facet(new (&timepunct_c
) __timepunct
<char>(__tpc
, 1));
296 _M_init_facet(new (&time_get_c
) time_get
<char>(1));
297 _M_init_facet(new (&time_put_c
) time_put
<char>(1));
298 _M_init_facet(new (&messages_c
) std::messages
<char>(1));
300 #ifdef _GLIBCXX_USE_WCHAR_T
301 _M_init_facet(new (&ctype_w
) std::ctype
<wchar_t>(1));
302 _M_init_facet(new (&codecvt_w
) codecvt
<wchar_t, char, mbstate_t>(1));
304 typedef __numpunct_cache
<wchar_t> num_cache_w
;
305 num_cache_w
* __npw
= new (&numpunct_cache_w
) num_cache_w(2);
306 _M_init_facet(new (&numpunct_w
) numpunct
<wchar_t>(__npw
, 1));
308 _M_init_facet(new (&num_get_w
) num_get
<wchar_t>(1));
309 _M_init_facet(new (&num_put_w
) num_put
<wchar_t>(1));
310 _M_init_facet(new (&collate_w
) std::collate
<wchar_t>(1));
312 typedef __moneypunct_cache
<wchar_t> money_cache_w
;
313 money_cache_w
* __mpwf
= new (&moneypunct_cache_wf
) money_cache_w(2);
314 _M_init_facet(new (&moneypunct_wf
) moneypunct
<wchar_t, false>(__mpwf
, 1));
315 money_cache_w
* __mpwt
= new (&moneypunct_cache_wt
) money_cache_w(2);
316 _M_init_facet(new (&moneypunct_wt
) moneypunct
<wchar_t, true>(__mpwt
, 1));
318 _M_init_facet(new (&money_get_w
) money_get
<wchar_t>(1));
319 _M_init_facet(new (&money_put_w
) money_put
<wchar_t>(1));
321 typedef __timepunct_cache
<wchar_t> time_cache_w
;
322 time_cache_w
* __tpw
= new (&timepunct_cache_w
) time_cache_w(2);
323 _M_init_facet(new (&timepunct_w
) __timepunct
<wchar_t>(__tpw
, 1));
325 _M_init_facet(new (&time_get_w
) time_get
<wchar_t>(1));
326 _M_init_facet(new (&time_put_w
) time_put
<wchar_t>(1));
327 _M_init_facet(new (&messages_w
) std::messages
<wchar_t>(1));
330 // This locale is safe to pre-cache, after all the facets have
331 // been created and installed.
332 _M_caches
[numpunct
<char>::id
._M_id()] = __npc
;
333 _M_caches
[moneypunct
<char, false>::id
._M_id()] = __mpcf
;
334 _M_caches
[moneypunct
<char, true>::id
._M_id()] = __mpct
;
335 _M_caches
[__timepunct
<char>::id
._M_id()] = __tpc
;
336 #ifdef _GLIBCXX_USE_WCHAR_T
337 _M_caches
[numpunct
<wchar_t>::id
._M_id()] = __npw
;
338 _M_caches
[moneypunct
<wchar_t, false>::id
._M_id()] = __mpwf
;
339 _M_caches
[moneypunct
<wchar_t, true>::id
._M_id()] = __mpwt
;
340 _M_caches
[__timepunct
<wchar_t>::id
._M_id()] = __tpw
;