annotate lib/c-ctype.h @ 4554:5a1e7c84e9cd

Use three spaces, rather than tab, after '#' in shell-script copyright notices. Suggested by Bruno Haible.
author Paul Eggert <eggert@cs.ucla.edu>
date Fri, 15 Aug 2003 18:04:34 +0000
parents 4665ee17573f
children a48fb0e98c8c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4218
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
1 /* Character handling in C locale.
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
2
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
3 These functions work like the corresponding functions in <ctype.h>,
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
4 except that they have the C (POSIX) locale hardwired, whereas the
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
5 <ctype.h> functions' behaviour depends on the current locale set via
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
6 setlocale.
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
7
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
8 Copyright (C) 2000-2003 Free Software Foundation, Inc.
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
9
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
10 This program is free software; you can redistribute it and/or modify
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
11 it under the terms of the GNU General Public License as published by
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
12 the Free Software Foundation; either version 2 of the License, or
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
13 (at your option) any later version.
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
14
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
15 This program is distributed in the hope that it will be useful,
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
18 GNU General Public License for more details.
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
19
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
20 You should have received a copy of the GNU General Public License
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
21 along with this program; if not, write to the Free Software
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
22 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
23
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
24 #ifndef C_CTYPE_H
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
25 #define C_CTYPE_H
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
26
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
27 #include <stdbool.h>
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
28
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
29
4219
4665ee17573f Optimization and comments.
Bruno Haible <bruno@clisp.org>
parents: 4218
diff changeset
30 /* The functions defined in this file assume the "C" locale and a character
4665ee17573f Optimization and comments.
Bruno Haible <bruno@clisp.org>
parents: 4218
diff changeset
31 set without diacritics (ASCII-US or EBCDIC-US or something like that).
4665ee17573f Optimization and comments.
Bruno Haible <bruno@clisp.org>
parents: 4218
diff changeset
32 Even if the "C" locale on a particular system is an extension of the ASCII
4665ee17573f Optimization and comments.
Bruno Haible <bruno@clisp.org>
parents: 4218
diff changeset
33 character set (like on BeOS, where it is UTF-8, or on AmigaOS, where it
4665ee17573f Optimization and comments.
Bruno Haible <bruno@clisp.org>
parents: 4218
diff changeset
34 is ISO-8859-1), the functions in this file recognize only the ASCII
4665ee17573f Optimization and comments.
Bruno Haible <bruno@clisp.org>
parents: 4218
diff changeset
35 characters. */
4665ee17573f Optimization and comments.
Bruno Haible <bruno@clisp.org>
parents: 4218
diff changeset
36
4665ee17573f Optimization and comments.
Bruno Haible <bruno@clisp.org>
parents: 4218
diff changeset
37
4218
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
38 /* Check whether the ASCII optimizations apply. */
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
39
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
40 /* ANSI C89 (and ISO C99 5.2.1.3 too) already guarantees that
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
41 '0', '1', ..., '9' have consecutive integer values. */
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
42 #define C_CTYPE_CONSECUTIVE_DIGITS 1
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
43
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
44 #if ('A' <= 'Z') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
45 && ('A' + 1 == 'B') && ('B' + 1 == 'C') && ('C' + 1 == 'D') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
46 && ('D' + 1 == 'E') && ('E' + 1 == 'F') && ('F' + 1 == 'G') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
47 && ('G' + 1 == 'H') && ('H' + 1 == 'I') && ('I' + 1 == 'J') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
48 && ('J' + 1 == 'K') && ('K' + 1 == 'L') && ('L' + 1 == 'M') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
49 && ('M' + 1 == 'N') && ('N' + 1 == 'O') && ('O' + 1 == 'P') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
50 && ('P' + 1 == 'Q') && ('Q' + 1 == 'R') && ('R' + 1 == 'S') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
51 && ('S' + 1 == 'T') && ('T' + 1 == 'U') && ('U' + 1 == 'V') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
52 && ('V' + 1 == 'W') && ('W' + 1 == 'X') && ('X' + 1 == 'Y') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
53 && ('Y' + 1 == 'Z')
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
54 #define C_CTYPE_CONSECUTIVE_UPPERCASE 1
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
55 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
56
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
57 #if ('a' <= 'z') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
58 && ('a' + 1 == 'b') && ('b' + 1 == 'c') && ('c' + 1 == 'd') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
59 && ('d' + 1 == 'e') && ('e' + 1 == 'f') && ('f' + 1 == 'g') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
60 && ('g' + 1 == 'h') && ('h' + 1 == 'i') && ('i' + 1 == 'j') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
61 && ('j' + 1 == 'k') && ('k' + 1 == 'l') && ('l' + 1 == 'm') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
62 && ('m' + 1 == 'n') && ('n' + 1 == 'o') && ('o' + 1 == 'p') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
63 && ('p' + 1 == 'q') && ('q' + 1 == 'r') && ('r' + 1 == 's') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
64 && ('s' + 1 == 't') && ('t' + 1 == 'u') && ('u' + 1 == 'v') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
65 && ('v' + 1 == 'w') && ('w' + 1 == 'x') && ('x' + 1 == 'y') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
66 && ('y' + 1 == 'z')
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
67 #define C_CTYPE_CONSECUTIVE_LOWERCASE 1
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
68 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
69
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
70 #if (' ' == 32) && ('!' == 33) && ('"' == 34) && ('#' == 35) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
71 && ('%' == 37) && ('&' == 38) && ('\'' == 39) && ('(' == 40) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
72 && (')' == 41) && ('*' == 42) && ('+' == 43) && (',' == 44) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
73 && ('-' == 45) && ('.' == 46) && ('/' == 47) && ('0' == 48) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
74 && ('1' == 49) && ('2' == 50) && ('3' == 51) && ('4' == 52) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
75 && ('5' == 53) && ('6' == 54) && ('7' == 55) && ('8' == 56) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
76 && ('9' == 57) && (':' == 58) && (';' == 59) && ('<' == 60) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
77 && ('=' == 61) && ('>' == 62) && ('?' == 63) && ('A' == 65) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
78 && ('B' == 66) && ('C' == 67) && ('D' == 68) && ('E' == 69) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
79 && ('F' == 70) && ('G' == 71) && ('H' == 72) && ('I' == 73) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
80 && ('J' == 74) && ('K' == 75) && ('L' == 76) && ('M' == 77) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
81 && ('N' == 78) && ('O' == 79) && ('P' == 80) && ('Q' == 81) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
82 && ('R' == 82) && ('S' == 83) && ('T' == 84) && ('U' == 85) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
83 && ('V' == 86) && ('W' == 87) && ('X' == 88) && ('Y' == 89) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
84 && ('Z' == 90) && ('[' == 91) && ('\\' == 92) && (']' == 93) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
85 && ('^' == 94) && ('_' == 95) && ('a' == 97) && ('b' == 98) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
86 && ('c' == 99) && ('d' == 100) && ('e' == 101) && ('f' == 102) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
87 && ('g' == 103) && ('h' == 104) && ('i' == 105) && ('j' == 106) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
88 && ('k' == 107) && ('l' == 108) && ('m' == 109) && ('n' == 110) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
89 && ('o' == 111) && ('p' == 112) && ('q' == 113) && ('r' == 114) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
90 && ('s' == 115) && ('t' == 116) && ('u' == 117) && ('v' == 118) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
91 && ('w' == 119) && ('x' == 120) && ('y' == 121) && ('z' == 122) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
92 && ('{' == 123) && ('|' == 124) && ('}' == 125) && ('~' == 126)
4219
4665ee17573f Optimization and comments.
Bruno Haible <bruno@clisp.org>
parents: 4218
diff changeset
93 /* The character set is ASCII or one of its variants or extensions, not EBCDIC.
4218
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
94 Testing the value of '\n' and '\r' is not relevant. */
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
95 #define C_CTYPE_ASCII 1
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
96 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
97
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
98
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
99 /* Function declarations. */
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
100
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
101 extern bool c_isascii (int c); /* not locale dependent */
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
102
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
103 extern bool c_isalnum (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
104 extern bool c_isalpha (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
105 extern bool c_isblank (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
106 extern bool c_iscntrl (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
107 extern bool c_isdigit (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
108 extern bool c_islower (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
109 extern bool c_isgraph (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
110 extern bool c_isprint (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
111 extern bool c_ispunct (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
112 extern bool c_isspace (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
113 extern bool c_isupper (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
114 extern bool c_isxdigit (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
115
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
116 extern int c_tolower (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
117 extern int c_toupper (int c);
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
118
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
119
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
120 #if defined __GNUC__ && defined __OPTIMIZE__ && !defined __OPTIMIZE_SIZE__
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
121
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
122 /* ASCII optimizations. */
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
123
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
124 #define c_isascii(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
125 ({ int __c = (c); \
4219
4665ee17573f Optimization and comments.
Bruno Haible <bruno@clisp.org>
parents: 4218
diff changeset
126 (__c >= 0x00 && __c <= 0x7f); \
4218
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
127 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
128
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
129 #if C_CTYPE_CONSECUTIVE_DIGITS \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
130 && C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
131 #if C_CTYPE_ASCII
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
132 #define c_isalnum(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
133 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
134 ((__c >= '0' && __c <= '9') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
135 || ((__c & ~0x20) >= 'A' && (__c & ~0x20) <= 'Z')); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
136 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
137 #else
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
138 #define c_isalnum(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
139 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
140 ((__c >= '0' && __c <= '9') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
141 || (__c >= 'A' && __c <= 'Z') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
142 || (__c >= 'a' && __c <= 'z')); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
143 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
144 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
145 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
146
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
147 #if C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
148 #if C_CTYPE_ASCII
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
149 #define c_isalpha(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
150 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
151 ((__c & ~0x20) >= 'A' && (__c & ~0x20) <= 'Z'); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
152 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
153 #else
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
154 #define c_isalpha(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
155 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
156 ((__c >= 'A' && __c <= 'Z') || (__c >= 'a' && __c <= 'z')); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
157 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
158 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
159 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
160
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
161 #define c_isblank(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
162 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
163 (__c == ' ' || __c == '\t'); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
164 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
165
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
166 #if C_CTYPE_ASCII
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
167 #define c_iscntrl(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
168 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
169 ((__c & ~0x1f) == 0 || __c == 0x7f); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
170 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
171 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
172
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
173 #if C_CTYPE_CONSECUTIVE_DIGITS
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
174 #define c_isdigit(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
175 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
176 (__c >= '0' && __c <= '9'); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
177 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
178 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
179
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
180 #if C_CTYPE_CONSECUTIVE_LOWERCASE
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
181 #define c_islower(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
182 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
183 (__c >= 'a' && __c <= 'z'); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
184 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
185 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
186
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
187 #if C_CTYPE_ASCII
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
188 #define c_isgraph(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
189 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
190 (__c >= '!' && __c <= '~'); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
191 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
192 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
193
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
194 #if C_CTYPE_ASCII
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
195 #define c_isprint(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
196 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
197 (__c >= ' ' && __c <= '~'); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
198 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
199 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
200
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
201 #if C_CTYPE_ASCII
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
202 #define c_ispunct(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
203 ({ int _c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
204 (c_isgraph (_c) && ! c_isalnum (_c)); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
205 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
206 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
207
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
208 #define c_isspace(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
209 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
210 (__c == ' ' || __c == '\t' \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
211 || __c == '\n' || __c == '\v' || __c == '\f' || __c == '\r'); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
212 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
213
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
214 #if C_CTYPE_CONSECUTIVE_UPPERCASE
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
215 #define c_isupper(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
216 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
217 (__c >= 'A' && __c <= 'Z'); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
218 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
219 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
220
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
221 #if C_CTYPE_CONSECUTIVE_DIGITS \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
222 && C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
223 #if C_CTYPE_ASCII
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
224 #define c_isxdigit(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
225 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
226 ((__c >= '0' && __c <= '9') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
227 || ((__c & ~0x20) >= 'A' && (__c & ~0x20) <= 'F')); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
228 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
229 #else
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
230 #define c_isxdigit(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
231 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
232 ((__c >= '0' && __c <= '9') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
233 || (__c >= 'A' && __c <= 'F') \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
234 || (__c >= 'a' && __c <= 'f')); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
235 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
236 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
237 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
238
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
239 #if C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
240 #define c_tolower(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
241 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
242 (__c >= 'A' && __c <= 'Z' ? __c - 'A' + 'a' : __c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
243 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
244 #define c_toupper(c) \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
245 ({ int __c = (c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
246 (__c >= 'a' && __c <= 'z' ? __c - 'a' + 'A' : __c); \
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
247 })
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
248 #endif
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
249
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
250 #endif /* optimizing for speed */
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
251
c711c0a14205 New module c-ctype.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
252 #endif /* C_CTYPE_H */