1 /* Character handling in C locale.
3 These functions work like the corresponding functions in <ctype.h>,
4 except that they have the C (POSIX) locale hardwired, whereas the
5 <ctype.h> functions' behaviour depends on the current locale set via
8 Copyright (C) 2000-2003, 2006, 2008-2015 Free Software Foundation, Inc.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, see <http://www.gnu.org/licenses/>. */
28 #ifndef _GL_INLINE_HEADER_BEGIN
29 #error "Please include config.h first."
31 _GL_INLINE_HEADER_BEGIN
32 #ifndef C_CTYPE_INLINE
33 # define C_CTYPE_INLINE _GL_INLINE
41 /* The functions defined in this file assume the "C" locale and a character
42 set without diacritics (ASCII-US or EBCDIC-US or something like that).
43 Even if the "C" locale on a particular system is an extension of the ASCII
44 character set (like on BeOS, where it is UTF-8, or on AmigaOS, where it
45 is ISO-8859-1), the functions in this file recognize only the ASCII
49 #if (' ' == 32) && ('!' == 33) && ('"' == 34) && ('#' == 35) \
50 && ('%' == 37) && ('&' == 38) && ('\'' == 39) && ('(' == 40) \
51 && (')' == 41) && ('*' == 42) && ('+' == 43) && (',' == 44) \
52 && ('-' == 45) && ('.' == 46) && ('/' == 47) && ('0' == 48) \
53 && ('1' == 49) && ('2' == 50) && ('3' == 51) && ('4' == 52) \
54 && ('5' == 53) && ('6' == 54) && ('7' == 55) && ('8' == 56) \
55 && ('9' == 57) && (':' == 58) && (';' == 59) && ('<' == 60) \
56 && ('=' == 61) && ('>' == 62) && ('?' == 63) && ('A' == 65) \
57 && ('B' == 66) && ('C' == 67) && ('D' == 68) && ('E' == 69) \
58 && ('F' == 70) && ('G' == 71) && ('H' == 72) && ('I' == 73) \
59 && ('J' == 74) && ('K' == 75) && ('L' == 76) && ('M' == 77) \
60 && ('N' == 78) && ('O' == 79) && ('P' == 80) && ('Q' == 81) \
61 && ('R' == 82) && ('S' == 83) && ('T' == 84) && ('U' == 85) \
62 && ('V' == 86) && ('W' == 87) && ('X' == 88) && ('Y' == 89) \
63 && ('Z' == 90) && ('[' == 91) && ('\\' == 92) && (']' == 93) \
64 && ('^' == 94) && ('_' == 95) && ('a' == 97) && ('b' == 98) \
65 && ('c' == 99) && ('d' == 100) && ('e' == 101) && ('f' == 102) \
66 && ('g' == 103) && ('h' == 104) && ('i' == 105) && ('j' == 106) \
67 && ('k' == 107) && ('l' == 108) && ('m' == 109) && ('n' == 110) \
68 && ('o' == 111) && ('p' == 112) && ('q' == 113) && ('r' == 114) \
69 && ('s' == 115) && ('t' == 116) && ('u' == 117) && ('v' == 118) \
70 && ('w' == 119) && ('x' == 120) && ('y' == 121) && ('z' == 122) \
71 && ('{' == 123) && ('|' == 124) && ('}' == 125) && ('~' == 126)
72 /* The character set is ASCII or one of its variants or extensions, not EBCDIC.
73 Testing the value of '\n' and '\r' is not relevant. */
74 # define C_CTYPE_ASCII 1
75 #elif ! (' ' == '\x40' && '0' == '\xf0' \
76 && 'A' == '\xc1' && 'J' == '\xd1' && 'S' == '\xe2' \
77 && 'a' == '\x81' && 'j' == '\x91' && 's' == '\xa2')
78 # error "Only ASCII and EBCDIC are supported"
81 #define _C_CTYPE_SIGNED_EBCDIC ('A' < 0)
84 # define _C_CTYPE_CNTRL \
85 case '\x00': case '\x01': case '\x02': case '\x03': \
86 case '\x04': case '\x05': case '\x06': case '\x07': \
87 case '\x08': case '\x09': case '\x0a': case '\x0b': \
88 case '\x0c': case '\x0d': case '\x0e': case '\x0f': \
89 case '\x10': case '\x11': case '\x12': case '\x13': \
90 case '\x14': case '\x15': case '\x16': case '\x17': \
91 case '\x18': case '\x19': case '\x1a': case '\x1b': \
92 case '\x1c': case '\x1d': case '\x1e': case '\x1f': \
95 /* Use EBCDIC code page 1047's assignments for ASCII control chars;
96 assume all EBCDIC code pages agree about these assignments. */
97 # define _C_CTYPE_CNTRL \
98 case '\x00': case '\x01': case '\x02': case '\x03': \
99 case '\x05': case '\x07': case '\x0b': case '\x0c': \
100 case '\x0d': case '\x0e': case '\x0f': case '\x10': \
101 case '\x11': case '\x12': case '\x13': case '\x16': \
102 case '\x18': case '\x19': case '\x1c': case '\x1d': \
103 case '\x1e': case '\x1f': case '\x25': case '\x26': \
104 case '\x27': case '\x2d': case '\x2e': case '\x2f': \
105 case '\x32': case '\x37': case '\x3c': case '\x3d': \
109 /* Cases for hex letter digits, digits, lower, and upper, offset by N. */
111 #define _C_CTYPE_A_THRU_F_N(n) \
112 case 'a' + (n): case 'b' + (n): case 'c' + (n): case 'd' + (n): \
113 case 'e' + (n): case 'f' + (n): \
114 case 'A' + (n): case 'B' + (n): case 'C' + (n): case 'D' + (n): \
115 case 'E' + (n): case 'F' + (n)
116 #define _C_CTYPE_DIGIT_N(n) \
117 case '0' + (n): case '1' + (n): case '2' + (n): case '3' + (n): \
118 case '4' + (n): case '5' + (n): case '6' + (n): case '7' + (n): \
119 case '8' + (n): case '9' + (n)
120 #define _C_CTYPE_LOWER_N(n) \
121 case 'a' + (n): case 'b' + (n): case 'c' + (n): case 'd' + (n): \
122 case 'e' + (n): case 'f' + (n): case 'g' + (n): case 'h' + (n): \
123 case 'i' + (n): case 'j' + (n): case 'k' + (n): case 'l' + (n): \
124 case 'm' + (n): case 'n' + (n): case 'o' + (n): case 'p' + (n): \
125 case 'q' + (n): case 'r' + (n): case 's' + (n): case 't' + (n): \
126 case 'u' + (n): case 'v' + (n): case 'w' + (n): case 'x' + (n): \
127 case 'y' + (n): case 'z' + (n)
128 #define _C_CTYPE_UPPER_N(n) \
129 case 'A' + (n): case 'B' + (n): case 'C' + (n): case 'D' + (n): \
130 case 'E' + (n): case 'F' + (n): case 'G' + (n): case 'H' + (n): \
131 case 'I' + (n): case 'J' + (n): case 'K' + (n): case 'L' + (n): \
132 case 'M' + (n): case 'N' + (n): case 'O' + (n): case 'P' + (n): \
133 case 'Q' + (n): case 'R' + (n): case 'S' + (n): case 'T' + (n): \
134 case 'U' + (n): case 'V' + (n): case 'W' + (n): case 'X' + (n): \
135 case 'Y' + (n): case 'Z' + (n)
137 /* Given MACRO_N, expand to all the cases for the corresponding class. */
138 #if _C_CTYPE_SIGNED_EBCDIC
139 # define _C_CTYPE_CASES(macro_n) macro_n (0): macro_n (256)
141 # define _C_CTYPE_CASES(macro_n) macro_n (0)
144 /* Cases for hex letter digits, digits, lower, and upper, with another
145 case for unsigned char if the original char is negative. */
147 #define _C_CTYPE_A_THRU_F _C_CTYPE_CASES (_C_CTYPE_A_THRU_F_N)
148 #define _C_CTYPE_DIGIT _C_CTYPE_CASES (_C_CTYPE_DIGIT_N)
149 #define _C_CTYPE_LOWER _C_CTYPE_CASES (_C_CTYPE_LOWER_N)
150 #define _C_CTYPE_UPPER _C_CTYPE_CASES (_C_CTYPE_UPPER_N)
152 /* The punct class differs because some punctuation characters may be
153 negative while others are nonnegative. Instead of attempting to
154 define _C_CTYPE_PUNCT, define just the plain chars here, and do any
155 cases-plus-256 by hand after using this macro. */
156 #define _C_CTYPE_PUNCT_PLAIN \
157 case '!': case '"': case '#': case '$': \
158 case '%': case '&': case '\'': case '(': \
159 case ')': case '*': case '+': case ',': \
160 case '-': case '.': case '/': case ':': \
161 case ';': case '<': case '=': case '>': \
162 case '?': case '@': case '[': case '\\': \
163 case ']': case '^': case '_': case '`': \
164 case '{': case '|': case '}': case '~'
166 /* Function definitions. */
168 /* Unlike the functions in <ctype.h>, which require an argument in the range
169 of the 'unsigned char' type, the functions here operate on values that are
170 in the 'unsigned char' range or in the 'char' range. In other words,
171 when you have a 'char' value, you need to cast it before using it as
172 argument to a <ctype.h> function:
175 if (isalpha ((unsigned char) *s)) ...
177 but you don't need to cast it for the functions defined in this file:
180 if (c_isalpha (*s)) ...
212 /* The function isascii is not locale dependent.
213 Its use in EBCDIC is questionable. */
225 _C_CTYPE_PUNCT_PLAIN
:
332 return c
== ' ' || c
== '\t';
368 _C_CTYPE_PUNCT_PLAIN
:
494 _C_CTYPE_PUNCT_PLAIN
:
603 _C_CTYPE_PUNCT_PLAIN
:
712 case ' ': case '\t': case '\n': case '\v': case '\f': case '\r':
750 _C_CTYPE_UPPER_N (0):
751 #if _C_CTYPE_SIGNED_EBCDIC
754 _C_CTYPE_UPPER_N (256):
756 return c
- 'A' + 'a';
768 _C_CTYPE_LOWER_N (0):
769 #if _C_CTYPE_SIGNED_EBCDIC
772 _C_CTYPE_LOWER_N (256):
774 return c
- 'a' + 'A';
785 _GL_INLINE_HEADER_END
787 #endif /* C_CTYPE_H */