Return to idata.c CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / src / iconx

Annotation of researchv10dc/cmd/icon/src/iconx/idata.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Various interpreter data tables.
                      3:  */
                      4: 
                      5: #include "../h/rt.h"
                      6: 
                      7: /*
                      8:  * External declarations for blocks of built-in procedures.
                      9:  */
                     10: extern struct b_proc
                     11: #define FncDef(p) Cat(B,p),
                     12: #include "../h/fdef.h"
                     13:    Xnoproc; /* Hack to avoid ,; at end */
                     14: #undef FncDef
                     15: struct b_proc Xnoproc;
                     16: 
                     17: /*
                     18:  * Array of addresses of blocks for built-in procedures.  It is important
                     19:  *  that this table and the one in link/builtin.c agree; the linker
                     20:  *  supplies iconx with indices into this array.
                     21:  */
                     22: struct b_proc *functab[] = {
                     23: #define FncDef(p) Cat(&B,p),
                     24: #include "../h/fdef.h"
                     25: #undef FncDef
                     26:    0
                     27:    };
                     28:  
                     29: asgn(), bang(), bscan(), cat(), compl(), create(),
                     30: diff(), div(), eqv(), err(), escan(), field(), inter(), lconcat(),
                     31: lexeq(), lexge(), lexgt(), lexle(), lexlt(), lexne(),
                     32: minus(), mod(), mult(), neg(), neqv(), nonnull(), null(), number(),
                     33: numeq(), numge(), numgt(), numle(), numlt(), numne(), plus(), power(),
                     34: random(), rasgn(), refresh(), rswap(), sect(), size(),
                     35: subsc(), swap(), tabmat(), toby(), unions(), value();
                     36: /*
                     37:  * When an opcode n has a subroutine call associated with it, the
                     38:  *  nth word here is the routine to call.
                     39:  */
                     40: int (*optab[])() = {
                     41:        err,            asgn,           bang,           cat,
                     42:        compl,          diff,           div,            eqv,
                     43:        inter,          lconcat,        lexeq,          lexge,
                     44:        lexgt,          lexle,          lexlt,          lexne,
                     45:        minus,          mod,            mult,           neg,
                     46:        neqv,           nonnull,        null,           number,
                     47:        numeq,          numge,          numgt,          numle,
                     48:        numlt,          numne,          plus,           power,
                     49:        random,         rasgn,          refresh,        rswap,
                     50:        sect,           size,           subsc,          swap,
                     51:        tabmat,         toby,           unions,         value,
                     52:        bscan,          err,            err,            err,
                     53:        err,            err,            create,         err,
                     54:        err,            err,            err,            escan,
                     55:        err,            field,          err,            err
                     56:        };

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