diff options
Diffstat (limited to 'contrib/libstdc++/src/locale_init.cc')
-rw-r--r-- | contrib/libstdc++/src/locale_init.cc | 347 |
1 files changed, 347 insertions, 0 deletions
diff --git a/contrib/libstdc++/src/locale_init.cc b/contrib/libstdc++/src/locale_init.cc new file mode 100644 index 0000000..7252bc5 --- /dev/null +++ b/contrib/libstdc++/src/locale_init.cc @@ -0,0 +1,347 @@ +// Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 +// 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 2, 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. + +// You should have received a copy of the GNU General Public License along +// with this library; see the file COPYING. If not, write to the Free +// Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, +// USA. + +// As a special exception, you may use this file as part of a free software +// library without restriction. Specifically, if other files instantiate +// templates or use macros or inline functions from this file, or you compile +// this file and link it with other files to produce an executable, this +// file does not by itself cause the resulting executable to be covered by +// the GNU General Public License. This exception does not however +// invalidate any other reasons why the executable file might be covered by +// the GNU General Public License. + +#include <clocale> +#include <cstring> +#include <cstdlib> // For getenv, free. +#include <cctype> +#include <cwctype> // For towupper, etc. +#include <locale> +#include <bits/atomicity.h> +#include <bits/concurrence.h> + +namespace __gnu_internal +{ + // Defined in globals.cc. + extern std::locale c_locale; + extern std::locale::_Impl c_locale_impl; + + extern std::locale::facet* facet_vec[_GLIBCXX_NUM_FACETS]; + extern char* name_vec[6 + _GLIBCXX_NUM_CATEGORIES]; + extern char name_c[6 + _GLIBCXX_NUM_CATEGORIES][2]; + + extern std::ctype<char> ctype_c; + extern std::collate<char> collate_c; + extern std::numpunct<char> numpunct_c; + extern std::num_get<char> num_get_c; + extern std::num_put<char> num_put_c; + extern std::codecvt<char, char, mbstate_t> codecvt_c; + extern std::moneypunct<char, false> moneypunct_cf; + extern std::moneypunct<char, true> moneypunct_ct; + extern std::money_get<char> money_get_c; + extern std::money_put<char> money_put_c; + extern std::__timepunct<char> timepunct_c; + extern std::time_get<char> time_get_c; + extern std::time_put<char> time_put_c; + extern std::messages<char> messages_c; +#ifdef _GLIBCXX_USE_WCHAR_T + extern std::ctype<wchar_t> ctype_w; + extern std::collate<wchar_t> collate_w; + extern std::numpunct<wchar_t> numpunct_w; + extern std::num_get<wchar_t> num_get_w; + extern std::num_put<wchar_t> num_put_w; + extern std::codecvt<wchar_t, char, mbstate_t> codecvt_w; + extern std::moneypunct<wchar_t, false> moneypunct_wf; + extern std::moneypunct<wchar_t, true> moneypunct_wt; + extern std::money_get<wchar_t> money_get_w; + extern std::money_put<wchar_t> money_put_w; + extern std::__timepunct<wchar_t> timepunct_w; + extern std::time_get<wchar_t> time_get_w; + extern std::time_put<wchar_t> time_put_w; + extern std::messages<wchar_t> messages_w; +#endif + + // And the caches.... + extern std::locale::facet* cache_vec[_GLIBCXX_NUM_FACETS]; + extern std::__numpunct_cache<char> numpunct_cache_c; + extern std::__moneypunct_cache<char, false> moneypunct_cache_cf; + extern std::__moneypunct_cache<char, true> moneypunct_cache_ct; + extern std::__timepunct_cache<char> timepunct_cache_c; +#ifdef _GLIBCXX_USE_WCHAR_T + extern std::__numpunct_cache<wchar_t> numpunct_cache_w; + extern std::__moneypunct_cache<wchar_t, false> moneypunct_cache_wf; + extern std::__moneypunct_cache<wchar_t, true> moneypunct_cache_wt; + extern std::__timepunct_cache<wchar_t> timepunct_cache_w; +#endif + + // Mutex objects for locale initialization. + __glibcxx_mutex_define_initialized(locale_cons_mutex); + __glibcxx_mutex_define_initialized(locale_global_mutex); +} // namespace __gnu_internal + +namespace std +{ + using namespace __gnu_internal; + + locale::locale() throw() : _M_impl(0) + { + _S_initialize(); + __glibcxx_mutex_lock(__gnu_internal::locale_cons_mutex); + _S_global->_M_add_reference(); + _M_impl = _S_global; + __glibcxx_mutex_unlock(__gnu_internal::locale_cons_mutex); + } + + locale + locale::global(const locale& __other) + { + _S_initialize(); + __glibcxx_mutex_lock(__gnu_internal::locale_global_mutex); + _Impl* __old = _S_global; + __other._M_impl->_M_add_reference(); + _S_global = __other._M_impl; + if (__other.name() != "*") + setlocale(LC_ALL, __other.name().c_str()); + __glibcxx_mutex_unlock(__gnu_internal::locale_global_mutex); + + // Reference count sanity check: one reference removed for the + // subsition of __other locale, one added by return-by-value. Net + // difference: zero. When the returned locale object's destrutor + // is called, then the reference count is decremented and possibly + // destroyed. + return locale(__old); + } + + const locale& + locale::classic() + { + _S_initialize(); + return c_locale; + } + + void + locale::_S_initialize_once() + { + // 2 references. + // One reference for _S_classic, one for _S_global + _S_classic = new (&c_locale_impl) _Impl(2); + _S_global = _S_classic; + new (&c_locale) locale(_S_classic); + } + + void + locale::_S_initialize() + { +#ifdef __GTHREADS + if (__gthread_active_p()) + __gthread_once(&_S_once, _S_initialize_once); +#endif + if (!_S_classic) + _S_initialize_once(); + } + + // Definitions for static const data members of locale::_Impl + const locale::id* const + locale::_Impl::_S_id_ctype[] = + { + &std::ctype<char>::id, + &codecvt<char, char, mbstate_t>::id, +#ifdef _GLIBCXX_USE_WCHAR_T + &std::ctype<wchar_t>::id, + &codecvt<wchar_t, char, mbstate_t>::id, +#endif + 0 + }; + + const locale::id* const + locale::_Impl::_S_id_numeric[] = + { + &num_get<char>::id, + &num_put<char>::id, + &numpunct<char>::id, +#ifdef _GLIBCXX_USE_WCHAR_T + &num_get<wchar_t>::id, + &num_put<wchar_t>::id, + &numpunct<wchar_t>::id, +#endif + 0 + }; + + const locale::id* const + locale::_Impl::_S_id_collate[] = + { + &std::collate<char>::id, +#ifdef _GLIBCXX_USE_WCHAR_T + &std::collate<wchar_t>::id, +#endif + 0 + }; + + const locale::id* const + locale::_Impl::_S_id_time[] = + { + &__timepunct<char>::id, + &time_get<char>::id, + &time_put<char>::id, +#ifdef _GLIBCXX_USE_WCHAR_T + &__timepunct<wchar_t>::id, + &time_get<wchar_t>::id, + &time_put<wchar_t>::id, +#endif + 0 + }; + + const locale::id* const + locale::_Impl::_S_id_monetary[] = + { + &money_get<char>::id, + &money_put<char>::id, + &moneypunct<char, false>::id, + &moneypunct<char, true >::id, +#ifdef _GLIBCXX_USE_WCHAR_T + &money_get<wchar_t>::id, + &money_put<wchar_t>::id, + &moneypunct<wchar_t, false>::id, + &moneypunct<wchar_t, true >::id, +#endif + 0 + }; + + const locale::id* const + locale::_Impl::_S_id_messages[] = + { + &std::messages<char>::id, +#ifdef _GLIBCXX_USE_WCHAR_T + &std::messages<wchar_t>::id, +#endif + 0 + }; + + const locale::id* const* const + locale::_Impl::_S_facet_categories[] = + { + // Order must match the decl order in class locale. + locale::_Impl::_S_id_ctype, + locale::_Impl::_S_id_numeric, + locale::_Impl::_S_id_collate, + locale::_Impl::_S_id_time, + locale::_Impl::_S_id_monetary, + locale::_Impl::_S_id_messages, + 0 + }; + + // Construct "C" _Impl. + locale::_Impl:: + _Impl(size_t __refs) throw() + : _M_refcount(__refs), _M_facets(0), _M_facets_size(_GLIBCXX_NUM_FACETS), + _M_caches(0), _M_names(0) + { + _M_facets = new (&facet_vec) const facet*[_M_facets_size]; + _M_caches = new (&cache_vec) const facet*[_M_facets_size]; + for (size_t __i = 0; __i < _M_facets_size; ++__i) + _M_facets[__i] = _M_caches[__i] = 0; + + // Name all the categories. + _M_names = new (&name_vec) char*[_S_categories_size]; + for (size_t __j = 0; __j < _S_categories_size; ++__j) + { + _M_names[__j] = new (&name_c[__j]) char[2]; + std::strcpy(_M_names[__j], locale::facet::_S_get_c_name()); + } + + // This is needed as presently the C++ version of "C" locales + // != data in the underlying locale model for __timepunct, + // numpunct, and moneypunct. Also, the "C" locales must be + // constructed in a way such that they are pre-allocated. + // NB: Set locale::facets(ref) count to one so that each individual + // facet is not destroyed when the locale (and thus locale::_Impl) is + // destroyed. + _M_init_facet(new (&ctype_c) std::ctype<char>(0, false, 1)); + _M_init_facet(new (&codecvt_c) codecvt<char, char, mbstate_t>(1)); + + typedef __numpunct_cache<char> num_cache_c; + num_cache_c* __npc = new (&numpunct_cache_c) num_cache_c(2); + _M_init_facet(new (&numpunct_c) numpunct<char>(__npc, 1)); + + _M_init_facet(new (&num_get_c) num_get<char>(1)); + _M_init_facet(new (&num_put_c) num_put<char>(1)); + _M_init_facet(new (&collate_c) std::collate<char>(1)); + + typedef __moneypunct_cache<char, false> money_cache_cf; + typedef __moneypunct_cache<char, true> money_cache_ct; + money_cache_cf* __mpcf = new (&moneypunct_cache_cf) money_cache_cf(2); + _M_init_facet(new (&moneypunct_cf) moneypunct<char, false>(__mpcf, 1)); + money_cache_ct* __mpct = new (&moneypunct_cache_ct) money_cache_ct(2); + _M_init_facet(new (&moneypunct_ct) moneypunct<char, true>(__mpct, 1)); + + _M_init_facet(new (&money_get_c) money_get<char>(1)); + _M_init_facet(new (&money_put_c) money_put<char>(1)); + + typedef __timepunct_cache<char> time_cache_c; + time_cache_c* __tpc = new (&timepunct_cache_c) time_cache_c(2); + _M_init_facet(new (&timepunct_c) __timepunct<char>(__tpc, 1)); + + _M_init_facet(new (&time_get_c) time_get<char>(1)); + _M_init_facet(new (&time_put_c) time_put<char>(1)); + _M_init_facet(new (&messages_c) std::messages<char>(1)); + +#ifdef _GLIBCXX_USE_WCHAR_T + _M_init_facet(new (&ctype_w) std::ctype<wchar_t>(1)); + _M_init_facet(new (&codecvt_w) codecvt<wchar_t, char, mbstate_t>(1)); + + typedef __numpunct_cache<wchar_t> num_cache_w; + num_cache_w* __npw = new (&numpunct_cache_w) num_cache_w(2); + _M_init_facet(new (&numpunct_w) numpunct<wchar_t>(__npw, 1)); + + _M_init_facet(new (&num_get_w) num_get<wchar_t>(1)); + _M_init_facet(new (&num_put_w) num_put<wchar_t>(1)); + _M_init_facet(new (&collate_w) std::collate<wchar_t>(1)); + + typedef __moneypunct_cache<wchar_t, false> money_cache_wf; + typedef __moneypunct_cache<wchar_t, true> money_cache_wt; + money_cache_wf* __mpwf = new (&moneypunct_cache_wf) money_cache_wf(2); + _M_init_facet(new (&moneypunct_wf) moneypunct<wchar_t, false>(__mpwf, 1)); + money_cache_wt* __mpwt = new (&moneypunct_cache_wt) money_cache_wt(2); + _M_init_facet(new (&moneypunct_wt) moneypunct<wchar_t, true>(__mpwt, 1)); + + _M_init_facet(new (&money_get_w) money_get<wchar_t>(1)); + _M_init_facet(new (&money_put_w) money_put<wchar_t>(1)); + + typedef __timepunct_cache<wchar_t> time_cache_w; + time_cache_w* __tpw = new (&timepunct_cache_w) time_cache_w(2); + _M_init_facet(new (&timepunct_w) __timepunct<wchar_t>(__tpw, 1)); + + _M_init_facet(new (&time_get_w) time_get<wchar_t>(1)); + _M_init_facet(new (&time_put_w) time_put<wchar_t>(1)); + _M_init_facet(new (&messages_w) std::messages<wchar_t>(1)); +#endif + + // This locale is safe to pre-cache, after all the facets have + // been created and installed. + _M_caches[numpunct<char>::id._M_id()] = __npc; + _M_caches[moneypunct<char, false>::id._M_id()] = __mpcf; + _M_caches[moneypunct<char, true>::id._M_id()] = __mpct; + _M_caches[__timepunct<char>::id._M_id()] = __tpc; +#ifdef _GLIBCXX_USE_WCHAR_T + _M_caches[numpunct<wchar_t>::id._M_id()] = __npw; + _M_caches[moneypunct<wchar_t, false>::id._M_id()] = __mpwf; + _M_caches[moneypunct<wchar_t, true>::id._M_id()] = __mpwt; + _M_caches[__timepunct<wchar_t>::id._M_id()] = __tpw; +#endif + } +} // namespace std |