/*

 * © Portions copyright (c) 2006-2007 Nokia Corporation.  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_impl.h"

#include <locale>

#include <typeinfo>

#include <stdexcept>

#include "c_locale.h"

#include "aligned_buffer.h"

#include <exception>

#include "locale_impl.h"

#include <stl/_codecvt.h>

#include <stl/_collate.h>

#include <stl/_ctype.h>

#include <stl/_monetary.h>

#include "message_facets.h"

#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

#include "libstdcppwsd.h"

_STLP_BEGIN_NAMESPACE

extern void filebuf_page_size_init();

extern void num_get_array_init();

extern void locale_mutex_lock_init();

extern void ios_base_S_index_init();

extern void ios_base_Init_S_count_init();

extern void ios_base_S_was_synced_init();

extern void numpunct_name_init();

extern void locale_catalog_category_hash_lock_init();

extern void complex_trig_limit_init();

extern void monetary_empty_string_init();

//forward declaraions

void ios_base_Loc_init_S_count_init();

void locale_impl_init();

void locale_impl_string_init();

_STLP_END_NAMESPACE

# endif

#ifdef __WINSCW__

extern void SetGlobalTlsData(void* aData);

#endif

_STLP_BEGIN_NAMESPACE

// #ifdef _STLP_USE_OWN_NAMESPACE

// using _STLP_VENDOR_EXCEPT_STD::bad_cast;

// #endif

_Locale_impl::_Locale_impl(const char* s) : name(s) {}

_Locale_impl::~_Locale_impl() {}

void _Locale_impl::incr() {}

void _Locale_impl::decr() {}

// _Locale_impl non-inline member functions.

void _STLP_CALL

_Locale_impl::_M_throw_bad_cast()

{

  _STLP_THROW(bad_cast());  

}

#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

static void global_iostream_init()

{

	_Libcpp_wsd* libwsd = &get_libcpp_wsdptr();

	//initialize the pointer members

	libwsd->cin = new istream(0);

	libwsd->cout = new ostream(0);

	libwsd->cerr = new ostream(0);

	libwsd->clog = new ostream(0);

#ifndef _STLP_NO_WCHAR_T

	libwsd->wcin = new wistream(0);

	libwsd->wcout = new wostream(0);

	libwsd->wcerr = new wostream(0);

	libwsd->wclog = new wostream(0);

#endif //_STLP_NO_WCHAR_T

}

//WSD class constructor

_Libcpp_wsd::_Libcpp_wsd()

	{

	ios_base_Init_S_count = 0;

	ios_base_Loc_init_S_count = 0;

	locale_catalog_ctype_hash = NULL;

	locale_catalog_numeric_hash = NULL;

	locale_catalog_time_hash = NULL;

	locale_catalog_collate_hash = NULL;

	locale_catalog_monetary_hash = NULL;

	locale_catalog_messages_hash = NULL;

	_LocInit = NULL;

	_IosInit = NULL;

	ios_pword_dummy = NULL;

	Locale_impl_S_global_impl = NULL;

	//initialize the global stream pointers

	cin  = NULL;

	cout = NULL;

	cerr = NULL;

	clog = NULL;

#ifndef _STLP_NO_WCHAR_T

	wcin  = NULL;

	wcout = NULL;

	wcerr = NULL;

	wclog = NULL;

#endif

    _new_handler = NULL;

	}

//WSd class destructor

_Libcpp_wsd::~_Libcpp_wsd()

	{

		delete _LocInit;

		delete _IosInit;

		delete cin;

		delete cout;

		delete cerr;

		delete clog;

# ifndef _STLP_NO_WCHAR_T		

		delete wcin;

		delete wcout;

		delete wcerr;

		delete wclog;

# endif		

	}

void CallCloseStdLib()

    {

    _Libcpp_wsd* wsd = &get_libcpp_wsdptr();

#ifdef __WINSCW__

    SetGlobalTlsData(NULL);

#endif //__WINSCW__

    delete wsd;

    }

# endif  //__LIBSTD_CPP_SYMBIAN32_WSD__

static void 

_Stl_loc_assign_ids() {

#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

  //initialize wsd obj pointer

  locale_impl_init();

# endif  

  // 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.)

#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

    collate<char>::GetFacetLocaleId()._M_index = 1;

    ctype<char>::GetFacetLocaleId()._M_index = 2;

 # ifndef _STLP_NO_MBSTATE_T

    codecvt<char, char, mbstate_t>::GetFacetLocaleId()._M_index = 3;

  #  ifndef _STLP_NO_WCHAR_T

    codecvt<wchar_t, char, mbstate_t>::GetFacetLocaleId()._M_index = 22;

  #  endif//!_STLP_NO_WCHAR_T

 # endif//!_STLP_NO_MBSTATE_T

    moneypunct<char, true>::GetFacetLocaleId()._M_index = 4;

    moneypunct<char, false>::GetFacetLocaleId()._M_index = 5;

    messages<char>::GetFacetLocaleId()._M_index = 7;

    numpunct<char>::GetFacetLocaleId()._M_index = 6;

 # ifndef _STLP_NO_WCHAR_T

    collate<wchar_t>::GetFacetLocaleId()._M_index = 20;

    ctype<wchar_t>::GetFacetLocaleId()._M_index = 21;

    moneypunct<wchar_t, true>::GetFacetLocaleId()._M_index = 23;

    moneypunct<wchar_t, false>::GetFacetLocaleId()._M_index = 24;

    numpunct<wchar_t>::GetFacetLocaleId()._M_index = 25;

    messages<wchar_t>::GetFacetLocaleId()._M_index = 26;

 # endif //!_STLP_NO_WCHAR_T

  money_get<char, istreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()._M_index                     = 8;

  money_get<char, const char*>::GetFacetLocaleId()._M_index        = 9;

  money_put<char, ostreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()._M_index                     = 10;

  money_put<char, char*>::GetFacetLocaleId()._M_index              = 11;

  num_get<char, istreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()._M_index                       = 12;

  num_get<char, const char*>::GetFacetLocaleId()._M_index          = 13;

  num_put<char, ostreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()._M_index                       = 14;

  num_put<char, char*>::GetFacetLocaleId()._M_index                = 15;

  time_get<char, istreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()._M_index                      = 16;

  time_get<char, const char*>::GetFacetLocaleId()._M_index         = 17;

  time_put<char, ostreambuf_iterator<char, char_traits<char> > >::GetFacetLocaleId()._M_index                      = 18;

  time_put<char, char*>::GetFacetLocaleId()._M_index               = 19;

  //adding new iterator type

  num_put<char, back_insert_iterator<string> >::GetFacetLocaleId()._M_index  = 40;

#else

  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;

#endif

# ifndef _STLP_NO_WCHAR_T

#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

  money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::GetFacetLocaleId()._M_index          = 27;

  money_get<wchar_t, const wchar_t*>::GetFacetLocaleId()._M_index  = 28;

  money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::GetFacetLocaleId()._M_index          = 29;

  money_put<wchar_t, wchar_t*>::GetFacetLocaleId()._M_index        = 30;

  num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::GetFacetLocaleId()._M_index            = 31;

  num_get<wchar_t, const wchar_t*>::GetFacetLocaleId()._M_index    = 32;

  num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > ::GetFacetLocaleId()._M_index           = 33;

  num_put<wchar_t, wchar_t*>::GetFacetLocaleId()._M_index          = 34;

  time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::GetFacetLocaleId()._M_index           = 35;

  time_get<wchar_t, const wchar_t*>::GetFacetLocaleId()._M_index   = 36;

  time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::GetFacetLocaleId()._M_index           = 37;

  time_put<wchar_t, wchar_t*>::GetFacetLocaleId()._M_index         = 38;

#else

  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

  //  messages<wchar_t>::id._M_index                   = 38;

# endif

  //  locale::id::_S_max                               = 39;

}

# if !defined(__LIBSTD_CPP_SYMBIAN32_WSD__) && !defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

static _Stl_aligned_buffer<_Locale_impl> _S_classic_locale;

static _Stl_aligned_buffer<collate<char> > _S_collate_char;

static _Stl_aligned_buffer<ctype<char> > _S_ctype_char;

# ifndef _STLP_NO_MBSTATE_T

static _Stl_aligned_buffer<codecvt<char, char, mbstate_t> > _S_codecvt_char;

# endif

static _Stl_aligned_buffer<moneypunct<char, true> > _S_moneypunct_true_char;

static _Stl_aligned_buffer<moneypunct<char, false> > _S_moneypunct_false_char;

static _Stl_aligned_buffer<numpunct<char> > _S_numpunct_char;

static _Stl_aligned_buffer<messages<char> > _S_messages_char;

static _Stl_aligned_buffer<money_get<char, istreambuf_iterator<char, char_traits<char> > > > _S_money_get_char;

static _Stl_aligned_buffer<money_put<char, ostreambuf_iterator<char, char_traits<char> > > > _S_money_put_char;

static _Stl_aligned_buffer<num_get<char, istreambuf_iterator<char, char_traits<char> > > > _S_num_get_char;

static _Stl_aligned_buffer<num_put<char, ostreambuf_iterator<char, char_traits<char> > > > _S_num_put_char;

static _Stl_aligned_buffer<time_get<char, istreambuf_iterator<char, char_traits<char> > > > _S_time_get_char;

static _Stl_aligned_buffer<time_put<char, ostreambuf_iterator<char, char_traits<char> > > > _S_time_put_char;

static _Stl_aligned_buffer<money_get<char, const char*> > _S_money_get_char_const_char;

static _Stl_aligned_buffer<money_put<char, char*> > _S_money_put_char_char;

static _Stl_aligned_buffer<num_get<char, const char*> > _S_num_get_char_const_char;

static _Stl_aligned_buffer<num_put<char, char*> > _S_num_put_char_char;

static _Stl_aligned_buffer<time_get<char, const char*> > _S_time_get_char_const_char;

static _Stl_aligned_buffer<time_put<char, char*> > _S_time_put_char_char;

# ifndef _STLP_NO_WCHAR_T

static _Stl_aligned_buffer<collate<wchar_t> > _S_collate_wchar;

static _Stl_aligned_buffer<ctype<wchar_t> > _S_ctype_wchar;

# ifndef _STLP_NO_MBSTATE_T

static _Stl_aligned_buffer<codecvt<wchar_t, char, mbstate_t> > _S_codecvt_wchar;

# endif //!_STLP_NO_MBSTATE_T

static _Stl_aligned_buffer<moneypunct<wchar_t, true> > _S_moneypunct_true_wchar;

static _Stl_aligned_buffer<moneypunct<wchar_t, false> > _S_moneypunct_false_wchar;

static _Stl_aligned_buffer<numpunct<wchar_t> > _S_numpunct_wchar;

static _Stl_aligned_buffer<messages<wchar_t> > _S_messages_wchar;

static _Stl_aligned_buffer<money_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > > > _S_money_get_wchar;

static _Stl_aligned_buffer<money_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > > _S_money_put_wchar;

static _Stl_aligned_buffer<num_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > > > _S_num_get_wchar;

static _Stl_aligned_buffer<num_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > > _S_num_put_wchar;

static _Stl_aligned_buffer<time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > > > _S_time_get_wchar;

static _Stl_aligned_buffer<time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > > _S_time_put_wchar;

static _Stl_aligned_buffer<money_get<wchar_t, const wchar_t*> > _S_money_get_wchar_const_wchar;

static _Stl_aligned_buffer<money_put<wchar_t, wchar_t*> > _S_money_put_wchar_wchar;

static _Stl_aligned_buffer<num_get<wchar_t, const wchar_t*> > _S_num_get_wchar_const_wchar;

static _Stl_aligned_buffer<num_put<wchar_t, wchar_t*> > _S_num_put_wchar_wchar;

static _Stl_aligned_buffer<time_get<wchar_t, const wchar_t*> > _S_time_get_wchar_const_wchar;

static _Stl_aligned_buffer<time_put<wchar_t, wchar_t*> > _S_time_put_wchar_wchar;

# endif //!_STLP_NO_WCHAR_T

static _Messages _Null_messages;

static locale::facet* _S_classic_facets[] = {

  __REINTERPRET_CAST(locale::facet*,0),

  __REINTERPRET_CAST(locale::facet*,&_S_collate_char),

  __REINTERPRET_CAST(locale::facet*,&_S_ctype_char), 

# ifndef _STLP_NO_MBSTATE_T

    __REINTERPRET_CAST(locale::facet*,&_S_codecvt_char),

# else

    __REINTERPRET_CAST(locale::facet*,0), 

# endif //!_STLP_NO_MBSTATE_T

  __REINTERPRET_CAST(locale::facet*,&_S_moneypunct_true_char),

  __REINTERPRET_CAST(locale::facet*,&_S_moneypunct_false_char),

  __REINTERPRET_CAST(locale::facet*,&_S_numpunct_char),

  __REINTERPRET_CAST(locale::facet*,&_S_messages_char),

  __REINTERPRET_CAST(locale::facet*,&_S_money_get_char),

  __REINTERPRET_CAST(locale::facet*,&_S_money_get_char_const_char),

  __REINTERPRET_CAST(locale::facet*,&_S_money_put_char),

  __REINTERPRET_CAST(locale::facet*,&_S_money_put_char_char),

  __REINTERPRET_CAST(locale::facet*,&_S_num_get_char),

  __REINTERPRET_CAST(locale::facet*,&_S_num_get_char_const_char),

  __REINTERPRET_CAST(locale::facet*,&_S_num_put_char),

  __REINTERPRET_CAST(locale::facet*,&_S_num_put_char_char),

  __REINTERPRET_CAST(locale::facet*,&_S_time_get_char),

  __REINTERPRET_CAST(locale::facet*,&_S_time_get_char_const_char),

  __REINTERPRET_CAST(locale::facet*,&_S_time_put_char),

  __REINTERPRET_CAST(locale::facet*,&_S_time_put_char_char),

# ifndef _STLP_NO_WCHAR_T

  __REINTERPRET_CAST(locale::facet*,&_S_collate_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_ctype_wchar), 

# ifndef _STLP_NO_MBSTATE_T

  __REINTERPRET_CAST(locale::facet*,&_S_codecvt_wchar),

# else 

  __REINTERPRET_CAST(locale::facet*,0)

# endif //!_STLP_NO_MBSTATE_T

  __REINTERPRET_CAST(locale::facet*,&_S_moneypunct_true_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_moneypunct_false_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_numpunct_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_messages_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_money_get_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_money_get_wchar_const_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_money_put_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_money_put_wchar_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_num_get_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_num_get_wchar_const_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_num_put_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_num_put_wchar_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_time_get_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_time_get_wchar_const_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_time_put_wchar),

  __REINTERPRET_CAST(locale::facet*,&_S_time_put_wchar_wchar),

# endif //!_STLP_NO_WCHAR_T

  0

};

# endif //!__LIBSTD_CPP_SYMBIAN32_WSD__

//Put all static variable initialization in this file

#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

#ifndef __WINSCW__

_STLP_STATIC_MEMBER_EXP_DECLSPEC _Libcpp_wsd* g_libcpp_wsd = NULL;

#endif

void locale_impl_init()

{

	int index = 0;

#ifdef __WINSCW__

	_Libcpp_wsd* g_libcpp_wsd = &get_libcpp_wsdptr();

#else

	g_libcpp_wsd  = &get_libcpp_wsdptr();

#endif

	if (!g_libcpp_wsd)

		return;

	//initialize _S_max

	get_locale_id_S_max() = 39;

	get_locale_impl_S_global_impl() = 0;

	//initialize the page size

	filebuf_page_size_init();

	//initialize the array in num_get

	num_get_array_init();

	//initialize the mutex lock in locale.cpp

	locale_mutex_lock_init();

	//initialize _S_index in ios.cpp

	ios_base_S_index_init();

	//initialize _S_count of _Loc_init

	ios_base_Loc_init_S_count_init();

	//initialize _S_count of Init

	ios_base_Init_S_count_init();

	//initialize S_was_synced of ios_base

	ios_base_S_was_synced_init();

	//initialize the mutex in locale_catalog.cpp

	locale_catalog_category_hash_lock_init();

	//initialize float and double limits in complex_trig.cpp

	complex_trig_limit_init();

	//initialize the string

	locale_impl_string_init();

	//initialize empty string in monetary.cpp

	monetary_empty_string_init();

	//initialize true/false name in numpunct.cpp

	numpunct_name_init();

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,0);

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_collate_char());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_ctype_char());

# ifndef _STLP_NO_MBSTATE_T

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_codecvt_char());

# else

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,0);

# endif

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_moneypunct_true_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_moneypunct_false_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_numpunct_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_messages_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_money_get_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_money_get_char_const_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_money_put_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_money_put_char_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_num_get_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_num_get_char_const_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_num_put_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_num_put_char_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_time_get_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_time_get_char_const_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_time_put_char());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_time_put_char_char());

# ifndef _STLP_NO_WCHAR_T

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_collate_wchar());

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_ctype_wchar());

# ifndef _STLP_NO_MBSTATE_T

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_codecvt_wchar());

# else

	get_locale_impl_S_classic_facets()[index++] =  __REINTERPRET_CAST(locale::facet*,0);

# endif //!_STLP_NO_MBSTATE_T

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_moneypunct_true_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_moneypunct_false_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_numpunct_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_messages_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_money_get_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_money_get_wchar_const_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_money_put_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_money_put_wchar_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_num_get_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_num_get_wchar_const_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_num_put_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_num_put_wchar_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_time_get_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_time_get_wchar_const_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_time_put_wchar());

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_time_put_wchar_wchar());

# endif  //!_STLP_NO_WCHAR_T

	//support for back_insert iterator

	get_locale_impl_S_classic_facets()[index++] = __REINTERPRET_CAST(locale::facet*,&get_locale_impl_S_num_put_char_back_insert_iterator());

	get_locale_impl_S_classic_facets()[index] = 0;

}

# endif //__LIBSTD_CPP_SYMBIAN32_WSD__

_Locale_impl* 

_Locale_impl::make_classic_locale() {

  // The classic locale contains every facet that belongs to a category.

#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

	_Locale_impl* classic = __REINTERPRET_CAST(_Locale_impl*, &get_locale_impl_S_classic_locale());

# else

	_Locale_impl* classic = __REINTERPRET_CAST(_Locale_impl*, &_S_classic_locale);

# endif //__LIBSTD_CPP_SYMBIAN32_WSD__

  new (classic) _Locale_impl("C");

#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

  classic->facets = get_locale_impl_S_classic_facets();

  classic->_M_size = get_locale_id_S_max();

# else

  classic->facets = _S_classic_facets;

  classic->_M_size = locale::id::_S_max;

# endif  //__LIBSTD_CPP_SYMBIAN32_WSD__

#if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)

  // ctype category

  new(&get_locale_impl_S_ctype_char()) ctype<char>(0, false, 1);

  // collate category

  new(&get_locale_impl_S_collate_char()) collate<char>(1);

  new(&get_locale_impl_S_codecvt_char()) codecvt<char, char, mbstate_t>(1);

  // numeric category