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