| 1 | #pragma force_top_level |
| 2 | #pragma include_only_once |
| 3 | |
| 4 | /* ctype.h: ANSI 'C' (X3J11 Oct 88) library header, section 4.3 */ |
| 5 | /* Copyright (C) Codemist Ltd. */ |
| 6 | /* Copyright (C) Acorn Computers Ltd. 1991, 1992 */ |
| 7 | /* version 2.00 */ |
| 8 | |
| 9 | /* |
| 10 | * ctype.h declares several functions useful for testing and mapping |
| 11 | * characters. In all cases the argument is an int, the value of which shall |
| 12 | * be representable as an unsigned char or shall equal the value of the |
| 13 | * macro EOF. If the argument has any other value, the behaviour is undefined. |
| 14 | */ |
| 15 | |
| 16 | #ifndef __ctype_h |
| 17 | #define __ctype_h |
| 18 | |
| 19 | /* N.B. - keep in step with <ctype.c> */ |
| 20 | |
| 21 | #define __S 1 /* whitespace */ |
| 22 | #define __P 2 /* punctuation */ |
| 23 | #define __B 4 /* blank */ |
| 24 | #define __L 8 /* lower case letter */ |
| 25 | #define __U 16 /* upper case letter */ |
| 26 | #define __N 32 /* (decimal) digit */ |
| 27 | #define __C 64 /* control chars */ |
| 28 | #define __X 128 /* A-F and a-f */ |
| 29 | |
| 30 | #ifdef __cplusplus |
| 31 | extern "C" { |
| 32 | #endif |
| 33 | |
| 34 | #ifdef SYSTEM_STATICS |
| 35 | extern unsigned *__ctype; |
| 36 | #elif defined(_DLL) |
| 37 | extern unsigned char *_dll_ctype(void); |
| 38 | #define __ctype (_dll_ctype()) |
| 39 | #else |
| 40 | extern unsigned char __ctype[]; |
| 41 | #endif |
| 42 | |
| 43 | #ifdef __cplusplus |
| 44 | } |
| 45 | #endif |
| 46 | |
| 47 | #define isalnum(c) (__ctype[c] & (__U+__L+__N)) |
| 48 | /* non-0 iff c is alphabetic or numeric */ |
| 49 | |
| 50 | #define isalpha(c) (__ctype[c] & (__U+__L)) |
| 51 | /* non-0 iff c is alphabetic */ |
| 52 | |
| 53 | #define iscntrl(c) (__ctype[c] & __C) |
| 54 | /* non-0 iff c is a control character - in the ASCII locale */ |
| 55 | /* this means (c < ' ') || (c > '~') */ |
| 56 | |
| 57 | #define isdigit(c) (__ctype[c] & __N) |
| 58 | /* non-0 iff c is a decimal digit */ |
| 59 | |
| 60 | #define isgraph(c) (__ctype[c] & (__L+__U+__N+__P)) |
| 61 | /* non-0 iff c is any printing character other than ' ' */ |
| 62 | |
| 63 | #define islower(c) (__ctype[c] & __L) |
| 64 | /* non-0 iff c is a lower-case letter */ |
| 65 | |
| 66 | #define isprint(c) (__ctype[c] & (__L+__U+__N+__P+__B)) |
| 67 | /* non-0 iff c is a printing character - in the ASCII locale */ |
| 68 | /* this means 0x20 (space) -> 0x7E (tilde) */ |
| 69 | |
| 70 | #define ispunct(c) (__ctype[c] & __P) |
| 71 | /* non-0 iff c is a non-space, non-alpha-numeric, printing character */ |
| 72 | |
| 73 | #define isspace(c) (__ctype[c] & __S) |
| 74 | /* non-0 iff c is a white-space char: ' ', '\f', '\n', '\r', '\t', '\v'. */ |
| 75 | |
| 76 | #define isupper(c) (__ctype[c] & __U) |
| 77 | /* non-0 iff c is an upper-case letter */ |
| 78 | |
| 79 | #define isxdigit(c) (__ctype[c] & (__N+__X)) |
| 80 | /* non-0 iff c is a digit, in 'a'..'f', or in 'A'..'F' */ |
| 81 | |
| 82 | #ifndef __cplusplus |
| 83 | extern int (isalnum)(int c); |
| 84 | extern int (isalpha)(int c); |
| 85 | extern int (iscntrl)(int c); |
| 86 | extern int (isdigit)(int c); |
| 87 | extern int (isgraph)(int c); |
| 88 | extern int (islower)(int c); |
| 89 | extern int (isprint)(int c); |
| 90 | extern int (ispunct)(int c); |
| 91 | extern int (isspace)(int c); |
| 92 | extern int (isupper)(int c); |
| 93 | extern int (isxdigit)(int c); |
| 94 | #endif |
| 95 | |
| 96 | #ifdef __cplusplus |
| 97 | extern "C" { |
| 98 | #endif |
| 99 | extern int tolower(int c); |
| 100 | /* if c is an upper-case letter then return the corresponding */ |
| 101 | /* lower-case letter, otherwise return c. */ |
| 102 | |
| 103 | extern int toupper(int c); |
| 104 | /* if c is an lower-case letter then return the corresponding */ |
| 105 | /* upper-case letter, otherwise return c. */ |
| 106 | #ifdef __cplusplus |
| 107 | } |
| 108 | #endif |
| 109 | |
| 110 | #endif |
| 111 | |
| 112 | /* end of ctype.h */ |