Return to dc.h CVS log

Up to [Research Unix] / researchv10no / cmd / dc

Annotation of researchv10no/cmd/dc/dc.h, revision 1.1

1.1     ! root        1: #define FATAL 0
        !             2: #define NFATAL 1
        !             3: #define BLK sizeof(struct blk)
        !             4: #define PTRSZ sizeof(int *)
        !             5: #define HEADSZ 1024
        !             6: #define STKSZ 100
        !             7: #define RDSKSZ 100
        !             8: #define TBLSZ 256
        !             9: #define ARRAYST 0241
        !            10: #define MAXIND 2048
        !            11: #define NL 1
        !            12: #define NG 2
        !            13: #define NE 3
        !            14: #define length(p) ((p)->wt-(p)->beg)
        !            15: #define rewind(p) (p)->rd=(p)->beg
        !            16: #define create(p)      (p)->rd = (p)->wt = (p)->beg
        !            17: #define fsfile(p)      (p)->rd = (p)->wt
        !            18: #define truncate(p)    (p)->wt = (p)->rd
        !            19: #define sfeof(p)       (((p)->rd==(p)->wt)?1:0)
        !            20: #define sfbeg(p)       (((p)->rd==(p)->beg)?1:0)
        !            21: #define sungetc(p,c)   *(--(p)->rd)=c
        !            22: #ifdef interdata
        !            23: #define NEGBYTE 0200
        !            24: #define MASK (-1 & ~0377)
        !            25: #define sgetc(p)       ( ((p)->rd==(p)->wt) ? EOF :( ((*(p)->rd & NEGBYTE) != 0) ? ( *(p)->rd++ | MASK): *(p)->rd++ ))
        !            26: #define slookc(p)      ( ((p)->rd==(p)->wt) ? EOF :( ((*(p)->rd & NEGBYTE) != 0) ? (*(p)->rd | MASK) : *(p)->rd ))
        !            27: #define sbackc(p)      ( ((p)->rd==(p)->beg) ? EOF :( ((*(--(p)->rd) & NEGBYTE) != 0) ? (*(p)->rd | MASK): *(p)->rd ))
        !            28: #endif
        !            29: #ifndef interdata
        !            30: #define sgetc(p)       (((p)->rd==(p)->wt)?EOF:*(p)->rd++)
        !            31: #define slookc(p)      (((p)->rd==(p)->wt)?EOF:*(p)->rd)
        !            32: #define sbackc(p)      (((p)->rd==(p)->beg)?EOF:*(--(p)->rd))
        !            33: #endif
        !            34: #define sputc(p,c)     {if((p)->wt==(p)->last)more(p); *(p)->wt++ = c; }
        !            35: #define salterc(p,c)   {if((p)->rd==(p)->last)more(p); *(p)->rd++ = c; if((p)->rd>(p)->wt)(p)->wt=(p)->rd;}
        !            36: #define sunputc(p)     (*( (p)->rd = --(p)->wt))
        !            37: #define zero(p)        for(pp=(p)->beg;pp<(p)->last;)*pp++='\0'
        !            38: #define OUTC(x) {putchar(x); if(--count == 0){printf("\\\n"); count=ll;} }
        !            39: #define TEST2  {if((count -= 2) <=0){printf("\\\n");count=ll;}}
        !            40: #define EMPTY if(stkerr != 0){printf("stack empty\n"); continue; }
        !            41: #define EMPTYR(x) if(stkerr!=0){pushp(x);printf("stack empty\n");continue;}
        !            42: #define EMPTYS if(stkerr != 0){printf("stack empty\n"); return(1);}
        !            43: #define EMPTYSR(x) if(stkerr !=0){printf("stack empty\n");pushp(x);return(1);}
        !            44: #define error(p)       {printf(p); continue; }
        !            45: #define errorrt(p)     {printf(p); return(1); }
        !            46: struct blk {
        !            47:        char    *rd;
        !            48:        char    *wt;
        !            49:        char    *beg;
        !            50:        char    *last;
        !            51: };
        !            52: struct blk *hfree;
        !            53: struct blk *getwd();
        !            54: struct blk *lookwd();
        !            55: struct blk *getdec();
        !            56: struct blk *morehd();
        !            57: 
        !            58: struct blk *arg1, *arg2;
        !            59: int    svargc;
        !            60: unsigned char  savk;
        !            61: char   **svargv;
        !            62: int    dbg;
        !            63: int    ifile;
        !            64: FILE   *curfile;
        !            65: struct blk *scalptr, *basptr, *tenptr, *inbas;
        !            66: struct blk *sqtemp, *chptr, *strptr, *divxyz;
        !            67: struct blk *stack[STKSZ];
        !            68: struct blk **stkptr,**stkbeg;
        !            69: struct blk **stkend;
        !            70: int    stkerr;
        !            71: int    lastchar;
        !            72: struct blk *readstk[RDSKSZ];
        !            73: struct blk **readptr;
        !            74: struct blk *rem;
        !            75: int    k;
        !            76: struct blk *irem;
        !            77: int    skd,skr;
        !            78: struct blk *pop(),*readin(),*add0(),*mult();
        !            79: struct blk *scalint();
        !            80: struct blk *removc();
        !            81: struct blk *add(),*div(),*removr();
        !            82: struct blk *exp();
        !            83: struct blk *sqrt();
        !            84: struct blk *salloc(),*copy();
        !            85: struct blk *scale();
        !            86: int    neg;
        !            87: struct sym {
        !            88:        struct  sym *next;
        !            89:        struct  blk *val;
        !            90: } symlst[TBLSZ];
        !            91: struct sym *stable[TBLSZ];
        !            92: struct sym *sptr,*sfree;
        !            93: struct wblk {
        !            94:        struct blk **rdw;
        !            95:        struct blk **wtw;
        !            96:        struct blk **begw;
        !            97:        struct blk **lastw;
        !            98: };
        !            99: FILE   *fsave;
        !           100: long   rel;
        !           101: long   nbytes;
        !           102: long   all;
        !           103: long   headmor;
        !           104: long   obase;
        !           105: int    fw,fw1,ll;
        !           106: int    (*outdit)();
        !           107: int    bigot(),hexot();
        !           108: int    logo;
        !           109: int    log10;
        !           110: int    count;
        !           111: char   *pp;
        !           112: int    (*signal())();
        !           113: int    onintr();
        !           114: char   *malloc();
        !           115: char   *nalloc();
        !           116: char   *realloc();
        !           117: char   *dummy;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.