#define FATAL 0
#define NFATAL 1
#define BLK sizeof (struct blk)
#define PTRSZ sizeof (int *)
#define HEADSZ 1024
#define STKSZ 100
#define RDSKSZ 100
#define TBLSZ 256
#define ARRAYST 0241
#define NL 1
#define NG 2
#define NE 3
#define length(p) ((p)->wt-(p)->beg)
#define rewind(p) ((p)->rd = (p)->beg)
#define create(p) ((p)->rd = (p)->wt = (p)->beg)
#define fsfile(p) ((p)->rd = (p)->wt)
#define truncate(p) ((p)->wt = (p)->rd)
#define sfeof(p) (((p)->rd >= (p)->wt) ? 1 : 0)
#define sfbeg(p) (((p)->rd == (p)->beg) ? 1 : 0)
#define sungetc(p, c) (*(--(p)->rd) = c)
#define sgetc(p) (((p)->rd == (p)->wt) ? EOF: ctoint((int)*(p)->rd++))
#define slookc(p) (((p)->rd == (p)->wt) ? EOF: ctoint((int)*(p)->rd))
#define sbackc(p) (((p)->rd == (p)->beg) ? EOF: ctoint((int)*(--(p)->rd)))
#define sputc(p, c) {if ((p)->wt == (p)->last) more(p); *(p)->wt++ = c; }
#define salterc(p, c) {if ((p)->rd == (p)->last) more(p); *(p)->rd++ = c;\
if ((p)->rd > (p)->wt) (p)->wt = (p)->rd; }
#define sunputc(p) (*((p)->rd = --(p)->wt))
#define zero(p) for (pp = (p)->beg; pp < (p)->last; ) *pp++ = '\0'
#define OUTC(x) {printf("%c", x); if (--count == 0)\
{printf("\\\n"); count = ll; } }
#define TEST2 {if ((count -= 2) <= 0) {printf("\\\n"); count = ll; } }
#define PRINT_MESSAGE printf(gettext("stack empty\n"))
#define EMPTY if (stkerr != 0) {PRINT_MESSAGE; continue; }
#define EMPTYR(x) if (stkerr != 0) {pushp(x); PRINT_MESSAGE; continue; }
#define EMPTYS if (stkerr != 0) {PRINT_MESSAGE; return (1); }
#define EMPTYSR(x) if (stkerr != 0) {PRINT_MESSAGE; pushp(x); return (1); }
#define CHECKEND { \
if (count == 2) { \
printf("\\\n"); \
count = ll; \
} \
}
#define error(p) {printf(p); continue; }
#define errorrt(p) {printf(p); return (1); }
struct blk {
char *rd;
char *wt;
char *beg;
char *last;
};
struct wblk {
struct blk **rdw;
struct blk **wtw;
struct blk **begw;
struct blk **lastw;
};
struct blk *hfree;
struct blk *getwd(struct blk *);
struct blk *lookwd(struct blk *);
struct blk *getdec(struct blk *, int);
struct blk *morehd(void);
struct blk *arg1, *arg2;
int svargc;
char savk;
char **svargv;
int dbg;
int ifile;
FILE *curfile;
struct blk *scalptr, *basptr, *tenptr, *inbas;
struct blk *sqtemp, *chptr, *strptr, *divxyz;
struct blk *stack[STKSZ];
struct blk **stkptr, **stkbeg;
struct blk **stkend;
int stkerr;
int lastchar;
struct blk *readstk[RDSKSZ];
struct blk **readptr;
struct blk *rem;
int k;
struct blk *irem;
int skd, skr;
struct blk *pop(void), *readin(void), *add0(struct blk *, int),
*mult(struct blk *, struct blk *);
struct blk *scalint(struct blk *);
struct blk *removc(struct blk *, int);
struct blk *add(struct blk *, struct blk *),
*dcdiv(struct blk *, struct blk *), *removr(struct blk *, int);
struct blk *exp(struct blk *, struct blk *);
struct blk *sqrt(struct blk *);
struct blk *salloc(int), *copy(struct blk *, int);
struct blk *scale(struct blk *, int);
void commnds(void);
void init(int, char **);
void pushp(struct blk *p);
void chsign(struct blk *p);
char readc(void);
void unreadc(char);
void binop(char);
void print(struct blk *hptr);
void tenot(struct blk *p, int sc);
void oneot(struct blk *p, int sc, char ch);
void seekc(struct blk *hptr, int n);
void ospace(char *s);
void garbage(char *s);
void more(struct blk *hptr);
int cond(char c);
void load(void);
void sdump(char *s1, struct blk *hptr);
void salterwd(struct wblk *hptr, struct blk *n);
void redef(struct blk *p);
void release(struct blk *p);
void putwd(struct blk *p, struct blk *c);
int neg;
struct sym {
struct sym *next;
struct blk *val;
} symlst[TBLSZ];
struct sym *stable[TBLSZ];
struct sym *sptr, *sfree;
FILE *fsave;
long rel;
long nbytes;
long all;
long headmor;
long obase;
int fw, fw1, ll;
void (*outdit)(struct blk *, int);
void bigot(struct blk *, int), hexot(struct blk *, int);
int logo;
int log10;
int count;
char *pp;
void onintr(int);
char *nalloc(char *, unsigned int);
char *dummy;
