Added a gnulib with GPL components for use by applications.
[gnutls:gnutls.git] / src / gl / c-ctype.c
1 /* Character handling in C locale.
2
3    Copyright 2000-2003, 2006, 2009-2013 Free Software Foundation, Inc.
4
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 3 of the License, or
8 (at your option) any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, see <http://www.gnu.org/licenses/>.  */
17
18 #include <config.h>
19
20 /* Specification.  */
21 #define NO_C_CTYPE_MACROS
22 #include "c-ctype.h"
23
24 /* The function isascii is not locale dependent. Its use in EBCDIC is
25    questionable. */
26 bool
27 c_isascii (int c)
28 {
29   return (c >= 0x00 && c <= 0x7f);
30 }
31
32 bool
33 c_isalnum (int c)
34 {
35 #if C_CTYPE_CONSECUTIVE_DIGITS \
36     && C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
37 #if C_CTYPE_ASCII
38   return ((c >= '0' && c <= '9')
39           || ((c & ~0x20) >= 'A' && (c & ~0x20) <= 'Z'));
40 #else
41   return ((c >= '0' && c <= '9')
42           || (c >= 'A' && c <= 'Z')
43           || (c >= 'a' && c <= 'z'));
44 #endif
45 #else
46   switch (c)
47     {
48     case '0': case '1': case '2': case '3': case '4': case '5':
49     case '6': case '7': case '8': case '9':
50     case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
51     case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
52     case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
53     case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
54     case 'Y': case 'Z':
55     case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
56     case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
57     case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
58     case 's': case 't': case 'u': case 'v': case 'w': case 'x':
59     case 'y': case 'z':
60       return 1;
61     default:
62       return 0;
63     }
64 #endif
65 }
66
67 bool
68 c_isalpha (int c)
69 {
70 #if C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
71 #if C_CTYPE_ASCII
72   return ((c & ~0x20) >= 'A' && (c & ~0x20) <= 'Z');
73 #else
74   return ((c >= 'A' && c <= 'Z') || (c >= 'a' && c <= 'z'));
75 #endif
76 #else
77   switch (c)
78     {
79     case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
80     case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
81     case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
82     case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
83     case 'Y': case 'Z':
84     case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
85     case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
86     case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
87     case 's': case 't': case 'u': case 'v': case 'w': case 'x':
88     case 'y': case 'z':
89       return 1;
90     default:
91       return 0;
92     }
93 #endif
94 }
95
96 bool
97 c_isblank (int c)
98 {
99   return (c == ' ' || c == '\t');
100 }
101
102 bool
103 c_iscntrl (int c)
104 {
105 #if C_CTYPE_ASCII
106   return ((c & ~0x1f) == 0 || c == 0x7f);
107 #else
108   switch (c)
109     {
110     case ' ': case '!': case '"': case '#': case '$': case '%':
111     case '&': case '\'': case '(': case ')': case '*': case '+':
112     case ',': case '-': case '.': case '/':
113     case '0': case '1': case '2': case '3': case '4': case '5':
114     case '6': case '7': case '8': case '9':
115     case ':': case ';': case '<': case '=': case '>': case '?':
116     case '@':
117     case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
118     case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
119     case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
120     case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
121     case 'Y': case 'Z':
122     case '[': case '\\': case ']': case '^': case '_': case '`':
123     case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
124     case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
125     case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
126     case 's': case 't': case 'u': case 'v': case 'w': case 'x':
127     case 'y': case 'z':
128     case '{': case '|': case '}': case '~':
129       return 0;
130     default:
131       return 1;
132     }
133 #endif
134 }
135
136 bool
137 c_isdigit (int c)
138 {
139 #if C_CTYPE_CONSECUTIVE_DIGITS
140   return (c >= '0' && c <= '9');
141 #else
142   switch (c)
143     {
144     case '0': case '1': case '2': case '3': case '4': case '5':
145     case '6': case '7': case '8': case '9':
146       return 1;
147     default:
148       return 0;
149     }
150 #endif
151 }
152
153 bool
154 c_islower (int c)
155 {
156 #if C_CTYPE_CONSECUTIVE_LOWERCASE
157   return (c >= 'a' && c <= 'z');
158 #else
159   switch (c)
160     {
161     case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
162     case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
163     case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
164     case 's': case 't': case 'u': case 'v': case 'w': case 'x':
165     case 'y': case 'z':
166       return 1;
167     default:
168       return 0;
169     }
170 #endif
171 }
172
173 bool
174 c_isgraph (int c)
175 {
176 #if C_CTYPE_ASCII
177   return (c >= '!' && c <= '~');
178 #else
179   switch (c)
180     {
181     case '!': case '"': case '#': case '$': case '%': case '&':
182     case '\'': case '(': case ')': case '*': case '+': case ',':
183     case '-': case '.': case '/':
184     case '0': case '1': case '2': case '3': case '4': case '5':
185     case '6': case '7': case '8': case '9':
186     case ':': case ';': case '<': case '=': case '>': case '?':
187     case '@':
188     case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
189     case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
190     case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
191     case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
192     case 'Y': case 'Z':
193     case '[': case '\\': case ']': case '^': case '_': case '`':
194     case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
195     case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
196     case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
197     case 's': case 't': case 'u': case 'v': case 'w': case 'x':
198     case 'y': case 'z':
199     case '{': case '|': case '}': case '~':
200       return 1;
201     default:
202       return 0;
203     }
204 #endif
205 }
206
207 bool
208 c_isprint (int c)
209 {
210 #if C_CTYPE_ASCII
211   return (c >= ' ' && c <= '~');
212 #else
213   switch (c)
214     {
215     case ' ': case '!': case '"': case '#': case '$': case '%':
216     case '&': case '\'': case '(': case ')': case '*': case '+':
217     case ',': case '-': case '.': case '/':
218     case '0': case '1': case '2': case '3': case '4': case '5':
219     case '6': case '7': case '8': case '9':
220     case ':': case ';': case '<': case '=': case '>': case '?':
221     case '@':
222     case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
223     case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
224     case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
225     case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
226     case 'Y': case 'Z':
227     case '[': case '\\': case ']': case '^': case '_': case '`':
228     case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
229     case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
230     case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
231     case 's': case 't': case 'u': case 'v': case 'w': case 'x':
232     case 'y': case 'z':
233     case '{': case '|': case '}': case '~':
234       return 1;
235     default:
236       return 0;
237     }
238 #endif
239 }
240
241 bool
242 c_ispunct (int c)
243 {
244 #if C_CTYPE_ASCII
245   return ((c >= '!' && c <= '~')
246           && !((c >= '0' && c <= '9')
247                || ((c & ~0x20) >= 'A' && (c & ~0x20) <= 'Z')));
248 #else
249   switch (c)
250     {
251     case '!': case '"': case '#': case '$': case '%': case '&':
252     case '\'': case '(': case ')': case '*': case '+': case ',':
253     case '-': case '.': case '/':
254     case ':': case ';': case '<': case '=': case '>': case '?':
255     case '@':
256     case '[': case '\\': case ']': case '^': case '_': case '`':
257     case '{': case '|': case '}': case '~':
258       return 1;
259     default:
260       return 0;
261     }
262 #endif
263 }
264
265 bool
266 c_isspace (int c)
267 {
268   return (c == ' ' || c == '\t'
269           || c == '\n' || c == '\v' || c == '\f' || c == '\r');
270 }
271
272 bool
273 c_isupper (int c)
274 {
275 #if C_CTYPE_CONSECUTIVE_UPPERCASE
276   return (c >= 'A' && c <= 'Z');
277 #else
278   switch (c)
279     {
280     case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
281     case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
282     case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
283     case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
284     case 'Y': case 'Z':
285       return 1;
286     default:
287       return 0;
288     }
289 #endif
290 }
291
292 bool
293 c_isxdigit (int c)
294 {
295 #if C_CTYPE_CONSECUTIVE_DIGITS \
296     && C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
297 #if C_CTYPE_ASCII
298   return ((c >= '0' && c <= '9')
299           || ((c & ~0x20) >= 'A' && (c & ~0x20) <= 'F'));
300 #else
301   return ((c >= '0' && c <= '9')
302           || (c >= 'A' && c <= 'F')
303           || (c >= 'a' && c <= 'f'));
304 #endif
305 #else
306   switch (c)
307     {
308     case '0': case '1': case '2': case '3': case '4': case '5':
309     case '6': case '7': case '8': case '9':
310     case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
311     case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
312       return 1;
313     default:
314       return 0;
315     }
316 #endif
317 }
318
319 int
320 c_tolower (int c)
321 {
322 #if C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
323   return (c >= 'A' && c <= 'Z' ? c - 'A' + 'a' : c);
324 #else
325   switch (c)
326     {
327     case 'A': return 'a';
328     case 'B': return 'b';
329     case 'C': return 'c';
330     case 'D': return 'd';
331     case 'E': return 'e';
332     case 'F': return 'f';
333     case 'G': return 'g';
334     case 'H': return 'h';
335     case 'I': return 'i';
336     case 'J': return 'j';
337     case 'K': return 'k';
338     case 'L': return 'l';
339     case 'M': return 'm';
340     case 'N': return 'n';
341     case 'O': return 'o';
342     case 'P': return 'p';
343     case 'Q': return 'q';
344     case 'R': return 'r';
345     case 'S': return 's';
346     case 'T': return 't';
347     case 'U': return 'u';
348     case 'V': return 'v';
349     case 'W': return 'w';
350     case 'X': return 'x';
351     case 'Y': return 'y';
352     case 'Z': return 'z';
353     default: return c;
354     }
355 #endif
356 }
357
358 int
359 c_toupper (int c)
360 {
361 #if C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
362   return (c >= 'a' && c <= 'z' ? c - 'a' + 'A' : c);
363 #else
364   switch (c)
365     {
366     case 'a': return 'A';
367     case 'b': return 'B';
368     case 'c': return 'C';
369     case 'd': return 'D';
370     case 'e': return 'E';
371     case 'f': return 'F';
372     case 'g': return 'G';
373     case 'h': return 'H';
374     case 'i': return 'I';
375     case 'j': return 'J';
376     case 'k': return 'K';
377     case 'l': return 'L';
378     case 'm': return 'M';
379     case 'n': return 'N';
380     case 'o': return 'O';
381     case 'p': return 'P';
382     case 'q': return 'Q';
383     case 'r': return 'R';
384     case 's': return 'S';
385     case 't': return 'T';
386     case 'u': return 'U';
387     case 'v': return 'V';
388     case 'w': return 'W';
389     case 'x': return 'X';
390     case 'y': return 'Y';
391     case 'z': return 'Z';
392     default: return c;
393     }
394 #endif
395 }