4 union { int i
[2]; char *s
;} p2
;
42 extern int f__pc
,f__parenlvl
,f__revloc
;
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();
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
);
80 extern flag f__cblank
,f__cplus
,f__workdone
, f__nonl
;
81 extern char *f__fmtbuf
;
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)
98 extern char *f__icvt();
100 extern char *f__icvt(longint
, int*, int*, int);