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