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