The Tor Browser / file revision

 /*

  * 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