1 // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
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.
35 using namespace __gnu_cxx;
38 locale::locale(const char* __s) : _M_impl(0)
43 if (std::strcmp(__s, "C") == 0 || std::strcmp(__s, "POSIX") == 0)
44 (_M_impl = _S_classic)->_M_add_reference();
45 else if (std::strcmp(__s, "") != 0)
46 _M_impl = new _Impl(__s, 1);
49 // Get it from the environment.
50 char* __env = std::getenv("LC_ALL");
51 // If LC_ALL is set we are done.
52 if (__env && std::strcmp(__env, "") != 0)
54 if (std::strcmp(__env, "C") == 0
55 || std::strcmp(__env, "POSIX") == 0)
56 (_M_impl = _S_classic)->_M_add_reference();
58 _M_impl = new _Impl(__env, 1);
62 // LANG may set a default different from "C".
64 char* __env = std::getenv("LANG");
65 if (!__env || std::strcmp(__env, "") == 0
66 || std::strcmp(__env, "C") == 0
67 || std::strcmp(__env, "POSIX") == 0)
72 // Scan the categories looking for the first one
73 // different from LANG.
76 for (; __i < _S_categories_size; ++__i)
78 __env = std::getenv(_S_categories[__i]);
79 if (__env && std::strcmp(__env, "") != 0
80 && std::strcmp(__env, "C") != 0
81 && std::strcmp(__env, "POSIX") != 0)
85 for (; __i < _S_categories_size; ++__i)
87 __env = std::getenv(_S_categories[__i]);
88 if (__env && std::strcmp(__env, "") != 0
93 // If one is found, build the complete string of
94 // the form LC_CTYPE=xxx;LC_NUMERIC=yyy; and so on...
95 if (__i < _S_categories_size)
98 for (size_t __j = 0; __j < __i; ++__j)
100 __str += _S_categories[__j];
105 __str += _S_categories[__i];
110 for (; __i < _S_categories_size; ++__i)
112 __env = std::getenv(_S_categories[__i]);
113 if (!__env || std::strcmp(__env, "") == 0)
115 __str += _S_categories[__i];
120 else if (std::strcmp(__env, "C") == 0
121 || std::strcmp(__env, "POSIX") == 0)
123 __str += _S_categories[__i];
128 __str += _S_categories[__i];
134 __str.erase(__str.end() - 1);
135 _M_impl = new _Impl(__str.c_str(), 1);
137 // ... otherwise either an additional instance of
138 // the "C" locale or LANG.
139 else if (__res == "C")
140 (_M_impl = _S_classic)->_M_add_reference();
142 _M_impl = new _Impl(__res.c_str(), 1);
147 __throw_runtime_error(__N("locale::locale NULL not valid"));
150 locale::locale(const locale& __base, const char* __s, category __cat)
153 // NB: There are complicated, yet more efficient ways to do
154 // this. Building up locales on a per-category way is tedious, so
155 // let's do it this way until people complain.
157 _M_coalesce(__base, __add, __cat);
160 locale::locale(const locale& __base, const locale& __add, category __cat)
162 { _M_coalesce(__base, __add, __cat); }
165 locale::_M_coalesce(const locale& __base, const locale& __add,
168 __cat = _S_normalize_category(__cat);
169 _M_impl = new _Impl(*__base._M_impl, 1);
172 { _M_impl->_M_replace_categories(__add._M_impl, __cat); }
175 _M_impl->_M_remove_reference();
176 __throw_exception_again;
180 // Construct named _Impl.
182 _Impl(const char* __s, size_t __refs)
183 : _M_refcount(__refs), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS),
184 _M_caches(0), _M_names(0)
186 // Initialize the underlying locale model, which also checks to
187 // see if the given name is valid.
189 locale::facet::_S_create_c_locale(__cloc, __s);
193 _M_facets = new const facet*[_M_facets_size];
194 for (size_t __i = 0; __i < _M_facets_size; ++__i)
196 _M_caches = new const facet*[_M_facets_size];
197 for (size_t __j = 0; __j < _M_facets_size; ++__j)
199 _M_names = new char*[_S_categories_size];
200 for (size_t __k = 0; __k < _S_categories_size; ++__k)
203 // Name all the categories.
204 const size_t __len = std::strlen(__s);
205 if (!std::strchr(__s, ';'))
207 for (size_t __i = 0; __i < _S_categories_size; ++__i)
209 _M_names[__i] = new char[__len + 1];
210 std::strcpy(_M_names[__i], __s);
215 const char* __beg = __s;
216 for (size_t __i = 0; __i < _S_categories_size; ++__i)
218 __beg = std::strchr(__beg, '=') + 1;
219 const char* __end = std::strchr(__beg, ';');
222 char* __new = new char[__end - __beg + 1];
223 std::memcpy(__new, __beg, __end - __beg);
224 __new[__end - __beg] = '\0';
225 _M_names[__i] = __new;
229 // Construct all standard facets and add them to _M_facets.
230 _M_init_facet(new std::ctype<char>(__cloc, 0, false));
231 _M_init_facet(new codecvt<char, char, mbstate_t>(__cloc));
232 _M_init_facet(new numpunct<char>(__cloc));
233 _M_init_facet(new num_get<char>);
234 _M_init_facet(new num_put<char>);
235 _M_init_facet(new std::collate<char>(__cloc));
236 _M_init_facet(new moneypunct<char, false>(__cloc, __s));
237 _M_init_facet(new moneypunct<char, true>(__cloc, __s));
238 _M_init_facet(new money_get<char>);
239 _M_init_facet(new money_put<char>);
240 _M_init_facet(new __timepunct<char>(__cloc, __s));
241 _M_init_facet(new time_get<char>);
242 _M_init_facet(new time_put<char>);
243 _M_init_facet(new std::messages<char>(__cloc, __s));
245 #ifdef _GLIBCXX_USE_WCHAR_T
246 _M_init_facet(new std::ctype<wchar_t>(__cloc));
247 _M_init_facet(new codecvt<wchar_t, char, mbstate_t>(__cloc));
248 _M_init_facet(new numpunct<wchar_t>(__cloc));
249 _M_init_facet(new num_get<wchar_t>);
250 _M_init_facet(new num_put<wchar_t>);
251 _M_init_facet(new std::collate<wchar_t>(__cloc));
252 _M_init_facet(new moneypunct<wchar_t, false>(__cloc, __s));
253 _M_init_facet(new moneypunct<wchar_t, true>(__cloc, __s));
254 _M_init_facet(new money_get<wchar_t>);
255 _M_init_facet(new money_put<wchar_t>);
256 _M_init_facet(new __timepunct<wchar_t>(__cloc, __s));
257 _M_init_facet(new time_get<wchar_t>);
258 _M_init_facet(new time_put<wchar_t>);
259 _M_init_facet(new std::messages<wchar_t>(__cloc, __s));
261 locale::facet::_S_destroy_c_locale(__cloc);
265 locale::facet::_S_destroy_c_locale(__cloc);
267 __throw_exception_again;
273 _M_replace_categories(const _Impl* __imp, category __cat)
275 for (size_t __ix = 0; __ix < _S_categories_size; ++__ix)
277 const category __mask = 1 << __ix;
280 // Need to replace entry in _M_facets with other locale's info.
281 _M_replace_category(__imp, _S_facet_categories[__ix]);
282 // If both have names, go ahead and mangle.
283 if (std::strcmp(_M_names[__ix], "*") != 0
284 && std::strcmp(__imp->_M_names[__ix], "*") != 0)
286 char* __new = new char[std::strlen(__imp->_M_names[__ix]) + 1];
287 std::strcpy(__new, __imp->_M_names[__ix]);
288 delete [] _M_names[__ix];
289 _M_names[__ix] = __new;