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 {
  36   locale::_Impl::
  37   ~_Impl() throw()
  38   {
  39     __vec_facet::iterator it = _M_facets->begin();
  40     for (; it != _M_facets->end(); ++it)
  41       if (*it)
  42         (*it)->_M_remove_reference();
  43     delete _M_facets;
  44     locale::facet::_S_destroy_c_locale(_M_c_locale);
  45   }
  46
  47   // Clone existing _Impl object.
  48   locale::_Impl::
  49   _Impl(const _Impl& __imp, size_t __refs)
  50   : _M_references(__refs - 1), _M_facets(0), _M_c_locale(0) // XXX
  51   {
  52     try
  53       {  _M_facets = new __vec_facet(*(__imp._M_facets)); }
  54     catch(...)
  55       {
  56         delete _M_facets;
  57         __throw_exception_again;
  58       }
  59
  60     for (size_t i = 0; i < _S_num_categories; ++i)
  61       _M_names[i] = __imp._M_names[i];
  62
  63     __vec_facet::iterator __it = _M_facets->begin();
  64     for (; __it != _M_facets->end(); ++__it)
  65       if (*__it)
  66         (*__it)->_M_add_reference();
  67   }
  68
  69   // Construct named _Impl, including the standard "C" locale.
  70   locale::_Impl::
  71   _Impl(string __str, size_t __refs)
  72   : _M_references(__refs - 1), _M_facets(0)
  73   {
  74     // Initialize the underlying locale model, which also checks to
  75     // see if the given name is valid.
  76     if (__str != "C" && __str != "POSIX")
  77       locale::facet::_S_create_c_locale(_M_c_locale, __str.c_str());
  78     else
  79       _M_c_locale = NULL;
  80
  81     // Allocate facet container.
  82     try
  83       {  _M_facets = new __vec_facet(_S_num_facets, NULL); }
  84     catch(...)
  85       {
  86         delete _M_facets;
  87         __throw_exception_again;
  88       }
  89
  90     // Name all the categories.
  91     for (size_t i = 0; i < _S_num_categories; ++i)
  92       _M_names[i] = __str;
  93
  94     // Construct all standard facets and add them to _M_facets.
  95     // XXX Eventually, all should use __c_locale ctor like numpunct
  96     _M_init_facet(new std::collate<char>);
  97     _M_init_facet(new std::ctype<char>);
  98     _M_init_facet(new codecvt<char, char, mbstate_t>);
  99     _M_init_facet(new moneypunct<char, false>(_M_c_locale));
 100     _M_init_facet(new moneypunct<char,true >);
 101     _M_init_facet(new money_get<char>);
 102     _M_init_facet(new money_put<char>);
 103     _M_init_facet(new numpunct<char>(_M_c_locale));
 104     _M_init_facet(new num_get<char>);
 105     _M_init_facet(new num_put<char>);
 106     _M_init_facet(new time_get<char>);
 107     _M_init_facet(new time_put<char>);
 108     _M_init_facet(new std::messages<char>);
 109
 110 #ifdef  _GLIBCPP_USE_WCHAR_T
 111     _M_init_facet(new std::collate<wchar_t>);
 112     _M_init_facet(new std::ctype<wchar_t>);
 113     _M_init_facet(new codecvt<wchar_t, char, mbstate_t>);
 114     _M_init_facet(new moneypunct<wchar_t, false>(_M_c_locale));
 115     _M_init_facet(new moneypunct<wchar_t,true >);
 116     _M_init_facet(new money_get<wchar_t>);
 117     _M_init_facet(new money_put<wchar_t>);
 118     _M_init_facet(new numpunct<wchar_t>(_M_c_locale));
 119     _M_init_facet(new num_get<wchar_t>);
 120     _M_init_facet(new num_put<wchar_t>);
 121     _M_init_facet(new time_get<wchar_t>);
 122     _M_init_facet(new time_put<wchar_t>);
 123     _M_init_facet(new std::messages<wchar_t>);
 124 #endif
 125   }
 126
 127   void
 128   locale::_Impl::
 129   _M_replace_categories(const _Impl* __imp, category __cat)
 130   {
 131     const string __none("*");
 132     category __mask;
 133     for (unsigned int __ix = 0; __ix < _S_num_categories; ++__ix)
 134       {
 135         __mask = 1 << __ix;
 136         if (__mask & __cat)
 137           {
 138             // Need to replace entry in _M_facets with other locale's info.
 139             _M_replace_category(__imp, _S_facet_categories[__ix]);
 140             // If both have names, go ahead and mangle.
 141             if (_M_names[__ix] != __none && __imp->_M_names[__ix] != __none)
 142               _M_names[__ix] = __imp->_M_names[__ix];
 143           }
 144       }
 145   }
 146
 147   void
 148   locale::_Impl::
 149   _M_replace_category(const _Impl* __imp, const locale::id* const* __idpp)
 150   {
 151     for (; *__idpp; ++__idpp)
 152       _M_replace_facet(__imp, *__idpp);
 153   }
 154
 155   void
 156   locale::_Impl::
 157   _M_replace_facet(const _Impl* __imp, const locale::id* __idp)
 158   {
 159     size_t __index = __idp->_M_index;
 160     if (__index == 0
 161         || __imp->_M_facets->size() <= __index
 162         || (*(__imp->_M_facets))[__index] == 0)
 163       __throw_runtime_error("no locale facet");
 164
 165     _M_install_facet(__idp, (*(__imp->_M_facets))[__index]);
 166   }
 167
 168   void
 169   locale::_Impl::
 170   _M_install_facet(const locale::id* __idp, facet* __fp)
 171   {
 172     if (__fp)
 173       {
 174         size_t& __index = __idp->_M_index;
 175         if (!__index)
 176           __index = ++locale::id::_S_highwater;  // XXX MT
 177
 178         if (__index >= _M_facets->size())
 179           _M_facets->resize(__index + 1, 0);  // might throw
 180
 181         facet*& __fpr = (*_M_facets)[__index];
 182         if (__fpr)
 183           {
 184             // Replacing an existing facet.
 185             // Order matters, here:
 186             __fp->_M_add_reference();
 187             if (__fpr)
 188               __fpr->_M_remove_reference();
 189             __fpr = __fp;
 190           }
 191         else
 192           {
 193             // Installing a newly created facet into an empty
 194             // _M_facets container, say a newly-constructed,
 195             // swanky-fresh _Impl.
 196             (*_M_facets)[__index] = __fp;
 197           }
 198       }
 199   }
 200 } // namespace std
 201