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