1: /*
   2:  * Copyright (c) 1980 Regents of the University of California.
   3:  * All rights reserved.  The Berkeley software License Agreement
   4:  * specifies the terms and conditions for redistribution.
   5:  *
   6:  *	@(#)lio.h	5.2 (Berkeley) 7/30/85
   7:  */
   8: 
   9: /*
  10:  * copy of ftypes from the compiler
  11:  * variable types numeric assumptions:
  12:  *	int < reals < complexes
  13:  *	TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
  14:  */
  15: 
  16: #define TYUNKNOWN 0
  17: #define TYADDR 1
  18: #define TYSHORT 2
  19: #define TYLONG 3
  20: #define TYREAL 4
  21: #define TYDREAL 5
  22: #define TYCOMPLEX 6
  23: #define TYDCOMPLEX 7
  24: #define TYLOGICAL 8
  25: #define TYCHAR 9
  26: #define TYSUBR 10
  27: #define TYERROR 11
  28: 
  29: #define NTYPES (TYERROR+1)
  30: 
  31: #define LINE    80
  32: #define LINTW   (strlen(buf))
  33: #define LLOGW   3
  34: #define LSTRW   (len+2)
  35: #define LLOW    1.0e-1
  36: #define LHIGH   1.0e+LFD
  37: #define LDHIGH  1.0e+LDFD
  38: #define LFD 6
  39: #define LFW (LFD+4)
  40: #define LDFD    14
  41: #define LDFW    (LDFD+4)
  42: #define LED LFD
  43: #define LEW LFW+4
  44: #define LEE 2
  45: #define LDED    LDFD
  46: #define LDEW    LDFW+4
  47: #define LDEE    2
  48: #define LCW (width(a)+width(b)+5)
  49: #define LDCW    (dwidth(a)+dwidth(b)+5)
  50: 
  51: #define abs(z)  (z<0?-z:z)
  52: #define width(z) ((z!=0.0 && (abs(z)>=LHIGH || abs(z)<LLOW))?LEW:LFW)
  53: #define dwidth(z) ((z!=0.0 && (abs(z)>=LDHIGH || abs(z)<LLOW))?LDEW:LDFW)
  54: #define ERR(x)  if(n=(x)) err(n>0?errflag:endflag,n,"list io")
  55: #define ERRCHK(x)   if(n=(x)) goto got_err;
  56: #define chk_len(w) if(recpos+w > line_len) PUT('\n');
  57: 
  58: typedef union
  59: {   short   flshort;
  60:     ftnint  flint;
  61:     float   flreal;
  62:     double  fldouble;
  63: } flex;
  64: 
  65: extern int (*lioproc)();
  66: extern flag leof;
  67: extern ioflag lquit,l_first;
  68: extern int lcount,line_len;

Defined macros

ERR defined in line 54; used 5 times
ERRCHK defined in line 55; used 7 times
LCW defined in line 48; used 1 times
LDCW defined in line 49; used 1 times
LDED defined in line 45; used 1 times
LDEE defined in line 47; used 1 times
LDEW defined in line 46; used 2 times
LDFD defined in line 40; used 4 times
LDFW defined in line 41; used 4 times
LDHIGH defined in line 37; used 1 times
  • in line 53
LED defined in line 42; used 1 times
LEE defined in line 44; used 1 times
LEW defined in line 43; used 2 times
LFD defined in line 38; used 4 times
LFW defined in line 39; used 4 times
LHIGH defined in line 36; used 1 times
  • in line 52
LINE defined in line 31; used 2 times
LINTW defined in line 32; used 1 times
LLOGW defined in line 33; used 2 times
LLOW defined in line 35; used 2 times
LSTRW defined in line 34; used 1 times
NTYPES defined in line 29; never used
TYADDR defined in line 17; never used
TYCHAR defined in line 25; used 2 times
TYDCOMPLEX defined in line 23; never used
TYDREAL defined in line 21; never used
TYERROR defined in line 27; used 1 times
  • in line 29
TYLONG defined in line 19; used 2 times
TYREAL defined in line 20; never used
TYSHORT defined in line 18; never used
TYSUBR defined in line 26; never used
TYUNKNOWN defined in line 16; never used
abs defined in line 51; used 6 times
chk_len defined in line 56; used 9 times
dwidth defined in line 53; used 3 times
width defined in line 52; used 3 times

Usage of this include

Last modified: 1985-07-31
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 1532
Valid CSS Valid XHTML 1.0 Strict