| /* |
| * Copyright (c) 1999 |
| * Silicon Graphics Computer Systems, Inc. |
| * |
| * Copyright (c) 1999 |
| * Boris Fomitchev |
| * |
| * This material is provided "as is", with absolutely no warranty expressed |
| * or implied. Any use is at your own risk. |
| * |
| * Permission to use or copy this software for any purpose is hereby granted |
| * without fee, provided the above notices are retained on all copies. |
| * Permission to modify the code and to distribute modified code is granted, |
| * provided the above notices are retained, and a notice that the code was |
| * modified is included with the above copyright notice. |
| * |
| */ |
| |
| #include "stlport_prefix.h" |
| |
| #include <locale> |
| #include <stdexcept> |
| |
| #include "c_locale.h" |
| #include "locale_impl.h" |
| |
| _STLP_BEGIN_NAMESPACE |
| |
| #define _NAMELESS "*" |
| static const char _Nameless[] = _NAMELESS; |
| |
| static inline bool is_C_locale_name (const char* name) |
| { return ((name[0] == 'C') && (name[1] == 0)); } |
| |
| locale* _Stl_get_classic_locale(); |
| locale* _Stl_get_global_locale(); |
| |
| #if defined (_STLP_USE_MSVC6_MEM_T_BUG_WORKAROUND) || \ |
| defined (_STLP_SIGNAL_RUNTIME_COMPATIBILITY) || defined (_STLP_CHECK_RUNTIME_COMPATIBILITY) |
| # define locale _STLP_NO_MEM_T_NAME(loc) |
| #endif |
| |
| locale::facet::~facet() {} |
| |
| #if !defined (_STLP_MEMBER_TEMPLATES) || defined (_STLP_INLINE_MEMBER_TEMPLATES) |
| // members that fail to be templates |
| bool locale::operator()(const string& __x, |
| const string& __y) const |
| { return __locale_do_operator_call(*this, __x, __y); } |
| |
| # if !defined (_STLP_NO_WCHAR_T) |
| bool locale::operator()(const wstring& __x, |
| const wstring& __y) const |
| { return __locale_do_operator_call(*this, __x, __y); } |
| # endif |
| #endif |
| |
| void _STLP_CALL locale::_M_throw_on_null_name() |
| { _STLP_THROW(runtime_error("Invalid null locale name")); } |
| |
| void _STLP_CALL locale::_M_throw_on_combine_error(const string& name) { |
| string what = "Unable to find facet"; |
| what += " in "; |
| what += name.empty() ? "system" : name.c_str(); |
| what += " locale"; |
| _STLP_THROW(runtime_error(what.c_str())); |
| } |
| |
| void _STLP_CALL locale::_M_throw_on_creation_failure(int __err_code, |
| const char* name, const char* facet) { |
| string what; |
| switch (__err_code) { |
| case _STLP_LOC_UNSUPPORTED_FACET_CATEGORY: |
| what = "No platform localization support for "; |
| what += facet; |
| what += " facet category, unable to create facet for "; |
| what += name[0] == 0 ? "system" : name; |
| what += " locale"; |
| break; |
| case _STLP_LOC_NO_PLATFORM_SUPPORT: |
| what = "No platform localization support, unable to create "; |
| what += name[0] == 0 ? "system" : name; |
| what += " locale"; |
| break; |
| default: |
| case _STLP_LOC_UNKNOWN_NAME: |
| what = "Unable to create facet "; |
| what += facet; |
| what += " from name '"; |
| what += name; |
| what += "'"; |
| break; |
| case _STLP_LOC_NO_MEMORY: |
| _STLP_THROW_BAD_ALLOC; |
| break; |
| } |
| |
| _STLP_THROW(runtime_error(what.c_str())); |
| } |
| |
| // Takes a reference to a locale::id, assign a numeric index if not already |
| // affected and returns it. The returned index is always positive. |
| static const locale::id& _Stl_loc_get_index(locale::id& id) { |
| if (id._M_index == 0) { |
| #if defined (_STLP_ATOMIC_INCREMENT) && !defined (_STLP_WIN95_LIKE) |
| static _STLP_VOLATILE __stl_atomic_t _S_index = __STATIC_CAST(__stl_atomic_t, locale::id::_S_max); |
| id._M_index = _STLP_ATOMIC_INCREMENT(&_S_index); |
| #else |
| static _STLP_STATIC_MUTEX _Index_lock _STLP_MUTEX_INITIALIZER; |
| _STLP_auto_lock sentry(_Index_lock); |
| size_t new_index = locale::id::_S_max++; |
| id._M_index = new_index; |
| #endif |
| } |
| return id; |
| } |
| |
| // Default constructor: create a copy of the global locale. |
| locale::locale() _STLP_NOTHROW |
| : _M_impl(_get_Locale_impl(_Stl_get_global_locale()->_M_impl)) |
| {} |
| |
| // Copy constructor |
| locale::locale(const locale& L) _STLP_NOTHROW |
| : _M_impl( _get_Locale_impl( L._M_impl ) ) |
| {} |
| |
| void locale::_M_insert(facet* f, locale::id& n) { |
| if (f) |
| _M_impl->insert(f, _Stl_loc_get_index(n)); |
| } |
| |
| locale::locale( _Locale_impl* impl ) : |
| _M_impl( _get_Locale_impl( impl ) ) |
| {} |
| |
| // Create a locale from a name. |
| locale::locale(const char* name) |
| : _M_impl(0) { |
| if (!name) |
| _M_throw_on_null_name(); |
| |
| if (is_C_locale_name(name)) { |
| _M_impl = _get_Locale_impl( locale::classic()._M_impl ); |
| return; |
| } |
| |
| _Locale_impl* impl = 0; |
| _STLP_TRY { |
| impl = new _Locale_impl(locale::id::_S_max, name); |
| |
| // Insert categories one at a time. |
| _Locale_name_hint *hint = 0; |
| const char* ctype_name = name; |
| char ctype_buf[_Locale_MAX_SIMPLE_NAME]; |
| const char* numeric_name = name; |
| char numeric_buf[_Locale_MAX_SIMPLE_NAME]; |
| const char* time_name = name; |
| char time_buf[_Locale_MAX_SIMPLE_NAME]; |
| const char* collate_name = name; |
| char collate_buf[_Locale_MAX_SIMPLE_NAME]; |
| const char* monetary_name = name; |
| char monetary_buf[_Locale_MAX_SIMPLE_NAME]; |
| const char* messages_name = name; |
| char messages_buf[_Locale_MAX_SIMPLE_NAME]; |
| hint = impl->insert_ctype_facets(ctype_name, ctype_buf, hint); |
| hint = impl->insert_numeric_facets(numeric_name, numeric_buf, hint); |
| hint = impl->insert_time_facets(time_name, time_buf, hint); |
| hint = impl->insert_collate_facets(collate_name, collate_buf, hint); |
| hint = impl->insert_monetary_facets(monetary_name, monetary_buf, hint); |
| impl->insert_messages_facets(messages_name, messages_buf, hint); |
| |
| // Try to use a normalize locale name in order to have the == operator |
| // to behave correctly: |
| if (strcmp(ctype_name, numeric_name) == 0 && |
| strcmp(ctype_name, time_name) == 0 && |
| strcmp(ctype_name, collate_name) == 0 && |
| strcmp(ctype_name, monetary_name) == 0 && |
| strcmp(ctype_name, messages_name) == 0) { |
| impl->name = ctype_name; |
| } |
| // else we keep current name. |
| |
| // reassign impl |
| _M_impl = _get_Locale_impl( impl ); |
| } |
| _STLP_UNWIND(delete impl); |
| } |
| |
| static void _Stl_loc_combine_names_aux(_Locale_impl* L, |
| const char* name, |
| const char* ctype_name, const char* time_name, const char* numeric_name, |
| const char* collate_name, const char* monetary_name, const char* messages_name, |
| locale::category c) { |
| // This function is only called when names has been validated so using _Locale_extract_*_name |
| // can't fail. |
| int __err_code; |
| char buf[_Locale_MAX_SIMPLE_NAME]; |
| L->name = string("LC_CTYPE=") + _Locale_extract_ctype_name((c & locale::ctype) ? ctype_name : name, buf, 0, &__err_code) + ";"; |
| L->name += string("LC_TIME=") + _Locale_extract_time_name((c & locale::time) ? time_name : name, buf, 0, &__err_code) + ";"; |
| L->name += string("LC_NUMERIC=") + _Locale_extract_numeric_name((c & locale::numeric) ? numeric_name : name, buf, 0, &__err_code) + ";"; |
| L->name += string("LC_COLLATE=") + _Locale_extract_collate_name((c & locale::collate) ? collate_name : name, buf, 0, &__err_code) + ";"; |
| L->name += string("LC_MONETARY=") + _Locale_extract_monetary_name((c & locale::monetary) ? monetary_name : name, buf, 0, &__err_code) + ";"; |
| L->name += string("LC_MESSAGES=") + _Locale_extract_messages_name((c & locale::messages) ? messages_name : name, buf, 0, &__err_code); |
| } |
| |
| // Give L a name where all facets except those in category c |
| // are taken from name1, and those in category c are taken from name2. |
| static void _Stl_loc_combine_names(_Locale_impl* L, |
| const char* name1, const char* name2, |
| locale::category c) { |
| if ((c & locale::all) == 0 || strcmp(name1, name1) == 0) |
| L->name = name1; |
| else if ((c & locale::all) == locale::all) |
| L->name = name2; |
| else { |
| _Stl_loc_combine_names_aux(L, name1, name2, name2, name2, name2, name2, name2, c); |
| } |
| } |
| |
| static void _Stl_loc_combine_names(_Locale_impl* L, |
| const char* name, |
| const char* ctype_name, const char* time_name, const char* numeric_name, |
| const char* collate_name, const char* monetary_name, const char* messages_name, |
| locale::category c) { |
| if ((c & locale::all) == 0 || (strcmp(name, ctype_name) == 0 && |
| strcmp(name, time_name) == 0 && |
| strcmp(name, numeric_name) == 0 && |
| strcmp(name, collate_name) == 0 && |
| strcmp(name, monetary_name) == 0 && |
| strcmp(name, messages_name) == 0)) |
| L->name = name; |
| else if ((c & locale::all) == locale::all && strcmp(ctype_name, time_name) == 0 && |
| strcmp(ctype_name, numeric_name) == 0 && |
| strcmp(ctype_name, collate_name) == 0 && |
| strcmp(ctype_name, monetary_name) == 0 && |
| strcmp(ctype_name, messages_name) == 0) |
| L->name = ctype_name; |
| else { |
| _Stl_loc_combine_names_aux(L, name, ctype_name, time_name, numeric_name, collate_name, monetary_name, messages_name, c); |
| } |
| } |
| |
| |
| // Create a locale that's a copy of L, except that all of the facets |
| // in category c are instead constructed by name. |
| locale::locale(const locale& L, const char* name, locale::category c) |
| : _M_impl(0) { |
| if (!name) |
| _M_throw_on_null_name(); |
| |
| if (!::strcmp(_Nameless, name)) |
| _STLP_THROW(runtime_error("Invalid locale name '" _NAMELESS "'")); |
| |
| _Locale_impl* impl = 0; |
| |
| _STLP_TRY { |
| impl = new _Locale_impl(*L._M_impl); |
| |
| _Locale_name_hint *hint = 0; |
| const char* ctype_name = name; |
| char ctype_buf[_Locale_MAX_SIMPLE_NAME]; |
| const char* numeric_name = name; |
| char numeric_buf[_Locale_MAX_SIMPLE_NAME]; |
| const char* time_name = name; |
| char time_buf[_Locale_MAX_SIMPLE_NAME]; |
| const char* collate_name = name; |
| char collate_buf[_Locale_MAX_SIMPLE_NAME]; |
| const char* monetary_name = name; |
| char monetary_buf[_Locale_MAX_SIMPLE_NAME]; |
| const char* messages_name = name; |
| char messages_buf[_Locale_MAX_SIMPLE_NAME]; |
| if (c & locale::ctype) |
| hint = impl->insert_ctype_facets(ctype_name, ctype_buf, hint); |
| if (c & locale::numeric) |
| hint = impl->insert_numeric_facets(numeric_name, numeric_buf, hint); |
| if (c & locale::time) |
| hint = impl->insert_time_facets(time_name, time_buf, hint); |
| if (c & locale::collate) |
| hint = impl->insert_collate_facets(collate_name, collate_buf, hint); |
| if (c & locale::monetary) |
| hint = impl->insert_monetary_facets(monetary_name, monetary_buf,hint); |
| if (c & locale::messages) |
| impl->insert_messages_facets(messages_name, messages_buf, hint); |
| |
| _Stl_loc_combine_names(impl, L._M_impl->name.c_str(), |
| ctype_name, time_name, numeric_name, |
| collate_name, monetary_name, messages_name, c); |
| _M_impl = _get_Locale_impl( impl ); |
| } |
| _STLP_UNWIND(delete impl) |
| } |
| |
| // Contruct a new locale where all facets that aren't in category c |
| // come from L1, and all those that are in category c come from L2. |
| locale::locale(const locale& L1, const locale& L2, category c) |
| : _M_impl(0) { |
| _Locale_impl* impl = new _Locale_impl(*L1._M_impl); |
| |
| _Locale_impl* i2 = L2._M_impl; |
| |
| if (L1.name() != _Nameless && L2.name() != _Nameless) |
| _Stl_loc_combine_names(impl, L1._M_impl->name.c_str(), L2._M_impl->name.c_str(), c); |
| else { |
| impl->name = _Nameless; |
| } |
| |
| if (c & collate) { |
| impl->insert( i2, _STLP_STD::collate<char>::id); |
| # ifndef _STLP_NO_WCHAR_T |
| impl->insert( i2, _STLP_STD::collate<wchar_t>::id); |
| # endif |
| } |
| if (c & ctype) { |
| impl->insert( i2, _STLP_STD::ctype<char>::id); |
| impl->insert( i2, _STLP_STD::codecvt<char, char, mbstate_t>::id); |
| # ifndef _STLP_NO_WCHAR_T |
| impl->insert( i2, _STLP_STD::ctype<wchar_t>::id); |
| impl->insert( i2, _STLP_STD::codecvt<wchar_t, char, mbstate_t>::id); |
| # endif |
| } |
| if (c & monetary) { |
| impl->insert( i2, _STLP_STD::moneypunct<char, true>::id); |
| impl->insert( i2, _STLP_STD::moneypunct<char, false>::id); |
| impl->insert( i2, _STLP_STD::money_get<char, istreambuf_iterator<char, char_traits<char> > >::id); |
| impl->insert( i2, _STLP_STD::money_put<char, ostreambuf_iterator<char, char_traits<char> > >::id); |
| # ifndef _STLP_NO_WCHAR_T |
| impl->insert( i2, _STLP_STD::moneypunct<wchar_t, true>::id); |
| impl->insert( i2, _STLP_STD::moneypunct<wchar_t, false>::id); |
| impl->insert( i2, _STLP_STD::money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); |
| impl->insert( i2, _STLP_STD::money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); |
| # endif |
| } |
| if (c & numeric) { |
| impl->insert( i2, _STLP_STD::numpunct<char>::id); |
| impl->insert( i2, _STLP_STD::num_get<char, istreambuf_iterator<char, char_traits<char> > >::id); |
| impl->insert( i2, _STLP_STD::num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id); |
| # ifndef _STLP_NO_WCHAR_T |
| impl->insert( i2, _STLP_STD::numpunct<wchar_t>::id); |
| impl->insert( i2, _STLP_STD::num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); |
| impl->insert( i2, _STLP_STD::num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); |
| # endif |
| } |
| if (c & time) { |
| impl->insert( i2, _STLP_STD::time_get<char, istreambuf_iterator<char, char_traits<char> > >::id); |
| impl->insert( i2, _STLP_STD::time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id); |
| # ifndef _STLP_NO_WCHAR_T |
| impl->insert( i2, _STLP_STD::time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); |
| impl->insert( i2, _STLP_STD::time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id); |
| # endif |
| } |
| if (c & messages) { |
| impl->insert( i2, _STLP_STD::messages<char>::id); |
| # ifndef _STLP_NO_WCHAR_T |
| impl->insert( i2, _STLP_STD::messages<wchar_t>::id); |
| # endif |
| } |
| _M_impl = _get_Locale_impl( impl ); |
| } |
| |
| // Destructor. |
| locale::~locale() _STLP_NOTHROW { |
| if (_M_impl) |
| _release_Locale_impl(_M_impl); |
| } |
| |
| // Assignment operator. Much like the copy constructor: just a bit of |
| // pointer twiddling. |
| const locale& locale::operator=(const locale& L) _STLP_NOTHROW { |
| if (this->_M_impl != L._M_impl) { |
| if (this->_M_impl) |
| _release_Locale_impl(this->_M_impl); |
| this->_M_impl = _get_Locale_impl(L._M_impl); |
| } |
| return *this; |
| } |
| |
| locale::facet* locale::_M_get_facet(const locale::id& n) const { |
| return n._M_index < _M_impl->size() ? _M_impl->facets_vec[n._M_index] : 0; |
| } |
| |
| locale::facet* locale::_M_use_facet(const locale::id& n) const { |
| locale::facet* f = (n._M_index < _M_impl->size() ? _M_impl->facets_vec[n._M_index] : 0); |
| if (!f) |
| _M_impl->_M_throw_bad_cast(); |
| return f; |
| } |
| |
| string locale::name() const { |
| return _M_impl->name; |
| } |
| |
| // Compare two locales for equality. |
| bool locale::operator==(const locale& L) const { |
| return this->_M_impl == L._M_impl || |
| (this->name() == L.name() && this->name() != _Nameless); |
| } |
| |
| bool locale::operator!=(const locale& L) const { |
| return !(*this == L); |
| } |
| |
| // static data members. |
| |
| const locale& _STLP_CALL locale::classic() { |
| return *_Stl_get_classic_locale(); |
| } |
| |
| #if !defined (_STLP_USE_MSVC6_MEM_T_BUG_WORKAROUND) |
| locale _STLP_CALL locale::global(const locale& L) { |
| #else |
| _Locale_impl* _STLP_CALL locale::global(const locale& L) { |
| #endif |
| locale old(_Stl_get_global_locale()->_M_impl); |
| if (_Stl_get_global_locale()->_M_impl != L._M_impl) { |
| _release_Locale_impl(_Stl_get_global_locale()->_M_impl); |
| // this assign should be atomic, should be fixed here: |
| _Stl_get_global_locale()->_M_impl = _get_Locale_impl(L._M_impl); |
| |
| // Set the global C locale, if appropriate. |
| #if !defined(_STLP_NO_LOCALE_SUPPORT) |
| if (L.name() != _Nameless) |
| setlocale(LC_ALL, L.name().c_str()); |
| #endif |
| } |
| |
| #if !defined (_STLP_USE_MSVC6_MEM_T_BUG_WORKAROUND) |
| return old; |
| #else |
| return old._M_impl; |
| #endif |
| } |
| |
| #if !defined (_STLP_STATIC_CONST_INIT_BUG) && !defined (_STLP_NO_STATIC_CONST_DEFINITION) |
| const locale::category locale::none; |
| const locale::category locale::collate; |
| const locale::category locale::ctype; |
| const locale::category locale::monetary; |
| const locale::category locale::numeric; |
| const locale::category locale::time; |
| const locale::category locale::messages; |
| const locale::category locale::all; |
| #endif |
| |
| _STLP_END_NAMESPACE |
| |
