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