--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/stdcpp/src/locale.cpp	Tue Feb 02 02:01:42 2010 +0200
@@ -0,0 +1,139 @@
+/*
+ * © 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