projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
BSD 4 release
[unix-history]
/
usr
/
src
/
cmd
/
pi
/
TRdata.c
/* Copyright (c) 1979 Regents of the University of California */
static char
sccsid
[] =
"@(#)TRdata.c 1.1 8/27/80"
;
#include
"whoami.h"
#include
"0.h"
#ifdef PI1
#ifdef DEBUG
char
*
trnames
[]
{
0
,
"MINUS"
,
"MOD"
,
"DIV"
,
"DIVD"
,
"MULT"
,
"ADD"
,
"SUB"
,
"EQ"
,
"NE"
,
"LT"
,
"GT"
,
"LE"
,
"GE"
,
"NOT"
,
"AND"
,
"OR"
,
"ASGN"
,
"PLUS"
,
"IN"
,
"LISTPP"
,
"PDEC"
,
"FDEC"
,
"PVAL"
,
"PVAR"
,
"PFUNC"
,
"PPROC"
,
"NIL"
,
"STRNG"
,
"CSTRNG"
,
"PLUSC"
,
"MINUSC"
,
"ID"
,
"INT"
,
"FINT"
,
"CINT"
,
"CFINT"
,
"TYPTR"
,
"TYPACK"
,
"TYSCAL"
,
"TYRANG"
,
"TYARY"
,
"TYFILE"
,
"TYSET"
,
"TYREC"
,
"TYFIELD"
,
"TYVARPT"
,
"TYVARNT"
,
"CSTAT"
,
"BLOCK"
,
"BSTL"
,
"LABEL"
,
"PCALL"
,
"FCALL"
,
"CASE"
,
"WITH"
,
"WHILE"
,
"REPEAT"
,
"FORU"
,
"FORD"
,
"GOTO"
,
"IF"
,
"ASRT"
,
"CSET"
,
"RANG"
,
"VAR"
,
"ARGL"
,
"ARY"
,
"FIELD"
,
"PTR"
,
"WEXP"
,
"PROG"
,
"BINT"
,
"CBINT"
,
"IFEL"
,
"IFX"
,
"TYID"
,
"COPSTR"
,
"BOTTLE"
,
"RFIELD"
,
"FLDLST"
,
"LAST"
};
#endif
#endif
char
*
trdesc
[]
{
0
,
"dp"
,
"dpp"
,
"dpp"
,
"dpp"
,
"dpp"
,
"dpp"
,
"dpp"
,
"dpp"
,
"dpp"
,
"dpp"
,
"dpp"
,
"dpp"
,
"dpp"
,
"dp"
,
"dpp"
,
"dpp"
,
"npp"
,
"dp"
,
"dpp"
,
"pp"
,
"n
\"
pp"
,
"n
\"
pp"
,
"pp"
,
"pp"
,
"pp"
,
"p"
,
"d"
,
"dp"
,
"p"
,
"p"
,
"p"
,
"p"
,
"dp"
,
"dp"
,
"p"
,
"p"
,
"np"
,
"np"
,
"np"
,
"npp"
,
"npp"
,
"np"
,
"np"
,
"np"
,
"pp"
,
"nppp"
,
"npp"
,
"npp"
,
"np"
,
"np"
,
"n
\"
p"
,
"n
\"
p"
,
"n
\"
p"
,
"npp"
,
"npp"
,
"npp"
,
"npp"
,
"nppp"
,
"nppp"
,
"n
\"
"
,
"nppp"
,
"np"
,
"dp"
,
"pp"
,
"n
\"
p"
,
"p"
,
"p"
,
"pp"
,
""
,
"ppp"
,
"n
\"
pp"
,
"dp"
,
"p"
,
"nppp"
,
"nppp"
,
"np"
,
"s"
,
"nnnnn"
,
"npp"
,
"npp"
,
"x"
};
char
*
opnames
[]
{
0
,
"unary -"
,
"mod"
,
"div"
,
"/"
,
"*"
,
"+"
,
"-"
,
"="
,
"<>"
,
"<"
,
">"
,
"<="
,
">="
,
"not"
,
"and"
,
"or"
,
":="
,
"unary +"
,
"in"
};