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