projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| ecc449eb KB |
1 | /*- |
| 2 | * Copyright (c) 1980, 1991 The Regents of the University of California. | |
| 3 | * All rights reserved. | |
| b79f4fa9 | 4 | * |
| af359dea C |
5 | * Redistribution and use in source and binary forms, with or without |
| 6 | * modification, are permitted provided that the following conditions | |
| 7 | * are met: | |
| 8 | * 1. Redistributions of source code must retain the above copyright | |
| 9 | * notice, this list of conditions and the following disclaimer. | |
| 10 | * 2. Redistributions in binary form must reproduce the above copyright | |
| 11 | * notice, this list of conditions and the following disclaimer in the | |
| 12 | * documentation and/or other materials provided with the distribution. | |
| 13 | * 3. All advertising materials mentioning features or use of this software | |
| 14 | * must display the following acknowledgement: | |
| 15 | * This product includes software developed by the University of | |
| 16 | * California, Berkeley and its contributors. | |
| 17 | * 4. Neither the name of the University nor the names of its contributors | |
| 18 | * may be used to endorse or promote products derived from this software | |
| 19 | * without specific prior written permission. | |
| ecc449eb | 20 | * |
| af359dea C |
21 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND |
| 22 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |
| 23 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |
| 24 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | |
| 25 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |
| 26 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |
| 27 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
| 28 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | |
| 29 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | |
| 30 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | |
| 31 | * SUCH DAMAGE. | |
| 32 | * | |
| 33 | * @(#)char.h 5.6 (Berkeley) 6/4/91 | |
| 13a4113c EW |
34 | */ |
| 35 | ||
| af359dea C |
36 | #include <ctype.h> |
| 37 | ||
| c2dc294d | 38 | extern unsigned short _cmap[]; |
| 13a4113c | 39 | |
| af359dea C |
40 | #ifndef NLS |
| 41 | extern unsigned char _cmap_lower[], _cmap_upper[]; | |
| ff4a8f19 | 42 | |
| af359dea | 43 | #endif |
| ff4a8f19 | 44 | |
| af359dea C |
45 | #define _Q 0x0001 /* '" */ |
| 46 | #define _Q1 0x0002 /* ` */ | |
| 47 | #define _SP 0x0004 /* space and tab */ | |
| 48 | #define _NL 0x0008 /* \n */ | |
| 49 | #define _META 0x0010 /* lex meta characters, sp #'`";&<>()|\t\n */ | |
| 50 | #define _GLOB 0x0020 /* glob characters, *?{[` */ | |
| 51 | #define _ESC 0x0040 /* \ */ | |
| 52 | #define _DOL 0x0080 /* $ */ | |
| 53 | #define _DIG 0x0100 /* 0-9 */ | |
| 54 | #define _LET 0x0200 /* a-z, A-Z, _ */ | |
| 55 | #define _UP 0x0400 /* A-Z */ | |
| 56 | #define _LOW 0x0800 /* a-z */ | |
| 57 | #define _XD 0x1000 /* 0-9, a-f, A-F */ | |
| 58 | #define _CMD 0x2000 /* lex end of command chars, ;&(|` */ | |
| 59 | #define _CTR 0x4000 /* control */ | |
| 13a4113c | 60 | |
| af359dea C |
61 | #define cmap(c, bits) \ |
| 62 | (((c) & QUOTE) ? 0 : (_cmap[(unsigned char)(c)] & (bits))) | |
| 13a4113c | 63 | |
| af359dea C |
64 | #define isglob(c) cmap(c, _GLOB) |
| 65 | #define isspc(c) cmap(c, _SP) | |
| 66 | #define ismeta(c) cmap(c, _META) | |
| 67 | #define iscmdmeta(c) cmap(c, _CMD) | |
| 68 | #define letter(c) (((c) & QUOTE) ? 0 : \ | |
| 69 | (isalpha((unsigned char) (c)) || (c) == '_')) | |
| 70 | #define alnum(c) (((c) & QUOTE) ? 0 : \ | |
| 71 | (isalnum((unsigned char) (c)) || (c) == '_')) | |
| 72 | #ifdef NLS | |
| 73 | #define Isspace(c) (((c) & QUOTE) ? 0 : isspace((unsigned char) (c))) | |
| 74 | #define Isdigit(c) (((c) & QUOTE) ? 0 : isdigit((unsigned char) (c))) | |
| 75 | #define Isalpha(c) (((c) & QUOTE) ? 0 : isalpha((unsigned char) (c))) | |
| 76 | #define Islower(c) (((c) & QUOTE) ? 0 : islower((unsigned char) (c))) | |
| 77 | #define Isupper(c) (((c) & QUOTE) ? 0 : isupper((unsigned char) (c))) | |
| 78 | #define Tolower(c) (((c) & QUOTE) ? 0 : tolower((unsigned char) (c))) | |
| 79 | #define Toupper(c) (((c) & QUOTE) ? 0 : toupper((unsigned char) (c))) | |
| 80 | #define Isxdigit(c) (((c) & QUOTE) ? 0 : isxdigit((unsigned char) (c))) | |
| 81 | #define Isalnum(c) (((c) & QUOTE) ? 0 : isalnum((unsigned char) (c))) | |
| 82 | #define Iscntrl(c) (((c) & QUOTE) ? 0 : iscntrl((unsigned char) (c))) | |
| 83 | #define Isprint(c) (((c) & QUOTE) ? 0 : isprint((unsigned char) (c))) | |
| 84 | #else | |
| 85 | #define Isspace(c) cmap(c, _SP|_NL) | |
| 86 | #define Isdigit(c) cmap(c, _DIG) | |
| 87 | #define Isalpha(c) (cmap(c,_LET) && !(((c) & META) && AsciiOnly)) | |
| 88 | #define Islower(c) (cmap(c,_LOW) && !(((c) & META) && AsciiOnly)) | |
| 89 | #define Isupper(c) (cmap(c, _UP) && !(((c) & META) && AsciiOnly)) | |
| 90 | #define Tolower(c) (_cmap_lower[(unsigned char)(c)]) | |
| 91 | #define Toupper(c) (_cmap_upper[(unsigned char)(c)]) | |
| 92 | #define Isxdigit(c) cmap(c, _XD) | |
| 93 | #define Isalnum(c) (cmap(c, _DIG|_LET) && !(((c) & META) && AsciiOnly)) | |
| 94 | #define Iscntrl(c) (cmap(c,_CTR) && !(((c) & META) && AsciiOnly)) | |
| 95 | #define Isprint(c) (!cmap(c,_CTR) && !(((c) & META) && AsciiOnly)) | |
| 96 | #endif |