[f40a309] | 1 | /*
|
---|
| 2 | ============================================================================
|
---|
| 3 | ctype.h -- extended character macros, ala' Unix(tm)
|
---|
| 4 | Version 8 -- 1987-06-16 -- D.N. Lynx Crowe
|
---|
| 5 |
|
---|
| 6 | These macros are a superset of those provided for System 5 Unix(tm).
|
---|
| 7 |
|
---|
| 8 | This set of macros will return status for characters 0x80..0xFF as
|
---|
| 9 | though they were in the range 0x00..0x7F for compatibility with
|
---|
| 10 | the equivalent Lattice C macros. This means that isascii(c) should
|
---|
| 11 | be used if it is necessary to restrict the results to true ASCII.
|
---|
| 12 |
|
---|
| 13 | If SYS5CODE is TRUE these macros will use the same table definitions
|
---|
| 14 | as System 5 Unix(tm). In this case these behave well even when fed
|
---|
| 15 | an EOF. The EOF character value, -1, is not defined as being in any
|
---|
| 16 | of the classes tested for. If SYS5CODE is FALSE, the Alcyon table
|
---|
| 17 | will be used, and EOF will not work properly.
|
---|
| 18 |
|
---|
| 19 | Define _CTYPE_C for compiling the ctype.c file, undefine otherwise.
|
---|
| 20 |
|
---|
| 21 | The symbol _ii_ is defined to be the base of the table used.
|
---|
| 22 |
|
---|
| 23 | isascii(c) non-zero if c is ASCII
|
---|
| 24 |
|
---|
| 25 | isprint(c) non-zero if c is printable (including blank)
|
---|
| 26 | isgraph(c) non-zero if c is graphic (excluding blank)
|
---|
| 27 | iscntrl(c) non-zero if c is control character
|
---|
| 28 |
|
---|
| 29 | isalpha(c) non-zero if c is alpha
|
---|
| 30 | isupper(c) non-zero if c is upper case
|
---|
| 31 | islower(c) non-zero if c is lower case
|
---|
| 32 |
|
---|
| 33 | isdigit(c) non-zero if c is a digit (0 to 9)
|
---|
| 34 | isxdigit(c) non-zero if c is a hexadecimal digit (0 to 9, A to F, a to f)
|
---|
| 35 |
|
---|
| 36 | isalnum(c) non-zero if c is alpha or digit
|
---|
| 37 |
|
---|
| 38 | isspace(c) non-zero if c is white space
|
---|
| 39 | ispunct(c) non-zero if c is punctuation
|
---|
| 40 |
|
---|
| 41 | iscsym(c) non-zero if valid character for C symbols
|
---|
| 42 | iscsymf(c) non-zero if valid first character for C symbols
|
---|
| 43 |
|
---|
| 44 | toascii(c) returns c masked to 7 bits
|
---|
| 45 |
|
---|
| 46 | _tolower(c) returns the lower case version of c
|
---|
| 47 | _toupper(c) returns the upper case version of c
|
---|
| 48 |
|
---|
| 49 | tonumber(c) converts c from ASCII to integer
|
---|
| 50 | ============================================================================
|
---|
| 51 | */
|
---|
| 52 |
|
---|
| 53 | /* |
---|
| 54 |
|
---|
| 55 | */
|
---|
| 56 |
|
---|
| 57 | #define SYS5CODE 0 /* define non-zero for System 5 / Aztec C */
|
---|
| 58 |
|
---|
| 59 | #if SYS5CODE
|
---|
| 60 |
|
---|
| 61 | #define _ii_ _ctype+1
|
---|
| 62 |
|
---|
| 63 | /* System 5 Unix(tm) / Aztec C table definitions */
|
---|
| 64 |
|
---|
| 65 | #define _U 0x01 /* upper case */
|
---|
| 66 | #define _L 0x02 /* lower case */
|
---|
| 67 | #define _N 0x04 /* numeric 0..9 */
|
---|
| 68 | #define _S 0x08 /* whitespace */
|
---|
| 69 | #define _P 0x10 /* punctuation */
|
---|
| 70 | #define _C 0x20 /* control 00..1F */
|
---|
| 71 | #define _B 0x40 /* blank */
|
---|
| 72 | #define _X 0x80 /* hex digit */
|
---|
| 73 |
|
---|
| 74 | #else
|
---|
| 75 |
|
---|
| 76 | #define _ii_ __atab
|
---|
| 77 |
|
---|
| 78 | /* Digital Research / Alcyon C table definitions */
|
---|
| 79 |
|
---|
| 80 | #define _C 0x01 /* control 00.1F */
|
---|
| 81 | #define _P 0x02 /* punctuation */
|
---|
| 82 | #define _N 0x04 /* numeric 0..9 */
|
---|
| 83 | #define _U 0x08 /* upper case */
|
---|
| 84 | #define _L 0x10 /* lower case */
|
---|
| 85 | #define _S 0x20 /* whitespace */
|
---|
| 86 | #define _B 0x40 /* blank */
|
---|
| 87 | #define _X 0x80 /* hex digit */
|
---|
| 88 |
|
---|
| 89 | #endif
|
---|
| 90 |
|
---|
| 91 | #ifndef _CTYPE_C
|
---|
| 92 |
|
---|
| 93 | #if SYS5CODE
|
---|
| 94 |
|
---|
| 95 | extern char _ctype[]; /* character type table */
|
---|
| 96 |
|
---|
| 97 | #else /* SYS5CODE */
|
---|
| 98 |
|
---|
| 99 | extern char ___atab(); /* so the loader sees us ... */
|
---|
| 100 | extern char __atab[]; /* character type table */
|
---|
| 101 |
|
---|
| 102 | #endif /* SYS5CODE */
|
---|
| 103 |
|
---|
| 104 | #endif /* _CTYPE_C */
|
---|
| 105 |
|
---|
| 106 | /* |
---|
| 107 |
|
---|
| 108 | */
|
---|
| 109 |
|
---|
| 110 | #define isascii(c) (!((c)&~0x7F))
|
---|
| 111 |
|
---|
| 112 | #define isprint(c) ((_ii_)[c]&(_P|_U|_L|_N|_B))
|
---|
| 113 | #define isgraph(c) ((_ii_)[c]&(_P|_U|_L|_N))
|
---|
| 114 | #define iscntrl(c) ((_ii_)[c]&_C)
|
---|
| 115 |
|
---|
| 116 | #define isalpha(c) ((_ii_)[c]&(_U|_L))
|
---|
| 117 | #define isupper(c) ((_ii_)[c]&_U)
|
---|
| 118 | #define islower(c) ((_ii_)[c]&_L)
|
---|
| 119 |
|
---|
| 120 | #define isdigit(c) ((_ii_)[c]&_N)
|
---|
| 121 | #define isxdigit(c) ((_ii_)[c]&_X)
|
---|
| 122 |
|
---|
| 123 | #define isalnum(c) ((_ii_)[c]&(_U|_L|_N))
|
---|
| 124 |
|
---|
| 125 | #define isspace(c) ((_ii_)[c]&_S)
|
---|
| 126 | #define ispunct(c) ((_ii_)[c]&_P)
|
---|
| 127 |
|
---|
| 128 | #define iscsym(c) (isalnum(c)||(((c)&127)==0x5F))
|
---|
| 129 | #define iscsymf(c) (isalpha(c)||(((c)&127)==0x5F))
|
---|
| 130 |
|
---|
| 131 | #define toascii(c) ((c)&0x7F)
|
---|
| 132 |
|
---|
| 133 | #define _toupper(c) ((c)-'a'+'A')
|
---|
| 134 | #define _tolower(c) ((c)-'A'+'a')
|
---|
| 135 |
|
---|
| 136 | #define tonumber(c) ((((c)&0x7F)>'9')?((islower(c)?_toupper(c):c)-'A'+10):(c&0x0F))
|
---|
| 137 |
|
---|