Return to hoc.h CVS log

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

Annotation of researchv10no/cmd/hoc/hoc.h, revision 1.1.1.1

1.1       root        1: typedef struct Symbol {        /* symbol table entry */
                      2:        char    *name;
                      3:        short   type;
                      4:        union {
                      5:                double  val;            /* VAR */
                      6:                double  (*ptr)();       /* BLTIN */
                      7:                int     (**defn)();     /* FUNCTION, PROCEDURE */
                      8:                char    *str;           /* STRING */
                      9:        } u;
                     10:        struct Symbol   *next;  /* to link to another */
                     11: } Symbol;
                     12: Symbol *install(), *lookup();
                     13: 
                     14: typedef union Datum {  /* interpreter stack type */
                     15:        double  val;
                     16:        Symbol  *sym;
                     17: } Datum;
                     18: extern Datum pop();
                     19: extern xpop(), eval(), add(), sub(), mul(), div(), mod(), negate(), power();
                     20: extern addeq(), subeq(), muleq(), diveq(), modeq();
                     21: 
                     22: typedef int (*Inst)();
                     23: #define        STOP    (Inst) 0
                     24: 
                     25: extern Inst *progp, *progbase, prog[], *code();
                     26: extern assign(), bltin(), varpush(), constpush(), print(), varread();
                     27: extern prexpr(), prstr();
                     28: extern gt(), lt(), eq(), ge(), le(), ne(), and(), or(), not();
                     29: extern ifcode(), whilecode(), forcode(), call(), arg(), argassign();
                     30: extern funcret(), procret();
                     31: extern preinc(), predec(), postinc(), postdec();
                     32: extern argaddeq(), argsubeq(), argmuleq(), argdiveq(), argmodeq();

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