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