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