* Bell Telephone Laboratories
#define _LQU (T_QOT|T_ESC)
#define _DOL1 (T_SUB|T_ESC)
#define _AST (T_AST|T_FNG)
#define _MIN (T_DEF|T_SHN)
#define _PLS (T_DEF|T_SET)
#define _QU (T_DEF|T_FNG|T_SHN)
/* abbreviations for tests */
#define _IDCH (T_IDC|T_DIG)
#define _META (T_SPC|T_DIP|T_MET|T_EOR)
/* nb these args are not call by value !!!! */
#define space(c) (((c)"E)==0 ANDF _ctype1[c]&(T_SPC))
#define eofmeta(c) (((c)"E)==0 ANDF _ctype1[c]&(_META|T_EOF))
#define qotchar(c) (((c)"E)==0 ANDF _ctype1[c]&(T_QOT))
#define eolchar(c) (((c)"E)==0 ANDF _ctype1[c]&(T_EOR|T_EOF))
#define dipchar(c) (((c)"E)==0 ANDF _ctype1[c]&(T_DIP))
#define subchar(c) (((c)"E)==0 ANDF _ctype1[c]&(T_SUB|T_QOT))
#define escchar(c) (((c)"E)==0 ANDF _ctype1[c]&(T_ESC))
#define digit(c) (((c)"E)==0 ANDF _ctype2[c]&(T_DIG))
#define fngchar(c) (((c)"E)==0 ANDF _ctype2[c]&(T_FNG))
#define dolchar(c) (((c)"E)==0 ANDF _ctype2[c]&(T_AST|T_BRC|T_DIG|T_IDC|T_SHN))
#define defchar(c) (((c)"E)==0 ANDF _ctype2[c]&(T_DEF))
#define setchar(c) (((c)"E)==0 ANDF _ctype2[c]&(T_SET))
#define digchar(c) (((c)"E)==0 ANDF _ctype2[c]&(T_AST|T_DIG))
#define letter(c) (((c)"E)==0 ANDF _ctype2[c]&(T_IDC))
#define alphanum(c) (((c)"E)==0 ANDF _ctype2[c]&(_IDCH))
#define astchar(c) (((c)"E)==0 ANDF _ctype2[c]&(T_AST))