/*

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

 #include <stdexcept>

 #include <stl/_algobase.h>

 #include "locale_nonclassic.h"

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

 #include "libstdcppwsd.h"

 # endif

 _STLP_BEGIN_NAMESPACE

 _Locale::_Locale(const _Locale_impl& L)

   : _Locale_impl(L), _Refcount_Base(1), facets_vec((void**)L.facets, (void**)L.facets+L.size())

 {

   for (size_t i = 1; i < L.size(); ++i) {

     locale::facet* f = L.facets[i];

     if (f && f->_M_delete)

       f->_M_incr();

   }

   facets = (locale::facet**)&facets_vec[0];

   _M_size = facets_vec.size();

 }

 _Locale::~_Locale() {

   size_t sz = facets_vec.size();

   for (size_t i = 1; i < sz ; ++i)

     this->remove(i);

 }

 void _Locale::remove(size_t index) {

   if (index > 0 && index < facets_vec.size()) {

     locale::facet* old = (locale::facet*)facets_vec[index];

     if (old && old->_M_delete) {

       old->_M_decr(); 

       if (old->_M_ref_count == 0)

         delete old;

     }

     facets_vec[index] = 0;

   }

 }

 locale::facet*

 _Locale::insert(locale::facet* f, size_t index, bool do_incr) {

   if (f != 0 && index != 0) {

     if (index >= facets_vec.size()) {

       facets_vec.insert(facets_vec.end(),

                         index - facets_vec.size() + 1, (void*) 0);

       facets = (locale::facet**)&facets_vec[0];

       _M_size = facets_vec.size();

     }

     if (do_incr)

       f->_M_incr();

     remove(index);

     facets_vec[index] = (void*)f;

     return f;

   }

   else

     return 0;

 }

 void _Locale::insert(_Locale_impl* from, const locale::id& n) {

   size_t index = n._M_index;

   this->remove(index);

   if (index > 0 && index < from->size())

     this->insert(from->facets[index], index, true);

 }

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

 void locale_mutex_lock_init()

 {

    get_locale_Index_lock()._M_lock.iState = _ENeedsNormalInit;

    get_locale_Index_lock()._M_lock.iPtr = 0;

    get_locale_Index_lock()._M_lock.iReentry = 0;  	

 }   

 # else 

 static _STLP_STATIC_MUTEX _Index_lock _STLP_MUTEX_INITIALIZER;

 # endif

 // Takes a reference to a locale::id, and returns its numeric index.

 // If no numeric index has yet been assigned, assigns one.  The return

 // value is always positive.

 static size_t _Stl_loc_get_index(locale::id& id)

 {

   if (id._M_index == 0) {

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

     _STLP_auto_lock sentry(get_locale_Index_lock());

     size_t new_index = get_locale_id_S_max()++;

 # else

 	_STLP_auto_lock sentry(_Index_lock);    

     size_t new_index = locale::id::_S_max++;

 # endif

     id._M_index = new_index;

   }

   return id._M_index;

 }

 _STLP_EXP_DECLSPEC void locale::_M_insert(facet* f, locale::id& n)

 {

   if (f)

     ((_Locale*)_M_impl)->insert(f, _Stl_loc_get_index(n), false);

 }

 // Make a locale directly from a _Locale_impl object.  If the second argument

 // is true, we clone the _Locale_impl.  If false, we just twiddle pointers.

 _STLP_EXP_DECLSPEC locale::locale(_Locale_impl* impl, bool do_copy)

   : _M_impl(0)

 {

   if (do_copy) {

     _M_impl = new _Locale(*impl);

     _M_impl->name = "*";

   } else

     _M_impl = _S_copy_impl(impl);

 }

 _STLP_END_NAMESPACE