1743Speter /* Copyright (c) 1979 Regents of the University of California */ 2743Speter 3*14727Sthien #ifndef lint 4*14727Sthien static char sccsid[] = "@(#)TRdata.c 1.2 08/19/83"; 5*14727Sthien #endif 6743Speter 7743Speter #include "whoami.h" 8743Speter #include "0.h" 9743Speter #ifdef PI1 10743Speter #ifdef DEBUG 11*14727Sthien char *trnames[] = 12743Speter { 13743Speter 0, 14743Speter "MINUS", 15743Speter "MOD", 16743Speter "DIV", 17743Speter "DIVD", 18743Speter "MULT", 19743Speter "ADD", 20743Speter "SUB", 21743Speter "EQ", 22743Speter "NE", 23743Speter "LT", 24743Speter "GT", 25743Speter "LE", 26743Speter "GE", 27743Speter "NOT", 28743Speter "AND", 29743Speter "OR", 30743Speter "ASGN", 31743Speter "PLUS", 32743Speter "IN", 33743Speter "LISTPP", 34743Speter "PDEC", 35743Speter "FDEC", 36743Speter "PVAL", 37743Speter "PVAR", 38743Speter "PFUNC", 39743Speter "PPROC", 40743Speter "NIL", 41743Speter "STRNG", 42743Speter "CSTRNG", 43743Speter "PLUSC", 44743Speter "MINUSC", 45743Speter "ID", 46743Speter "INT", 47743Speter "FINT", 48743Speter "CINT", 49743Speter "CFINT", 50743Speter "TYPTR", 51743Speter "TYPACK", 52743Speter "TYSCAL", 53743Speter "TYRANG", 54743Speter "TYARY", 55743Speter "TYFILE", 56743Speter "TYSET", 57743Speter "TYREC", 58743Speter "TYFIELD", 59743Speter "TYVARPT", 60743Speter "TYVARNT", 61743Speter "CSTAT", 62743Speter "BLOCK", 63743Speter "BSTL", 64743Speter "LABEL", 65743Speter "PCALL", 66743Speter "FCALL", 67743Speter "CASE", 68743Speter "WITH", 69743Speter "WHILE", 70743Speter "REPEAT", 71743Speter "FORU", 72743Speter "FORD", 73743Speter "GOTO", 74743Speter "IF", 75743Speter "ASRT", 76743Speter "CSET", 77743Speter "RANG", 78743Speter "VAR", 79743Speter "ARGL", 80743Speter "ARY", 81743Speter "FIELD", 82743Speter "PTR", 83743Speter "WEXP", 84743Speter "PROG", 85743Speter "BINT", 86743Speter "CBINT", 87743Speter "IFEL", 88743Speter "IFX", 89743Speter "TYID", 90743Speter "COPSTR", 91743Speter "BOTTLE", 92743Speter "RFIELD", 93743Speter "FLDLST", 94743Speter "LAST" 95743Speter }; 96743Speter #endif 97743Speter #endif 98743Speter 99*14727Sthien #ifndef PC 100*14727Sthien #ifndef OBJ 101*14727Sthien char *trdesc[] = 102743Speter { 103743Speter 0, 104743Speter "dp", 105743Speter "dpp", 106743Speter "dpp", 107743Speter "dpp", 108743Speter "dpp", 109743Speter "dpp", 110743Speter "dpp", 111743Speter "dpp", 112743Speter "dpp", 113743Speter "dpp", 114743Speter "dpp", 115743Speter "dpp", 116743Speter "dpp", 117743Speter "dp", 118743Speter "dpp", 119743Speter "dpp", 120743Speter "npp", 121743Speter "dp", 122743Speter "dpp", 123743Speter "pp", 124743Speter "n\"pp", 125743Speter "n\"pp", 126743Speter "pp", 127743Speter "pp", 128743Speter "pp", 129743Speter "p", 130743Speter "d", 131743Speter "dp", 132743Speter "p", 133743Speter "p", 134743Speter "p", 135743Speter "p", 136743Speter "dp", 137743Speter "dp", 138743Speter "p", 139743Speter "p", 140743Speter "np", 141743Speter "np", 142743Speter "np", 143743Speter "npp", 144743Speter "npp", 145743Speter "np", 146743Speter "np", 147743Speter "np", 148743Speter "pp", 149743Speter "nppp", 150743Speter "npp", 151743Speter "npp", 152743Speter "np", 153743Speter "np", 154743Speter "n\"p", 155743Speter "n\"p", 156743Speter "n\"p", 157743Speter "npp", 158743Speter "npp", 159743Speter "npp", 160743Speter "npp", 161743Speter "nppp", 162743Speter "nppp", 163743Speter "n\"", 164743Speter "nppp", 165743Speter "np", 166743Speter "dp", 167743Speter "pp", 168743Speter "n\"p", 169743Speter "p", 170743Speter "p", 171743Speter "pp", 172743Speter "", 173743Speter "ppp", 174743Speter "n\"pp", 175743Speter "dp", 176743Speter "p", 177743Speter "nppp", 178743Speter "nppp", 179743Speter "np", 180743Speter "s", 181743Speter "nnnnn", 182743Speter "npp", 183743Speter "npp", 184743Speter "x" 185743Speter }; 186*14727Sthien #endif 187*14727Sthien #endif 188*14727Sthien char *opnames[] = 189743Speter { 190743Speter 0, 191743Speter "unary -", 192743Speter "mod", 193743Speter "div", 194743Speter "/", 195743Speter "*", 196743Speter "+", 197743Speter "-", 198743Speter "=", 199743Speter "<>", 200743Speter "<", 201743Speter ">", 202743Speter "<=", 203743Speter ">=", 204743Speter "not", 205743Speter "and", 206743Speter "or", 207743Speter ":=", 208743Speter "unary +", 209743Speter "in" 210743Speter }; 211