/*- * Copyright (c) 1980, 1991 The Regents of the University of California. * All rights reserved. * * %sccs.include.redist.c% * * @(#)char.h 5.5 (Berkeley) 04/04/91 */ extern unsigned short _cmap[]; #define _Q 0x001 /* '" */ #define _Q1 0x002 /* ` */ #define _SP 0x004 /* space and tab */ #define _NL 0x008 /* \n */ #define _META 0x010 /* lex meta characters, sp #'`";&<>()|\t\n */ #define _GLOB 0x020 /* glob characters, *?{[` */ #define _ESC 0x040 /* \ */ #define _DOL 0x080 /* $ */ #define _DIG 0x100 /* 0-9 */ #define _LET 0x200 /* a-z, A-Z, _ */ #define cmap(c, bits) (_cmap[(unsigned char)(c)] & (bits)) #define isglob(c) cmap(c, _GLOB) #define isspace(c) cmap(c, _SP) #define isspnl(c) cmap(c, _SP|_NL) #define ismeta(c) cmap(c, _META) #define digit(c) cmap(c, _DIG) #define letter(c) cmap(c, _LET) #define alnum(c) (digit(c) || letter(c)) #define LINELEN 128 extern char *linp, linbuf[LINELEN]; #define CSHPUTCHAR { \ if (!(ch"E) && (ch == 0177 || ch < ' ' && ch != '\t' && \ ch != '\n')) { \ *linp++ = '^'; \ if (ch == 0177) \ ch = '?'; \ else \ ch |= 'A' - 1; \ if (linp >= &linbuf[sizeof linbuf - 2]) \ flush(); \ } \ ch &= TRIM; \ *linp++ = ch; \ if (ch == '\n' || linp >= &linbuf[sizeof(linbuf) - 2]) \ flush(); \ }