1// Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2004, 2005,
2// 2006, 2007, 2008, 2009
3// Free Software Foundation, Inc.
4//
5// This file is part of the GNU ISO C++ Library.  This library is free
6// software; you can redistribute it and/or modify it under the
7// terms of the GNU General Public License as published by the
8// Free Software Foundation; either version 3, or (at your option)
9// any later version.
10
11// This library is distributed in the hope that it will be useful,
12// but WITHOUT ANY WARRANTY; without even the implied warranty of
13// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14// GNU General Public License for more details.
15
16// Under Section 7 of GPL version 3, you are granted additional
17// permissions described in the GCC Runtime Library Exception, version
18// 3.1, as published by the Free Software Foundation.
19
20// You should have received a copy of the GNU General Public License and
21// a copy of the GCC Runtime Library Exception along with this program;
22// see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
23// <http://www.gnu.org/licenses/>.
24
25#include <locale>
26#include <cstdlib>
27#include <cstring>
28
29_GLIBCXX_BEGIN_NAMESPACE(std)
30
31  // Definitions for static const data members of ctype_base.
32  const ctype_base::mask ctype_base::space;
33  const ctype_base::mask ctype_base::print;
34  const ctype_base::mask ctype_base::cntrl;
35  const ctype_base::mask ctype_base::upper;
36  const ctype_base::mask ctype_base::lower;
37  const ctype_base::mask ctype_base::alpha;
38  const ctype_base::mask ctype_base::digit;
39  const ctype_base::mask ctype_base::punct;
40  const ctype_base::mask ctype_base::xdigit;
41  const ctype_base::mask ctype_base::alnum;
42  const ctype_base::mask ctype_base::graph;
43
44  // Definitions for locale::id of standard facets that are specialized.
45  locale::id ctype<char>::id;
46
47#ifdef _GLIBCXX_USE_WCHAR_T
48  locale::id ctype<wchar_t>::id;
49#endif
50
51  // XXX At some point, just rename this file to ctype_configure_char.cc
52  // and compile it as a separate file instead of including it here.
53  // Platform-specific initialization code for ctype tables.
54#include <bits/ctype_noninline.h>
55
56  const size_t ctype<char>::table_size;
57
58  ctype<char>::~ctype()
59  {
60    _S_destroy_c_locale(_M_c_locale_ctype);
61    if (_M_del)
62      delete[] this->table();
63  }
64
65  // Fill in the narrowing cache and flag whether all values are
66  // valid or not.  _M_narrow_ok is set to 2 if memcpy can't
67  // be used.
68  void
69  ctype<char>::
70  _M_narrow_init() const
71  {
72    char __tmp[sizeof(_M_narrow)];
73    for (size_t __i = 0; __i < sizeof(_M_narrow); ++__i)
74      __tmp[__i] = __i;
75    do_narrow(__tmp, __tmp + sizeof(__tmp), 0, _M_narrow);
76
77    _M_narrow_ok = 1;
78    if (__builtin_memcmp(__tmp, _M_narrow, sizeof(_M_narrow)))
79      _M_narrow_ok = 2;
80    else
81      {
82	// Deal with the special case of zero: renarrow with a
83	// different default and compare.
84	char __c;
85	do_narrow(__tmp, __tmp + 1, 1, &__c);
86	if (__c == 1)
87	  _M_narrow_ok = 2;
88      }
89  }
90
91  void
92  ctype<char>::
93  _M_widen_init() const
94  {
95    char __tmp[sizeof(_M_widen)];
96    for (size_t __i = 0; __i < sizeof(_M_widen); ++__i)
97      __tmp[__i] = __i;
98    do_widen(__tmp, __tmp + sizeof(__tmp), _M_widen);
99
100    _M_widen_ok = 1;
101    // Set _M_widen_ok to 2 if memcpy can't be used.
102    if (__builtin_memcmp(__tmp, _M_widen, sizeof(_M_widen)))
103      _M_widen_ok = 2;
104  }
105
106#ifdef _GLIBCXX_USE_WCHAR_T
107  ctype<wchar_t>::ctype(size_t __refs)
108  : __ctype_abstract_base<wchar_t>(__refs),
109  _M_c_locale_ctype(_S_get_c_locale()), _M_narrow_ok(false)
110  { _M_initialize_ctype(); }
111
112  ctype<wchar_t>::ctype(__c_locale __cloc, size_t __refs)
113  : __ctype_abstract_base<wchar_t>(__refs),
114  _M_c_locale_ctype(_S_clone_c_locale(__cloc)), _M_narrow_ok(false)
115  { _M_initialize_ctype(); }
116
117  ctype<wchar_t>::~ctype()
118  { _S_destroy_c_locale(_M_c_locale_ctype); }
119
120  ctype_byname<wchar_t>::ctype_byname(const char* __s, size_t __refs)
121  : ctype<wchar_t>(__refs)
122  {
123    if (std::strcmp(__s, "C") != 0 && std::strcmp(__s, "POSIX") != 0)
124      {
125	this->_S_destroy_c_locale(this->_M_c_locale_ctype);
126	this->_S_create_c_locale(this->_M_c_locale_ctype, __s);
127	this->_M_initialize_ctype();
128      }
129  }
130
131  ctype_byname<wchar_t>::~ctype_byname()
132  { }
133
134#endif
135
136_GLIBCXX_END_NAMESPACE
137