URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc4/] [libstdc++-v3/] [src/] [localename.cc] - Rev 424
Go to most recent revision | Compare with Previous | Blame | View Log
// Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, // 2006, 2007, 2008, 2009 // Free Software Foundation, Inc. // // This file is part of the GNU ISO C++ Library. This library is free // software; you can redistribute it and/or modify it under the // terms of the GNU General Public License as published by the // Free Software Foundation; either version 3, or (at your option) // any later version. // This library is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // Under Section 7 of GPL version 3, you are granted additional // permissions described in the GCC Runtime Library Exception, version // 3.1, as published by the Free Software Foundation. // You should have received a copy of the GNU General Public License and // a copy of the GCC Runtime Library Exception along with this program; // see the files COPYING3 and COPYING.RUNTIME respectively. If not, see // <http://www.gnu.org/licenses/>. #include <clocale> #include <cstring> #include <cstdlib> #include <locale> _GLIBCXX_BEGIN_NAMESPACE(std) using namespace __gnu_cxx; locale::locale(const char* __s) : _M_impl(0) { if (__s) { _S_initialize(); if (std::strcmp(__s, "C") == 0 || std::strcmp(__s, "POSIX") == 0) (_M_impl = _S_classic)->_M_add_reference(); else if (std::strcmp(__s, "") != 0) _M_impl = new _Impl(__s, 1); else { // Get it from the environment. char* __env = std::getenv("LC_ALL"); // If LC_ALL is set we are done. if (__env && std::strcmp(__env, "") != 0) { if (std::strcmp(__env, "C") == 0 || std::strcmp(__env, "POSIX") == 0) (_M_impl = _S_classic)->_M_add_reference(); else _M_impl = new _Impl(__env, 1); } else { // LANG may set a default different from "C". string __lang; __env = std::getenv("LANG"); if (!__env || std::strcmp(__env, "") == 0 || std::strcmp(__env, "C") == 0 || std::strcmp(__env, "POSIX") == 0) __lang = "C"; else __lang = __env; // Scan the categories looking for the first one // different from LANG. size_t __i = 0; if (__lang == "C") for (; __i < _S_categories_size; ++__i) { __env = std::getenv(_S_categories[__i]); if (__env && std::strcmp(__env, "") != 0 && std::strcmp(__env, "C") != 0 && std::strcmp(__env, "POSIX") != 0) break; } else for (; __i < _S_categories_size; ++__i) { __env = std::getenv(_S_categories[__i]); if (__env && std::strcmp(__env, "") != 0 && __lang != __env) break; } // If one is found, build the complete string of // the form LC_CTYPE=xxx;LC_NUMERIC=yyy; and so on... if (__i < _S_categories_size) { string __str; __str.reserve(128); for (size_t __j = 0; __j < __i; ++__j) { __str += _S_categories[__j]; __str += '='; __str += __lang; __str += ';'; } __str += _S_categories[__i]; __str += '='; __str += __env; __str += ';'; ++__i; for (; __i < _S_categories_size; ++__i) { __env = std::getenv(_S_categories[__i]); __str += _S_categories[__i]; if (!__env || std::strcmp(__env, "") == 0) { __str += '='; __str += __lang; __str += ';'; } else if (std::strcmp(__env, "C") == 0 || std::strcmp(__env, "POSIX") == 0) __str += "=C;"; else { __str += '='; __str += __env; __str += ';'; } } __str.erase(__str.end() - 1); _M_impl = new _Impl(__str.c_str(), 1); } // ... otherwise either an additional instance of // the "C" locale or LANG. else if (__lang == "C") (_M_impl = _S_classic)->_M_add_reference(); else _M_impl = new _Impl(__lang.c_str(), 1); } } } else __throw_runtime_error(__N("locale::locale NULL not valid")); } locale::locale(const locale& __base, const char* __s, category __cat) : _M_impl(0) { // NB: There are complicated, yet more efficient ways to do // this. Building up locales on a per-category way is tedious, so // let's do it this way until people complain. locale __add(__s); _M_coalesce(__base, __add, __cat); } locale::locale(const locale& __base, const locale& __add, category __cat) : _M_impl(0) { _M_coalesce(__base, __add, __cat); } void locale::_M_coalesce(const locale& __base, const locale& __add, category __cat) { __cat = _S_normalize_category(__cat); _M_impl = new _Impl(*__base._M_impl, 1); __try { _M_impl->_M_replace_categories(__add._M_impl, __cat); } __catch(...) { _M_impl->_M_remove_reference(); __throw_exception_again; } } // Construct named _Impl. locale::_Impl:: _Impl(const char* __s, size_t __refs) : _M_refcount(__refs), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS), _M_caches(0), _M_names(0) { // Initialize the underlying locale model, which also checks to // see if the given name is valid. __c_locale __cloc; locale::facet::_S_create_c_locale(__cloc, __s); __c_locale __clocm = __cloc; __try { _M_facets = new const facet*[_M_facets_size]; for (size_t __i = 0; __i < _M_facets_size; ++__i) _M_facets[__i] = 0; _M_caches = new const facet*[_M_facets_size]; for (size_t __j = 0; __j < _M_facets_size; ++__j) _M_caches[__j] = 0; _M_names = new char*[_S_categories_size]; for (size_t __k = 0; __k < _S_categories_size; ++__k) _M_names[__k] = 0; // Name the categories. const char* __smon = __s; const size_t __len = std::strlen(__s); if (!std::memchr(__s, ';', __len)) { _M_names[0] = new char[__len + 1]; std::memcpy(_M_names[0], __s, __len + 1); } else { const char* __end = __s; bool __found_ctype = false; bool __found_monetary = false; size_t __ci = 0, __mi = 0; for (size_t __i = 0; __i < _S_categories_size; ++__i) { const char* __beg = std::strchr(__end + 1, '=') + 1; __end = std::strchr(__beg, ';'); if (!__end) __end = __s + __len; _M_names[__i] = new char[__end - __beg + 1]; std::memcpy(_M_names[__i], __beg, __end - __beg); _M_names[__i][__end - __beg] = '\0'; if (!__found_ctype && *(__beg - 2) == 'E' && *(__beg - 3) == 'P') { __found_ctype = true; __ci = __i; } else if (!__found_monetary && *(__beg - 2) == 'Y') { __found_monetary = true; __mi = __i; } } if (std::strcmp(_M_names[__ci], _M_names[__mi])) { __smon = _M_names[__mi]; __clocm = locale::facet::_S_lc_ctype_c_locale(__cloc, __smon); } } // Construct all standard facets and add them to _M_facets. _M_init_facet(new std::ctype<char>(__cloc, 0, false)); _M_init_facet(new codecvt<char, char, mbstate_t>(__cloc)); _M_init_facet(new numpunct<char>(__cloc)); _M_init_facet(new num_get<char>); _M_init_facet(new num_put<char>); _M_init_facet(new std::collate<char>(__cloc)); _M_init_facet(new moneypunct<char, false>(__cloc, 0)); _M_init_facet(new moneypunct<char, true>(__cloc, 0)); _M_init_facet(new money_get<char>); _M_init_facet(new money_put<char>); _M_init_facet(new __timepunct<char>(__cloc, __s)); _M_init_facet(new time_get<char>); _M_init_facet(new time_put<char>); _M_init_facet(new std::messages<char>(__cloc, __s)); #ifdef _GLIBCXX_USE_WCHAR_T _M_init_facet(new std::ctype<wchar_t>(__cloc)); _M_init_facet(new codecvt<wchar_t, char, mbstate_t>(__cloc)); _M_init_facet(new numpunct<wchar_t>(__cloc)); _M_init_facet(new num_get<wchar_t>); _M_init_facet(new num_put<wchar_t>); _M_init_facet(new std::collate<wchar_t>(__cloc)); _M_init_facet(new moneypunct<wchar_t, false>(__clocm, __smon)); _M_init_facet(new moneypunct<wchar_t, true>(__clocm, __smon)); _M_init_facet(new money_get<wchar_t>); _M_init_facet(new money_put<wchar_t>); _M_init_facet(new __timepunct<wchar_t>(__cloc, __s)); _M_init_facet(new time_get<wchar_t>); _M_init_facet(new time_put<wchar_t>); _M_init_facet(new std::messages<wchar_t>(__cloc, __s)); #endif locale::facet::_S_destroy_c_locale(__cloc); if (__clocm != __cloc) locale::facet::_S_destroy_c_locale(__clocm); } __catch(...) { locale::facet::_S_destroy_c_locale(__cloc); if (__clocm != __cloc) locale::facet::_S_destroy_c_locale(__clocm); this->~_Impl(); __throw_exception_again; } } void locale::_Impl:: _M_replace_categories(const _Impl* __imp, category __cat) { category __mask = 1; if (!_M_names[0] || !__imp->_M_names[0]) { if (_M_names[0]) { delete [] _M_names[0]; _M_names[0] = 0; // Unnamed. } for (size_t __ix = 0; __ix < _S_categories_size; ++__ix, __mask <<= 1) { if (__mask & __cat) // Need to replace entry in _M_facets with other locale's info. _M_replace_category(__imp, _S_facet_categories[__ix]); } } else { if (!_M_names[1]) { // A full set of _M_names must be prepared, all identical // to _M_names[0] to begin with. Then, below, a few will // be replaced by the corresponding __imp->_M_names. I.e., // not a "simple" locale anymore (see locale::operator==). const size_t __len = std::strlen(_M_names[0]) + 1; for (size_t __i = 1; __i < _S_categories_size; ++__i) { _M_names[__i] = new char[__len]; std::memcpy(_M_names[__i], _M_names[0], __len); } } for (size_t __ix = 0; __ix < _S_categories_size; ++__ix, __mask <<= 1) { if (__mask & __cat) { // Need to replace entry in _M_facets with other locale's info. _M_replace_category(__imp, _S_facet_categories[__ix]); // FIXME: Hack for libstdc++/29217: the numerical encodings // of the time and collate categories are swapped vs the // order of the names in locale::_S_categories. We'd like to // adjust the former (the latter is dictated by compatibility // with glibc) but we can't for binary compatibility. size_t __ix_name = __ix; if (__ix == 2 || __ix == 3) __ix_name = 5 - __ix; char* __src = __imp->_M_names[__ix_name] ? __imp->_M_names[__ix_name] : __imp->_M_names[0]; const size_t __len = std::strlen(__src) + 1; char* __new = new char[__len]; std::memcpy(__new, __src, __len); delete [] _M_names[__ix_name]; _M_names[__ix_name] = __new; } } } } _GLIBCXX_END_NAMESPACE
Go to most recent revision | Compare with Previous | Blame | View Log