code.delx.au - gnu-emacs/blob - lib/c-ctype.h

   1 /* Character handling in C locale.
   2
   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
   6    setlocale.
   7
   8    Copyright (C) 2000-2003, 2006, 2008-2015 Free Software Foundation,
   9    Inc.
  10
  11 This program is free software; you can redistribute it and/or modify
  12 it under the terms of the GNU General Public License as published by
  13 the Free Software Foundation; either version 3 of the License, or
  14 (at your option) any later version.
  15
  16 This program is distributed in the hope that it will be useful,
  17 but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 GNU General Public License for more details.
  20
  21 You should have received a copy of the GNU General Public License
  22 along with this program; if not, see <http://www.gnu.org/licenses/>.  */
  23
  24 #ifndef C_CTYPE_H
  25 #define C_CTYPE_H
  26
  27 #include <stdbool.h>
  28
  29
  30 #ifdef __cplusplus
  31 extern "C" {
  32 #endif
  33
  34
  35 /* The functions defined in this file assume the "C" locale and a character
  36    set without diacritics (ASCII-US or EBCDIC-US or something like that).
  37    Even if the "C" locale on a particular system is an extension of the ASCII
  38    character set (like on BeOS, where it is UTF-8, or on AmigaOS, where it
  39    is ISO-8859-1), the functions in this file recognize only the ASCII
  40    characters.  */
  41
  42
  43 /* Check whether the ASCII optimizations apply. */
  44
  45 /* ANSI C89 (and ISO C99 5.2.1.3 too) already guarantees that
  46    '0', '1', ..., '9' have consecutive integer values.  */
  47 #define C_CTYPE_CONSECUTIVE_DIGITS 1
  48
  49 #if ('A' <= 'Z') \
  50     && ('A' + 1 == 'B') && ('B' + 1 == 'C') && ('C' + 1 == 'D') \
  51     && ('D' + 1 == 'E') && ('E' + 1 == 'F') && ('F' + 1 == 'G') \
  52     && ('G' + 1 == 'H') && ('H' + 1 == 'I') && ('I' + 1 == 'J') \
  53     && ('J' + 1 == 'K') && ('K' + 1 == 'L') && ('L' + 1 == 'M') \
  54     && ('M' + 1 == 'N') && ('N' + 1 == 'O') && ('O' + 1 == 'P') \
  55     && ('P' + 1 == 'Q') && ('Q' + 1 == 'R') && ('R' + 1 == 'S') \
  56     && ('S' + 1 == 'T') && ('T' + 1 == 'U') && ('U' + 1 == 'V') \
  57     && ('V' + 1 == 'W') && ('W' + 1 == 'X') && ('X' + 1 == 'Y') \
  58     && ('Y' + 1 == 'Z')
  59 #define C_CTYPE_CONSECUTIVE_UPPERCASE 1
  60 #endif
  61
  62 #if ('a' <= 'z') \
  63     && ('a' + 1 == 'b') && ('b' + 1 == 'c') && ('c' + 1 == 'd') \
  64     && ('d' + 1 == 'e') && ('e' + 1 == 'f') && ('f' + 1 == 'g') \
  65     && ('g' + 1 == 'h') && ('h' + 1 == 'i') && ('i' + 1 == 'j') \
  66     && ('j' + 1 == 'k') && ('k' + 1 == 'l') && ('l' + 1 == 'm') \
  67     && ('m' + 1 == 'n') && ('n' + 1 == 'o') && ('o' + 1 == 'p') \
  68     && ('p' + 1 == 'q') && ('q' + 1 == 'r') && ('r' + 1 == 's') \
  69     && ('s' + 1 == 't') && ('t' + 1 == 'u') && ('u' + 1 == 'v') \
  70     && ('v' + 1 == 'w') && ('w' + 1 == 'x') && ('x' + 1 == 'y') \
  71     && ('y' + 1 == 'z')
  72 #define C_CTYPE_CONSECUTIVE_LOWERCASE 1
  73 #endif
  74
  75 #if (' ' == 32) && ('!' == 33) && ('"' == 34) && ('#' == 35) \
  76     && ('%' == 37) && ('&' == 38) && ('\'' == 39) && ('(' == 40) \
  77     && (')' == 41) && ('*' == 42) && ('+' == 43) && (',' == 44) \
  78     && ('-' == 45) && ('.' == 46) && ('/' == 47) && ('0' == 48) \
  79     && ('1' == 49) && ('2' == 50) && ('3' == 51) && ('4' == 52) \
  80     && ('5' == 53) && ('6' == 54) && ('7' == 55) && ('8' == 56) \
  81     && ('9' == 57) && (':' == 58) && (';' == 59) && ('<' == 60) \
  82     && ('=' == 61) && ('>' == 62) && ('?' == 63) && ('A' == 65) \
  83     && ('B' == 66) && ('C' == 67) && ('D' == 68) && ('E' == 69) \
  84     && ('F' == 70) && ('G' == 71) && ('H' == 72) && ('I' == 73) \
  85     && ('J' == 74) && ('K' == 75) && ('L' == 76) && ('M' == 77) \
  86     && ('N' == 78) && ('O' == 79) && ('P' == 80) && ('Q' == 81) \
  87     && ('R' == 82) && ('S' == 83) && ('T' == 84) && ('U' == 85) \
  88     && ('V' == 86) && ('W' == 87) && ('X' == 88) && ('Y' == 89) \
  89     && ('Z' == 90) && ('[' == 91) && ('\\' == 92) && (']' == 93) \
  90     && ('^' == 94) && ('_' == 95) && ('a' == 97) && ('b' == 98) \
  91     && ('c' == 99) && ('d' == 100) && ('e' == 101) && ('f' == 102) \
  92     && ('g' == 103) && ('h' == 104) && ('i' == 105) && ('j' == 106) \
  93     && ('k' == 107) && ('l' == 108) && ('m' == 109) && ('n' == 110) \
  94     && ('o' == 111) && ('p' == 112) && ('q' == 113) && ('r' == 114) \
  95     && ('s' == 115) && ('t' == 116) && ('u' == 117) && ('v' == 118) \
  96     && ('w' == 119) && ('x' == 120) && ('y' == 121) && ('z' == 122) \
  97     && ('{' == 123) && ('|' == 124) && ('}' == 125) && ('~' == 126)
  98 /* The character set is ASCII or one of its variants or extensions, not EBCDIC.
  99    Testing the value of '\n' and '\r' is not relevant.  */
 100 #define C_CTYPE_ASCII 1
 101 #endif
 102
 103
 104 /* Function declarations. */
 105
 106 /* Unlike the functions in <ctype.h>, which require an argument in the range
 107    of the 'unsigned char' type, the functions here operate on values that are
 108    in the 'unsigned char' range or in the 'char' range.  In other words,
 109    when you have a 'char' value, you need to cast it before using it as
 110    argument to a <ctype.h> function:
 111
 112          const char *s = ...;
 113          if (isalpha ((unsigned char) *s)) ...
 114
 115    but you don't need to cast it for the functions defined in this file:
 116
 117          const char *s = ...;
 118          if (c_isalpha (*s)) ...
 119  */
 120
 121 extern bool c_isascii (int c) _GL_ATTRIBUTE_CONST; /* not locale dependent */
 122
 123 extern bool c_isalnum (int c) _GL_ATTRIBUTE_CONST;
 124 extern bool c_isalpha (int c) _GL_ATTRIBUTE_CONST;
 125 extern bool c_isblank (int c) _GL_ATTRIBUTE_CONST;
 126 extern bool c_iscntrl (int c) _GL_ATTRIBUTE_CONST;
 127 extern bool c_isdigit (int c) _GL_ATTRIBUTE_CONST;
 128 extern bool c_islower (int c) _GL_ATTRIBUTE_CONST;
 129 extern bool c_isgraph (int c) _GL_ATTRIBUTE_CONST;
 130 extern bool c_isprint (int c) _GL_ATTRIBUTE_CONST;
 131 extern bool c_ispunct (int c) _GL_ATTRIBUTE_CONST;
 132 extern bool c_isspace (int c) _GL_ATTRIBUTE_CONST;
 133 extern bool c_isupper (int c) _GL_ATTRIBUTE_CONST;
 134 extern bool c_isxdigit (int c) _GL_ATTRIBUTE_CONST;
 135
 136 extern int c_tolower (int c) _GL_ATTRIBUTE_CONST;
 137 extern int c_toupper (int c) _GL_ATTRIBUTE_CONST;
 138
 139
 140 #if (defined __GNUC__ && !defined __STRICT_ANSI__ && defined __OPTIMIZE__ \
 141      && !defined __OPTIMIZE_SIZE__ && !defined NO_C_CTYPE_MACROS)
 142
 143 /* ASCII optimizations. */
 144
 145 #undef c_isascii
 146 #define c_isascii(c) \
 147   ({ int __c = (c); \
 148      (__c >= 0x00 && __c <= 0x7f); \
 149    })
 150
 151 #if C_CTYPE_CONSECUTIVE_DIGITS \
 152     && C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
 153 #if C_CTYPE_ASCII
 154 #undef c_isalnum
 155 #define c_isalnum(c) \
 156   ({ int __c = (c); \
 157      ((__c >= '0' && __c <= '9') \
 158       || ((__c & ~0x20) >= 'A' && (__c & ~0x20) <= 'Z')); \
 159    })
 160 #else
 161 #undef c_isalnum
 162 #define c_isalnum(c) \
 163   ({ int __c = (c); \
 164      ((__c >= '0' && __c <= '9') \
 165       || (__c >= 'A' && __c <= 'Z') \
 166       || (__c >= 'a' && __c <= 'z')); \
 167    })
 168 #endif
 169 #endif
 170
 171 #if C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
 172 #if C_CTYPE_ASCII
 173 #undef c_isalpha
 174 #define c_isalpha(c) \
 175   ({ int __c = (c); \
 176      ((__c & ~0x20) >= 'A' && (__c & ~0x20) <= 'Z'); \
 177    })
 178 #else
 179 #undef c_isalpha
 180 #define c_isalpha(c) \
 181   ({ int __c = (c); \
 182      ((__c >= 'A' && __c <= 'Z') || (__c >= 'a' && __c <= 'z')); \
 183    })
 184 #endif
 185 #endif
 186
 187 #undef c_isblank
 188 #define c_isblank(c) \
 189   ({ int __c = (c); \
 190      (__c == ' ' || __c == '\t'); \
 191    })
 192
 193 #if C_CTYPE_ASCII
 194 #undef c_iscntrl
 195 #define c_iscntrl(c) \
 196   ({ int __c = (c); \
 197      ((__c & ~0x1f) == 0 || __c == 0x7f); \
 198    })
 199 #endif
 200
 201 #if C_CTYPE_CONSECUTIVE_DIGITS
 202 #undef c_isdigit
 203 #define c_isdigit(c) \
 204   ({ int __c = (c); \
 205      (__c >= '0' && __c <= '9'); \
 206    })
 207 #endif
 208
 209 #if C_CTYPE_CONSECUTIVE_LOWERCASE
 210 #undef c_islower
 211 #define c_islower(c) \
 212   ({ int __c = (c); \
 213      (__c >= 'a' && __c <= 'z'); \
 214    })
 215 #endif
 216
 217 #if C_CTYPE_ASCII
 218 #undef c_isgraph
 219 #define c_isgraph(c) \
 220   ({ int __c = (c); \
 221      (__c >= '!' && __c <= '~'); \
 222    })
 223 #endif
 224
 225 #if C_CTYPE_ASCII
 226 #undef c_isprint
 227 #define c_isprint(c) \
 228   ({ int __c = (c); \
 229      (__c >= ' ' && __c <= '~'); \
 230    })
 231 #endif
 232
 233 #if C_CTYPE_ASCII
 234 #undef c_ispunct
 235 #define c_ispunct(c) \
 236   ({ int _c = (c); \
 237      (c_isgraph (_c) && ! c_isalnum (_c)); \
 238    })
 239 #endif
 240
 241 #undef c_isspace
 242 #define c_isspace(c) \
 243   ({ int __c = (c); \
 244      (__c == ' ' || __c == '\t' \
 245       || __c == '\n' || __c == '\v' || __c == '\f' || __c == '\r'); \
 246    })
 247
 248 #if C_CTYPE_CONSECUTIVE_UPPERCASE
 249 #undef c_isupper
 250 #define c_isupper(c) \
 251   ({ int __c = (c); \
 252      (__c >= 'A' && __c <= 'Z'); \
 253    })
 254 #endif
 255
 256 #if C_CTYPE_CONSECUTIVE_DIGITS \
 257     && C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
 258 #if C_CTYPE_ASCII
 259 #undef c_isxdigit
 260 #define c_isxdigit(c) \
 261   ({ int __c = (c); \
 262      ((__c >= '0' && __c <= '9') \
 263       || ((__c & ~0x20) >= 'A' && (__c & ~0x20) <= 'F')); \
 264    })
 265 #else
 266 #undef c_isxdigit
 267 #define c_isxdigit(c) \
 268   ({ int __c = (c); \
 269      ((__c >= '0' && __c <= '9') \
 270       || (__c >= 'A' && __c <= 'F') \
 271       || (__c >= 'a' && __c <= 'f')); \
 272    })
 273 #endif
 274 #endif
 275
 276 #if C_CTYPE_CONSECUTIVE_UPPERCASE && C_CTYPE_CONSECUTIVE_LOWERCASE
 277 #undef c_tolower
 278 #define c_tolower(c) \
 279   ({ int __c = (c); \
 280      (__c >= 'A' && __c <= 'Z' ? __c - 'A' + 'a' : __c); \
 281    })
 282 #undef c_toupper
 283 #define c_toupper(c) \
 284   ({ int __c = (c); \
 285      (__c >= 'a' && __c <= 'z' ? __c - 'a' + 'A' : __c); \
 286    })
 287 #endif
 288
 289 #endif /* optimizing for speed */
 290
 291
 292 #ifdef __cplusplus
 293 }
 294 #endif
 295
 296 #endif /* C_CTYPE_H */