lio.h

Macros

LED               X
LEE               X
LEW               X
LFD               X
LFW               X
LHIGH             X
LINE              X
LINTW             X
LLOGW             X
LLOW              X
NTYPES            X
TYADDR            X
TYCHAR            X
TYCOMPLEX         X
TYDCOMPLEX        X
TYDREAL           X
TYERROR           X
TYLOGICAL         X
TYLONG            X
TYREAL            X
TYSHORT           X
TYSUBR            X
TYUNKNOWN         X

   1: /*	copy of ftypes from the compiler */
   2: /* variable types
   3:  * numeric assumptions:
   4:  *	int < reals < complexes
   5:  *	TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
   6:  */
   7: 
   8: #define TYUNKNOWN 0
   9: #define TYADDR 1
  10: #define TYSHORT 2
  11: #define TYLONG 3
  12: #define TYREAL 4
  13: #define TYDREAL 5
  14: #define TYCOMPLEX 6
  15: #define TYDCOMPLEX 7
  16: #define TYLOGICAL 8
  17: #define TYCHAR 9
  18: #define TYSUBR 10
  19: #define TYERROR 11
  20: 
  21: #define NTYPES (TYERROR+1)
  22: 
  23: #define LINTW   12
  24: #define LINE    80
  25: #define LLOGW   2
  26: #define LLOW    1.0
  27: #define LHIGH   10.0
  28: #define LFW 12
  29: #define LFD 8
  30: #define LEW 16
  31: #define LED 9
  32: #define LEE 2
  33: 
  34: typedef union
  35: {   short   flshort;
  36:     ftnint  flint;
  37:     float   flreal;
  38:     double  fldouble;
  39: } flex;
  40: extern int scale;
  41: extern int (*lioproc)();