|
|
1.1 root 1: #include "ilink.h"
2: #include "opcode.h"
3:
4: /*
5: * Opcode table.
6: */
7:
8: struct opentry optable[] = {
9: "asgn", OP_ASGN,
10: "bang", OP_BANG,
11: "bscan", OP_BSCAN,
12: "cat", OP_CAT,
13: "ccase", OP_CCASE,
14: "chfail", OP_CHFAIL,
15: "coact", OP_COACT,
16: "cofail", OP_COFAIL,
17: "compl", OP_COMPL,
18: "con", OP_CON,
19: "coret", OP_CORET,
20: "create", OP_CREATE,
21: "cset", OP_CSET,
22: "declend", OP_DECLEND,
23: "diff", OP_DIFF,
24: "div", OP_DIV,
25: "dup", OP_DUP,
26: "efail", OP_EFAIL,
27: "end", OP_END,
28: "eqv", OP_EQV,
29: "eret", OP_ERET,
30: "error", OP_ERROR,
31: "escan", OP_ESCAN,
32: "esusp", OP_ESUSP,
33: "field", OP_FIELD,
34: "file", OP_FILE,
35: "global", OP_GLOBAL,
36: "goto", OP_GOTO,
37: "impl", OP_IMPL,
38: "incres", OP_INCRES,
39: "init?", OP_INIT,
40: "int", OP_INT,
41: "inter", OP_INTER,
42: "invoke", OP_INVOKE,
43: "keywd", OP_KEYWD,
44: "lab", OP_LAB,
45: "lconcat", OP_LCONCAT,
46: "lexeq", OP_LEXEQ,
47: "lexge", OP_LEXGE,
48: "lexgt", OP_LEXGT,
49: "lexle", OP_LEXLE,
50: "lexlt", OP_LEXLT,
51: "lexne", OP_LEXNE,
52: "limit", OP_LIMIT,
53: "line", OP_LINE,
54: "link", OP_LINK,
55: "llist", OP_LLIST,
56: "local", OP_LOCAL,
57: "lsusp", OP_LSUSP,
58: "mark", OP_MARK,
59: "minus", OP_MINUS,
60: "mod", OP_MOD,
61: "mult", OP_MULT,
62: "neg", OP_NEG,
63: "neqv", OP_NEQV,
64: "nonnull", OP_NONNULL,
65: "null", OP_NULL,
66: "number", OP_NUMBER,
67: "numeq", OP_NUMEQ,
68: "numge", OP_NUMGE,
69: "numgt", OP_NUMGT,
70: "numle", OP_NUMLE,
71: "numlt", OP_NUMLT,
72: "numne", OP_NUMNE,
73: "pfail", OP_PFAIL,
74: "plus", OP_PLUS,
75: "pnull", OP_PNULL,
76: "pop", OP_POP,
77: "power", OP_POWER,
78: "pret", OP_PRET,
79: "proc", OP_PROC,
80: "psusp", OP_PSUSP,
81: "push1", OP_PUSH1,
82: "pushn1", OP_PUSHN1,
83: "random", OP_RANDOM,
84: "rasgn", OP_RASGN,
85: "real", OP_REAL,
86: "record", OP_RECORD,
87: "refresh", OP_REFRESH,
88: "rswap", OP_RSWAP,
89: "sdup", OP_SDUP,
90: "sect", OP_SECT,
91: "size", OP_SIZE,
92: "str", OP_STR,
93: "subsc", OP_SUBSC,
94: "swap", OP_SWAP,
95: "tabmat", OP_TABMAT,
96: "toby", OP_TOBY,
97: "trace", OP_TRACE,
98: "unioncs", OP_UNIONCS,
99: "unmark", OP_UNMARK,
100: "value", OP_VALUE,
101: "var", OP_VAR,
102: };
103:
104: int NOPCODES = sizeof(optable) / sizeof(struct opentry);
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.