libstdc++-v3/src/localename.cc

   1 // Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
   2 //
   3 // This file is part of the GNU ISO C++ Library.  This library is free
   4 // software; you can redistribute it and/or modify it under the
   5 // terms of the GNU General Public License as published by the
   6 // Free Software Foundation; either version 2, or (at your option)
   7 // any later version.
   8
   9 // This library is distributed in the hope that it will be useful,
  10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 // GNU General Public License for more details.
  13
  14 // You should have received a copy of the GNU General Public License along
  15 // with this library; see the file COPYING.  If not, write to the Free
  16 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
  17 // USA.
  18
  19 // As a special exception, you may use this file as part of a free software
  20 // library without restriction.  Specifically, if other files instantiate
  21 // templates or use macros or inline functions from this file, or you compile
  22 // this file and link it with other files to produce an executable, this
  23 // file does not by itself cause the resulting executable to be covered by
  24 // the GNU General Public License.  This exception does not however
  25 // invalidate any other reasons why the executable file might be covered by
  26 // the GNU General Public License.
  27
  28 #include <bits/std_clocale.h>
  29 #include <bits/std_locale.h>
  30 #include <bits/std_cstring.h>
  31 #include <bits/std_vector.h>
  32 #include <bits/std_stdexcept.h>
  33
  34 namespace std {
  35   locale::_Impl::
  36   ~_Impl() throw()
  37   {
  38     __vec_facet::iterator it = _M_facets->begin();
  39     for (; it != _M_facets->end(); ++it)
  40       if (*it)
  41         (*it)->_M_remove_reference();
  42     delete _M_facets;
  43     locale::facet::_S_destroy_c_locale(_M_c_locale);
  44   }
  45
  46   // Clone existing _Impl object.
  47   locale::_Impl::
  48   _Impl(const _Impl& __imp, size_t __refs)
  49   : _M_references(__refs - 1), _M_facets(0), _M_c_locale(0) // XXX
  50   {
  51     try
  52       {  _M_facets = new __vec_facet(*(__imp._M_facets)); }
  53     catch(...)
  54       {
  55         delete _M_facets;
  56         throw;
  57       }
  58
  59     for (size_t i = 0; i < _S_num_categories; ++i)
  60       _M_names[i] = __imp._M_names[i];
  61
  62     __vec_facet::iterator __it = _M_facets->begin();
  63     for (; __it != _M_facets->end(); ++__it)
  64       if (*__it)
  65         (*__it)->_M_add_reference();
  66   }
  67
  68   // Construct named _Impl, including the standard "C" locale.
  69   locale::_Impl::
  70   _Impl(string __str, size_t __refs)
  71   : _M_references(__refs - 1), _M_facets(0)
  72   {
  73     // Initialize the underlying locale model, which also checks to
  74     // see if the given name is valid.
  75     if (__str != "C" && __str != "POSIX")
  76       locale::facet::_S_create_c_locale(_M_c_locale, __str.c_str());
  77     else
  78       _M_c_locale = NULL;
  79
  80     // Allocate facet container.
  81     try
  82       {  _M_facets = new __vec_facet(_S_num_facets, NULL); }
  83     catch(...)
  84       {
  85         delete _M_facets;
  86         throw;
  87       }
  88
  89     // Name all the categories.
  90     for (size_t i = 0; i < _S_num_categories; ++i)
  91       _M_names[i] = __str;
  92
  93     // Construct all standard facets and add them to _M_facets.
  94     // XXX Eventually, all should use __c_locale ctor like numpunct
  95     _M_init_facet(new std::collate<char>);
  96     _M_init_facet(new std::ctype<char>);
  97     _M_init_facet(new codecvt<char, char, mbstate_t>);
  98     _M_init_facet(new moneypunct<char, false>(_M_c_locale));
  99     _M_init_facet(new moneypunct<char,true >);
 100     _M_init_facet(new money_get<char>);
 101     _M_init_facet(new money_put<char>);
 102     _M_init_facet(new numpunct<char>(_M_c_locale));
 103     _M_init_facet(new num_get<char>);
 104     _M_init_facet(new num_put<char>);
 105     _M_init_facet(new time_get<char>);
 106     _M_init_facet(new time_put<char>);
 107     _M_init_facet(new std::messages<char>);
 108
 109 #ifdef  _GLIBCPP_USE_WCHAR_T
 110     _M_init_facet(new std::collate<wchar_t>);
 111     _M_init_facet(new std::ctype<wchar_t>);
 112     _M_init_facet(new codecvt<wchar_t, char, mbstate_t>);
 113     _M_init_facet(new moneypunct<wchar_t, false>(_M_c_locale));
 114     _M_init_facet(new moneypunct<wchar_t,true >);
 115     _M_init_facet(new money_get<wchar_t>);
 116     _M_init_facet(new money_put<wchar_t>);
 117     _M_init_facet(new numpunct<wchar_t>(_M_c_locale));
 118     _M_init_facet(new num_get<wchar_t>);
 119     _M_init_facet(new num_put<wchar_t>);
 120     _M_init_facet(new time_get<wchar_t>);
 121     _M_init_facet(new time_put<wchar_t>);
 122     _M_init_facet(new std::messages<wchar_t>);
 123 #endif
 124   }
 125
 126   void
 127   locale::_Impl::
 128   _M_replace_categories(const _Impl* __imp, category __cat)
 129   {
 130     const string __none("*");
 131     category __mask;
 132     for (unsigned int __ix = 0; __ix < _S_num_categories; ++__ix)
 133       {
 134         __mask = 1 << __ix;
 135         if (__mask & __cat)
 136           {
 137             // Need to replace entry in _M_facets with other locale's info.
 138             _M_replace_category(__imp, _S_facet_categories[__ix]);
 139             // If both have names, go ahead and mangle.
 140             if (_M_names[__ix] != __none && __imp->_M_names[__ix] != __none)
 141               _M_names[__ix] = __imp->_M_names[__ix];
 142           }
 143       }
 144   }
 145
 146   void
 147   locale::_Impl::
 148   _M_replace_category(const _Impl* __imp, const locale::id* const* __idpp)
 149   {
 150     for (; *__idpp; ++__idpp)
 151       _M_replace_facet(__imp, *__idpp);
 152   }
 153
 154   void
 155   locale::_Impl::
 156   _M_replace_facet(const _Impl* __imp, const locale::id* __idp)
 157   {
 158     size_t __index = __idp->_M_index;
 159     if (__index == 0
 160         || __imp->_M_facets->size() <= __index
 161         || (*(__imp->_M_facets))[__index] == 0)
 162       throw runtime_error("no locale facet");
 163
 164     _M_install_facet(__idp, (*(__imp->_M_facets))[__index]);
 165   }
 166
 167   void
 168   locale::_Impl::
 169   _M_install_facet(const locale::id* __idp, facet* __fp)
 170   {
 171     if (__fp)
 172       {
 173         size_t& __index = __idp->_M_index;
 174         if (!__index)
 175           __index = ++locale::id::_S_highwater;  // XXX MT
 176
 177         if (__index >= _M_facets->size())
 178           _M_facets->resize(__index + 1, 0);  // might throw
 179
 180         facet*& __fpr = (*_M_facets)[__index];
 181         if (__fpr)
 182           {
 183             // Replacing an existing facet.
 184             // Order matters, here:
 185             __fp->_M_add_reference();
 186             if (__fpr)
 187               __fpr->_M_remove_reference();
 188             __fpr = __fp;
 189           }
 190         else
 191           {
 192             // Installing a newly created facet into an empty
 193             // _M_facets container, say a newly-constructed,
 194             // swanky-fresh _Impl.
 195             (*_M_facets)[__index] = __fp;
 196           }
 197       }
 198   }
 199 }
 200
 201
 202
 203