libstdc++-v3/src/localename.cc

   1 // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003
   2 // Free Software Foundation, Inc.
   3 //
   4 // This file is part of the GNU ISO C++ Library.  This library is free
   5 // software; you can redistribute it and/or modify it under the
   6 // terms of the GNU General Public License as published by the
   7 // Free Software Foundation; either version 2, or (at your option)
   8 // any later version.
   9
  10 // This library is distributed in the hope that it will be useful,
  11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 // GNU General Public License for more details.
  14
  15 // You should have received a copy of the GNU General Public License along
  16 // with this library; see the file COPYING.  If not, write to the Free
  17 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
  18 // USA.
  19
  20 // As a special exception, you may use this file as part of a free software
  21 // library without restriction.  Specifically, if other files instantiate
  22 // templates or use macros or inline functions from this file, or you compile
  23 // this file and link it with other files to produce an executable, this
  24 // file does not by itself cause the resulting executable to be covered by
  25 // the GNU General Public License.  This exception does not however
  26 // invalidate any other reasons why the executable file might be covered by
  27 // the GNU General Public License.
  28
  29 #include <clocale>
  30 #include <cstring>
  31 #include <locale>
  32
  33 namespace std
  34 {
  35   using namespace __gnu_cxx;
  36
  37
  38   locale::locale(const char* __s)
  39   {
  40     if (__s)
  41       {
  42         _S_initialize();
  43         if (std::strcmp(__s, "C") == 0 || std::strcmp(__s, "POSIX") == 0)
  44           (_M_impl = _S_classic)->_M_add_reference();
  45         else if (std::strcmp(__s, "") != 0)
  46           _M_impl = new _Impl(__s, 1);
  47         else
  48           {
  49             // Get it from the environment.
  50             char* __env = std::getenv("LC_ALL");
  51             // If LC_ALL is set we are done.
  52             if (__env && std::strcmp(__env, "") != 0)
  53               {
  54                 if (std::strcmp(__env, "C") == 0
  55                     || std::strcmp(__env, "POSIX") == 0)
  56                   (_M_impl = _S_classic)->_M_add_reference();
  57                 else
  58                   _M_impl = new _Impl(__env, 1);
  59               }
  60             else
  61               {
  62                 // LANG may set a default different from "C".
  63                 string __res;
  64                 char* __env = std::getenv("LANG");
  65                 if (!__env || std::strcmp(__env, "") == 0
  66                     || std::strcmp(__env, "C") == 0
  67                     || std::strcmp(__env, "POSIX") == 0)
  68                   __res = "C";
  69                 else
  70                   __res = __env;
  71
  72                 // Scan the categories looking for the first one
  73                 // different from LANG.
  74                 size_t __i = 0;
  75                 if (__res == "C")
  76                   for (; __i < _S_categories_size; ++__i)
  77                     {
  78                       __env = std::getenv(_S_categories[__i]);
  79                       if (__env && std::strcmp(__env, "") != 0
  80                           && std::strcmp(__env, "C") != 0
  81                           && std::strcmp(__env, "POSIX") != 0)
  82                         break;
  83                     }
  84                 else
  85                   for (; __i < _S_categories_size; ++__i)
  86                     {
  87                       __env = std::getenv(_S_categories[__i]);
  88                       if (__env && std::strcmp(__env, "") != 0
  89                           && __res != __env)
  90                         break;
  91                     }
  92
  93                 // If one is found, build the complete string of
  94                 // the form LC_CTYPE=xxx;LC_NUMERIC=yyy; and so on...
  95                 if (__i < _S_categories_size)
  96                   {
  97                     string __str;
  98                     for (size_t __j = 0; __j < __i; ++__j)
  99                       {
 100                         __str += _S_categories[__j];
 101                         __str += '=';
 102                         __str += __res;
 103                         __str += ';';
 104                       }
 105                     __str += _S_categories[__i];
 106                     __str += '=';
 107                     __str += __env;
 108                     __str += ';';
 109                     __i++;
 110                     for (; __i < _S_categories_size; ++__i)
 111                       {
 112                         __env = std::getenv(_S_categories[__i]);
 113                         if (!__env || std::strcmp(__env, "") == 0)
 114                           {
 115                             __str += _S_categories[__i];
 116                             __str += '=';
 117                             __str += __res;
 118                             __str += ';';
 119                           }
 120                         else if (std::strcmp(__env, "C") == 0
 121                                  || std::strcmp(__env, "POSIX") == 0)
 122                           {
 123                             __str += _S_categories[__i];
 124                             __str += "=C;";
 125                           }
 126                         else
 127                           {
 128                             __str += _S_categories[__i];
 129                             __str += '=';
 130                             __str += __env;
 131                             __str += ';';
 132                           }
 133                       }
 134                     __str.erase(__str.end() - 1);
 135                     _M_impl = new _Impl(__str.c_str(), 1);
 136                   }
 137                 // ... otherwise either an additional instance of
 138                 // the "C" locale or LANG.
 139                 else if (__res == "C")
 140                   (_M_impl = _S_classic)->_M_add_reference();
 141                 else
 142                   _M_impl = new _Impl(__res.c_str(), 1);
 143               }
 144           }
 145       }
 146     else
 147       __throw_runtime_error("locale::locale NULL not valid");
 148   }
 149
 150   locale::locale(const locale& __base, const char* __s, category __cat)
 151   {
 152     // NB: There are complicated, yet more efficient ways to do
 153     // this. Building up locales on a per-category way is tedious, so
 154     // let's do it this way until people complain.
 155     locale __add(__s);
 156     _M_coalesce(__base, __add, __cat);
 157   }
 158
 159   locale::locale(const locale& __base, const locale& __add, category __cat)
 160   { _M_coalesce(__base, __add, __cat); }
 161
 162   void
 163   locale::_M_coalesce(const locale& __base, const locale& __add,
 164                       category __cat)
 165   {
 166     __cat = _S_normalize_category(__cat);
 167     _M_impl = new _Impl(*__base._M_impl, 1);
 168
 169     try
 170       { _M_impl->_M_replace_categories(__add._M_impl, __cat); }
 171     catch (...)
 172       {
 173         _M_impl->_M_remove_reference();
 174         __throw_exception_again;
 175       }
 176   }
 177
 178   // Construct named _Impl.
 179   locale::_Impl::
 180   _Impl(const char* __s, size_t __refs)
 181   : _M_refcount(__refs), _M_facets_size(_GLIBCXX_NUM_FACETS)
 182   {
 183     // Initialize the underlying locale model, which also checks to
 184     // see if the given name is valid.
 185     __c_locale __cloc;
 186     locale::facet::_S_create_c_locale(__cloc, __s);
 187
 188     _M_facets = _M_caches = 0;
 189     _M_names = 0;
 190     try
 191       {
 192         _M_facets = new const facet*[_M_facets_size];
 193         for (size_t __i = 0; __i < _M_facets_size; ++__i)
 194           _M_facets[__i] = 0;
 195         _M_caches = new const facet*[_M_facets_size];
 196         for (size_t __i = 0; __i < _M_facets_size; ++__i)
 197           _M_caches[__i] = 0;
 198         _M_names = new char*[_S_categories_size];
 199         for (size_t __i = 0; __i < _S_categories_size; ++__i)
 200           _M_names[__i] = 0;
 201
 202         // Name all the categories.
 203         const size_t __len = std::strlen(__s);
 204         if (!std::strchr(__s, ';'))
 205           {
 206             for (size_t __i = 0; __i < _S_categories_size; ++__i)
 207               {
 208                 _M_names[__i] = new char[__len + 1];
 209                 std::strcpy(_M_names[__i], __s);
 210               }
 211           }
 212         else
 213           {
 214             const char* __beg = __s;
 215             for (size_t __i = 0; __i < _S_categories_size; ++__i)
 216               {
 217                 __beg = std::strchr(__beg, '=') + 1;
 218                 const char* __end = std::strchr(__beg, ';');
 219                 if (!__end)
 220                   __end = __s + __len;
 221                 char* __new = new char[__end - __beg + 1];
 222                 std::memcpy(__new, __beg, __end - __beg);
 223                 __new[__end - __beg] = '\0';
 224                 _M_names[__i] = __new;
 225               }
 226           }
 227
 228         // Construct all standard facets and add them to _M_facets.
 229         _M_init_facet(new std::ctype<char>(__cloc, 0, false));
 230         _M_init_facet(new codecvt<char, char, mbstate_t>(__cloc));
 231         _M_init_facet(new numpunct<char>(__cloc));
 232         _M_init_facet(new num_get<char>);
 233         _M_init_facet(new num_put<char>);
 234         _M_init_facet(new std::collate<char>(__cloc));
 235         _M_init_facet(new moneypunct<char, false>(__cloc, __s));
 236         _M_init_facet(new moneypunct<char, true>(__cloc, __s));
 237         _M_init_facet(new money_get<char>);
 238         _M_init_facet(new money_put<char>);
 239         _M_init_facet(new __timepunct<char>(__cloc, __s));
 240         _M_init_facet(new time_get<char>);
 241         _M_init_facet(new time_put<char>);
 242         _M_init_facet(new std::messages<char>(__cloc, __s));
 243
 244 #ifdef  _GLIBCXX_USE_WCHAR_T
 245         _M_init_facet(new std::ctype<wchar_t>(__cloc));
 246         _M_init_facet(new codecvt<wchar_t, char, mbstate_t>(__cloc));
 247         _M_init_facet(new numpunct<wchar_t>(__cloc));
 248         _M_init_facet(new num_get<wchar_t>);
 249         _M_init_facet(new num_put<wchar_t>);
 250         _M_init_facet(new std::collate<wchar_t>(__cloc));
 251         _M_init_facet(new moneypunct<wchar_t, false>(__cloc, __s));
 252         _M_init_facet(new moneypunct<wchar_t, true>(__cloc, __s));
 253         _M_init_facet(new money_get<wchar_t>);
 254         _M_init_facet(new money_put<wchar_t>);
 255         _M_init_facet(new __timepunct<wchar_t>(__cloc, __s));
 256         _M_init_facet(new time_get<wchar_t>);
 257         _M_init_facet(new time_put<wchar_t>);
 258         _M_init_facet(new std::messages<wchar_t>(__cloc, __s));
 259 #endif
 260         locale::facet::_S_destroy_c_locale(__cloc);
 261       }
 262     catch(...)
 263       {
 264         locale::facet::_S_destroy_c_locale(__cloc);
 265         this->~_Impl();
 266         __throw_exception_again;
 267       }
 268   }
 269
 270   void
 271   locale::_Impl::
 272   _M_replace_categories(const _Impl* __imp, category __cat)
 273   {
 274     for (size_t __ix = 0; __ix < _S_categories_size; ++__ix)
 275       {
 276         const category __mask = 1 << __ix;
 277         if (__mask & __cat)
 278           {
 279             // Need to replace entry in _M_facets with other locale's info.
 280             _M_replace_category(__imp, _S_facet_categories[__ix]);
 281             // If both have names, go ahead and mangle.
 282             if (std::strcmp(_M_names[__ix], "*") != 0
 283                 && std::strcmp(__imp->_M_names[__ix], "*") != 0)
 284               {
 285                 char* __new = new char[std::strlen(__imp->_M_names[__ix]) + 1];
 286                 std::strcpy(__new, __imp->_M_names[__ix]);
 287                 delete [] _M_names[__ix];
 288                 _M_names[__ix] = __new;
 289               }
 290           }
 291       }
 292   }
 293 } // namespace std