]>
Commit | Line | Data |
---|---|---|
4ba851b5 | 1 | // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
d652f226 | 2 | // 2006, 2007, 2008, 2009, 2010 |
8dba028f | 3 | // Free Software Foundation, Inc. |
b2dad0e3 BK |
4 | // |
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 | |
748086b7 | 8 | // Free Software Foundation; either version 3, or (at your option) |
b2dad0e3 BK |
9 | // any later version. |
10 | ||
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. | |
15 | ||
748086b7 JJ |
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. | |
b2dad0e3 | 19 | |
748086b7 JJ |
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/>. | |
b2dad0e3 | 24 | |
54c1bf78 BK |
25 | #include <clocale> |
26 | #include <cstring> | |
4ba851b5 | 27 | #include <cstdlib> |
54c1bf78 | 28 | #include <locale> |
b2dad0e3 | 29 | |
12ffa228 BK |
30 | namespace std _GLIBCXX_VISIBILITY(default) |
31 | { | |
32 | _GLIBCXX_BEGIN_NAMESPACE_VERSION | |
3cbc7af0 | 33 | |
a7817e1d | 34 | using namespace __gnu_cxx; |
d3a193e3 | 35 | |
26c691a8 | 36 | locale::locale(const char* __s) : _M_impl(0) |
e4cc8659 | 37 | { |
c755e77d | 38 | if (__s) |
91675f9d | 39 | { |
c755e77d BK |
40 | _S_initialize(); |
41 | if (std::strcmp(__s, "C") == 0 || std::strcmp(__s, "POSIX") == 0) | |
42 | (_M_impl = _S_classic)->_M_add_reference(); | |
43 | else if (std::strcmp(__s, "") != 0) | |
44 | _M_impl = new _Impl(__s, 1); | |
45 | else | |
91675f9d | 46 | { |
c755e77d BK |
47 | // Get it from the environment. |
48 | char* __env = std::getenv("LC_ALL"); | |
49 | // If LC_ALL is set we are done. | |
50 | if (__env && std::strcmp(__env, "") != 0) | |
51 | { | |
52 | if (std::strcmp(__env, "C") == 0 | |
53 | || std::strcmp(__env, "POSIX") == 0) | |
54 | (_M_impl = _S_classic)->_M_add_reference(); | |
55 | else | |
56 | _M_impl = new _Impl(__env, 1); | |
57 | } | |
58 | else | |
59 | { | |
c755e77d | 60 | // LANG may set a default different from "C". |
17c08c32 PC |
61 | string __lang; |
62 | __env = std::getenv("LANG"); | |
c755e77d BK |
63 | if (!__env || std::strcmp(__env, "") == 0 |
64 | || std::strcmp(__env, "C") == 0 | |
65 | || std::strcmp(__env, "POSIX") == 0) | |
17c08c32 | 66 | __lang = "C"; |
c755e77d | 67 | else |
17c08c32 | 68 | __lang = __env; |
c755e77d BK |
69 | |
70 | // Scan the categories looking for the first one | |
71 | // different from LANG. | |
72 | size_t __i = 0; | |
17c08c32 | 73 | if (__lang == "C") |
c755e77d BK |
74 | for (; __i < _S_categories_size; ++__i) |
75 | { | |
76 | __env = std::getenv(_S_categories[__i]); | |
77 | if (__env && std::strcmp(__env, "") != 0 | |
78 | && std::strcmp(__env, "C") != 0 | |
79 | && std::strcmp(__env, "POSIX") != 0) | |
80 | break; | |
81 | } | |
82 | else | |
83 | for (; __i < _S_categories_size; ++__i) | |
84 | { | |
85 | __env = std::getenv(_S_categories[__i]); | |
86 | if (__env && std::strcmp(__env, "") != 0 | |
17c08c32 | 87 | && __lang != __env) |
c755e77d BK |
88 | break; |
89 | } | |
90 | ||
91 | // If one is found, build the complete string of | |
92 | // the form LC_CTYPE=xxx;LC_NUMERIC=yyy; and so on... | |
93 | if (__i < _S_categories_size) | |
94 | { | |
95 | string __str; | |
4df9c41d | 96 | __str.reserve(128); |
c755e77d BK |
97 | for (size_t __j = 0; __j < __i; ++__j) |
98 | { | |
99 | __str += _S_categories[__j]; | |
100 | __str += '='; | |
17c08c32 | 101 | __str += __lang; |
c755e77d BK |
102 | __str += ';'; |
103 | } | |
104 | __str += _S_categories[__i]; | |
105 | __str += '='; | |
106 | __str += __env; | |
107 | __str += ';'; | |
17c08c32 | 108 | ++__i; |
c755e77d BK |
109 | for (; __i < _S_categories_size; ++__i) |
110 | { | |
111 | __env = std::getenv(_S_categories[__i]); | |
17c08c32 | 112 | __str += _S_categories[__i]; |
c755e77d BK |
113 | if (!__env || std::strcmp(__env, "") == 0) |
114 | { | |
c755e77d | 115 | __str += '='; |
17c08c32 | 116 | __str += __lang; |
c755e77d BK |
117 | __str += ';'; |
118 | } | |
119 | else if (std::strcmp(__env, "C") == 0 | |
120 | || std::strcmp(__env, "POSIX") == 0) | |
17c08c32 | 121 | __str += "=C;"; |
c755e77d BK |
122 | else |
123 | { | |
c755e77d BK |
124 | __str += '='; |
125 | __str += __env; | |
126 | __str += ';'; | |
127 | } | |
128 | } | |
129 | __str.erase(__str.end() - 1); | |
130 | _M_impl = new _Impl(__str.c_str(), 1); | |
131 | } | |
132 | // ... otherwise either an additional instance of | |
133 | // the "C" locale or LANG. | |
17c08c32 | 134 | else if (__lang == "C") |
c755e77d BK |
135 | (_M_impl = _S_classic)->_M_add_reference(); |
136 | else | |
17c08c32 | 137 | _M_impl = new _Impl(__lang.c_str(), 1); |
c755e77d | 138 | } |
91675f9d | 139 | } |
73c4dcc6 | 140 | } |
c755e77d | 141 | else |
8fc81078 | 142 | __throw_runtime_error(__N("locale::locale null not valid")); |
c755e77d BK |
143 | } |
144 | ||
145 | locale::locale(const locale& __base, const char* __s, category __cat) | |
26c691a8 | 146 | : _M_impl(0) |
c755e77d BK |
147 | { |
148 | // NB: There are complicated, yet more efficient ways to do | |
149 | // this. Building up locales on a per-category way is tedious, so | |
150 | // let's do it this way until people complain. | |
151 | locale __add(__s); | |
152 | _M_coalesce(__base, __add, __cat); | |
153 | } | |
154 | ||
155 | locale::locale(const locale& __base, const locale& __add, category __cat) | |
26c691a8 | 156 | : _M_impl(0) |
3ecaae52 | 157 | { _M_coalesce(__base, __add, __cat); } |
c755e77d BK |
158 | |
159 | void | |
160 | locale::_M_coalesce(const locale& __base, const locale& __add, | |
161 | category __cat) | |
162 | { | |
163 | __cat = _S_normalize_category(__cat); | |
164 | _M_impl = new _Impl(*__base._M_impl, 1); | |
165 | ||
bc2631e0 | 166 | __try |
c755e77d | 167 | { _M_impl->_M_replace_categories(__add._M_impl, __cat); } |
bf4967a1 | 168 | __catch(...) |
c755e77d BK |
169 | { |
170 | _M_impl->_M_remove_reference(); | |
73c4dcc6 BK |
171 | __throw_exception_again; |
172 | } | |
e4cc8659 BK |
173 | } |
174 | ||
d3a193e3 | 175 | // Construct named _Impl. |
22b9554c | 176 | locale::_Impl:: |
17c08c32 | 177 | _Impl(const char* __s, size_t __refs) |
26c691a8 | 178 | : _M_refcount(__refs), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS), |
17c08c32 | 179 | _M_caches(0), _M_names(0) |
7dc08a20 | 180 | { |
215f9e28 BK |
181 | // Initialize the underlying locale model, which also checks to |
182 | // see if the given name is valid. | |
def9790d | 183 | __c_locale __cloc; |
d3a193e3 | 184 | locale::facet::_S_create_c_locale(__cloc, __s); |
c8036448 | 185 | __c_locale __clocm = __cloc; |
def9790d | 186 | |
bc2631e0 | 187 | __try |
215f9e28 | 188 | { |
91675f9d | 189 | _M_facets = new const facet*[_M_facets_size]; |
70863cbd PC |
190 | for (size_t __i = 0; __i < _M_facets_size; ++__i) |
191 | _M_facets[__i] = 0; | |
91675f9d | 192 | _M_caches = new const facet*[_M_facets_size]; |
95b147fe SM |
193 | for (size_t __j = 0; __j < _M_facets_size; ++__j) |
194 | _M_caches[__j] = 0; | |
91675f9d | 195 | _M_names = new char*[_S_categories_size]; |
95b147fe SM |
196 | for (size_t __k = 0; __k < _S_categories_size; ++__k) |
197 | _M_names[__k] = 0; | |
215f9e28 | 198 | |
4df9c41d | 199 | // Name the categories. |
c8036448 | 200 | const char* __smon = __s; |
91675f9d | 201 | const size_t __len = std::strlen(__s); |
17c08c32 | 202 | if (!std::memchr(__s, ';', __len)) |
aa53f832 | 203 | { |
4df9c41d | 204 | _M_names[0] = new char[__len + 1]; |
c8036448 | 205 | std::memcpy(_M_names[0], __s, __len + 1); |
aa53f832 | 206 | } |
91675f9d | 207 | else |
aa53f832 | 208 | { |
2d91a076 | 209 | const char* __end = __s; |
c8036448 PC |
210 | bool __found_ctype = false; |
211 | bool __found_monetary = false; | |
212 | size_t __ci = 0, __mi = 0; | |
91675f9d PC |
213 | for (size_t __i = 0; __i < _S_categories_size; ++__i) |
214 | { | |
2d91a076 PC |
215 | const char* __beg = std::strchr(__end + 1, '=') + 1; |
216 | __end = std::strchr(__beg, ';'); | |
91675f9d PC |
217 | if (!__end) |
218 | __end = __s + __len; | |
4df9c41d PC |
219 | _M_names[__i] = new char[__end - __beg + 1]; |
220 | std::memcpy(_M_names[__i], __beg, __end - __beg); | |
221 | _M_names[__i][__end - __beg] = '\0'; | |
c8036448 PC |
222 | if (!__found_ctype |
223 | && *(__beg - 2) == 'E' && *(__beg - 3) == 'P') | |
224 | { | |
225 | __found_ctype = true; | |
226 | __ci = __i; | |
227 | } | |
228 | else if (!__found_monetary && *(__beg - 2) == 'Y') | |
229 | { | |
230 | __found_monetary = true; | |
231 | __mi = __i; | |
232 | } | |
233 | } | |
234 | ||
235 | if (std::strcmp(_M_names[__ci], _M_names[__mi])) | |
236 | { | |
237 | __smon = _M_names[__mi]; | |
238 | __clocm = locale::facet::_S_lc_ctype_c_locale(__cloc, | |
239 | __smon); | |
91675f9d | 240 | } |
aa53f832 | 241 | } |
70863cbd PC |
242 | |
243 | // Construct all standard facets and add them to _M_facets. | |
244 | _M_init_facet(new std::ctype<char>(__cloc, 0, false)); | |
245 | _M_init_facet(new codecvt<char, char, mbstate_t>(__cloc)); | |
246 | _M_init_facet(new numpunct<char>(__cloc)); | |
247 | _M_init_facet(new num_get<char>); | |
248 | _M_init_facet(new num_put<char>); | |
249 | _M_init_facet(new std::collate<char>(__cloc)); | |
c8036448 PC |
250 | _M_init_facet(new moneypunct<char, false>(__cloc, 0)); |
251 | _M_init_facet(new moneypunct<char, true>(__cloc, 0)); | |
70863cbd PC |
252 | _M_init_facet(new money_get<char>); |
253 | _M_init_facet(new money_put<char>); | |
254 | _M_init_facet(new __timepunct<char>(__cloc, __s)); | |
255 | _M_init_facet(new time_get<char>); | |
256 | _M_init_facet(new time_put<char>); | |
257 | _M_init_facet(new std::messages<char>(__cloc, __s)); | |
258 | ||
259 | #ifdef _GLIBCXX_USE_WCHAR_T | |
260 | _M_init_facet(new std::ctype<wchar_t>(__cloc)); | |
261 | _M_init_facet(new codecvt<wchar_t, char, mbstate_t>(__cloc)); | |
262 | _M_init_facet(new numpunct<wchar_t>(__cloc)); | |
263 | _M_init_facet(new num_get<wchar_t>); | |
264 | _M_init_facet(new num_put<wchar_t>); | |
265 | _M_init_facet(new std::collate<wchar_t>(__cloc)); | |
c8036448 PC |
266 | _M_init_facet(new moneypunct<wchar_t, false>(__clocm, __smon)); |
267 | _M_init_facet(new moneypunct<wchar_t, true>(__clocm, __smon)); | |
70863cbd PC |
268 | _M_init_facet(new money_get<wchar_t>); |
269 | _M_init_facet(new money_put<wchar_t>); | |
270 | _M_init_facet(new __timepunct<wchar_t>(__cloc, __s)); | |
271 | _M_init_facet(new time_get<wchar_t>); | |
272 | _M_init_facet(new time_put<wchar_t>); | |
273 | _M_init_facet(new std::messages<wchar_t>(__cloc, __s)); | |
274 | #endif | |
275 | locale::facet::_S_destroy_c_locale(__cloc); | |
c8036448 PC |
276 | if (__clocm != __cloc) |
277 | locale::facet::_S_destroy_c_locale(__clocm); | |
aa53f832 | 278 | } |
bc2631e0 | 279 | __catch(...) |
91675f9d | 280 | { |
70863cbd | 281 | locale::facet::_S_destroy_c_locale(__cloc); |
c8036448 PC |
282 | if (__clocm != __cloc) |
283 | locale::facet::_S_destroy_c_locale(__clocm); | |
91675f9d PC |
284 | this->~_Impl(); |
285 | __throw_exception_again; | |
70863cbd | 286 | } |
b2dad0e3 | 287 | } |
d3a193e3 | 288 | |
e4cc8659 BK |
289 | void |
290 | locale::_Impl:: | |
d358ecd0 | 291 | _M_replace_categories(const _Impl* __imp, category __cat) |
e4cc8659 | 292 | { |
4df9c41d | 293 | category __mask = 1; |
3ecaae52 PC |
294 | if (!_M_names[0] || !__imp->_M_names[0]) |
295 | { | |
296 | if (_M_names[0]) | |
297 | { | |
298 | delete [] _M_names[0]; | |
299 | _M_names[0] = 0; // Unnamed. | |
300 | } | |
301 | ||
302 | for (size_t __ix = 0; __ix < _S_categories_size; ++__ix, __mask <<= 1) | |
303 | { | |
304 | if (__mask & __cat) | |
305 | // Need to replace entry in _M_facets with other locale's info. | |
306 | _M_replace_category(__imp, _S_facet_categories[__ix]); | |
307 | } | |
308 | } | |
309 | else | |
e4cc8659 | 310 | { |
3ecaae52 | 311 | if (!_M_names[1]) |
e4cc8659 | 312 | { |
3ecaae52 PC |
313 | // A full set of _M_names must be prepared, all identical |
314 | // to _M_names[0] to begin with. Then, below, a few will | |
315 | // be replaced by the corresponding __imp->_M_names. I.e., | |
316 | // not a "simple" locale anymore (see locale::operator==). | |
317 | const size_t __len = std::strlen(_M_names[0]) + 1; | |
318 | for (size_t __i = 1; __i < _S_categories_size; ++__i) | |
aa53f832 | 319 | { |
3ecaae52 PC |
320 | _M_names[__i] = new char[__len]; |
321 | std::memcpy(_M_names[__i], _M_names[0], __len); | |
322 | } | |
323 | } | |
324 | ||
325 | for (size_t __ix = 0; __ix < _S_categories_size; ++__ix, __mask <<= 1) | |
326 | { | |
327 | if (__mask & __cat) | |
328 | { | |
329 | // Need to replace entry in _M_facets with other locale's info. | |
330 | _M_replace_category(__imp, _S_facet_categories[__ix]); | |
6ae72522 PC |
331 | |
332 | // FIXME: Hack for libstdc++/29217: the numerical encodings | |
333 | // of the time and collate categories are swapped vs the | |
334 | // order of the names in locale::_S_categories. We'd like to | |
335 | // adjust the former (the latter is dictated by compatibility | |
336 | // with glibc) but we can't for binary compatibility. | |
337 | size_t __ix_name = __ix; | |
338 | if (__ix == 2 || __ix == 3) | |
339 | __ix_name = 5 - __ix; | |
340 | ||
341 | char* __src = __imp->_M_names[__ix_name] ? | |
342 | __imp->_M_names[__ix_name] : __imp->_M_names[0]; | |
4df9c41d PC |
343 | const size_t __len = std::strlen(__src) + 1; |
344 | char* __new = new char[__len]; | |
345 | std::memcpy(__new, __src, __len); | |
6ae72522 PC |
346 | delete [] _M_names[__ix_name]; |
347 | _M_names[__ix_name] = __new; | |
aa53f832 | 348 | } |
e4cc8659 BK |
349 | } |
350 | } | |
351 | } | |
3cbc7af0 | 352 | |
12ffa228 BK |
353 | _GLIBCXX_END_NAMESPACE_VERSION |
354 | } // namespace |