/* copy of ftypes from the compiler */
* int < reals < complexes
* TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
#define NTYPES (TYERROR+1)
#define LINTW (strlen(buf))
#define LCW (width(a)+width(b)+5)
#define LDCW (dwidth(a)+dwidth(b)+5)
#define abs(z) (z<0?-z:z)
#define width(z) ((z!=0.0 && (abs(z)>=LHIGH || abs(z)<LLOW))?LEW:LFW)
#define dwidth(z) ((z!=0.0 && (abs(z)>=LDHIGH || abs(z)<LLOW))?LDEW:LDFW)
#define ERR(x) if(n=(x)) err(n>0?errflag:endflag,n,"list io")
extern ioflag lquit
,l_first
;
extern int lcount
,line_len
;