1994-10-26 18:15:35 +00:00
|
|
|
struct syl
|
|
|
|
|
{ int op,p1,p2,p3;
|
|
|
|
|
};
|
|
|
|
|
#define RET1 1
|
|
|
|
|
#define REVERT 2
|
|
|
|
|
#define GOTO 3
|
|
|
|
|
#define X 4
|
|
|
|
|
#define SLASH 5
|
|
|
|
|
#define STACK 6
|
|
|
|
|
#define I 7
|
|
|
|
|
#define ED 8
|
|
|
|
|
#define NED 9
|
|
|
|
|
#define IM 10
|
|
|
|
|
#define APOS 11
|
|
|
|
|
#define H 12
|
|
|
|
|
#define TL 13
|
|
|
|
|
#define TR 14
|
|
|
|
|
#define T 15
|
|
|
|
|
#define COLON 16
|
|
|
|
|
#define S 17
|
|
|
|
|
#define SP 18
|
|
|
|
|
#define SS 19
|
|
|
|
|
#define P 20
|
|
|
|
|
#define BN 21
|
|
|
|
|
#define BZ 22
|
|
|
|
|
#define F 23
|
|
|
|
|
#define E 24
|
|
|
|
|
#define EE 25
|
|
|
|
|
#define D 26
|
|
|
|
|
#define G 27
|
|
|
|
|
#define GE 28
|
|
|
|
|
#define L 29
|
|
|
|
|
#define A 30
|
|
|
|
|
#define AW 31
|
|
|
|
|
#define O 32
|
|
|
|
|
#define NONL 33
|
|
|
|
|
#define OM 34
|
|
|
|
|
#define Z 35
|
|
|
|
|
#define ZM 36
|
|
|
|
|
extern struct syl f__syl[];
|
|
|
|
|
extern int f__pc,f__parenlvl,f__revloc;
|
|
|
|
|
typedef union
|
|
|
|
|
{ real pf;
|
|
|
|
|
doublereal pd;
|
|
|
|
|
} ufloat;
|
|
|
|
|
typedef union
|
|
|
|
|
{ short is;
|
|
|
|
|
char ic;
|
|
|
|
|
integer il;
|
|
|
|
|
#ifdef Allow_TYQUAD
|
|
|
|
|
longint ili;
|
|
|
|
|
#endif
|
|
|
|
|
} Uint;
|
|
|
|
|
#ifdef KR_headers
|
|
|
|
|
extern int (*f__doed)(),(*f__doned)();
|
|
|
|
|
extern int (*f__dorevert)();
|
|
|
|
|
extern int rd_ed(),rd_ned();
|
|
|
|
|
extern int w_ed(),w_ned();
|
|
|
|
|
#else
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
|
extern "C" {
|
|
|
|
|
#endif
|
|
|
|
|
extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*);
|
|
|
|
|
extern int (*f__dorevert)(void);
|
|
|
|
|
extern void fmt_bg(void);
|
|
|
|
|
extern int pars_f(char*);
|
|
|
|
|
extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*);
|
|
|
|
|
extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*);
|
|
|
|
|
extern int wrt_E(ufloat*, int, int, int, ftnlen);
|
|
|
|
|
extern int wrt_F(ufloat*, int, int, ftnlen);
|
|
|
|
|
extern int wrt_L(Uint*, int, ftnlen);
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
extern flag f__cblank,f__cplus,f__workdone, f__nonl;
|
|
|
|
|
extern char *f__fmtbuf;
|
|
|
|
|
extern int f__scale;
|
|
|
|
|
#define GET(x) if((x=(*f__getn)())<0) return(x)
|
|
|
|
|
#define VAL(x) (x!='\n'?x:' ')
|
|
|
|
|
#define PUT(x) (*f__putn)(x)
|
|
|
|
|
extern int f__cursor;
|
1995-09-28 20:49:15 +00:00
|
|
|
|
|
|
|
|
#undef TYQUAD
|
|
|
|
|
#ifndef Allow_TYQUAD
|
|
|
|
|
#undef longint
|
|
|
|
|
#define longint long
|
|
|
|
|
#else
|
|
|
|
|
#define TYQUAD 14
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef KR_headers
|
|
|
|
|
extern char *f__icvt();
|
|
|
|
|
#else
|
|
|
|
|
extern char *f__icvt(longint, int*, int*, int);
|
|
|
|
|
#endif
|
