usr/src/bin/csh/char.h

/*-
 * Copyright (c) 1980, 1991 The Regents of the University of California.
 * All rights reserved.
 *
 * %sccs.include.redist.c%
 *
 *      @(#)char.h      5.6 (Berkeley) %G%
 */

#include <ctype.h>

extern unsigned short _cmap[];

#ifndef NLS
extern unsigned char _cmap_lower[], _cmap_upper[];

#endif

#define _Q      0x0001          /* '" */
#define _Q1     0x0002          /* ` */
#define _SP     0x0004          /* space and tab */
#define _NL     0x0008          /* \n */
#define _META   0x0010          /* lex meta characters, sp #'`";&<>()|\t\n */
#define _GLOB   0x0020          /* glob characters, *?{[` */
#define _ESC    0x0040          /* \ */
#define _DOL    0x0080          /* $ */
#define _DIG    0x0100          /* 0-9 */
#define _LET    0x0200          /* a-z, A-Z, _ */
#define _UP     0x0400          /* A-Z */
#define _LOW    0x0800          /* a-z */
#define _XD     0x1000          /* 0-9, a-f, A-F */
#define _CMD    0x2000          /* lex end of command chars, ;&(|` */
#define _CTR    0x4000          /* control */

#define cmap(c, bits)   \
        (((c) & QUOTE) ? 0 : (_cmap[(unsigned char)(c)] & (bits)))

#define isglob(c)       cmap(c, _GLOB)
#define isspc(c)        cmap(c, _SP)
#define ismeta(c)       cmap(c, _META)
#define iscmdmeta(c)    cmap(c, _CMD)
#define letter(c)       (((c) & QUOTE) ? 0 : \
                         (isalpha((unsigned char) (c)) || (c) == '_'))
#define alnum(c)        (((c) & QUOTE) ? 0 : \
                         (isalnum((unsigned char) (c)) || (c) == '_'))
#ifdef NLS
#define Isspace(c)      (((c) & QUOTE) ? 0 : isspace((unsigned char) (c)))
#define Isdigit(c)      (((c) & QUOTE) ? 0 : isdigit((unsigned char) (c)))
#define Isalpha(c)      (((c) & QUOTE) ? 0 : isalpha((unsigned char) (c)))
#define Islower(c)      (((c) & QUOTE) ? 0 : islower((unsigned char) (c)))
#define Isupper(c)      (((c) & QUOTE) ? 0 : isupper((unsigned char) (c)))
#define Tolower(c)      (((c) & QUOTE) ? 0 : tolower((unsigned char) (c)))
#define Toupper(c)      (((c) & QUOTE) ? 0 : toupper((unsigned char) (c)))
#define Isxdigit(c)     (((c) & QUOTE) ? 0 : isxdigit((unsigned char) (c)))
#define Isalnum(c)      (((c) & QUOTE) ? 0 : isalnum((unsigned char) (c)))
#define Iscntrl(c)      (((c) & QUOTE) ? 0 : iscntrl((unsigned char) (c)))
#define Isprint(c)      (((c) & QUOTE) ? 0 : isprint((unsigned char) (c)))
#else
#define Isspace(c)      cmap(c, _SP|_NL)
#define Isdigit(c)      cmap(c, _DIG)
#define Isalpha(c)      (cmap(c,_LET) && !(((c) & META) && AsciiOnly))
#define Islower(c)      (cmap(c,_LOW) && !(((c) & META) && AsciiOnly))
#define Isupper(c)      (cmap(c, _UP) && !(((c) & META) && AsciiOnly))
#define Tolower(c)  (_cmap_lower[(unsigned char)(c)])
#define Toupper(c)  (_cmap_upper[(unsigned char)(c)])
#define Isxdigit(c)     cmap(c, _XD)
#define Isalnum(c)      (cmap(c, _DIG|_LET) && !(((c) & META) && AsciiOnly))
#define Iscntrl(c)  (cmap(c,_CTR) && !(((c) & META) && AsciiOnly))
#define Isprint(c)  (!cmap(c,_CTR) && !(((c) & META) && AsciiOnly))
#endif