/*
* Portions Copyright (c) 2008 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.
*
* 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"
#if defined(__SYMBIAN32__WSD__)
#include "libstdcppwsd.h"
std::_Stl_aligned_buffer<std::_Locale_impl::Init>& get_Loc_init_buf()
{
return *(std::_Stl_aligned_buffer<std::_Locale_impl::Init> *)(get_libcpp_wsd().__Loc_init_buf);
}
#define __Loc_init_buf get_Loc_init_buf()
#define _S_count get_Loc_init_S_count()
#define _Index_lock get_locale_Index_lock()
#define _S_index get_S_index()
#define _S_max get_locale_id_S_max()
#define _Stl_classic_locale get_Stl_classic_locale()
#define _Stl_global_locale get_Stl_global_locale()
#endif //__SYMBIAN32__WSD__
_STLP_BEGIN_NAMESPACE
#if defined(__SYMBIAN32__WSD__) && defined(_STLP_DEBUG)
#define _Nameless *get_Nameless()
#else
static const string _Nameless("*");
#endif
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;
}
}
# if !defined(__SYMBIAN32__WSD__)
# if !defined(__SYMBIAN32__NO_STATIC_IMPORTS__)
_STLP_STATIC_MEMBER_DECLSPEC size_t locale::id::_S_max = 39;
#else
size_t locale::id::_S_max = 39;
#endif
# endif //__SYMBIAN32__WSD__
static void _Stl_loc_assign_ids();
#if !defined(__SYMBIAN32__WSD__)
static _Stl_aligned_buffer<_Locale_impl::Init> __Loc_init_buf;
#endif
_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 {
#if !defined(__SYMBIAN32__WSD__)
static _Refcount_Base _S_count(0);
#endif
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() {
#if defined(__SYMBIAN32__WSD__)
//initialize wsd obj pointer
locale_impl_init();
# endif
_Stl_loc_assign_ids();
make_classic_locale();
#if defined(__SYMBIAN32__WSD__)
global_iostream_init();
# endif
}
// 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
//
#if defined(__SYMBIAN32__WSD__)
#define id GetFacetLocaleId()
#endif
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.)
#ifdef __SYMBIAN32__WSD__
collate<char>::id._M_index = 1;
ctype<char>::id._M_index = 2;
#ifndef _STLP_NO_MBSTATE_T
codecvt<char, char, mbstate_t>::id._M_index = 3;
# ifndef _STLP_NO_WCHAR_T
codecvt<wchar_t, char, mbstate_t>::id._M_index = 22;
# endif
#endif
moneypunct<char, true>::id._M_index = 4;
moneypunct<char, false>::id._M_index = 5;
numpunct<char>::id._M_index = 6;
messages<char>::id._M_index =7;
collate<wchar_t>::id._M_index = 20;
ctype<wchar_t>::id._M_index = 21;
moneypunct<wchar_t, true>::id._M_index = 23;
moneypunct<wchar_t, false>::id._M_index = 24;
numpunct<wchar_t>::id._M_index = 25;
messages<wchar_t>::id._M_index = 26;
#endif
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.
#if !defined(__SYMBIAN32__WSD__)
static locale *_Stl_classic_locale = 0;
static locale *_Stl_global_locale = 0;
#endif
static locale* _Stl_get_classic_locale() {
#if !defined(__SYMBIAN32__WSD__)
static _Locale_impl::Init init;
#endif
return _Stl_classic_locale;
}
static locale* _Stl_get_global_locale() {
#if !defined(__SYMBIAN32__WSD__)
static _Locale_impl::Init init;
#endif
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
#if !defined(__SYMBIAN32__WSD__)
static ios_base::Init _IosInit;
#endif
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);
#if defined(__SYMBIAN32__WSD__)
::set_Stl_classic_locale(new (WSDAlloc(sizeof(locale))) locale(classic));
::set_Stl_global_locale (new (WSDAlloc(sizeof(locale))) locale(_copy_Locale_impl(classic)));
#else
static locale _Locale_classic(classic);
_Stl_classic_locale = &_Locale_classic;
static locale _Locale_global(_copy_Locale_impl(classic));
_Stl_global_locale = &_Locale_global;
#endif
}
#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
# if defined(__SYMBIAN32__WSD__)
/* no definitions */
#elif defined (__EPOC32__)
locale::id collate<char>::id = { 1 };
locale::id ctype<char>::id = { 2 };
#ifndef _STLP_NO_MBSTATE_T
locale::id codecvt<char, char, mbstate_t>::id = { 3 };
# ifndef _STLP_NO_WCHAR_T
locale::id codecvt<wchar_t, char, mbstate_t>::id = { 22 };
# endif
#endif
locale::id moneypunct<char, true>::id = { 4 };
locale::id moneypunct<char, false>::id = { 5 };
locale::id numpunct<char>::id = { 6 } ;
locale::id messages<char>::id = { 7 };
#ifndef _STLP_NO_WCHAR_T
locale::id collate<wchar_t>::id = { 20 };
locale::id ctype<wchar_t>::id = { 21 };
locale::id moneypunct<wchar_t, true>::id = { 23 } ;
locale::id moneypunct<wchar_t, false>::id = { 24 } ;
locale::id numpunct<wchar_t>::id = { 25 };
locale::id messages<wchar_t>::id = { 26 };
#endif
#if defined(__SYMBIAN32__NO_STATIC_IMPORTS__)
//ACCESS FUNCTIONS
_STLP_DECLSPEC locale::id& collate<char>::GetFacetLocaleId()
{
return collate<char>::id;
}
_STLP_DECLSPEC locale::id& ctype<char>::GetFacetLocaleId()
{
return ctype<char>::id;
}
#ifndef _STLP_NO_MBSTATE_T
_STLP_DECLSPEC locale::id& codecvt<char, char, mbstate_t>::GetFacetLocaleId()
{
return codecvt<char, char, mbstate_t>::id;
}
# ifndef _STLP_NO_WCHAR_T
_STLP_DECLSPEC locale::id& codecvt<wchar_t, char, mbstate_t>::GetFacetLocaleId()
{
return codecvt<wchar_t, char, mbstate_t>::id;
}
# endif
#endif
_STLP_DECLSPEC locale::id& moneypunct<char, true>::GetFacetLocaleId()
{
return moneypunct<char, true>::id;
}
_STLP_DECLSPEC locale::id& moneypunct<char, false>::GetFacetLocaleId()
{
return moneypunct<char, false>::id;
}
_STLP_DECLSPEC locale::id& numpunct<char>::GetFacetLocaleId()
{
return numpunct<char>::id;
}
_STLP_DECLSPEC locale::id& messages<char>::GetFacetLocaleId()
{
return messages<char>::id;
}
#ifndef _STLP_NO_WCHAR_T
_STLP_DECLSPEC locale::id& collate<wchar_t>::GetFacetLocaleId()
{
return collate<wchar_t>::id;
}
_STLP_DECLSPEC locale::id& ctype<wchar_t>::GetFacetLocaleId()
{
return ctype<wchar_t>::id;
}
_STLP_DECLSPEC locale::id& moneypunct<wchar_t, true>::GetFacetLocaleId()
{
return moneypunct<wchar_t, true>::id;
}
_STLP_DECLSPEC locale::id& moneypunct<wchar_t, false>::GetFacetLocaleId()
{
return moneypunct<wchar_t, false>::id;
}
_STLP_DECLSPEC locale::id& numpunct<wchar_t>::GetFacetLocaleId()
{
return numpunct<wchar_t>::id;
}
_STLP_DECLSPEC locale::id& messages<wchar_t>::GetFacetLocaleId()
{
return messages<wchar_t>::id;
}
#endif
template <>
_STLP_DECLSPEC locale::id& money_get<char, istreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()
{
return money_get<char, istreambuf_iterator<char, char_traits<char> > >::id;
}
template <>
_STLP_DECLSPEC locale::id& money_put<char, ostreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()
{
return money_put<char, ostreambuf_iterator<char, char_traits<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> > >::GetFacetLocaleId()
{
return money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
}
template <>
_STLP_DECLSPEC locale::id& money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::GetFacetLocaleId()
{
return money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
}
# endif
template <>
_STLP_DECLSPEC locale::id& num_get<char, istreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()
{
return num_get<char, istreambuf_iterator<char, char_traits<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> > >::GetFacetLocaleId()
{
return num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
}
# endif
template <>
_STLP_DECLSPEC locale::id& num_put<char, ostreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()
{
return num_put<char, ostreambuf_iterator<char, char_traits<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> > >::GetFacetLocaleId()
{
return num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
}
# endif
template <>
_STLP_DECLSPEC locale::id&
time_get<char, istreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()
{
return time_get<char, istreambuf_iterator<char, char_traits<char> > >::id;
}
template <>
_STLP_DECLSPEC locale::id&
time_put<char, ostreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()
{
return time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id;
}
# ifndef _STLP_NO_WCHAR_T
template <>
_STLP_DECLSPEC locale::id&
time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::GetFacetLocaleId()
{
return time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
}
template <>
_STLP_DECLSPEC locale::id&
time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::GetFacetLocaleId()
{
return time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id;
}
# endif
# endif // __SYMBIAN32__NO_STATIC_IMPORTS__
#else // original STLPort
// 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
# endif //!__SYMBIAN32__WSD__
_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;
}
#if defined(__SYMBIAN32__WSD__)
#undef id
#endif
_STLP_END_NAMESPACE
#if defined(__SYMBIAN32__WSD__)
void locale_impl_init()
{
//initialize _S_max
std::locale::id::get_locale_id_S_max() = 39;
//initialize the mutex lock in locale.cpp
locale_index_lock_init();
//initialize _S_count of Init
std::ios_base::Init::ios_base_Init_S_count_init();
//initialize S_was_synced of ios_base
std::ios_base::ios_base_S_was_synced_init();
//initialize the mutex in locale_catalog.cpp
stlp_priv::locale_catalog_category_hash_lock_init();
//initialize category map in locale_catalog.cpp
stlp_priv::Category_Map_Init();
//initialize empty string in monetary.cpp
monetary_empty_string_init();
}
# endif //__SYMBIAN32__WSD__
// locale use many static functions/pointers from this file:
// to avoid making ones extern, simple #include implementation of locale
#include "locale.cpp"