1/* <ctype.h> replacement macros. 2 3 Copyright (C) 2000, 2001, 2002, 2003, 2004, 4 2005 Free Software Foundation, Inc. 5 Contributed by Zack Weinberg <zackw@stanford.edu>. 6 7This file is part of the libiberty library. 8Libiberty is free software; you can redistribute it and/or 9modify it under the terms of the GNU Library General Public 10License as published by the Free Software Foundation; either 11version 2 of the License, or (at your option) any later version. 12 13Libiberty is distributed in the hope that it will be useful, 14but WITHOUT ANY WARRANTY; without even the implied warranty of 15MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 16Library General Public License for more details. 17 18You should have received a copy of the GNU Library General Public 19License along with libiberty; see the file COPYING.LIB. If 20not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, 21Boston, MA 02110-1301, USA. */ 22 23/* 24 25@defvr Extension HOST_CHARSET 26This macro indicates the basic character set and encoding used by the 27host: more precisely, the encoding used for character constants in 28preprocessor @samp{#if} statements (the C "execution character set"). 29It is defined by @file{safe-ctype.h}, and will be an integer constant 30with one of the following values: 31 32@ftable @code 33@item HOST_CHARSET_UNKNOWN 34The host character set is unknown - that is, not one of the next two 35possibilities. 36 37@item HOST_CHARSET_ASCII 38The host character set is ASCII. 39 40@item HOST_CHARSET_EBCDIC 41The host character set is some variant of EBCDIC. (Only one of the 42nineteen EBCDIC varying characters is tested; exercise caution.) 43@end ftable 44@end defvr 45 46@deffn Extension ISALPHA (@var{c}) 47@deffnx Extension ISALNUM (@var{c}) 48@deffnx Extension ISBLANK (@var{c}) 49@deffnx Extension ISCNTRL (@var{c}) 50@deffnx Extension ISDIGIT (@var{c}) 51@deffnx Extension ISGRAPH (@var{c}) 52@deffnx Extension ISLOWER (@var{c}) 53@deffnx Extension ISPRINT (@var{c}) 54@deffnx Extension ISPUNCT (@var{c}) 55@deffnx Extension ISSPACE (@var{c}) 56@deffnx Extension ISUPPER (@var{c}) 57@deffnx Extension ISXDIGIT (@var{c}) 58 59These twelve macros are defined by @file{safe-ctype.h}. Each has the 60same meaning as the corresponding macro (with name in lowercase) 61defined by the standard header @file{ctype.h}. For example, 62@code{ISALPHA} returns true for alphabetic characters and false for 63others. However, there are two differences between these macros and 64those provided by @file{ctype.h}: 65 66@itemize @bullet 67@item These macros are guaranteed to have well-defined behavior for all 68values representable by @code{signed char} and @code{unsigned char}, and 69for @code{EOF}. 70 71@item These macros ignore the current locale; they are true for these 72fixed sets of characters: 73@multitable {@code{XDIGIT}} {yada yada yada yada yada yada yada yada} 74@item @code{ALPHA} @tab @kbd{A-Za-z} 75@item @code{ALNUM} @tab @kbd{A-Za-z0-9} 76@item @code{BLANK} @tab @kbd{space tab} 77@item @code{CNTRL} @tab @code{!PRINT} 78@item @code{DIGIT} @tab @kbd{0-9} 79@item @code{GRAPH} @tab @code{ALNUM || PUNCT} 80@item @code{LOWER} @tab @kbd{a-z} 81@item @code{PRINT} @tab @code{GRAPH ||} @kbd{space} 82@item @code{PUNCT} @tab @kbd{`~!@@#$%^&*()_-=+[@{]@}\|;:'",<.>/?} 83@item @code{SPACE} @tab @kbd{space tab \n \r \f \v} 84@item @code{UPPER} @tab @kbd{A-Z} 85@item @code{XDIGIT} @tab @kbd{0-9A-Fa-f} 86@end multitable 87 88Note that, if the host character set is ASCII or a superset thereof, 89all these macros will return false for all values of @code{char} outside 90the range of 7-bit ASCII. In particular, both ISPRINT and ISCNTRL return 91false for characters with numeric values from 128 to 255. 92@end itemize 93@end deffn 94 95@deffn Extension ISIDNUM (@var{c}) 96@deffnx Extension ISIDST (@var{c}) 97@deffnx Extension IS_VSPACE (@var{c}) 98@deffnx Extension IS_NVSPACE (@var{c}) 99@deffnx Extension IS_SPACE_OR_NUL (@var{c}) 100@deffnx Extension IS_ISOBASIC (@var{c}) 101These six macros are defined by @file{safe-ctype.h} and provide 102additional character classes which are useful when doing lexical 103analysis of C or similar languages. They are true for the following 104sets of characters: 105 106@multitable {@code{SPACE_OR_NUL}} {yada yada yada yada yada yada yada yada} 107@item @code{IDNUM} @tab @kbd{A-Za-z0-9_} 108@item @code{IDST} @tab @kbd{A-Za-z_} 109@item @code{VSPACE} @tab @kbd{\r \n} 110@item @code{NVSPACE} @tab @kbd{space tab \f \v \0} 111@item @code{SPACE_OR_NUL} @tab @code{VSPACE || NVSPACE} 112@item @code{ISOBASIC} @tab @code{VSPACE || NVSPACE || PRINT} 113@end multitable 114@end deffn 115 116*/ 117 118#if 0 /* in valgrind */ 119#include "ansidecl.h" 120#include <safe-ctype.h> 121#include <stdio.h> /* for EOF */ 122#endif /* ! in valgrind */ 123 124#include "vg_libciface.h" 125 126#include "safe-ctype.h" 127 128#if EOF != -1 129 #error "<safe-ctype.h> requires EOF == -1" 130#endif 131 132/* Shorthand */ 133#define bl _sch_isblank 134#define cn _sch_iscntrl 135#define di _sch_isdigit 136#define is _sch_isidst 137#define lo _sch_islower 138#define nv _sch_isnvsp 139#define pn _sch_ispunct 140#define pr _sch_isprint 141#define sp _sch_isspace 142#define up _sch_isupper 143#define vs _sch_isvsp 144#define xd _sch_isxdigit 145 146/* Masks. */ 147#define L (const unsigned short) (lo|is |pr) /* lower case letter */ 148#define XL (const unsigned short) (lo|is|xd|pr) /* lowercase hex digit */ 149#define U (const unsigned short) (up|is |pr) /* upper case letter */ 150#define XU (const unsigned short) (up|is|xd|pr) /* uppercase hex digit */ 151#define D (const unsigned short) (di |xd|pr) /* decimal digit */ 152#define P (const unsigned short) (pn |pr) /* punctuation */ 153#define _ (const unsigned short) (pn|is |pr) /* underscore */ 154 155#define C (const unsigned short) ( cn) /* control character */ 156#define Z (const unsigned short) (nv |cn) /* NUL */ 157#define M (const unsigned short) (nv|sp |cn) /* cursor movement: \f \v */ 158#define V (const unsigned short) (vs|sp |cn) /* vertical space: \r \n */ 159#define T (const unsigned short) (nv|sp|bl|cn) /* tab */ 160#define S (const unsigned short) (nv|sp|bl|pr) /* space */ 161 162/* Are we ASCII? */ 163#if HOST_CHARSET == HOST_CHARSET_ASCII 164 165const unsigned short _sch_istable[256] = 166{ 167 Z, C, C, C, C, C, C, C, /* NUL SOH STX ETX EOT ENQ ACK BEL */ 168 C, T, V, M, M, V, C, C, /* BS HT LF VT FF CR SO SI */ 169 C, C, C, C, C, C, C, C, /* DLE DC1 DC2 DC3 DC4 NAK SYN ETB */ 170 C, C, C, C, C, C, C, C, /* CAN EM SUB ESC FS GS RS US */ 171 S, P, P, P, P, P, P, P, /* SP ! " # $ % & ' */ 172 P, P, P, P, P, P, P, P, /* ( ) * + , - . / */ 173 D, D, D, D, D, D, D, D, /* 0 1 2 3 4 5 6 7 */ 174 D, D, P, P, P, P, P, P, /* 8 9 : ; < = > ? */ 175 P, XU, XU, XU, XU, XU, XU, U, /* @ A B C D E F G */ 176 U, U, U, U, U, U, U, U, /* H I J K L M N O */ 177 U, U, U, U, U, U, U, U, /* P Q R S T U V W */ 178 U, U, U, P, P, P, P, _, /* X Y Z [ \ ] ^ _ */ 179 P, XL, XL, XL, XL, XL, XL, L, /* ` a b c d e f g */ 180 L, L, L, L, L, L, L, L, /* h i j k l m n o */ 181 L, L, L, L, L, L, L, L, /* p q r s t u v w */ 182 L, L, L, P, P, P, P, C, /* x y z { | } ~ DEL */ 183 184 /* high half of unsigned char is locale-specific, so all tests are 185 false in "C" locale */ 186 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 187 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 188 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 189 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 190 191 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 192 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 193 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 194 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 195}; 196 197const unsigned char _sch_tolower[256] = 198{ 199 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 200 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 201 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 202 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 203 64, 204 205 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 206 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', 207 208 91, 92, 93, 94, 95, 96, 209 210 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 211 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', 212 213 123,124,125,126,127, 214 215 128,129,130,131, 132,133,134,135, 136,137,138,139, 140,141,142,143, 216 144,145,146,147, 148,149,150,151, 152,153,154,155, 156,157,158,159, 217 160,161,162,163, 164,165,166,167, 168,169,170,171, 172,173,174,175, 218 176,177,178,179, 180,181,182,183, 184,185,186,187, 188,189,190,191, 219 220 192,193,194,195, 196,197,198,199, 200,201,202,203, 204,205,206,207, 221 208,209,210,211, 212,213,214,215, 216,217,218,219, 220,221,222,223, 222 224,225,226,227, 228,229,230,231, 232,233,234,235, 236,237,238,239, 223 240,241,242,243, 244,245,246,247, 248,249,250,251, 252,253,254,255, 224}; 225 226const unsigned char _sch_toupper[256] = 227{ 228 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 229 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 230 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 231 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 232 64, 233 234 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 235 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 236 237 91, 92, 93, 94, 95, 96, 238 239 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 240 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 241 242 123,124,125,126,127, 243 244 128,129,130,131, 132,133,134,135, 136,137,138,139, 140,141,142,143, 245 144,145,146,147, 148,149,150,151, 152,153,154,155, 156,157,158,159, 246 160,161,162,163, 164,165,166,167, 168,169,170,171, 172,173,174,175, 247 176,177,178,179, 180,181,182,183, 184,185,186,187, 188,189,190,191, 248 249 192,193,194,195, 196,197,198,199, 200,201,202,203, 204,205,206,207, 250 208,209,210,211, 212,213,214,215, 216,217,218,219, 220,221,222,223, 251 224,225,226,227, 228,229,230,231, 232,233,234,235, 236,237,238,239, 252 240,241,242,243, 244,245,246,247, 248,249,250,251, 252,253,254,255, 253}; 254 255#else 256# if HOST_CHARSET == HOST_CHARSET_EBCDIC 257 #error "FIXME: write tables for EBCDIC" 258# else 259 #error "Unrecognized host character set" 260# endif 261#endif 262