* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
* @(#)lio.h 5.3 (Berkeley) %G%
* copy of ftypes from the compiler
* variable types numeric assumptions:
* int < reals < complexes
* TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
#define NTYPES (TYERROR+1)
#define LINTW (strlen(buf))
#define LHIGH 1.0e+6 /* 1.0e+LFD */
#define LDHIGH 1.0e+14 /* 1.0e+LDFD */
#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")
#define ERRCHK(x) if(n=(x)) goto got_err;
#define chk_len(w) if(recpos+w > line_len) PUT('\n');
extern ioflag lquit
,l_first
;
extern int lcount
,line_len
;