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