--- /dev/null
+/*
+ * 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 <typeinfo>
+#include <algorithm>
+#include <stdexcept>
+
+#include "c_locale.h"
+#include "aligned_buffer.h"
+#include "locale_impl.h"
+#include "message_facets.h"
+
+_STLP_BEGIN_NAMESPACE
+
+static const string _Nameless("*");
+
+static inline bool is_C_locale_name (const char* name)
+{ return ((name[0] == 'C') && (name[1] == 0)); }
+
+_Locale_impl * _STLP_CALL _copy_Locale_impl(_Locale_impl *loc)
+{
+ _STLP_ASSERT( loc != 0 );
+ loc->_M_incr();
+ _Locale_impl *loc_new = new _Locale_impl(*loc);
+ loc->_M_decr();
+ return loc_new;
+}
+
+locale::facet * _STLP_CALL _get_facet(locale::facet *f)
+{
+ if (f != 0)
+ f->_M_incr();
+ return f;
+}
+
+void _STLP_CALL _release_facet(locale::facet *&f)
+{
+ if ((f != 0) && (f->_M_decr() == 0)) {
+ delete f;
+ f = 0;
+ }
+}
+
+size_t locale::id::_S_max = 39;
+
+static void _Stl_loc_assign_ids();
+
+static _Stl_aligned_buffer<_Locale_impl::Init> __Loc_init_buf;
+
+_Locale_impl::Init::Init() {
+ if (_M_count()._M_incr() == 1) {
+ _Locale_impl::_S_initialize();
+ }
+}
+
+_Locale_impl::Init::~Init() {
+ if (_M_count()._M_decr() == 0) {
+ _Locale_impl::_S_uninitialize();
+ }
+}
+
+_Refcount_Base& _Locale_impl::Init::_M_count() const {
+ static _Refcount_Base _S_count(0);
+ return _S_count;
+}
+
+_Locale_impl::_Locale_impl(const char* s)
+ : _Refcount_Base(0), name(s), facets_vec() {
+ facets_vec.reserve( locale::id::_S_max );
+ new (&__Loc_init_buf) Init();
+}
+
+_Locale_impl::_Locale_impl( _Locale_impl const& locimpl )
+ : _Refcount_Base(0), name(locimpl.name), facets_vec() {
+ for_each( locimpl.facets_vec.begin(), locimpl.facets_vec.end(), _get_facet);
+ facets_vec = locimpl.facets_vec;
+ new (&__Loc_init_buf) Init();
+}
+
+_Locale_impl::_Locale_impl( size_t n, const char* s)
+ : _Refcount_Base(0), name(s), facets_vec(n, 0) {
+ new (&__Loc_init_buf) Init();
+}
+
+_Locale_impl::~_Locale_impl() {
+ (&__Loc_init_buf)->~Init();
+ for_each( facets_vec.begin(), facets_vec.end(), _release_facet);
+}
+
+// Initialization of the locale system. This must be called before
+// any locales are constructed. (Meaning that it must be called when
+// the I/O library itself is initialized.)
+void _STLP_CALL _Locale_impl::_S_initialize() {
+ _Stl_loc_assign_ids();
+ make_classic_locale();
+}
+
+// Release of the classic locale ressources. Has to be called after the last
+// locale destruction and not only after the classic locale destruction as
+// the facets can be shared between different facets.
+void _STLP_CALL _Locale_impl::_S_uninitialize() {
+ //Not necessary anymore as classic facets are now 'normal' dynamically allocated
+ //facets with a reference counter telling to _release_facet when the facet can be
+ //deleted.
+ //free_classic_locale();
+}
+
+// _Locale_impl non-inline member functions.
+void _STLP_CALL _Locale_impl::_M_throw_bad_cast() {
+ _STLP_THROW(bad_cast());
+}
+
+void _Locale_impl::insert( _Locale_impl *from, const locale::id& n ) {
+ size_t index = n._M_index;
+ if (index > 0 && index < from->size()) {
+ this->insert( from->facets_vec[index], index);
+ }
+}
+
+locale::facet* _Locale_impl::insert(locale::facet *f, size_t index) {
+ if (f == 0 || index == 0)
+ return 0;
+
+ if (index >= facets_vec.size()) {
+ facets_vec.resize(index + 1);
+ }
+
+ if (f != facets_vec[index])
+ {
+ _release_facet(facets_vec[index]);
+ facets_vec[index] = _get_facet(f);
+ }
+
+ return f;
+}
+
+#if !defined (__DMC__)
+_Locale_name_hint* _Locale_extract_hint(ctype_byname<char>* ct)
+{ return _Locale_get_ctype_hint(ct->_M_ctype); }
+_Locale_name_hint* _Locale_extract_hint(numpunct_byname<char>* punct)
+{ return _Locale_get_numeric_hint(punct->_M_numeric); }
+# if defined (__GNUC__) && (__GNUC__ < 3)
+template <class _Ch, class _InIt>
+_Locale_name_hint* _Locale_time_extract_hint(time_get_byname<_Ch, _InIt>* tget)
+# else
+_Locale_name_hint* _Locale_time_extract_hint(time_get_byname<char, istreambuf_iterator<char, char_traits<char> > >* tget)
+# endif
+{ return _Locale_get_time_hint(tget->_M_time); }
+_Locale_name_hint* _Locale_extract_hint(collate_byname<char>* coll)
+{ return _Locale_get_collate_hint(coll->_M_collate); }
+_Locale_name_hint* _Locale_extract_hint(moneypunct_byname<char, false>* money)
+{ return _Locale_get_monetary_hint(money->_M_monetary); }
+#endif
+
+//
+// <locale> content which is dependent on the name
+//
+
+template <class Facet>
+static inline locale::facet* _Locale_insert(_Locale_impl *__that, Facet* f)
+{ return __that->insert(f, Facet::id._M_index); }
+
+/*
+ * Six functions, one for each category. Each of them takes a
+ * _Locale* and a name, constructs that appropriate category
+ * facets by name, and inserts them into the locale.
+ */
+_Locale_name_hint* _Locale_impl::insert_ctype_facets(const char* pname, _Locale_name_hint* hint) {
+ char buf[_Locale_MAX_SIMPLE_NAME];
+ _Locale_impl* i2 = locale::classic()._M_impl;
+
+ if (pname == 0 || pname[0] == 0)
+ pname = _Locale_ctype_default(buf);
+
+ if (pname == 0 || pname[0] == 0 || is_C_locale_name(pname)) {
+ this->insert(i2, ctype<char>::id);
+#ifndef _STLP_NO_MBSTATE_T
+ this->insert(i2, codecvt<char, char, mbstate_t>::id);
+#endif
+#ifndef _STLP_NO_WCHAR_T
+ this->insert(i2, ctype<wchar_t>::id);
+# ifndef _STLP_NO_MBSTATE_T
+ this->insert(i2, codecvt<wchar_t, char, mbstate_t>::id);
+# endif
+#endif
+ } else {
+ ctype<char>* ct = 0;
+#ifndef _STLP_NO_MBSTATE_T
+ codecvt<char, char, mbstate_t>* cvt = 0;
+#endif
+#ifndef _STLP_NO_WCHAR_T
+ ctype<wchar_t>* wct = 0;
+ codecvt<wchar_t, char, mbstate_t>* wcvt = 0;
+#endif
+ _STLP_TRY {
+ ctype_byname<char> *ctbn = new ctype_byname<char>(pname, 0, hint);
+ ct = ctbn;
+#if !defined (__DMC__)
+ if (hint == 0) hint = _Locale_extract_hint(ctbn);
+#endif
+#ifndef _STLP_NO_MBSTATE_T
+ cvt = new codecvt_byname<char, char, mbstate_t>(pname);
+#endif
+#ifndef _STLP_NO_WCHAR_T
+ wct = new ctype_byname<wchar_t>(pname, 0, hint);
+ wcvt = new codecvt_byname<wchar_t, char, mbstate_t>(pname, 0, hint);
+#endif
+ }
+
+#ifndef _STLP_NO_WCHAR_T
+# ifdef _STLP_NO_MBSTATE_T
+ _STLP_UNWIND(delete ct; delete wct; delete wcvt);
+# else
+ _STLP_UNWIND(delete ct; delete wct; delete cvt; delete wcvt);
+# endif
+#else
+# ifdef _STLP_NO_MBSTATE_T
+ _STLP_UNWIND(delete ct);
+# else
+ _STLP_UNWIND(delete ct; delete cvt);
+# endif
+#endif
+ _Locale_insert(this, ct);
+#ifndef _STLP_NO_MBSTATE_T
+ _Locale_insert(this, cvt);
+#endif
+#ifndef _STLP_NO_WCHAR_T
+ _Locale_insert(this, wct);
+ _Locale_insert(this, wcvt);
+#endif
+ }
+ return hint;
+}
+
+_Locale_name_hint* _Locale_impl::insert_numeric_facets(const char* pname, _Locale_name_hint* hint) {
+ _Locale_impl* i2 = locale::classic()._M_impl;
+
+ numpunct<char>* punct = 0;
+ num_get<char, istreambuf_iterator<char, char_traits<char> > > *get = 0;
+ num_put<char, ostreambuf_iterator<char, char_traits<char> > > *put = 0;
+#ifndef _STLP_NO_WCHAR_T
+ numpunct<wchar_t>* wpunct = 0;
+ num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > > *wget = 0;
+ num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > *wput = 0;
+#endif
+
+ char buf[_Locale_MAX_SIMPLE_NAME];
+ if (pname == 0 || pname[0] == 0)
+ pname = _Locale_numeric_default(buf);
+
+ if (pname == 0 || pname[0] == 0 || is_C_locale_name(pname)) {
+ this->insert(i2, numpunct<char>::id);
+ this->insert(i2,
+ num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id);
+ this->insert(i2,
+ num_get<char, istreambuf_iterator<char, char_traits<char> > >::id);
+#ifndef _STLP_NO_WCHAR_T
+ this->insert(i2, numpunct<wchar_t>::id);
+ this->insert(i2,
+ num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id);
+ this->insert(i2,
+ num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id);
+#endif
+ }
+ else {
+ _STLP_TRY {
+ numpunct_byname<char> *punctbn = new numpunct_byname<char>(pname, 0, hint);
+ punct = punctbn;
+#if !defined (__DMC__)
+ if (hint == 0) hint = _Locale_extract_hint(punctbn);
+#endif
+ get = new num_get<char, istreambuf_iterator<char, char_traits<char> > >;
+ put = new num_put<char, ostreambuf_iterator<char, char_traits<char> > >;
+#ifndef _STLP_NO_WCHAR_T
+ wpunct = new numpunct_byname<wchar_t>(pname, 0, hint);
+ wget = new num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >;
+ wput = new num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >;
+#endif
+ }
+#ifndef _STLP_NO_WCHAR_T
+ _STLP_UNWIND(delete punct; delete wpunct; delete get; delete wget; delete put; delete wput);
+#else
+ _STLP_UNWIND(delete punct; delete get;delete put);
+#endif
+
+ _Locale_insert(this,punct);
+ _Locale_insert(this,get);
+ _Locale_insert(this,put);
+
+#ifndef _STLP_NO_WCHAR_T
+ _Locale_insert(this,wpunct);
+ _Locale_insert(this,wget);
+ _Locale_insert(this,wput);
+#endif
+ }
+ return hint;
+}
+
+_Locale_name_hint* _Locale_impl::insert_time_facets(const char* pname, _Locale_name_hint* hint) {
+ _Locale_impl* i2 = locale::classic()._M_impl;
+ time_get<char, istreambuf_iterator<char, char_traits<char> > > *get = 0;
+ time_put<char, ostreambuf_iterator<char, char_traits<char> > > *put = 0;
+#ifndef _STLP_NO_WCHAR_T
+ time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > > *wget = 0;
+ time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > *wput = 0;
+#endif
+
+ char buf[_Locale_MAX_SIMPLE_NAME];
+ if (pname == 0 || pname[0] == 0)
+ pname = _Locale_time_default(buf);
+
+ if (pname == 0 || pname[0] == 0 || is_C_locale_name(pname)) {
+
+ this->insert(i2,
+ time_get<char, istreambuf_iterator<char, char_traits<char> > >::id);
+ this->insert(i2,
+ time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id);
+#ifndef _STLP_NO_WCHAR_T
+ this->insert(i2,
+ time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id);
+ this->insert(i2,
+ time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id);
+#endif
+ } else {
+ _STLP_TRY {
+ time_get_byname<char, istreambuf_iterator<char, char_traits<char> > > *getbn =
+ new time_get_byname<char, istreambuf_iterator<char, char_traits<char> > >(pname, 0, hint);
+ get = getbn;
+#if !defined (__DMC__)
+ if (hint == 0) hint = _Locale_time_extract_hint(getbn);
+#endif
+ put = new time_put_byname<char, ostreambuf_iterator<char, char_traits<char> > >(pname, 0, hint);
+#ifndef _STLP_NO_WCHAR_T
+ wget = new time_get_byname<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >(pname, 0, hint);
+ wput = new time_put_byname<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >(pname, 0, hint);
+#endif
+ }
+#ifndef _STLP_NO_WCHAR_T
+ _STLP_UNWIND(delete get; delete wget; delete put; delete wput);
+#else
+ _STLP_UNWIND(delete get; delete put);
+#endif
+ _Locale_insert(this,get);
+ _Locale_insert(this,put);
+#ifndef _STLP_NO_WCHAR_T
+ _Locale_insert(this,wget);
+ _Locale_insert(this,wput);
+#endif
+ }
+ return hint;
+}
+
+_Locale_name_hint* _Locale_impl::insert_collate_facets(const char* nam, _Locale_name_hint* hint) {
+ _Locale_impl* i2 = locale::classic()._M_impl;
+
+ collate<char> *col = 0;
+#ifndef _STLP_NO_WCHAR_T
+ collate<wchar_t> *wcol = 0;
+#endif
+
+ char buf[_Locale_MAX_SIMPLE_NAME];
+ if (nam == 0 || nam[0] == 0)
+ nam = _Locale_collate_default(buf);
+
+ if (nam == 0 || nam[0] == 0 || is_C_locale_name(nam)) {
+ this->insert(i2, collate<char>::id);
+#ifndef _STLP_NO_WCHAR_T
+ this->insert(i2, collate<wchar_t>::id);
+#endif
+ }
+ else {
+ _STLP_TRY {
+ collate_byname<char> *colbn = new collate_byname<char>(nam, 0, hint);
+ col = colbn;
+#if !defined (__DMC__)
+ if (hint == 0) hint = _Locale_extract_hint(colbn);
+#endif
+#ifndef _STLP_NO_WCHAR_T
+ wcol = new collate_byname<wchar_t>(nam, 0, hint);
+#endif
+ }
+#ifndef _STLP_NO_WCHAR_T
+ _STLP_UNWIND(delete col; delete wcol);
+#else
+ _STLP_UNWIND(delete col);
+#endif
+ _Locale_insert(this,col);
+#ifndef _STLP_NO_WCHAR_T
+ _Locale_insert(this,wcol);
+#endif
+ }
+ return hint;
+}
+
+_Locale_name_hint* _Locale_impl::insert_monetary_facets(const char* pname, _Locale_name_hint* hint) {
+ _Locale_impl* i2 = locale::classic()._M_impl;
+
+ moneypunct<char, false> *punct = 0;
+ moneypunct<char, true> *ipunct = 0;
+ money_get<char, istreambuf_iterator<char, char_traits<char> > > *get = 0;
+ money_put<char, ostreambuf_iterator<char, char_traits<char> > > *put = 0;
+
+#ifndef _STLP_NO_WCHAR_T
+ moneypunct<wchar_t, false>* wpunct = 0;
+ moneypunct<wchar_t, true>* wipunct = 0;
+ money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > > *wget = 0;
+ money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > *wput = 0;
+#endif
+
+ char buf[_Locale_MAX_SIMPLE_NAME];
+ if (pname == 0 || pname[0] == 0)
+ pname = _Locale_monetary_default(buf);
+
+ if (pname == 0 || pname[0] == 0 || is_C_locale_name(pname)) {
+ this->insert(i2, moneypunct<char, false>::id);
+ this->insert(i2, moneypunct<char, true>::id);
+ this->insert(i2, money_get<char, istreambuf_iterator<char, char_traits<char> > >::id);
+ this->insert(i2, money_put<char, ostreambuf_iterator<char, char_traits<char> > >::id);
+#ifndef _STLP_NO_WCHAR_T
+ this->insert(i2, moneypunct<wchar_t, false>::id);
+ this->insert(i2, moneypunct<wchar_t, true>::id);
+ this->insert(i2, money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id);
+ this->insert(i2, money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id);
+#endif
+ }
+ else {
+ _STLP_TRY {
+ moneypunct_byname<char, false>* punctbn = new moneypunct_byname<char, false>(pname, 0, hint);
+ punct = punctbn;
+#if !defined (__DMC__)
+ if (hint == 0) hint = _Locale_extract_hint(punctbn);
+#endif
+ ipunct = new moneypunct_byname<char, true>(pname, 0, hint);
+ get = new money_get<char, istreambuf_iterator<char, char_traits<char> > >;
+ put = new money_put<char, ostreambuf_iterator<char, char_traits<char> > >;
+#ifndef _STLP_NO_WCHAR_T
+ wpunct = new moneypunct_byname<wchar_t, false>(pname, 0, hint);
+ wipunct = new moneypunct_byname<wchar_t, true>(pname, 0, hint);
+ wget = new money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >;
+ wput = new money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >;
+#endif
+ }
+#ifndef _STLP_NO_WCHAR_T
+ _STLP_UNWIND(delete punct; delete ipunct; delete wpunct; delete wipunct; delete get; delete wget; delete put; delete wput);
+#else
+ _STLP_UNWIND(delete punct; delete ipunct; delete get; delete put);
+#endif
+ _Locale_insert(this,punct);
+ _Locale_insert(this,ipunct);
+ _Locale_insert(this,get);
+ _Locale_insert(this,put);
+#ifndef _STLP_NO_WCHAR_T
+ _Locale_insert(this,wget);
+ _Locale_insert(this,wpunct);
+ _Locale_insert(this,wipunct);
+ _Locale_insert(this,wput);
+#endif
+ }
+ return hint;
+}
+
+_Locale_name_hint* _Locale_impl::insert_messages_facets(const char* pname, _Locale_name_hint* hint) {
+ _Locale_impl* i2 = locale::classic()._M_impl;
+ messages<char> *msg = 0;
+#ifndef _STLP_NO_WCHAR_T
+ messages<wchar_t> *wmsg = 0;
+#endif
+
+ char buf[_Locale_MAX_SIMPLE_NAME];
+ if (pname == 0 || pname[0] == 0)
+ pname = _Locale_messages_default(buf);
+
+ if (pname == 0 || pname[0] == 0 || is_C_locale_name(pname)) {
+ this->insert(i2, messages<char>::id);
+#ifndef _STLP_NO_WCHAR_T
+ this->insert(i2, messages<wchar_t>::id);
+#endif
+ }
+ else {
+ _STLP_TRY {
+ msg = new messages_byname<char>(pname, 0, hint);
+#ifndef _STLP_NO_WCHAR_T
+ wmsg = new messages_byname<wchar_t>(pname, 0, hint);
+#endif
+ }
+#ifndef _STLP_NO_WCHAR_T
+ _STLP_UNWIND(delete msg; delete wmsg);
+#else
+ _STLP_UNWIND(delete msg);
+#endif
+ _Locale_insert(this,msg);
+#ifndef _STLP_NO_WCHAR_T
+ _Locale_insert(this,wmsg);
+#endif
+ }
+ return hint;
+}
+
+static void _Stl_loc_assign_ids() {
+ // This assigns ids to every facet that is a member of a category,
+ // and also to money_get/put, num_get/put, and time_get/put
+ // instantiated using ordinary pointers as the input/output
+ // iterators. (The default is [io]streambuf_iterator.)
+
+ money_get<char, istreambuf_iterator<char, char_traits<char> > >::id._M_index = 8;
+ //money_get<char, const char*>::id._M_index = 9;
+ money_put<char, ostreambuf_iterator<char, char_traits<char> > >::id._M_index = 10;
+ //money_put<char, char*>::id._M_index = 11;
+
+ num_get<char, istreambuf_iterator<char, char_traits<char> > >::id._M_index = 12;
+ //num_get<char, const char*>::id._M_index = 13;
+ num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id._M_index = 14;
+ //num_put<char, char*>::id._M_index = 15;
+ time_get<char, istreambuf_iterator<char, char_traits<char> > >::id._M_index = 16;
+ //time_get<char, const char*>::id._M_index = 17;
+ time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id._M_index = 18;
+ //time_put<char, char*>::id._M_index = 19;
+
+#ifndef _STLP_NO_WCHAR_T
+ money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id._M_index = 27;
+ //money_get<wchar_t, const wchar_t*>::id._M_index = 28;
+ money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id._M_index = 29;
+ //money_put<wchar_t, wchar_t*>::id._M_index = 30;
+
+ num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id._M_index = 31;
+ //num_get<wchar_t, const wchar_t*>::id._M_index = 32;
+ num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > ::id._M_index = 33;
+ //num_put<wchar_t, wchar_t*>::id._M_index = 34;
+ time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id._M_index = 35;
+ //time_get<wchar_t, const wchar_t*>::id._M_index = 36;
+ time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id._M_index = 37;
+ //time_put<wchar_t, wchar_t*>::id._M_index = 38;
+#endif
+ // locale::id::_S_max = 39;
+}
+
+// To access those static instance use the getter below, they guaranty
+// a correct initialization.
+static locale *_Stl_classic_locale = 0;
+static locale *_Stl_global_locale = 0;
+
+static locale* _Stl_get_classic_locale() {
+ static _Locale_impl::Init init;
+ return _Stl_classic_locale;
+}
+
+static locale* _Stl_get_global_locale() {
+ static _Locale_impl::Init init;
+ return _Stl_global_locale;
+}
+
+#if defined (_STLP_MSVC) || defined (__ICL) || defined (__ISCPP__)
+/*
+ * The following static variable needs to be initialized before STLport
+ * users static variable in order for him to be able to use Standard
+ * streams in its variable initialization.
+ * This variable is here because MSVC do not allow to change the initialization
+ * segment in a given translation unit, iostream.cpp already contains an
+ * initialization segment specification.
+ */
+# pragma warning (disable : 4073)
+# pragma init_seg(lib)
+#endif
+
+static ios_base::Init _IosInit;
+
+void _Locale_impl::make_classic_locale() {
+ // This funcion will be called once: during build classic _Locale_impl
+
+ // The classic locale contains every facet that belongs to a category.
+ static _Stl_aligned_buffer<_Locale_impl> _Locale_classic_impl_buf;
+ _Locale_impl *classic = new(&_Locale_classic_impl_buf) _Locale_impl("C");
+
+ locale::facet* classic_facets[] = {
+ 0,
+ new collate<char>(1),
+ new ctype<char>(0, false, 1),
+#ifndef _STLP_NO_MBSTATE_T
+ new codecvt<char, char, mbstate_t>(1),
+#else
+ 0,
+#endif
+ new moneypunct<char, true>(1),
+ new moneypunct<char, false>(1),
+ new numpunct<char>(1),
+ new messages<char>(new _STLP_PRIV _Messages()),
+ new money_get<char, istreambuf_iterator<char, char_traits<char> > >(1),
+ 0,
+ new money_put<char, ostreambuf_iterator<char, char_traits<char> > >(1),
+ 0,
+ new num_get<char, istreambuf_iterator<char, char_traits<char> > >(1),
+ 0,
+ new num_put<char, ostreambuf_iterator<char, char_traits<char> > >(1),
+ 0,
+ new time_get<char, istreambuf_iterator<char, char_traits<char> > >(1),
+ 0,
+ new time_put<char, ostreambuf_iterator<char, char_traits<char> > >(1),
+ 0,
+#ifndef _STLP_NO_WCHAR_T
+ new collate<wchar_t>(1),
+ new ctype<wchar_t>(1),
+
+# ifndef _STLP_NO_MBSTATE_T
+ new codecvt<wchar_t, char, mbstate_t>(1),
+# else
+ 0,
+# endif
+ new moneypunct<wchar_t, true>(1),
+ new moneypunct<wchar_t, false>(1),
+ new numpunct<wchar_t>(1),
+ new messages<wchar_t>(new _STLP_PRIV _Messages()),
+
+ new money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1),
+ 0,
+ new money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1),
+ 0,
+
+ new num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1),
+ 0,
+ new num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1),
+ 0,
+ new time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1),
+ 0,
+ new time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >(1),
+ 0,
+#endif
+ 0
+ };
+
+ const size_t nb_classic_facets = sizeof(classic_facets) / sizeof(locale::facet *);
+ classic->facets_vec.reserve(nb_classic_facets);
+ classic->facets_vec.assign(&classic_facets[0], &classic_facets[0] + nb_classic_facets);
+
+ static locale _Locale_classic(classic);
+ _Stl_classic_locale = &_Locale_classic;
+
+ static locale _Locale_global(_copy_Locale_impl(classic));
+ _Stl_global_locale = &_Locale_global;
+}
+
+#if defined (__BORLANDC__) && (__BORLANDC__ < 0x564)
+template <>
+_STLP_DECLSPEC locale::id time_get<char, istreambuf_iterator<char, char_traits<char> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id time_get<char, const char*>::id;
+*/
+
+template <>
+_STLP_DECLSPEC locale::id time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id time_put<char, char*>::id;
+*/
+
+# if !defined (_STLP_NO_WCHAR_T)
+template <>
+_STLP_DECLSPEC locale::id time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id time_get<wchar_t, const wchar_t*>::id;
+*/
+
+template <>
+_STLP_DECLSPEC locale::id time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id time_put<wchar_t, wchar_t*>::id;
+*/
+# endif /* _STLP_NO_WCHAR_T */
+
+template <>
+_STLP_DECLSPEC locale::id money_get<char, istreambuf_iterator<char, char_traits<char> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id money_get<char, const char*>::id;
+*/
+
+template <>
+_STLP_DECLSPEC locale::id money_put<char, ostreambuf_iterator<char, char_traits<char> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id money_put<char, char*>::id;
+*/
+
+# if !defined (_STLP_NO_WCHAR_T)
+template <>
+_STLP_DECLSPEC locale::id money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id money_get<wchar_t, const wchar_t*>::id;
+*/
+
+template <>
+_STLP_DECLSPEC locale::id money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id money_put<wchar_t, wchar_t*>::id;
+*/
+# endif
+
+template <>
+_STLP_DECLSPEC locale::id num_get<char, istreambuf_iterator<char, char_traits<char> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id num_get<char, const char*>::id;
+*/
+
+# if !defined (STLP_NO_WCHAR_T)
+template <>
+_STLP_DECLSPEC locale::id num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id num_get<wchar_t, const wchar_t*>::id;
+*/
+# endif
+
+template <>
+_STLP_DECLSPEC locale::id num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id num_put<char, char*>::id;
+*/
+
+# if !defined (_STLP_NO_WCHAR_T)
+template <>
+_STLP_DECLSPEC locale::id num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
+/*
+template <>
+_STLP_DECLSPEC locale::id num_put<wchar_t, wchar_t*>::id;
+*/
+# endif
+#endif
+
+// Declarations of (non-template) facets' static data members
+// size_t locale::id::_S_max = 39; // made before
+
+_STLP_STATIC_MEMBER_DECLSPEC locale::id collate<char>::id = { 1 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id ctype<char>::id = { 2 };
+
+#ifndef _STLP_NO_MBSTATE_T
+_STLP_STATIC_MEMBER_DECLSPEC locale::id codecvt<char, char, mbstate_t>::id = { 3 };
+# ifndef _STLP_NO_WCHAR_T
+_STLP_STATIC_MEMBER_DECLSPEC locale::id codecvt<wchar_t, char, mbstate_t>::id = { 22 };
+# endif
+#endif
+
+_STLP_STATIC_MEMBER_DECLSPEC locale::id moneypunct<char, true>::id = { 4 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id moneypunct<char, false>::id = { 5 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id numpunct<char>::id = { 6 } ;
+_STLP_STATIC_MEMBER_DECLSPEC locale::id messages<char>::id = { 7 };
+
+#if defined (__BORLANDC__) && (__BORLANDC__ >= 0x564)
+_STLP_STATIC_MEMBER_DECLSPEC locale::id money_get<char, istreambuf_iterator<char, char_traits<char> > >::id = { 8 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id money_put<char, ostreambuf_iterator<char, char_traits<char> > >::id = { 10 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id num_get<char, istreambuf_iterator<char, char_traits<char> > >::id = { 12 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id num_put<char, ostreambuf_iterator<char, char_traits<char> > >::id = { 14 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id time_get<char, istreambuf_iterator<char, char_traits<char> > >::id = { 16 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id = { 18 };
+/*
+_STLP_STATIC_MEMBER_DECLSPEC locale::id money_get<char, const char*>::id = { 9 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id money_put<char, char*>::id = { 11 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id num_get<char, const char*>::id = { 13 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id num_put<char, char*>::id = { 15 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id time_get<char, const char*>::id = { 17 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id time_put<char, char*>::id = { 19 };
+*/
+#endif
+
+#ifndef _STLP_NO_WCHAR_T
+_STLP_STATIC_MEMBER_DECLSPEC locale::id collate<wchar_t>::id = { 20 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id ctype<wchar_t>::id = { 21 };
+
+_STLP_STATIC_MEMBER_DECLSPEC locale::id moneypunct<wchar_t, true>::id = { 23 } ;
+_STLP_STATIC_MEMBER_DECLSPEC locale::id moneypunct<wchar_t, false>::id = { 24 } ;
+
+_STLP_STATIC_MEMBER_DECLSPEC locale::id numpunct<wchar_t>::id = { 25 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id messages<wchar_t>::id = { 26 };
+
+#if defined (__BORLANDC__) && (__BORLANDC__ >= 0x564)
+_STLP_STATIC_MEMBER_DECLSPEC locale::id money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id = { 27 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id = { 29 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id = { 31 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > ::id = { 33 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id = { 35 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id = { 37 };
+/*
+_STLP_STATIC_MEMBER_DECLSPEC locale::id money_get<wchar_t, const wchar_t*>::id = { 28 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id money_put<wchar_t, wchar_t*>::id = { 30 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id num_get<wchar_t, const wchar_t*>::id = { 32 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id num_put<wchar_t, wchar_t*>::id = { 34 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id time_get<wchar_t, const wchar_t*>::id = { 36 };
+_STLP_STATIC_MEMBER_DECLSPEC locale::id time_put<wchar_t, wchar_t*>::id = { 38 };
+*/
+# endif
+#endif
+
+_STLP_DECLSPEC _Locale_impl* _STLP_CALL _get_Locale_impl(_Locale_impl *loc)
+{
+ _STLP_ASSERT( loc != 0 );
+ loc->_M_incr();
+ return loc;
+}
+
+void _STLP_CALL _release_Locale_impl(_Locale_impl *& loc)
+{
+ _STLP_ASSERT( loc != 0 );
+ if (loc->_M_decr() == 0) {
+ if (*loc != *_Stl_classic_locale)
+ delete loc;
+ else
+ loc->~_Locale_impl();
+ loc = 0;
+ }
+}
+
+_STLP_DECLSPEC _Locale_impl* _STLP_CALL _copy_Nameless_Locale_impl(_Locale_impl *loc)
+{
+ _STLP_ASSERT( loc != 0 );
+ loc->_M_incr();
+ _Locale_impl *loc_new = new _Locale_impl(*loc);
+ loc->_M_decr();
+ loc_new->name = _Nameless;
+ return loc_new;
+}
+
+_STLP_END_NAMESPACE
+
+
+// locale use many static functions/pointers from this file:
+// to avoid making ones extern, simple #include implementation of locale
+
+#include "locale.cpp"
+
projects / polintos / scott / priv.git / blobdiff