|
|
1.1 ! root 1: /* Copyright (c) 1979 Regents of the University of California */ ! 2: #include "whoami" ! 3: #include "0.h" ! 4: #ifdef PI1 ! 5: #ifdef DEBUG ! 6: char *trnames[] ! 7: { ! 8: 0, ! 9: "MINUS", ! 10: "MOD", ! 11: "DIV", ! 12: "DIVD", ! 13: "MULT", ! 14: "ADD", ! 15: "SUB", ! 16: "EQ", ! 17: "NE", ! 18: "LT", ! 19: "GT", ! 20: "LE", ! 21: "GE", ! 22: "NOT", ! 23: "AND", ! 24: "OR", ! 25: "ASGN", ! 26: "PLUS", ! 27: "IN", ! 28: "LISTPP", ! 29: "PDEC", ! 30: "FDEC", ! 31: "PVAL", ! 32: "PVAR", ! 33: "PFUNC", ! 34: "PPROC", ! 35: "NIL", ! 36: "STRNG", ! 37: "CSTRNG", ! 38: "PLUSC", ! 39: "MINUSC", ! 40: "ID", ! 41: "INT", ! 42: "FINT", ! 43: "CINT", ! 44: "CFINT", ! 45: "TYPTR", ! 46: "TYPACK", ! 47: "TYSCAL", ! 48: "TYRANG", ! 49: "TYARY", ! 50: "TYFILE", ! 51: "TYSET", ! 52: "TYREC", ! 53: "TYFIELD", ! 54: "TYVARPT", ! 55: "TYVARNT", ! 56: "CSTAT", ! 57: "BLOCK", ! 58: "BSTL", ! 59: "LABEL", ! 60: "PCALL", ! 61: "FCALL", ! 62: "CASE", ! 63: "WITH", ! 64: "WHILE", ! 65: "REPEAT", ! 66: "FORU", ! 67: "FORD", ! 68: "GOTO", ! 69: "IF", ! 70: "ASRT", ! 71: "CSET", ! 72: "RANG", ! 73: "VAR", ! 74: "ARGL", ! 75: "ARY", ! 76: "FIELD", ! 77: "PTR", ! 78: "WEXP", ! 79: "PROG", ! 80: "BINT", ! 81: "CBINT", ! 82: "IFEL", ! 83: "IFX", ! 84: "TYID", ! 85: "COPSTR", ! 86: "BOTTLE", ! 87: "RFIELD", ! 88: "FLDLST", ! 89: "LAST" ! 90: }; ! 91: #endif ! 92: #endif ! 93: ! 94: char *trdesc[] ! 95: { ! 96: 0, ! 97: "dp", ! 98: "dpp", ! 99: "dpp", ! 100: "dpp", ! 101: "dpp", ! 102: "dpp", ! 103: "dpp", ! 104: "dpp", ! 105: "dpp", ! 106: "dpp", ! 107: "dpp", ! 108: "dpp", ! 109: "dpp", ! 110: "dp", ! 111: "dpp", ! 112: "dpp", ! 113: "npp", ! 114: "dp", ! 115: "dpp", ! 116: "pp", ! 117: "n\"pp", ! 118: "n\"pp", ! 119: "pp", ! 120: "pp", ! 121: "pp", ! 122: "p", ! 123: "d", ! 124: "dp", ! 125: "p", ! 126: "p", ! 127: "p", ! 128: "p", ! 129: "dp", ! 130: "dp", ! 131: "p", ! 132: "p", ! 133: "np", ! 134: "np", ! 135: "np", ! 136: "npp", ! 137: "npp", ! 138: "np", ! 139: "np", ! 140: "np", ! 141: "pp", ! 142: "nppp", ! 143: "npp", ! 144: "npp", ! 145: "np", ! 146: "np", ! 147: "n\"p", ! 148: "n\"p", ! 149: "n\"p", ! 150: "npp", ! 151: "npp", ! 152: "npp", ! 153: "npp", ! 154: "nppp", ! 155: "nppp", ! 156: "n\"", ! 157: "nppp", ! 158: "np", ! 159: "dp", ! 160: "pp", ! 161: "n\"p", ! 162: "p", ! 163: "p", ! 164: "pp", ! 165: "", ! 166: "ppp", ! 167: "n\"pp", ! 168: "dp", ! 169: "p", ! 170: "nppp", ! 171: "nppp", ! 172: "np", ! 173: "s", ! 174: "nnnnn", ! 175: "npp", ! 176: "npp", ! 177: "x" ! 178: }; ! 179: char *opnames[] ! 180: { ! 181: 0, ! 182: "unary -", ! 183: "mod", ! 184: "div", ! 185: "/", ! 186: "*", ! 187: "+", ! 188: "-", ! 189: "=", ! 190: "<>", ! 191: "<", ! 192: ">", ! 193: "<=", ! 194: ">=", ! 195: "not", ! 196: "and", ! 197: "or", ! 198: ":=", ! 199: "unary +", ! 200: "in" ! 201: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.