/*

 * 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;