1 // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 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, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, 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 <locale> 32 33 _GLIBCXX_BEGIN_NAMESPACE(std) 34 35 using namespace __gnu_cxx; 36 locale(const char * __s)37 locale::locale(const char* __s) : _M_impl(0) 38 { 39 if (__s) 40 { 41 _S_initialize(); 42 if (std::strcmp(__s, "C") == 0 || std::strcmp(__s, "POSIX") == 0) 43 (_M_impl = _S_classic)->_M_add_reference(); 44 else if (std::strcmp(__s, "") != 0) 45 _M_impl = new _Impl(__s, 1); 46 else 47 { 48 // Get it from the environment. 49 char* __env = std::getenv("LC_ALL"); 50 // If LC_ALL is set we are done. 51 if (__env && std::strcmp(__env, "") != 0) 52 { 53 if (std::strcmp(__env, "C") == 0 54 || std::strcmp(__env, "POSIX") == 0) 55 (_M_impl = _S_classic)->_M_add_reference(); 56 else 57 _M_impl = new _Impl(__env, 1); 58 } 59 else 60 { 61 // LANG may set a default different from "C". 62 string __lang; 63 __env = std::getenv("LANG"); 64 if (!__env || std::strcmp(__env, "") == 0 65 || std::strcmp(__env, "C") == 0 66 || std::strcmp(__env, "POSIX") == 0) 67 __lang = "C"; 68 else 69 __lang = __env; 70 71 // Scan the categories looking for the first one 72 // different from LANG. 73 size_t __i = 0; 74 if (__lang == "C") 75 for (; __i < _S_categories_size; ++__i) 76 { 77 __env = std::getenv(_S_categories[__i]); 78 if (__env && std::strcmp(__env, "") != 0 79 && std::strcmp(__env, "C") != 0 80 && std::strcmp(__env, "POSIX") != 0) 81 break; 82 } 83 else 84 for (; __i < _S_categories_size; ++__i) 85 { 86 __env = std::getenv(_S_categories[__i]); 87 if (__env && std::strcmp(__env, "") != 0 88 && __lang != __env) 89 break; 90 } 91 92 // If one is found, build the complete string of 93 // the form LC_CTYPE=xxx;LC_NUMERIC=yyy; and so on... 94 if (__i < _S_categories_size) 95 { 96 string __str; 97 __str.reserve(128); 98 for (size_t __j = 0; __j < __i; ++__j) 99 { 100 __str += _S_categories[__j]; 101 __str += '='; 102 __str += __lang; 103 __str += ';'; 104 } 105 __str += _S_categories[__i]; 106 __str += '='; 107 __str += __env; 108 __str += ';'; 109 ++__i; 110 for (; __i < _S_categories_size; ++__i) 111 { 112 __env = std::getenv(_S_categories[__i]); 113 __str += _S_categories[__i]; 114 if (!__env || std::strcmp(__env, "") == 0) 115 { 116 __str += '='; 117 __str += __lang; 118 __str += ';'; 119 } 120 else if (std::strcmp(__env, "C") == 0 121 || std::strcmp(__env, "POSIX") == 0) 122 __str += "=C;"; 123 else 124 { 125 __str += '='; 126 __str += __env; 127 __str += ';'; 128 } 129 } 130 __str.erase(__str.end() - 1); 131 _M_impl = new _Impl(__str.c_str(), 1); 132 } 133 // ... otherwise either an additional instance of 134 // the "C" locale or LANG. 135 else if (__lang == "C") 136 (_M_impl = _S_classic)->_M_add_reference(); 137 else 138 _M_impl = new _Impl(__lang.c_str(), 1); 139 } 140 } 141 } 142 else 143 __throw_runtime_error(__N("locale::locale NULL not valid")); 144 } 145 locale(const locale & __base,const char * __s,category __cat)146 locale::locale(const locale& __base, const char* __s, category __cat) 147 : _M_impl(0) 148 { 149 // NB: There are complicated, yet more efficient ways to do 150 // this. Building up locales on a per-category way is tedious, so 151 // let's do it this way until people complain. 152 locale __add(__s); 153 _M_coalesce(__base, __add, __cat); 154 } 155 locale(const locale & __base,const locale & __add,category __cat)156 locale::locale(const locale& __base, const locale& __add, category __cat) 157 : _M_impl(0) 158 { _M_coalesce(__base, __add, __cat); } 159 160 void _M_coalesce(const locale & __base,const locale & __add,category __cat)161 locale::_M_coalesce(const locale& __base, const locale& __add, 162 category __cat) 163 { 164 __cat = _S_normalize_category(__cat); 165 _M_impl = new _Impl(*__base._M_impl, 1); 166 167 try 168 { _M_impl->_M_replace_categories(__add._M_impl, __cat); } 169 catch (...) 170 { 171 _M_impl->_M_remove_reference(); 172 __throw_exception_again; 173 } 174 } 175 176 // Construct named _Impl. 177 locale::_Impl:: _Impl(const char * __s,size_t __refs)178 _Impl(const char* __s, size_t __refs) 179 : _M_refcount(__refs), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS), 180 _M_caches(0), _M_names(0) 181 { 182 // Initialize the underlying locale model, which also checks to 183 // see if the given name is valid. 184 __c_locale __cloc; 185 locale::facet::_S_create_c_locale(__cloc, __s); 186 187 try 188 { 189 _M_facets = new const facet*[_M_facets_size]; 190 for (size_t __i = 0; __i < _M_facets_size; ++__i) 191 _M_facets[__i] = 0; 192 _M_caches = new const facet*[_M_facets_size]; 193 for (size_t __j = 0; __j < _M_facets_size; ++__j) 194 _M_caches[__j] = 0; 195 _M_names = new char*[_S_categories_size]; 196 for (size_t __k = 0; __k < _S_categories_size; ++__k) 197 _M_names[__k] = 0; 198 199 // Name the categories. 200 const size_t __len = std::strlen(__s); 201 if (!std::memchr(__s, ';', __len)) 202 { 203 _M_names[0] = new char[__len + 1]; 204 std::memcpy(_M_names[0], __s, __len + 1); 205 } 206 else 207 { 208 const char* __end = __s; 209 for (size_t __i = 0; __i < _S_categories_size; ++__i) 210 { 211 const char* __beg = std::strchr(__end + 1, '=') + 1; 212 __end = std::strchr(__beg, ';'); 213 if (!__end) 214 __end = __s + __len; 215 _M_names[__i] = new char[__end - __beg + 1]; 216 std::memcpy(_M_names[__i], __beg, __end - __beg); 217 _M_names[__i][__end - __beg] = '\0'; 218 } 219 } 220 221 // Construct all standard facets and add them to _M_facets. 222 _M_init_facet(new std::ctype<char>(__cloc, 0, false)); 223 _M_init_facet(new codecvt<char, char, mbstate_t>(__cloc)); 224 _M_init_facet(new numpunct<char>(__cloc)); 225 _M_init_facet(new num_get<char>); 226 _M_init_facet(new num_put<char>); 227 _M_init_facet(new std::collate<char>(__cloc)); 228 _M_init_facet(new moneypunct<char, false>(__cloc, __s)); 229 _M_init_facet(new moneypunct<char, true>(__cloc, __s)); 230 _M_init_facet(new money_get<char>); 231 _M_init_facet(new money_put<char>); 232 _M_init_facet(new __timepunct<char>(__cloc, __s)); 233 _M_init_facet(new time_get<char>); 234 _M_init_facet(new time_put<char>); 235 _M_init_facet(new std::messages<char>(__cloc, __s)); 236 237 #ifdef _GLIBCXX_USE_WCHAR_T 238 _M_init_facet(new std::ctype<wchar_t>(__cloc)); 239 _M_init_facet(new codecvt<wchar_t, char, mbstate_t>(__cloc)); 240 _M_init_facet(new numpunct<wchar_t>(__cloc)); 241 _M_init_facet(new num_get<wchar_t>); 242 _M_init_facet(new num_put<wchar_t>); 243 _M_init_facet(new std::collate<wchar_t>(__cloc)); 244 _M_init_facet(new moneypunct<wchar_t, false>(__cloc, __s)); 245 _M_init_facet(new moneypunct<wchar_t, true>(__cloc, __s)); 246 _M_init_facet(new money_get<wchar_t>); 247 _M_init_facet(new money_put<wchar_t>); 248 _M_init_facet(new __timepunct<wchar_t>(__cloc, __s)); 249 _M_init_facet(new time_get<wchar_t>); 250 _M_init_facet(new time_put<wchar_t>); 251 _M_init_facet(new std::messages<wchar_t>(__cloc, __s)); 252 #endif 253 locale::facet::_S_destroy_c_locale(__cloc); 254 } 255 catch(...) 256 { 257 locale::facet::_S_destroy_c_locale(__cloc); 258 this->~_Impl(); 259 __throw_exception_again; 260 } 261 } 262 263 void 264 locale::_Impl:: _M_replace_categories(const _Impl * __imp,category __cat)265 _M_replace_categories(const _Impl* __imp, category __cat) 266 { 267 category __mask = 1; 268 const bool __have_names = _M_names[0] && __imp->_M_names[0]; 269 for (size_t __ix = 0; __ix < _S_categories_size; ++__ix, __mask <<= 1) 270 { 271 if (__mask & __cat) 272 { 273 // Need to replace entry in _M_facets with other locale's info. 274 _M_replace_category(__imp, _S_facet_categories[__ix]); 275 // If both have names, go ahead and mangle. 276 if (__have_names) 277 { 278 if (!_M_names[1]) 279 { 280 // A full set of _M_names must be prepared, all identical 281 // to _M_names[0] to begin with. Then, below, a few will 282 // be replaced by the corresponding __imp->_M_names. I.e., 283 // not a "simple" locale anymore (see locale::operator==). 284 const size_t __len = std::strlen(_M_names[0]) + 1; 285 for (size_t __i = 1; __i < _S_categories_size; ++__i) 286 { 287 _M_names[__i] = new char[__len]; 288 std::memcpy(_M_names[__i], _M_names[0], __len); 289 } 290 } 291 292 // FIXME: Hack for libstdc++/29217: the numerical encodings 293 // of the time and collate categories are swapped vs the 294 // order of the names in locale::_S_categories. We'd like to 295 // adjust the former (the latter is dictated by compatibility 296 // with glibc) but we can't for binary compatibility. 297 size_t __ix_name = __ix; 298 if (__ix == 2 || __ix == 3) 299 __ix_name = 5 - __ix; 300 301 char* __src = __imp->_M_names[__ix_name] ? 302 __imp->_M_names[__ix_name] : __imp->_M_names[0]; 303 const size_t __len = std::strlen(__src) + 1; 304 char* __new = new char[__len]; 305 std::memcpy(__new, __src, __len); 306 delete [] _M_names[__ix_name]; 307 _M_names[__ix_name] = __new; 308 } 309 } 310 } 311 } 312 313 _GLIBCXX_END_NAMESPACE 314