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