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 #else 64 #ifdef __cplusplus 65 extern "C" { 66 #endif 67 extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*); 68 extern int (*f__dorevert)(void); 69 extern void fmt_bg(void); 70 extern int pars_f(char*); 71 extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*); 72 extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*); 73 extern int wrt_E(ufloat*, int, int, int, ftnlen); 74 extern int wrt_F(ufloat*, int, int, ftnlen); 75 extern int wrt_L(Uint*, int, ftnlen); 76 #ifdef __cplusplus 77 } 78 #endif 79 #endif 80 extern flag f__cblank,f__cplus,f__workdone, f__nonl; 81 extern char *f__fmtbuf; 82 extern int f__scale; 83 #define GET(x) if((x=(*f__getn)())<0) return(x) 84 #define VAL(x) (x!='\n'?x:' ') 85 #define PUT(x) (*f__putn)(x) 86 extern int f__cursor; 87 88 #undef TYQUAD 89 #ifndef Allow_TYQUAD 90 #undef longint 91 #define longint long 92 #else 93 #define TYQUAD 14 94 #endif 95 96 #ifdef KR_headers 97 extern char *f__icvt(); 98 #else 99 extern char *f__icvt(longint, int*, int*, int); 100 #endif 101