1 // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2 // 2006, 2007, 2008, 2009, 2010
3 // Free Software Foundation, Inc.
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
8 // Free Software Foundation; either version 3, or (at your option)
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.
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.
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/>.
30 namespace std
_GLIBCXX_VISIBILITY(default)
32 _GLIBCXX_BEGIN_NAMESPACE_VERSION
34 using namespace __gnu_cxx
;
36 locale::locale(const char* __s
) : _M_impl(0)
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);
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)
52 if (std::strcmp(__env
, "C") == 0
53 || std::strcmp(__env
, "POSIX") == 0)
54 (_M_impl
= _S_classic
)->_M_add_reference();
56 _M_impl
= new _Impl(__env
, 1);
60 // LANG may set a default different from "C".
62 __env
= std::getenv("LANG");
63 if (!__env
|| std::strcmp(__env
, "") == 0
64 || std::strcmp(__env
, "C") == 0
65 || std::strcmp(__env
, "POSIX") == 0)
70 // Scan the categories looking for the first one
71 // different from LANG.
74 for (; __i
< _S_categories_size
; ++__i
)
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)
83 for (; __i
< _S_categories_size
; ++__i
)
85 __env
= std::getenv(_S_categories
[__i
]);
86 if (__env
&& std::strcmp(__env
, "") != 0
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
)
97 for (size_t __j
= 0; __j
< __i
; ++__j
)
99 __str
+= _S_categories
[__j
];
104 __str
+= _S_categories
[__i
];
109 for (; __i
< _S_categories_size
; ++__i
)
111 __env
= std::getenv(_S_categories
[__i
]);
112 __str
+= _S_categories
[__i
];
113 if (!__env
|| std::strcmp(__env
, "") == 0)
119 else if (std::strcmp(__env
, "C") == 0
120 || std::strcmp(__env
, "POSIX") == 0)
129 __str
.erase(__str
.end() - 1);
130 _M_impl
= new _Impl(__str
.c_str(), 1);
132 // ... otherwise either an additional instance of
133 // the "C" locale or LANG.
134 else if (__lang
== "C")
135 (_M_impl
= _S_classic
)->_M_add_reference();
137 _M_impl
= new _Impl(__lang
.c_str(), 1);
142 __throw_runtime_error(__N("locale::locale null not valid"));
145 locale::locale(const locale
& __base
, const char* __s
, category __cat
)
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.
152 _M_coalesce(__base
, __add
, __cat
);
155 locale::locale(const locale
& __base
, const locale
& __add
, category __cat
)
157 { _M_coalesce(__base
, __add
, __cat
); }
160 locale::_M_coalesce(const locale
& __base
, const locale
& __add
,
163 __cat
= _S_normalize_category(__cat
);
164 _M_impl
= new _Impl(*__base
._M_impl
, 1);
167 { _M_impl
->_M_replace_categories(__add
._M_impl
, __cat
); }
170 _M_impl
->_M_remove_reference();
171 __throw_exception_again
;
175 // Construct named _Impl.
177 _Impl(const char* __s
, size_t __refs
)
178 : _M_refcount(__refs
), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS
),
179 _M_caches(0), _M_names(0)
181 // Initialize the underlying locale model, which also checks to
182 // see if the given name is valid.
184 locale::facet::_S_create_c_locale(__cloc
, __s
);
185 __c_locale __clocm
= __cloc
;
189 _M_facets
= new const facet
*[_M_facets_size
];
190 for (size_t __i
= 0; __i
< _M_facets_size
; ++__i
)
192 _M_caches
= new const facet
*[_M_facets_size
];
193 for (size_t __j
= 0; __j
< _M_facets_size
; ++__j
)
195 _M_names
= new char*[_S_categories_size
];
196 for (size_t __k
= 0; __k
< _S_categories_size
; ++__k
)
199 // Name the categories.
200 const char* __smon
= __s
;
201 const size_t __len
= std::strlen(__s
);
202 if (!std::memchr(__s
, ';', __len
))
204 _M_names
[0] = new char[__len
+ 1];
205 std::memcpy(_M_names
[0], __s
, __len
+ 1);
209 const char* __end
= __s
;
210 bool __found_ctype
= false;
211 bool __found_monetary
= false;
212 size_t __ci
= 0, __mi
= 0;
213 for (size_t __i
= 0; __i
< _S_categories_size
; ++__i
)
215 const char* __beg
= std::strchr(__end
+ 1, '=') + 1;
216 __end
= std::strchr(__beg
, ';');
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';
223 && *(__beg
- 2) == 'E' && *(__beg
- 3) == 'P')
225 __found_ctype
= true;
228 else if (!__found_monetary
&& *(__beg
- 2) == 'Y')
230 __found_monetary
= true;
235 if (std::strcmp(_M_names
[__ci
], _M_names
[__mi
]))
237 __smon
= _M_names
[__mi
];
238 __clocm
= locale::facet::_S_lc_ctype_c_locale(__cloc
,
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
));
250 _M_init_facet(new moneypunct
<char, false>(__cloc
, 0));
251 _M_init_facet(new moneypunct
<char, true>(__cloc
, 0));
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
));
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
));
266 _M_init_facet(new moneypunct
<wchar_t, false>(__clocm
, __smon
));
267 _M_init_facet(new moneypunct
<wchar_t, true>(__clocm
, __smon
));
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
));
275 locale::facet::_S_destroy_c_locale(__cloc
);
276 if (__clocm
!= __cloc
)
277 locale::facet::_S_destroy_c_locale(__clocm
);
281 locale::facet::_S_destroy_c_locale(__cloc
);
282 if (__clocm
!= __cloc
)
283 locale::facet::_S_destroy_c_locale(__clocm
);
285 __throw_exception_again
;
291 _M_replace_categories(const _Impl
* __imp
, category __cat
)
294 if (!_M_names
[0] || !__imp
->_M_names
[0])
298 delete [] _M_names
[0];
299 _M_names
[0] = 0; // Unnamed.
302 for (size_t __ix
= 0; __ix
< _S_categories_size
; ++__ix
, __mask
<<= 1)
305 // Need to replace entry in _M_facets with other locale's info.
306 _M_replace_category(__imp
, _S_facet_categories
[__ix
]);
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
)
320 _M_names
[__i
] = new char[__len
];
321 std::memcpy(_M_names
[__i
], _M_names
[0], __len
);
325 for (size_t __ix
= 0; __ix
< _S_categories_size
; ++__ix
, __mask
<<= 1)
329 // Need to replace entry in _M_facets with other locale's info.
330 _M_replace_category(__imp
, _S_facet_categories
[__ix
]);
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
;
341 char* __src
= __imp
->_M_names
[__ix_name
] ?
342 __imp
->_M_names
[__ix_name
] : __imp
->_M_names
[0];
343 const size_t __len
= std::strlen(__src
) + 1;
344 char* __new
= new char[__len
];
345 std::memcpy(__new
, __src
, __len
);
346 delete [] _M_names
[__ix_name
];
347 _M_names
[__ix_name
] = __new
;
353 _GLIBCXX_END_NAMESPACE_VERSION