Merge branch 'master' of ssh://crater.dragonflybsd.org/repository/git/dragonfly
[dragonfly.git] / contrib / gcc-3.4 / libstdc++-v3 / src / locale_init.cc
CommitLineData
003757ed
MD
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
3a327f56
JS
92 // Mutex object for locale initialization.
93 __glibcxx_mutex_define_initialized(locale_mutex);
003757ed
MD
94} // namespace __gnu_internal
95
96namespace std
97{
98 using namespace __gnu_internal;
99
100 locale::locale() throw() : _M_impl(0)
101 {
102 _S_initialize();
3a327f56 103 __gnu_cxx::lock sentry(__gnu_internal::locale_mutex);
003757ed
MD
104 _S_global->_M_add_reference();
105 _M_impl = _S_global;
003757ed
MD
106 }
107
108 locale
109 locale::global(const locale& __other)
110 {
111 _S_initialize();
3a327f56
JS
112 _Impl* __old;
113 {
114 __gnu_cxx::lock sentry(__gnu_internal::locale_mutex);
115 __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 }
003757ed
MD
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