OSDN Git Service

2011-01-13 Jonathan Wakely <jwakely.gcc@gmail.com>
[pf3gnuchains/gcc-fork.git] / libstdc++-v3 / config / os / bsd / darwin / ctype_inline.h
1 // Locale support -*- C++ -*-
2
3 // Copyright (C) 2000, 2003, 2004, 2009, 2010
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 /** @file bits/ctype_inline.h
27  *  This is an internal header file, included by other library headers.
28  *  Do not attempt to use it directly. @headername{locale}
29  */
30
31 //
32 // ISO C++ 14882: 22.1  Locales
33 //
34   
35 // ctype bits to be inlined go here. Non-inlinable (ie virtual do_*)
36 // functions go in ctype.cc
37   
38 _GLIBCXX_BEGIN_NAMESPACE(std)
39
40   bool
41   ctype<char>::
42   is(mask __m, char __c) const
43   { 
44     if (_M_table)
45       return _M_table[static_cast<unsigned char>(__c)] & __m;
46     else
47       return __istype(__c, __m);
48   }
49
50   const char*
51   ctype<char>::
52   is(const char* __low, const char* __high, mask* __vec) const
53   {
54     if (_M_table)
55       while (__low < __high)
56         *__vec++ = _M_table[static_cast<unsigned char>(*__low++)];
57     else
58       for (;__low < __high; ++__vec, ++__low)
59         {
60 #if defined (_CTYPE_S) || defined (__istype)
61           *__vec = __maskrune (*__low, upper | lower | alpha | digit | xdigit
62                                | space | print | graph | cntrl | punct | alnum);
63 #else
64           mask __m = 0;
65           if (this->is(upper, *__low)) __m |= upper;
66           if (this->is(lower, *__low)) __m |= lower;
67           if (this->is(alpha, *__low)) __m |= alpha;
68           if (this->is(digit, *__low)) __m |= digit;
69           if (this->is(xdigit, *__low)) __m |= xdigit;
70           if (this->is(space, *__low)) __m |= space;
71           if (this->is(print, *__low)) __m |= print;
72           if (this->is(graph, *__low)) __m |= graph;
73           if (this->is(cntrl, *__low)) __m |= cntrl;
74           if (this->is(punct, *__low)) __m |= punct;
75           // Do not include explicit line for alnum mask since it is a
76           // pure composite of masks on FreeBSD.
77           *__vec = __m;
78 #endif
79         }
80     return __high;
81   }
82
83   const char*
84   ctype<char>::
85   scan_is(mask __m, const char* __low, const char* __high) const
86   {
87     if (_M_table)
88       while (__low < __high
89              && !(_M_table[static_cast<unsigned char>(*__low)] & __m))
90         ++__low;
91     else
92       while (__low < __high && !this->is(__m, *__low))
93         ++__low;
94     return __low;
95   }
96
97   const char*
98   ctype<char>::
99   scan_not(mask __m, const char* __low, const char* __high) const
100   {
101     if (_M_table)
102       while (__low < __high
103              && (_M_table[static_cast<unsigned char>(*__low)] & __m) != 0)
104         ++__low;
105     else
106       while (__low < __high && this->is(__m, *__low) != 0)
107         ++__low;
108     return __low;
109   }
110
111 #ifdef _GLIBCXX_USE_WCHAR_T  
112   inline bool
113   ctype<wchar_t>::
114   do_is(mask __m, wchar_t __c) const
115   {
116     return __istype (__c, __m);
117   }
118
119   inline const wchar_t* 
120   ctype<wchar_t>::
121   do_is(const wchar_t* __lo, const wchar_t* __hi, mask* __vec) const
122   {
123     for (; __lo < __hi; ++__vec, ++__lo)
124       *__vec = __maskrune (*__lo, upper | lower | alpha | digit | xdigit
125                            | space | print | graph | cntrl | punct | alnum);
126     return __hi;
127   }
128   
129   inline const wchar_t* 
130   ctype<wchar_t>::
131   do_scan_is(mask __m, const wchar_t* __lo, const wchar_t* __hi) const
132   {
133     while (__lo < __hi && ! __istype (*__lo, __m))
134       ++__lo;
135     return __lo;
136   }
137
138   inline const wchar_t*
139   ctype<wchar_t>::
140   do_scan_not(mask __m, const char_type* __lo, const char_type* __hi) const
141   {
142     while (__lo < __hi && __istype (*__lo, __m))
143       ++__lo;
144     return __lo;
145   }
146 #endif
147
148 _GLIBCXX_END_NAMESPACE