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);