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