1 struct syl 2 { int op; 3 int p1; 4 union { int i[2]; char *s;} p2; 5 }; 6 #define RET1 1 7 #define REVERT 2 8 #define GOTO 3 9 #define X 4 10 #define SLASH 5 11 #define STACK 6 12 #define I 7 13 #define ED 8 14 #define NED 9 15 #define IM 10 16 #define APOS 11 17 #define H 12 18 #define TL 13 19 #define TR 14 20 #define T 15 21 #define COLON 16 22 #define S 17 23 #define SP 18 24 #define SS 19 25 #define P 20 26 #define BN 21 27 #define BZ 22 28 #define F 23 29 #define E 24 30 #define EE 25 31 #define D 26 32 #define G 27 33 #define GE 28 34 #define L 29 35 #define A 30 36 #define AW 31 37 #define O 32 38 #define NONL 33 39 #define OM 34 40 #define Z 35 41 #define ZM 36 42 extern int f__pc,f__parenlvl,f__revloc; 43 typedef union 44 { real pf; 45 doublereal pd; 46 } ufloat; 47 typedef union 48 { short is; 49 #ifndef KR_headers 50 signed 51 #endif 52 char ic; 53 integer il; 54 #ifdef Allow_TYQUAD 55 longint ili; 56 #endif 57 } Uint; 58 #ifdef KR_headers 59 extern int (*f__doed)(),(*f__doned)(); 60 extern int (*f__dorevert)(); 61 extern int rd_ed(),rd_ned(); 62 extern int w_ed(),w_ned(); 63 extern int signbit_f2c(); 64 #else 65 #ifdef __cplusplus 66 extern "C" { 67 #define Cextern extern "C" 68 #else 69 #define Cextern extern 70 #endif 71 extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*); 72 extern int (*f__dorevert)(void); 73 extern void fmt_bg(void); 74 extern int pars_f(char*); 75 extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*); 76 extern int signbit_f2c(double*); 77 extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*); 78 extern int wrt_E(ufloat*, int, int, int, ftnlen); 79 extern int wrt_F(ufloat*, int, int, ftnlen); 80 extern int wrt_L(Uint*, int, ftnlen); 81 #ifdef __cplusplus 82 } 83 #endif 84 #endif 85 extern flag f__cblank,f__cplus,f__workdone, f__nonl; 86 extern char *f__fmtbuf; 87 extern int f__scale; 88 #define GET(x) if((x=(*f__getn)())<0) return(x) 89 #define VAL(x) (x!='\n'?x:' ') 90 #define PUT(x) (*f__putn)(x) 91 92 #undef TYQUAD 93 #ifndef Allow_TYQUAD 94 #undef longint 95 #define longint long 96 #else 97 #define TYQUAD 14 98 #endif 99 100 #ifdef KR_headers 101 extern char *f__icvt(); 102 #else 103 Cextern char *f__icvt(longint, int*, int*, int); 104 #endif 105