Return to defines.h CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bas

Annotation of researchv10no/cmd/basic/bas/defines.h, revision 1.1

1.1     ! root        1: /*
        !             2:  * macros and global declarations for basic
        !             3:  *
        !             4:  *
        !             5:  *
        !             6:  * stack frame types:
        !             7:  *
        !             8:  * NOTE: the EXPR types must be distinguishable from all others
        !             9:  *      by the presence of the single bit defined by EXPR
        !            10:  *      Also note that INT, FLOAT and STRING are used as indices
        !            11:  *      into the 'chains' array (cf. sym.c) and that the value
        !            12:  *      of MAXTYPES must be at least 1 greater than that of the
        !            13:  *      highest-numbered basic type.
        !            14:  */
        !            15: 
        !            16: #define ANYTYPE        0
        !            17: #define INT            1
        !            18: #define FLOAT          2
        !            19: #define STRING         3
        !            20: #define STK_DEF        5
        !            21: #define STK_FOR        6
        !            22: #define STK_GOSUB      7
        !            23: #define INTEXPR        INT+EXPR
        !            24: #define FLOATEXPR      FLOAT+EXPR
        !            25: #define STRINGEXPR     STRING+EXPR
        !            26: #define EXPR           010
        !            27: 
        !            28: #define MAXTYPES       4
        !            29: 
        !            30: 
        !            31: /*
        !            32:  * macros and abbreviations:
        !            33:  */
        !            34: 
        !            35: #define ALL_LINES(p)   (p=(Linep)lines;isline(p);p=nextline(p))
        !            36: #define endchk()       if(!endtest()) badsyn()
        !            37: #define endtest()      (*inptr==0||*inptr==COLON||*inptr==ELSE)
        !            38: #define expectc(c)     if(*inptr!=c) badsyn(); else ++inptr
        !            39: #define fexpr()        (expr(),popfloat())
        !            40: #define isexpr(s)      ((s)->k_type&EXPR)
        !            41: #define isline(p)      ((p)->l_len)
        !            42: #define isstring(s)    ((s)>=strspace&&(s)<endstring)
        !            43: #define istoken(c)     ((c)<0)
        !            44: #ifdef NULL
        !            45: #undef NULL
        !            46: #endif
        !            47: #define NULL           (char *)0
        !            48: #define pushint(i)     pushfloat((double)(i))
        !            49: #define skipbl()       while(*inptr==' '||*inptr=='\t')++inptr
        !            50: #define SINGLE         (typelens[FLOAT]==4)
        !            51: #define UNTOKEN(c)     (-1-(c))
        !            52: 
        !            53: #define endstring      strspace+MAXSTRSPACE
        !            54: #define line           immed.l_line
        !            55: #define stkbase        stkspace
        !            56: #define stktop         stkspace+MAXSTACK
        !            57: 
        !            58: 
        !            59: /*
        !            60:  * sizes and limits:
        !            61:  */
        !            62: 
        !            63: #define DEFSIZE        10      /* default number of array elements */
        !            64: #define EXPANDLINES    4096    /* expansion size */
        !            65: #define EXPANDSYM      4096    /* symbol table expansion increment */
        !            66: #define LEN_FUZZ       6       /* close enough to not move */
        !            67: #define MAXFILENAME    32
        !            68: #define MAXLINELEN     255     /* maximum length of an input line */
        !            69: #define MAXLINES       4096    /* initial size of line buffer */
        !            70: #define MAXSTACK       2048    /* size of expression stack */
        !            71: #define MAXSTRING      255     /* max string len. (must fit in a char) */
        !            72: #define MAXSTRSPACE    2048    /* size of string table */
        !            73: #define MAXSUBS        3       /* max number of array dimensions */
        !            74: #define MAXSYMSPACE    4096    /* initial size of symbol table */
        !            75: #define TOKEN          0177600
        !            76: #define TOKENMASK      0177
        !            77: 
        !            78: #define FLOATSIZE      (sizeof(double))
        !            79: #define INTSIZE        (sizeof(int))
        !            80: #define STRINGSIZE     (sizeof(String))
        !            81: 
        !            82: #define MINLNR         0
        !            83: #define MAXLNR         (unsigned)65535
        !            84: #define MAXINT         32767
        !            85: 
        !            86: 
        !            87: /*
        !            88:  * status and action symbols:
        !            89:  */
        !            90: 
        !            91: #define LISTLNRS       1       /* getlnrs: expect lnrs in input */
        !            92: #define DEFAULTLNRS    0       /* getlnrs: use defaults if no lnrs found */
        !            93: #define EXACTLNR       1       /* findline: error if line not found */
        !            94: #define NEXTLNR        0       /* findline: return next higher line */
        !            95: #define YES            1
        !            96: #define NO             0

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