OSDN Git Service

83a93cb9dfed57e014b561cf7e70b451499f5b5e
[pf3gnuchains/gcc-fork.git] / libstdc++-v3 / config / os / gnu-linux / ctype_noninline.h
1 // Locale support -*- C++ -*-
2
3 // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002
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 2, 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 // You should have received a copy of the GNU General Public License along
18 // with this library; see the file COPYING.  If not, write to the Free
19 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
20 // USA.
21
22 // As a special exception, you may use this file as part of a free software
23 // library without restriction.  Specifically, if other files instantiate
24 // templates or use macros or inline functions from this file, or you compile
25 // this file and link it with other files to produce an executable, this
26 // file does not by itself cause the resulting executable to be covered by
27 // the GNU General Public License.  This exception does not however
28 // invalidate any other reasons why the executable file might be covered by
29 // the GNU General Public License.
30
31 //
32 // ISO C++ 14882: 22.1  Locales
33 //
34   
35 // Information as gleaned from /usr/include/ctype.h
36
37 #if _GLIBCXX_C_LOCALE_GNU
38   const ctype_base::mask*
39   ctype<char>::classic_table() throw()
40   { return _S_get_c_locale()->__ctype_b; }
41 #else
42   const ctype_base::mask*
43   ctype<char>::classic_table() throw()
44   {
45     const ctype_base::mask* __ret;
46     char* __old = strdup(setlocale(LC_CTYPE, NULL));
47     setlocale(LC_CTYPE, "C");
48 #if __GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ > 2)
49     __ret = *__ctype_b_loc();
50 #else
51     __ret = __ctype_b;
52 #endif
53     setlocale(LC_CTYPE, __old);
54     free(__old);
55     return __ret;
56   }
57 #endif
58
59 #if _GLIBCXX_C_LOCALE_GNU
60   ctype<char>::ctype(__c_locale __cloc, const mask* __table, bool __del, 
61                      size_t __refs) 
62   : __ctype_abstract_base<char>(__refs), _M_del(__table != 0 && __del)
63   {
64     _M_c_locale_ctype = _S_clone_c_locale(__cloc);
65     _M_toupper = _M_c_locale_ctype->__ctype_toupper;
66     _M_tolower = _M_c_locale_ctype->__ctype_tolower;
67     _M_table = __table ? __table : _M_c_locale_ctype->__ctype_b;
68   }
69 #else
70   ctype<char>::ctype(__c_locale, const mask* __table, bool __del, 
71                      size_t __refs) 
72   : __ctype_abstract_base<char>(__refs), _M_del(__table != 0 && __del)
73   {
74     char* __old=strdup(setlocale(LC_CTYPE, NULL));
75     setlocale(LC_CTYPE, "C");
76 #if __GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ > 2)
77     _M_toupper = *__ctype_toupper_loc();
78     _M_tolower = *__ctype_tolower_loc();
79     _M_table = __table ? __table : *__ctype_b_loc();
80 #else
81     _M_toupper = __ctype_toupper;
82     _M_tolower = __ctype_tolower;
83     _M_table = __table ? __table : __ctype_b;
84 #endif
85     setlocale(LC_CTYPE, __old);
86     free(__old);
87     _M_c_locale_ctype = _S_get_c_locale();
88   }
89 #endif
90
91 #if _GLIBCXX_C_LOCALE_GNU
92   ctype<char>::ctype(const mask* __table, bool __del, size_t __refs) : 
93   __ctype_abstract_base<char>(__refs), _M_del(__table != 0 && __del)
94   {
95     _M_c_locale_ctype = _S_get_c_locale(); 
96     _M_toupper = _M_c_locale_ctype->__ctype_toupper;
97     _M_tolower = _M_c_locale_ctype->__ctype_tolower;
98     _M_table = __table ? __table : _M_c_locale_ctype->__ctype_b;
99   }
100 #else
101   ctype<char>::ctype(const mask* __table, bool __del, size_t __refs) : 
102   __ctype_abstract_base<char>(__refs), _M_del(__table != 0 && __del)
103   {
104     char* __old=strdup(setlocale(LC_CTYPE, NULL));
105     setlocale(LC_CTYPE, "C");
106 #if __GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ > 2)
107     _M_toupper = *__ctype_toupper_loc();
108     _M_tolower = *__ctype_tolower_loc();
109     _M_table = __table ? __table : *__ctype_b_loc();
110 #else
111     _M_toupper = __ctype_toupper;
112     _M_tolower = __ctype_tolower;
113     _M_table = __table ? __table : __ctype_b;
114 #endif
115     setlocale(LC_CTYPE, __old);
116     free(__old);
117     _M_c_locale_ctype = _S_get_c_locale();
118   }
119 #endif
120
121   char
122   ctype<char>::do_toupper(char __c) const
123   { return _M_toupper[static_cast<unsigned char>(__c)]; }
124
125   const char*
126   ctype<char>::do_toupper(char* __low, const char* __high) const
127   {
128     while (__low < __high)
129       {
130         *__low = _M_toupper[static_cast<unsigned char>(*__low)];
131         ++__low;
132       }
133     return __high;
134   }
135
136   char
137   ctype<char>::do_tolower(char __c) const
138   { return _M_tolower[static_cast<unsigned char>(__c)]; }
139
140   const char* 
141   ctype<char>::do_tolower(char* __low, const char* __high) const
142   {
143     while (__low < __high)
144       {
145         *__low = _M_tolower[static_cast<unsigned char>(*__low)];
146         ++__low;
147       }
148     return __high;
149   }