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