libstdc++-v3/testsuite/util/testsuite_character.cc

   1 // -*- C++ -*-
   2
   3 // Utility subroutines for the C++ library testsuite.
   4 //
   5 // Copyright (C) 2002, 2003, 2004, 2005, 2009 Free Software Foundation, Inc.
   6 //
   7 // This file is part of the GNU ISO C++ Library.  This library is free
   8 // software; you can redistribute it and/or modify it under the
   9 // terms of the GNU General Public License as published by the
  10 // Free Software Foundation; either version 3, or (at your option)
  11 // any later version.
  12 //
  13 // This library is distributed in the hope that it will be useful,
  14 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 // GNU General Public License for more details.
  17 //
  18 // You should have received a copy of the GNU General Public License along
  19 // with this library; see the file COPYING3.  If not see
  20 // <http://www.gnu.org/licenses/>.
  21 //
  22
  23 #include <testsuite_character.h>
  24
  25 namespace std
  26 {
  27   locale::id
  28   codecvt<__gnu_test::pod_uchar, char, __gnu_test::pod_state>::id;
  29
  30   locale::id
  31   ctype<__gnu_test::pod_uchar>::id;
  32
  33   locale::id
  34   numpunct<__gnu_test::pod_uint>::id;
  35
  36   locale::id
  37   moneypunct<__gnu_test::pod_uint>::id;
  38
  39   // Member specializations for the existing facet classes.
  40   // NB: This isn't especially portable. Perhaps a better way would be
  41   // to just specialize all of numpunct and ctype.
  42   using __gnu_test::pod_ushort;
  43   typedef pod_ushort::value_type value_type;
  44
  45   template<>
  46     bool
  47     ctype<pod_ushort>::
  48     do_is(mask, char_type) const { return true; }
  49
  50   template<>
  51     const pod_ushort*
  52     ctype<pod_ushort>::
  53     do_is(const char_type* __lo, const char_type*, mask*) const
  54     { return __lo; }
  55
  56   template<>
  57     const pod_ushort*
  58     ctype<pod_ushort>::
  59     do_scan_is(mask, const char_type* __lo, const char_type*) const
  60     { return __lo; }
  61
  62   template<>
  63     const pod_ushort*
  64     ctype<pod_ushort>::
  65     do_scan_not(mask, const char_type* __lo, const char_type*) const
  66     { return __lo; }
  67
  68   template<>
  69     pod_ushort
  70     ctype<pod_ushort>::
  71     do_toupper(char_type __c) const
  72     { return __c; }
  73
  74   template<>
  75     const pod_ushort*
  76     ctype<pod_ushort>::
  77     do_toupper(char_type*, const char_type* __hi) const
  78     { return __hi; }
  79
  80   template<>
  81     pod_ushort
  82     ctype<pod_ushort>::
  83     do_tolower(char_type __c) const
  84     { return __c; }
  85
  86   template<>
  87     const pod_ushort*
  88     ctype<pod_ushort>::
  89     do_tolower(char_type*, const char_type* __hi) const
  90     { return __hi; }
  91
  92   template<>
  93     pod_ushort
  94     ctype<pod_ushort>::
  95     do_widen(char __c) const
  96     {
  97       char_type ret = { value_type(__c) };
  98       return ret;
  99     }
 100
 101   template<>
 102     const char*
 103     ctype<pod_ushort>::
 104     do_widen(const char* __lo, const char* __hi, char_type* __dest) const
 105     {
 106       while (__lo < __hi)
 107         {
 108           *__dest = this->do_widen(*__lo);
 109           ++__lo;
 110           ++__dest;
 111         }
 112       return __hi;
 113     }
 114
 115   template<>
 116     char
 117     ctype<pod_ushort>::
 118     do_narrow(char_type __wc, char) const
 119     { return static_cast<char>(__wc.value); }
 120
 121   template<>
 122     const pod_ushort*
 123     ctype<pod_ushort>::
 124     do_narrow(const pod_ushort* __lo, const pod_ushort* __hi,
 125               char, char* __dest) const
 126     {
 127       while (__lo < __hi)
 128         {
 129           *__dest = this->do_narrow(*__lo, char());
 130           ++__lo;
 131           ++__dest;
 132         }
 133       return __hi;
 134     }
 135
 136   template<>
 137     ctype<pod_ushort>::~ctype() { }
 138
 139   template<>
 140     void
 141     numpunct<pod_ushort>::_M_initialize_numpunct(__c_locale)
 142     {
 143       if (!_M_data)
 144         _M_data = new __numpunct_cache<pod_ushort>;
 145
 146       _M_data->_M_grouping = "";
 147       _M_data->_M_use_grouping = false;
 148
 149       _M_data->_M_decimal_point.value =  value_type('.');
 150       _M_data->_M_thousands_sep.value = value_type(',');
 151
 152       for (size_t i = 0; i < __num_base::_S_oend; ++i)
 153         {
 154           value_type v = __num_base::_S_atoms_out[i];
 155           _M_data->_M_atoms_out[i].value = v;
 156         }
 157       _M_data->_M_atoms_out[__num_base::_S_oend] = pod_ushort();
 158
 159       for (size_t j = 0; j < __num_base::_S_iend; ++j)
 160         _M_data->_M_atoms_in[j].value = value_type(__num_base::_S_atoms_in[j]);
 161       _M_data->_M_atoms_in[__num_base::_S_iend] = pod_ushort();
 162
 163       // "true"
 164       pod_ushort* __truename = new pod_ushort[4 + 1];
 165       __truename[0].value = value_type('t');
 166       __truename[1].value = value_type('r');
 167       __truename[2].value = value_type('u');
 168       __truename[3].value = value_type('e');
 169       __truename[4] = pod_ushort();
 170       _M_data->_M_truename = __truename;
 171
 172       // "false"
 173       pod_ushort* __falsename = new pod_ushort[5 + 1];
 174       __falsename[0].value = value_type('f');
 175       __falsename[1].value = value_type('a');
 176       __falsename[2].value = value_type('l');
 177       __falsename[3].value = value_type('s');
 178       __falsename[4].value = value_type('e');
 179       __falsename[5] = pod_ushort();
 180       _M_data->_M_falsename = __falsename;
 181     }
 182
 183   template<>
 184     numpunct<pod_ushort>::~numpunct()
 185     { delete _M_data; }
 186 } // namespace std