BSD 4_1c_2 release

[unix-history] / usr / src / usr.bin / dc / dc.h

/*
*      @(#)dc.h        1.1     (Berkeley)      2/11/83
*/
#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 MAXIND 2048
#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
#ifdef interdata
#define NEGBYTE 0200
#define MASK (-1 & ~0377)
#define sgetc(p)        ( ((p)->rd==(p)->wt) ? EOF :( ((*(p)->rd & NEGBYTE) != 0) ? ( *(p)->rd++ | MASK): *(p)->rd++ ))
#define slookc(p)       ( ((p)->rd==(p)->wt) ? EOF :( ((*(p)->rd & NEGBYTE) != 0) ? (*(p)->rd | MASK) : *(p)->rd ))
#define sbackc(p)       ( ((p)->rd==(p)->beg) ? EOF :( ((*(--(p)->rd) & NEGBYTE) != 0) ? (*(p)->rd | MASK): *(p)->rd ))
#endif
#ifndef interdata
#define sgetc(p)        (((p)->rd==(p)->wt)?EOF:*(p)->rd++)
#define slookc(p)       (((p)->rd==(p)->wt)?EOF:*(p)->rd)
#define sbackc(p)       (((p)->rd==(p)->beg)?EOF:*(--(p)->rd))
#endif
#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 EMPTY if(stkerr != 0){printf("stack empty\n"); continue; }
#define EMPTYR(x) if(stkerr!=0){pushp(x);printf("stack empty\n");continue;}
#define EMPTYS if(stkerr != 0){printf("stack empty\n"); return(1);}
#define EMPTYSR(x) if(stkerr !=0){printf("stack empty\n");pushp(x);return(1);}
#define error(p)        {printf(p); continue; }
#define errorrt(p)      {printf(p); return(1); }
struct blk {
       char    *rd;
       char    *wt;
       char    *beg;
       char    *last;
};
struct  blk *hfree;
struct  blk *getwd();
struct  blk *lookwd();
struct  blk *getdec();
struct  blk *morehd();

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(),*readin(),*add0(),*mult();
struct  blk *scalint();
struct  blk *removc();
struct  blk *add(),*div(),*removr();
struct  blk *exp();
struct  blk *sqrt();
struct  blk *salloc(),*copy();
struct  blk *scale();
int     neg;
struct  sym {
       struct  sym *next;
       struct  blk *val;
} symlst[TBLSZ];
struct  sym *stable[TBLSZ];
struct  sym *sptr,*sfree;
struct  wblk {
       struct blk **rdw;
       struct blk **wtw;
       struct blk **begw;
       struct blk **lastw;
};
FILE    *fsave;
long    rel;
long    nbytes;
long    all;
long    headmor;
long    obase;
int     fw,fw1,ll;
int     (*outdit)();
int     bigot(),hexot();
int     logo;
int     log10;
int     count;
char    *pp;
int     (*signal())();
int     onintr();
char    *malloc();
char    *nalloc();
char    *realloc();
char    *dummy;