1 e37302c4 2004-04-21 devnull # include "ldefs.h"
3 e37302c4 2004-04-21 devnull getl(uchar *p) /* return next line of input, throw away trailing '\n' */
4 e37302c4 2004-04-21 devnull /* returns 0 if eof is had immediately */
7 e37302c4 2004-04-21 devnull uchar *s, *t;
9 e37302c4 2004-04-21 devnull t = s = p;
10 e37302c4 2004-04-21 devnull while(((c = gch()) != 0) && c != '\n')
11 e37302c4 2004-04-21 devnull *t++ = c;
13 e37302c4 2004-04-21 devnull if(c == 0 && s == t) return((uchar *)0);
14 e37302c4 2004-04-21 devnull prev = '\n';
15 e37302c4 2004-04-21 devnull pres = '\n';
16 e37302c4 2004-04-21 devnull return(s);
20 e37302c4 2004-04-21 devnull printerr(char *type, char *fmt, va_list argl)
22 e37302c4 2004-04-21 devnull char buf[1024];
24 e37302c4 2004-04-21 devnull if(!eof)fprint(errorf,"%d: ",yyline);
25 e37302c4 2004-04-21 devnull fprint(errorf,"(%s) ", type);
26 e37302c4 2004-04-21 devnull vseprint(buf, buf+sizeof(buf), fmt, argl);
27 e37302c4 2004-04-21 devnull fprint(errorf, "%s\n", buf);
32 e37302c4 2004-04-21 devnull error(char *s,...)
34 e37302c4 2004-04-21 devnull va_list argl;
36 e37302c4 2004-04-21 devnull va_start(argl, s);
37 e37302c4 2004-04-21 devnull printerr("Error", s, argl);
38 e37302c4 2004-04-21 devnull va_end(argl);
39 e37302c4 2004-04-21 devnull # ifdef DEBUG
40 e37302c4 2004-04-21 devnull if(debug && sect != ENDSECTION) {
41 e37302c4 2004-04-21 devnull sect1dump();
42 e37302c4 2004-04-21 devnull sect2dump();
46 e37302c4 2004-04-21 devnull # ifdef DEBUG
49 e37302c4 2004-04-21 devnull report == 1) statistics();
50 e37302c4 2004-04-21 devnull exits("error"); /* error return code */
54 e37302c4 2004-04-21 devnull warning(char *s,...)
56 e37302c4 2004-04-21 devnull va_list argl;
58 e37302c4 2004-04-21 devnull va_start(argl, s);
59 e37302c4 2004-04-21 devnull printerr("Warning", s, argl);
60 e37302c4 2004-04-21 devnull va_end(argl);
61 e37302c4 2004-04-21 devnull Bflush(&fout);
65 e37302c4 2004-04-21 devnull lgate(void)
69 e37302c4 2004-04-21 devnull if (lgatflg) return;
70 e37302c4 2004-04-21 devnull lgatflg=1;
71 e37302c4 2004-04-21 devnull if(foutopen == 0){
72 e37302c4 2004-04-21 devnull fd = create("lex.yy.c", OWRITE, 0666);
73 e37302c4 2004-04-21 devnull if(fd < 0)
74 e37302c4 2004-04-21 devnull error("Can't open lex.yy.c");
75 e37302c4 2004-04-21 devnull Binit(&fout, fd, OWRITE);
76 e37302c4 2004-04-21 devnull foutopen = 1;
78 e37302c4 2004-04-21 devnull phead1();
82 e37302c4 2004-04-21 devnull cclinter(int sw)
84 e37302c4 2004-04-21 devnull /* sw = 1 ==> ccl */
85 e37302c4 2004-04-21 devnull int i, j, k;
87 e37302c4 2004-04-21 devnull if(!sw){ /* is NCCL */
88 e37302c4 2004-04-21 devnull for(i=1;i<NCH;i++)
89 e37302c4 2004-04-21 devnull symbol[i] ^= 1; /* reverse value */
91 e37302c4 2004-04-21 devnull for(i=1;i<NCH;i++)
92 e37302c4 2004-04-21 devnull if(symbol[i]) break;
93 e37302c4 2004-04-21 devnull if(i >= NCH) return;
94 e37302c4 2004-04-21 devnull i = cindex[i];
95 e37302c4 2004-04-21 devnull /* see if ccl is already in our table */
98 e37302c4 2004-04-21 devnull for(j=1;j<NCH;j++){
99 e37302c4 2004-04-21 devnull if((symbol[j] && cindex[j] != i) ||
100 e37302c4 2004-04-21 devnull (!symbol[j] && cindex[j] == i)) break;
103 e37302c4 2004-04-21 devnull if(j >= NCH) return; /* already in */
106 e37302c4 2004-04-21 devnull for(i=1;i<NCH;i++)
107 e37302c4 2004-04-21 devnull if(symbol[i]){
108 e37302c4 2004-04-21 devnull if(!cindex[i]){
109 e37302c4 2004-04-21 devnull cindex[i] = ccount;
110 e37302c4 2004-04-21 devnull symbol[i] = 0;
112 e37302c4 2004-04-21 devnull } else k = 1;
114 e37302c4 2004-04-21 devnull /* m == 1 implies last value of ccount has been used */
115 e37302c4 2004-04-21 devnull if(m)ccount++;
116 e37302c4 2004-04-21 devnull if(k == 0) return; /* is now in as ccount wholly */
117 e37302c4 2004-04-21 devnull /* intersection must be computed */
118 e37302c4 2004-04-21 devnull for(i=1;i<NCH;i++){
119 e37302c4 2004-04-21 devnull if(symbol[i]){
121 e37302c4 2004-04-21 devnull j = cindex[i]; /* will be non-zero */
122 e37302c4 2004-04-21 devnull for(k=1;k<NCH;k++){
123 e37302c4 2004-04-21 devnull if(cindex[k] == j){
124 e37302c4 2004-04-21 devnull if(symbol[k]) symbol[k] = 0;
126 e37302c4 2004-04-21 devnull cindex[k] = ccount;
131 e37302c4 2004-04-21 devnull if(m)ccount++;
137 e37302c4 2004-04-21 devnull usescape(int c)
140 e37302c4 2004-04-21 devnull switch(c){
141 e37302c4 2004-04-21 devnull case 'n': c = '\n'; break;
142 e37302c4 2004-04-21 devnull case 'r': c = '\r'; break;
143 e37302c4 2004-04-21 devnull case 't': c = '\t'; break;
144 e37302c4 2004-04-21 devnull case 'b': c = '\b'; break;
145 e37302c4 2004-04-21 devnull case 'f': c = 014; break; /* form feed for ascii */
146 e37302c4 2004-04-21 devnull case '0': case '1': case '2': case '3':
147 e37302c4 2004-04-21 devnull case '4': case '5': case '6': case '7':
148 e37302c4 2004-04-21 devnull c -= '0';
149 e37302c4 2004-04-21 devnull while('0' <= (d=gch()) && d <= '7'){
150 e37302c4 2004-04-21 devnull c = c * 8 + (d-'0');
151 e37302c4 2004-04-21 devnull if(!('0' <= peek && peek <= '7')) break;
155 e37302c4 2004-04-21 devnull return(c);
159 e37302c4 2004-04-21 devnull lookup(uchar *s, uchar **t)
163 e37302c4 2004-04-21 devnull while(*t){
164 e37302c4 2004-04-21 devnull if(strcmp((char *)s, *(char **)t) == 0)
165 e37302c4 2004-04-21 devnull return(i);
169 e37302c4 2004-04-21 devnull return(-1);
173 e37302c4 2004-04-21 devnull cpyact(void)
174 e37302c4 2004-04-21 devnull { /* copy C action to the next ; or closing } */
175 e37302c4 2004-04-21 devnull int brac, c, mth;
176 e37302c4 2004-04-21 devnull int savline, sw;
178 e37302c4 2004-04-21 devnull brac = 0;
179 e37302c4 2004-04-21 devnull sw = TRUE;
180 e37302c4 2004-04-21 devnull savline = 0;
182 e37302c4 2004-04-21 devnull while(!eof){
183 e37302c4 2004-04-21 devnull c = gch();
185 e37302c4 2004-04-21 devnull switch( c ){
187 e37302c4 2004-04-21 devnull case '|': if(brac == 0 && sw == TRUE){
188 e37302c4 2004-04-21 devnull if(peek == '|')gch(); /* eat up an extra '|' */
189 e37302c4 2004-04-21 devnull return(0);
193 e37302c4 2004-04-21 devnull case ';':
194 e37302c4 2004-04-21 devnull if( brac == 0 ){
195 e37302c4 2004-04-21 devnull Bputc(&fout, c);
196 e37302c4 2004-04-21 devnull Bputc(&fout, '\n');
197 e37302c4 2004-04-21 devnull return(1);
201 e37302c4 2004-04-21 devnull case '{':
203 e37302c4 2004-04-21 devnull savline=yyline;
206 e37302c4 2004-04-21 devnull case '}':
208 e37302c4 2004-04-21 devnull if( brac == 0 ){
209 e37302c4 2004-04-21 devnull Bputc(&fout, c);
210 e37302c4 2004-04-21 devnull Bputc(&fout, '\n');
211 e37302c4 2004-04-21 devnull return(1);
215 e37302c4 2004-04-21 devnull case '/': /* look for comments */
216 e37302c4 2004-04-21 devnull Bputc(&fout, c);
217 e37302c4 2004-04-21 devnull c = gch();
218 e37302c4 2004-04-21 devnull if( c != '*' ) goto swt;
220 e37302c4 2004-04-21 devnull /* it really is a comment */
222 e37302c4 2004-04-21 devnull Bputc(&fout, c);
223 e37302c4 2004-04-21 devnull savline=yyline;
224 e37302c4 2004-04-21 devnull while( c=gch() ){
225 e37302c4 2004-04-21 devnull if( c=='*' ){
226 e37302c4 2004-04-21 devnull Bputc(&fout, c);
227 e37302c4 2004-04-21 devnull if( (c=gch()) == '/' ) goto loop;
229 e37302c4 2004-04-21 devnull Bputc(&fout, c);
231 e37302c4 2004-04-21 devnull yyline=savline;
232 e37302c4 2004-04-21 devnull error( "EOF inside comment" );
234 e37302c4 2004-04-21 devnull case '\'': /* character constant */
235 e37302c4 2004-04-21 devnull mth = '\'';
236 e37302c4 2004-04-21 devnull goto string;
238 e37302c4 2004-04-21 devnull case '"': /* character string */
239 e37302c4 2004-04-21 devnull mth = '"';
243 e37302c4 2004-04-21 devnull Bputc(&fout, c);
244 e37302c4 2004-04-21 devnull while( c=gch() ){
245 e37302c4 2004-04-21 devnull if( c=='\\' ){
246 e37302c4 2004-04-21 devnull Bputc(&fout, c);
247 e37302c4 2004-04-21 devnull c=gch();
249 e37302c4 2004-04-21 devnull else if( c==mth ) goto loop;
250 e37302c4 2004-04-21 devnull Bputc(&fout, c);
251 e37302c4 2004-04-21 devnull if (c == '\n') {
252 e37302c4 2004-04-21 devnull yyline--;
253 e37302c4 2004-04-21 devnull error( "Non-terminated string or character constant");
256 e37302c4 2004-04-21 devnull error( "EOF in string or character constant" );
258 e37302c4 2004-04-21 devnull case '\0':
259 e37302c4 2004-04-21 devnull yyline = savline;
260 e37302c4 2004-04-21 devnull error("Action does not terminate");
261 e37302c4 2004-04-21 devnull default:
262 e37302c4 2004-04-21 devnull break; /* usual character */
265 e37302c4 2004-04-21 devnull if(c != ' ' && c != '\t' && c != '\n') sw = FALSE;
266 e37302c4 2004-04-21 devnull Bputc(&fout, c);
268 e37302c4 2004-04-21 devnull error("Premature EOF");
269 e37302c4 2004-04-21 devnull return(0);
273 e37302c4 2004-04-21 devnull gch(void){
275 e37302c4 2004-04-21 devnull prev = pres;
276 e37302c4 2004-04-21 devnull c = pres = peek;
277 e37302c4 2004-04-21 devnull peek = pushptr > pushc ? *--pushptr : Bgetc(fin);
278 e37302c4 2004-04-21 devnull if(peek == Beof && sargc > 1){
279 e37302c4 2004-04-21 devnull Bterm(fin);
280 e37302c4 2004-04-21 devnull fin = Bopen(sargv[fptr++],OREAD);
281 e37302c4 2004-04-21 devnull if(fin == 0)
282 e37302c4 2004-04-21 devnull error("Cannot open file %s",sargv[fptr-1]);
283 e37302c4 2004-04-21 devnull peek = Bgetc(fin);
284 e37302c4 2004-04-21 devnull sargc--;
285 e37302c4 2004-04-21 devnull sargv++;
287 e37302c4 2004-04-21 devnull if(c == Beof) {
288 e37302c4 2004-04-21 devnull eof = TRUE;
289 e37302c4 2004-04-21 devnull Bterm(fin);
290 0afb7989 2006-04-20 devnull fin = 0;
291 e37302c4 2004-04-21 devnull return(0);
293 e37302c4 2004-04-21 devnull if(c == '\n')yyline++;
294 e37302c4 2004-04-21 devnull return(c);
298 e37302c4 2004-04-21 devnull mn2(int a, int d, int c)
300 e37302c4 2004-04-21 devnull name[tptr] = a;
301 e37302c4 2004-04-21 devnull left[tptr] = d;
302 e37302c4 2004-04-21 devnull right[tptr] = c;
303 e37302c4 2004-04-21 devnull parent[tptr] = 0;
304 e37302c4 2004-04-21 devnull nullstr[tptr] = 0;
305 e37302c4 2004-04-21 devnull switch(a){
306 e37302c4 2004-04-21 devnull case RSTR:
307 e37302c4 2004-04-21 devnull parent[d] = tptr;
309 e37302c4 2004-04-21 devnull case BAR:
310 e37302c4 2004-04-21 devnull case RNEWE:
311 e37302c4 2004-04-21 devnull if(nullstr[d] || nullstr[c]) nullstr[tptr] = TRUE;
312 e37302c4 2004-04-21 devnull parent[d] = parent[c] = tptr;
314 e37302c4 2004-04-21 devnull case RCAT:
315 e37302c4 2004-04-21 devnull case DIV:
316 e37302c4 2004-04-21 devnull if(nullstr[d] && nullstr[c])nullstr[tptr] = TRUE;
317 e37302c4 2004-04-21 devnull parent[d] = parent[c] = tptr;
319 e37302c4 2004-04-21 devnull case RSCON:
320 e37302c4 2004-04-21 devnull parent[d] = tptr;
321 e37302c4 2004-04-21 devnull nullstr[tptr] = nullstr[d];
323 e37302c4 2004-04-21 devnull # ifdef DEBUG
324 e37302c4 2004-04-21 devnull default:
325 e37302c4 2004-04-21 devnull warning("bad switch mn2 %d %d",a,d);
329 e37302c4 2004-04-21 devnull if(tptr > treesize)
330 e37302c4 2004-04-21 devnull error("Parse tree too big %s",(treesize == TREESIZE?"\nTry using %e num":""));
331 e37302c4 2004-04-21 devnull return(tptr++);
335 0afb7989 2006-04-20 devnull mnp(int a, void *p)
337 e37302c4 2004-04-21 devnull name[tptr] = a;
338 0afb7989 2006-04-20 devnull left[tptr] = 0;
339 e37302c4 2004-04-21 devnull parent[tptr] = 0;
340 e37302c4 2004-04-21 devnull nullstr[tptr] = 0;
341 0afb7989 2006-04-20 devnull ptr[tptr] = p;
342 e37302c4 2004-04-21 devnull switch(a){
343 e37302c4 2004-04-21 devnull case RCCL:
344 e37302c4 2004-04-21 devnull case RNCCL:
345 0afb7989 2006-04-20 devnull if(strlen(p) == 0) nullstr[tptr] = TRUE;
347 0afb7989 2006-04-20 devnull default:
348 0afb7989 2006-04-20 devnull error("bad switch mnp %d %P", a, p);
351 0afb7989 2006-04-20 devnull if(tptr > treesize)
352 0afb7989 2006-04-20 devnull error("Parse tree too big %s",(treesize == TREESIZE?"\nTry using %e num":""));
353 0afb7989 2006-04-20 devnull return(tptr++);
357 0afb7989 2006-04-20 devnull mn1(int a, int d)
359 0afb7989 2006-04-20 devnull name[tptr] = a;
360 0afb7989 2006-04-20 devnull left[tptr] = d;
361 0afb7989 2006-04-20 devnull parent[tptr] = 0;
362 0afb7989 2006-04-20 devnull nullstr[tptr] = 0;
363 0afb7989 2006-04-20 devnull switch(a){
364 e37302c4 2004-04-21 devnull case STAR:
365 e37302c4 2004-04-21 devnull case QUEST:
366 e37302c4 2004-04-21 devnull nullstr[tptr] = TRUE;
367 e37302c4 2004-04-21 devnull parent[d] = tptr;
369 e37302c4 2004-04-21 devnull case PLUS:
370 e37302c4 2004-04-21 devnull case CARAT:
371 e37302c4 2004-04-21 devnull nullstr[tptr] = nullstr[d];
372 e37302c4 2004-04-21 devnull parent[d] = tptr;
374 e37302c4 2004-04-21 devnull case S2FINAL:
375 e37302c4 2004-04-21 devnull nullstr[tptr] = TRUE;
377 e37302c4 2004-04-21 devnull # ifdef DEBUG
378 e37302c4 2004-04-21 devnull case FINAL:
379 e37302c4 2004-04-21 devnull case S1FINAL:
381 e37302c4 2004-04-21 devnull default:
382 e37302c4 2004-04-21 devnull warning("bad switch mn1 %d %d",a,d);
386 e37302c4 2004-04-21 devnull if(tptr > treesize)
387 e37302c4 2004-04-21 devnull error("Parse tree too big %s",(treesize == TREESIZE?"\nTry using %e num":""));
388 e37302c4 2004-04-21 devnull return(tptr++);
392 e37302c4 2004-04-21 devnull mn0(int a)
394 e37302c4 2004-04-21 devnull name[tptr] = a;
395 e37302c4 2004-04-21 devnull parent[tptr] = 0;
396 e37302c4 2004-04-21 devnull nullstr[tptr] = 0;
397 e37302c4 2004-04-21 devnull if(a >= NCH) switch(a){
398 e37302c4 2004-04-21 devnull case RNULLS: nullstr[tptr] = TRUE; break;
399 e37302c4 2004-04-21 devnull # ifdef DEBUG
400 e37302c4 2004-04-21 devnull default:
401 e37302c4 2004-04-21 devnull warning("bad switch mn0 %d",a);
405 e37302c4 2004-04-21 devnull if(tptr > treesize)
406 e37302c4 2004-04-21 devnull error("Parse tree too big %s",(treesize == TREESIZE?"\nTry using %e num":""));
407 e37302c4 2004-04-21 devnull return(tptr++);
411 e37302c4 2004-04-21 devnull munputc(int p)
413 e37302c4 2004-04-21 devnull *pushptr++ = peek; /* watch out for this */
414 e37302c4 2004-04-21 devnull peek = p;
415 e37302c4 2004-04-21 devnull if(pushptr >= pushc+TOKENSIZE)
416 e37302c4 2004-04-21 devnull error("Too many characters pushed");
420 e37302c4 2004-04-21 devnull munputs(uchar *p)
422 e37302c4 2004-04-21 devnull int i,j;
423 e37302c4 2004-04-21 devnull *pushptr++ = peek;
424 e37302c4 2004-04-21 devnull peek = p[0];
425 e37302c4 2004-04-21 devnull i = strlen((char*)p);
426 e37302c4 2004-04-21 devnull for(j = i-1; j>=1; j--)
427 e37302c4 2004-04-21 devnull *pushptr++ = p[j];
428 e37302c4 2004-04-21 devnull if(pushptr >= pushc+TOKENSIZE)
429 e37302c4 2004-04-21 devnull error("Too many characters pushed");
433 e37302c4 2004-04-21 devnull dupl(int n)
435 e37302c4 2004-04-21 devnull /* duplicate the subtree whose root is n, return ptr to it */
438 e37302c4 2004-04-21 devnull i = name[n];
439 e37302c4 2004-04-21 devnull if(i < NCH) return(mn0(i));
440 e37302c4 2004-04-21 devnull switch(i){
441 e37302c4 2004-04-21 devnull case RNULLS:
442 e37302c4 2004-04-21 devnull return(mn0(i));
443 0afb7989 2006-04-20 devnull case RCCL: case RNCCL:
444 0afb7989 2006-04-20 devnull return(mnp(i,ptr[n]));
445 0afb7989 2006-04-20 devnull case FINAL: case S1FINAL: case S2FINAL:
446 e37302c4 2004-04-21 devnull return(mn1(i,left[n]));
447 e37302c4 2004-04-21 devnull case STAR: case QUEST: case PLUS: case CARAT:
448 e37302c4 2004-04-21 devnull return(mn1(i,dupl(left[n])));
449 e37302c4 2004-04-21 devnull case RSTR: case RSCON:
450 e37302c4 2004-04-21 devnull return(mn2(i,dupl(left[n]),right[n]));
451 e37302c4 2004-04-21 devnull case BAR: case RNEWE: case RCAT: case DIV:
452 e37302c4 2004-04-21 devnull return(mn2(i,dupl(left[n]),dupl(right[n])));
453 e37302c4 2004-04-21 devnull # ifdef DEBUG
454 e37302c4 2004-04-21 devnull default:
455 e37302c4 2004-04-21 devnull warning("bad switch dupl %d",n);
458 e37302c4 2004-04-21 devnull return(0);
461 e37302c4 2004-04-21 devnull # ifdef DEBUG
463 e37302c4 2004-04-21 devnull allprint(int c)
465 0afb7989 2006-04-20 devnull if(c < 0)
466 0afb7989 2006-04-20 devnull c += 256; /* signed char */
467 e37302c4 2004-04-21 devnull switch(c){
468 e37302c4 2004-04-21 devnull case 014:
469 e37302c4 2004-04-21 devnull print("\\f");
470 e37302c4 2004-04-21 devnull charc++;
472 e37302c4 2004-04-21 devnull case '\n':
473 e37302c4 2004-04-21 devnull print("\\n");
474 e37302c4 2004-04-21 devnull charc++;
476 e37302c4 2004-04-21 devnull case '\t':
477 e37302c4 2004-04-21 devnull print("\\t");
478 e37302c4 2004-04-21 devnull charc++;
480 e37302c4 2004-04-21 devnull case '\b':
481 e37302c4 2004-04-21 devnull print("\\b");
482 e37302c4 2004-04-21 devnull charc++;
484 e37302c4 2004-04-21 devnull case ' ':
485 e37302c4 2004-04-21 devnull print("\\\bb");
487 e37302c4 2004-04-21 devnull default:
488 e37302c4 2004-04-21 devnull if(!isprint(c)){
489 e37302c4 2004-04-21 devnull print("\\%-3o",c);
490 e37302c4 2004-04-21 devnull charc += 3;
492 e37302c4 2004-04-21 devnull print("%c", c);
495 e37302c4 2004-04-21 devnull charc++;
499 e37302c4 2004-04-21 devnull strpt(uchar *s)
501 e37302c4 2004-04-21 devnull charc = 0;
502 e37302c4 2004-04-21 devnull while(*s){
503 e37302c4 2004-04-21 devnull allprint(*s++);
504 e37302c4 2004-04-21 devnull if(charc > LINESIZE){
505 e37302c4 2004-04-21 devnull charc = 0;
506 e37302c4 2004-04-21 devnull print("\n\t");
512 e37302c4 2004-04-21 devnull sect1dump(void)
516 e37302c4 2004-04-21 devnull print("Sect 1:\n");
517 e37302c4 2004-04-21 devnull if(def[0]){
518 e37302c4 2004-04-21 devnull print("str trans\n");
520 e37302c4 2004-04-21 devnull while(def[++i])
521 e37302c4 2004-04-21 devnull print("%s\t%s\n",def[i],subs[i]);
523 e37302c4 2004-04-21 devnull if(sname[0]){
524 e37302c4 2004-04-21 devnull print("start names\n");
526 e37302c4 2004-04-21 devnull while(sname[++i])
527 e37302c4 2004-04-21 devnull print("%s\n",sname[i]);
532 e37302c4 2004-04-21 devnull sect2dump(void)
534 e37302c4 2004-04-21 devnull print("Sect 2:\n");
535 e37302c4 2004-04-21 devnull treedump();
539 e37302c4 2004-04-21 devnull treedump(void)
542 e37302c4 2004-04-21 devnull uchar *p;
543 e37302c4 2004-04-21 devnull print("treedump %d nodes:\n",tptr);
544 e37302c4 2004-04-21 devnull for(t=0;t<tptr;t++){
545 e37302c4 2004-04-21 devnull print("%4d ",t);
546 e37302c4 2004-04-21 devnull parent[t] ? print("p=%4d",parent[t]) : print(" ");
547 e37302c4 2004-04-21 devnull print(" ");
548 e37302c4 2004-04-21 devnull if(name[t] < NCH)
549 e37302c4 2004-04-21 devnull allprint(name[t]);
550 e37302c4 2004-04-21 devnull else switch(name[t]){
551 e37302c4 2004-04-21 devnull case RSTR:
552 e37302c4 2004-04-21 devnull print("%d ",left[t]);
553 e37302c4 2004-04-21 devnull allprint(right[t]);
555 e37302c4 2004-04-21 devnull case RCCL:
556 e37302c4 2004-04-21 devnull print("ccl ");
557 0afb7989 2006-04-20 devnull allprint(ptr[t]);
559 e37302c4 2004-04-21 devnull case RNCCL:
560 e37302c4 2004-04-21 devnull print("nccl ");
561 0afb7989 2006-04-20 devnull allprint(ptr[t]);
563 e37302c4 2004-04-21 devnull case DIV:
564 e37302c4 2004-04-21 devnull print("/ %d %d",left[t],right[t]);
566 e37302c4 2004-04-21 devnull case BAR:
567 e37302c4 2004-04-21 devnull print("| %d %d",left[t],right[t]);
569 e37302c4 2004-04-21 devnull case RCAT:
570 e37302c4 2004-04-21 devnull print("cat %d %d",left[t],right[t]);
572 e37302c4 2004-04-21 devnull case PLUS:
573 e37302c4 2004-04-21 devnull print("+ %d",left[t]);
575 e37302c4 2004-04-21 devnull case STAR:
576 e37302c4 2004-04-21 devnull print("* %d",left[t]);
578 e37302c4 2004-04-21 devnull case CARAT:
579 e37302c4 2004-04-21 devnull print("^ %d",left[t]);
581 e37302c4 2004-04-21 devnull case QUEST:
582 e37302c4 2004-04-21 devnull print("? %d",left[t]);
584 e37302c4 2004-04-21 devnull case RNULLS:
585 e37302c4 2004-04-21 devnull print("nullstring");
587 e37302c4 2004-04-21 devnull case FINAL:
588 e37302c4 2004-04-21 devnull print("final %d",left[t]);
590 e37302c4 2004-04-21 devnull case S1FINAL:
591 e37302c4 2004-04-21 devnull print("s1final %d",left[t]);
593 e37302c4 2004-04-21 devnull case S2FINAL:
594 e37302c4 2004-04-21 devnull print("s2final %d",left[t]);
596 e37302c4 2004-04-21 devnull case RNEWE:
597 e37302c4 2004-04-21 devnull print("new %d %d",left[t],right[t]);
599 e37302c4 2004-04-21 devnull case RSCON:
600 e37302c4 2004-04-21 devnull p = (uchar *)right[t];
601 e37302c4 2004-04-21 devnull print("start %s",sname[*p++-1]);
602 e37302c4 2004-04-21 devnull while(*p)
603 e37302c4 2004-04-21 devnull print(", %s",sname[*p++-1]);
604 e37302c4 2004-04-21 devnull print(" %d",left[t]);
606 e37302c4 2004-04-21 devnull default:
607 e37302c4 2004-04-21 devnull print("unknown %d %d %d",name[t],left[t],right[t]);
610 e37302c4 2004-04-21 devnull if(nullstr[t])print("\t(null poss.)");
611 e37302c4 2004-04-21 devnull print("\n");