A cleaner fix to previous.

Obtained from:bde@freebsd.org
This commit is contained in:
Matt Jacob 2000-01-27 07:58:27 +00:00
parent c89d070648
commit e6d26e0a6f
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=56666

View File

@ -46,14 +46,17 @@
#define SETLINE {++lineno;lineftell = ftell(inf);}
#define GETC(op,exp) ((c = getc(inf)) op (int)exp)
#define _egrd(idx, array) \
(((int)idx < 0)? NO : array [ (int) idx ])
/*
* Assumes that the last element is always 'NO',
* as the EOF return from stdio get overlaid to
* that entry.
*/
#define iswhite(arg) _egrd(arg, _wht) /* T if char is white */
#define begtoken(arg) _egrd(arg, _btk) /* T if char can start token */
#define intoken(arg) _egrd(arg, _itk) /* T if char can be in token */
#define endtoken(arg) _egrd(arg, _etk) /* T if char ends tokens */
#define isgood(arg) _egrd(arg, _gd) /* T if char can be after ')' */
#define iswhite(arg) _wht[arg & 0xff] /* T if char is white */
#define begtoken(arg) _btk[arg & 0xff] /* T if char can start token */
#define intoken(arg) _itk[arg & 0xff] /* T if char can be in token */
#define endtoken(arg) _etk[arg & 0xff] /* T if char ends tokens */
#define isgood(arg) _gd[arg & 0xff] /* T if char can be after ')' */
typedef struct nd_st { /* sorting structure */
struct nd_st *left,