l4/pkg/libstdc++-v3/contrib/libstdc++-v3-4.4/config/locale/gnu/c_locale.cc

   1 // Wrapper for underlying C-language localization -*- C++ -*-
   2
   3 // Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
   4 // Free Software Foundation, Inc.
   5 //
   6 // This file is part of the GNU ISO C++ Library.  This library is free
   7 // software; you can redistribute it and/or modify it under the
   8 // terms of the GNU General Public License as published by the
   9 // Free Software Foundation; either version 3, or (at your option)
  10 // any later version.
  11
  12 // This library is distributed in the hope that it will be useful,
  13 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 // GNU General Public License for more details.
  16
  17 // Under Section 7 of GPL version 3, you are granted additional
  18 // permissions described in the GCC Runtime Library Exception, version
  19 // 3.1, as published by the Free Software Foundation.
  20
  21 // You should have received a copy of the GNU General Public License and
  22 // a copy of the GCC Runtime Library Exception along with this program;
  23 // see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  24 // <http://www.gnu.org/licenses/>.
  25
  26 //
  27 // ISO C++ 14882: 22.8  Standard locale categories.
  28 //
  29
  30 // Written by Benjamin Kosnik <bkoz@redhat.com>
  31
  32 #include <locale>
  33 #include <stdexcept>
  34 #include <limits>
  35 #include <langinfo.h>
  36 #include <bits/c++locale_internal.h>
  37
  38 _GLIBCXX_BEGIN_NAMESPACE(std)
  39
  40   template<>
  41     void
  42     __convert_to_v(const char* __s, float& __v, ios_base::iostate& __err,
  43                    const __c_locale& __cloc)
  44     {
  45       char* __sanity;
  46       __v = __strtof_l(__s, &__sanity, __cloc);
  47
  48       // _GLIBCXX_RESOLVE_LIB_DEFECTS
  49       // 23. Num_get overflow result.
  50       if (__sanity == __s || *__sanity != '\0')
  51         {
  52           __v = 0.0f;
  53           __err = ios_base::failbit;
  54         }
  55       else if (__v == numeric_limits<float>::infinity())
  56         {
  57           __v = numeric_limits<float>::max();
  58           __err = ios_base::failbit;
  59         }
  60       else if (__v == -numeric_limits<float>::infinity())
  61         {
  62           __v = -numeric_limits<float>::max();
  63           __err = ios_base::failbit;
  64         }
  65     }
  66
  67   template<>
  68     void
  69     __convert_to_v(const char* __s, double& __v, ios_base::iostate& __err,
  70                    const __c_locale& __cloc)
  71     {
  72       char* __sanity;
  73       __v = __strtod_l(__s, &__sanity, __cloc);
  74
  75       // _GLIBCXX_RESOLVE_LIB_DEFECTS
  76       // 23. Num_get overflow result.
  77       if (__sanity == __s || *__sanity != '\0')
  78         {
  79           __v = 0.0;
  80           __err = ios_base::failbit;
  81         }
  82       else if (__v == numeric_limits<double>::infinity())
  83         {
  84           __v = numeric_limits<double>::max();
  85           __err = ios_base::failbit;
  86         }
  87       else if (__v == -numeric_limits<double>::infinity())
  88         {
  89           __v = -numeric_limits<double>::max();
  90           __err = ios_base::failbit;
  91         }
  92     }
  93
  94   template<>
  95     void
  96     __convert_to_v(const char* __s, long double& __v, ios_base::iostate& __err,
  97                    const __c_locale& __cloc)
  98     {
  99       char* __sanity;
 100 #if __GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ > 2)
 101       // Prefer strtold_l, as __strtold_l isn't prototyped in more recent
 102       // glibc versions.
 103       __v = strtold_l(__s, &__sanity, __cloc);
 104 #else
 105       __v = __strtold_l(__s, &__sanity, __cloc);
 106 #endif
 107
 108       // _GLIBCXX_RESOLVE_LIB_DEFECTS
 109       // 23. Num_get overflow result.
 110       if (__sanity == __s || *__sanity != '\0')
 111         {
 112           __v = 0.0l;
 113           __err = ios_base::failbit;
 114         }
 115       else if (__v == numeric_limits<long double>::infinity())
 116         {
 117           __v = numeric_limits<long double>::max();
 118           __err = ios_base::failbit;
 119         }
 120       else if (__v == -numeric_limits<long double>::infinity())
 121         {
 122           __v = -numeric_limits<long double>::max();
 123           __err = ios_base::failbit;
 124         }
 125     }
 126
 127   void
 128   locale::facet::_S_create_c_locale(__c_locale& __cloc, const char* __s,
 129                                     __c_locale __old)
 130   {
 131     __cloc = __newlocale(1 << LC_ALL, __s, __old);
 132     if (!__cloc)
 133       {
 134         // This named locale is not supported by the underlying OS.
 135         __throw_runtime_error(__N("locale::facet::_S_create_c_locale "
 136                               "name not valid"));
 137       }
 138   }
 139
 140   void
 141   locale::facet::_S_destroy_c_locale(__c_locale& __cloc)
 142   {
 143     if (__cloc && _S_get_c_locale() != __cloc)
 144       __freelocale(__cloc);
 145   }
 146
 147   __c_locale
 148   locale::facet::_S_clone_c_locale(__c_locale& __cloc)
 149   { return __duplocale(__cloc); }
 150
 151 _GLIBCXX_END_NAMESPACE
 152
 153 _GLIBCXX_BEGIN_NAMESPACE(__gnu_cxx)
 154
 155   const char* const category_names[6 + _GLIBCXX_NUM_CATEGORIES] =
 156     {
 157       "LC_CTYPE",
 158       "LC_NUMERIC",
 159       "LC_TIME",
 160       "LC_COLLATE",
 161       "LC_MONETARY",
 162       "LC_MESSAGES",
 163       "LC_PAPER",
 164       "LC_NAME",
 165       "LC_ADDRESS",
 166       "LC_TELEPHONE",
 167       "LC_MEASUREMENT",
 168       "LC_IDENTIFICATION"
 169     };
 170
 171 _GLIBCXX_END_NAMESPACE
 172
 173 _GLIBCXX_BEGIN_NAMESPACE(std)
 174
 175   const char* const* const locale::_S_categories = __gnu_cxx::category_names;
 176
 177 _GLIBCXX_END_NAMESPACE
 178
 179 // XXX GLIBCXX_ABI Deprecated
 180 #ifdef _GLIBCXX_LONG_DOUBLE_COMPAT
 181 #define _GLIBCXX_LDBL_COMPAT(dbl, ldbl) \
 182   extern "C" void ldbl (void) __attribute__ ((alias (#dbl)))
 183 _GLIBCXX_LDBL_COMPAT(_ZSt14__convert_to_vIdEvPKcRT_RSt12_Ios_IostateRKP15__locale_struct, _ZSt14__convert_to_vIeEvPKcRT_RSt12_Ios_IostateRKP15__locale_struct);
 184 #endif // _GLIBCXX_LONG_DOUBLE_COMPAT