Return to bc.h CVS log

Up to [MW Coherent from dump] / coherent / d / bin / bc

Annotation of coherent/d/bin/bc/bc.h, revision 1.1

1.1     ! root        1: /*
        !             2:  *     Secondary inclusions.
        !             3:  */
        !             4: 
        !             5: #include <mprec.h>     /* multi-precision integer declarations */
        !             6: #include "bcmch.h"     /* bc-machine definitions */
        !             7: #include "bcsymtbl.h"  /* symbol table definitions */
        !             8: 
        !             9: 
        !            10: /*
        !            11:  *     Manifest constants.
        !            12:  */
        !            13: 
        !            14: #define        TRUE            (0 == 0)
        !            15: #define        FALSE           (0 != 0)
        !            16: #define        MAXWORD         80              /* maximum token length */
        !            17: #define        MAXSTRING       250             /* maximum quoted-string length */
        !            18: #define        MAXSTACK        200             /* max pseudo-machine run-time stack */
        !            19: #define        MAXCODE         1000            /* maximum function code size */
        !            20: #define        ABUMP           8               /* array growth quantum */
        !            21: #define        LINELEN         72              /* maximum output line length */
        !            22: #define NOSHELL                127             /* system return if no shell */
        !            23: 
        !            24: /*
        !            25:  *     The nel macro returns the number of elements in the array
        !            26:  *     "array".  It will be a compile time constant.
        !            27:  */
        !            28: 
        !            29: #define nel(array)     ((sizeof (array)) / (sizeof *(array)))
        !            30: 
        !            31: /*
        !            32:  *     The following macros are used to place items in the code
        !            33:  *     stream of the bc-machine.
        !            34:  */
        !            35: 
        !            36: #define        emitop(op)              (incloc()->opcode = (op))
        !            37: #define        emitzap                 (incloc()->address = -1, loc - 1)
        !            38: #define        emitaddr(addr)          (loc->address = (addr) - loc, incloc())
        !            39: #define        emitnum(num)            (incloc()->lvalue = (num))
        !            40: #define emitarry(arry)         (incloc()->alvalue = (arry))
        !            41: #define emitstr(str)           (incloc()->svalue = (str))
        !            42: #define emitcnt(cnt)           (incloc()->ivalue = (cnt))
        !            43: #define emitid(ident)          (incloc()->dvalue = (ident))
        !            44: #define patch(target, addr)    ((target)->address = (addr) - (target))
        !            45: 
        !            46: /*
        !            47:  *     Global functions that return non-ints.
        !            48:  */
        !            49: 
        !            50: rvalue         *getnum();              /* read number from stdin */
        !            51: rvalue         *select();              /* select an array element */
        !            52: code           *incloc();              /* return next slot and advance loc */
        !            53: mint           *pow10();               /* return 10 to a power */
        !            54: opcode         negate();               /* negate condition of branch */
        !            55: stkent         *pauto();               /* initialize autos used in a bc fnc.*/
        !            56: stkent         *newframe();            /* frame value after a function call */
        !            57: char           *realloc();             /* call in dc.c and bcmutil.c */
        !            58: 
        !            59: /*
        !            60:  *     Global variables.
        !            61:  */
        !            62: 
        !            63: extern int     allok;                  /* True iff no syntax errors */
        !            64: extern int     scale;                  /* scale register */
        !            65: extern int     ibase;                  /* input base */
        !            66: extern dicent  *dictionary;            /* root of string table */
        !            67: extern code    cstream[];              /* code stream */
        !            68: extern code    *loc;                   /* where next code item goes */
        !            69: extern mint    ten;                    /* constant ten */
        !            70: extern mint    maxsobase;              /* max small output base (16) */
        !            71: extern mint    outbase;                /* output base */
        !            72: extern rvalue  dot;                    /* last number printed */
        !            73: extern rvalue  zero;                   /* constant zero */
        !            74: extern FILE    *infile;                /* current input file */
        !            75: extern int     inline;                 /* current input line */
        !            76: extern char    *infnam;                /* current file name */

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