lang/fortran/lib/libI77/fmt.h

   1 struct syl
   2 {       int op,p1,p2,p3;
   3 };
   4 #define RET 1
   5 #define REVERT 2
   6 #define GOTO 3
   7 #define X 4
   8 #define SLASH 5
   9 #define STACK 6
  10 #define I 7
  11 #define ED 8
  12 #define NED 9
  13 #define IM 10
  14 #define APOS 11
  15 #define H 12
  16 #define TL 13
  17 #define TR 14
  18 #define T 15
  19 #define COLON 16
  20 #define S 17
  21 #define SP 18
  22 #define SS 19
  23 #define P 20
  24 #define BN 21
  25 #define BZ 22
  26 #define F 23
  27 #define E 24
  28 #define EE 25
  29 #define D 26
  30 #define G 27
  31 #define GE 28
  32 #define L 29
  33 #define A 30
  34 #define AW 31
  35 #define O 32
  36 #define NONL 33
  37 extern struct syl syl[];
  38 extern int pc,parenlvl,revloc;
  39 extern int (*doed)(),(*doned)();
  40 extern int (*dorevert)(),(*donewrec)(),(*doend)();
  41 extern flag cblank,cplus,workdone, nonl;
  42 extern int dummy();
  43 extern char *fmtbuf;
  44 extern int scale;
  45 typedef union
  46 {       real pf;
  47         doublereal pd;
  48 } ufloat;
  49 typedef union
  50 {       short is;
  51         char ic;
  52         long il;
  53 } uint;
  54 #define GET(x) if((x=(*getn)())<0) return(x)
  55 #define VAL(x) (x!='\n'?x:' ')
  56 #define PUT(x) (*putn)(x)
  57 extern int cursor;