878ddf1f |
1 | <<\r |
2 | /* parser.dlg -- DLG Description of scanner\r |
3 | *\r |
4 | * Generated from: antlr.g\r |
5 | *\r |
6 | * Terence Parr, Will Cohen, and Hank Dietz: 1989-2001\r |
7 | * Purdue University Electrical Engineering\r |
8 | * With AHPCRC, University of Minnesota\r |
9 | * ANTLR Version 1.33MR33\r |
10 | */\r |
11 | \r |
12 | #define ANTLR_VERSION 13333\r |
13 | #include "pcctscfg.h"\r |
14 | #include "pccts_stdio.h"\r |
15 | \r |
16 | #include "pcctscfg.h"\r |
17 | #include "set.h"\r |
18 | #include <ctype.h>\r |
19 | #include "syn.h"\r |
20 | #include "hash.h"\r |
21 | #include "generic.h"\r |
22 | #define zzcr_attr(attr,tok,t)\r |
23 | #include "antlr.h"\r |
24 | #include "tokens.h"\r |
25 | #include "dlgdef.h"\r |
26 | LOOKAHEAD\r |
27 | \r |
28 | void\r |
29 | #ifdef __USE_PROTOS\r |
30 | zzerraction(void)\r |
31 | #else\r |
32 | zzerraction()\r |
33 | #endif\r |
34 | {\r |
35 | (*zzerr)("invalid token");\r |
36 | zzadvance();\r |
37 | zzskip();\r |
38 | }\r |
39 | >>\r |
40 | \r |
41 | <<%%lexaction\r |
42 | \r |
43 | /* maintained, but not used for now */\r |
44 | set AST_nodes_refd_in_actions = set_init;\r |
45 | int inAlt = 0;\r |
46 | set attribsRefdFromAction = set_init; /* MR20 */\r |
47 | int UsedOldStyleAttrib = 0;\r |
48 | int UsedNewStyleLabel = 0;\r |
49 | #ifdef __USE_PROTOS\r |
50 | char *inline_set(char *);\r |
51 | #else\r |
52 | char *inline_set();\r |
53 | #endif\r |
54 | \r |
55 | /* MR1 10-Apr-97 MR1 Previously unable to put right shift operator */\r |
56 | /* MR1 in DLG action */\r |
57 | \r |
58 | int tokenActionActive=0; /* MR1 */\r |
59 | \r |
60 | \r |
61 | >>\r |
62 | \r |
63 | <<%%lexaction\r |
64 | \r |
65 | \r |
66 | static char *\r |
67 | #ifdef __USE_PROTOS\r |
68 | getFileNameFromTheLineInfo(char *toStr, char *fromStr)\r |
69 | #else\r |
70 | getFileNameFromTheLineInfo(toStr, fromStr)\r |
71 | char *toStr, *fromStr;\r |
72 | #endif\r |
73 | {\r |
74 | int i, j, k;\r |
75 | \r |
76 | if (!fromStr || !toStr) return toStr;\r |
77 | \r |
78 | /* find the first " */\r |
79 | \r |
80 | for (i=0;\r |
81 | (i<MaxFileName) &&\r |
82 | (fromStr[i] != '\n') &&\r |
83 | (fromStr[i] != '\r') &&\r |
84 | (fromStr[i] != '\"');\r |
85 | i++) /* nothing */ ;\r |
86 | \r |
87 | if ( (i == MaxFileName) ||\r |
88 | (fromStr[i] == '\n') ||\r |
89 | (fromStr[i] == '\r') ) {\r |
90 | return toStr;\r |
91 | }\r |
92 | \r |
93 | /* find the second " */\r |
94 | \r |
95 | for (j=i+1;\r |
96 | (j<MaxFileName) &&\r |
97 | (fromStr[j] != '\n') &&\r |
98 | (fromStr[j] != '\r') &&\r |
99 | (fromStr[j] != '\"');\r |
100 | j++) /* nothing */ ;\r |
101 | \r |
102 | if ((j == MaxFileName) ||\r |
103 | (fromStr[j] == '\n') ||\r |
104 | (fromStr[j] == '\r') ) {\r |
105 | return toStr;\r |
106 | }\r |
107 | \r |
108 | /* go back until the last / or \ */\r |
109 | \r |
110 | for (k=j-1;\r |
111 | (fromStr[k] != '\"') &&\r |
112 | (fromStr[k] != '/') &&\r |
113 | (fromStr[k] != '\\');\r |
114 | k--) /* nothing */ ;\r |
115 | \r |
116 | /* copy the string after " / or \ into toStr */\r |
117 | \r |
118 | for (i=k+1; fromStr[i] != '\"'; i++) {\r |
119 | toStr[i-k-1] = fromStr[i];\r |
120 | }\r |
121 | \r |
122 | toStr[i-k-1] = '\0';\r |
123 | \r |
124 | return toStr;\r |
125 | }\r |
126 | \r |
127 | /* MR14 end of a block to support #line in antlr source code */\r |
128 | \r |
129 | \r |
130 | >>\r |
131 | \r |
132 | <<%%lexaction\r |
133 | \r |
134 | #ifdef __USE_PROTOS\r |
135 | void mark_label_used_in_sem_pred(LabelEntry *le) /* MR10 */\r |
136 | #else\r |
137 | void mark_label_used_in_sem_pred(le) /* MR10 */\r |
138 | LabelEntry *le;\r |
139 | #endif\r |
140 | {\r |
141 | TokNode *tn;\r |
142 | require (le->elem->ntype == nToken,"mark_label_used... ntype != nToken");\r |
143 | tn=(TokNode *)le->elem;\r |
144 | require (tn->label != 0,"mark_label_used... TokNode has no label");\r |
145 | tn->label_used_in_semantic_pred=1;\r |
146 | }\r |
147 | >>\r |
148 | \r |
149 | \r |
150 | %%START\r |
151 | \r |
152 | @\r |
153 | <<\r |
154 | NLA = Eof;\r |
155 | /* L o o k F o r A n o t h e r F i l e */\r |
156 | {\r |
157 | FILE *new_input;\r |
158 | new_input = NextFile();\r |
159 | if ( new_input == NULL ) { NLA=Eof; return; }\r |
160 | fclose( input );\r |
161 | input = new_input;\r |
162 | zzrdstream( input );\r |
163 | zzskip(); /* Skip the Eof (@) char i.e continue */\r |
164 | }\r |
165 | >>\r |
166 | \r |
167 | [\t\ ]+\r |
168 | <<\r |
169 | NLA = 76;\r |
170 | zzskip(); \r |
171 | >>\r |
172 | \r |
173 | \n|\r|\r\n\r |
174 | <<\r |
175 | NLA = 77;\r |
176 | zzline++; zzskip(); \r |
177 | >>\r |
178 | \r |
179 | \[\r |
180 | <<\r |
181 | NLA = 78;\r |
182 | zzmode(ACTIONS); zzmore();\r |
183 | istackreset();\r |
184 | pushint(']'); \r |
185 | >>\r |
186 | \r |
187 | \<\<\r |
188 | <<\r |
189 | NLA = 79;\r |
190 | action_file=CurFile; action_line=zzline;\r |
191 | zzmode(ACTIONS); zzmore();\r |
192 | list_free(&CurActionLabels,0); /* MR10 */\r |
193 | numericActionLabel=0; /* MR10 */\r |
194 | istackreset();\r |
195 | pushint('>'); \r |
196 | >>\r |
197 | \r |
198 | \"\r |
199 | <<\r |
200 | NLA = 80;\r |
201 | zzmode(STRINGS); zzmore(); \r |
202 | >>\r |
203 | \r |
204 | /\*\r |
205 | <<\r |
206 | NLA = 81;\r |
207 | zzmode(COMMENTS); zzskip(); \r |
208 | >>\r |
209 | \r |
210 | \*/\r |
211 | <<\r |
212 | NLA = 82;\r |
213 | warn("Missing /*; found dangling */"); zzskip(); \r |
214 | >>\r |
215 | \r |
216 | //\r |
217 | <<\r |
218 | NLA = 83;\r |
219 | zzmode(CPP_COMMENTS); zzskip(); \r |
220 | >>\r |
221 | \r |
222 | #line[\ \t]* [0-9]+ {[\ \t]* \"~[\"]+\" ([\ \t]* [0-9]*)* } (\n|\r|\r\n)\r |
223 | <<\r |
224 | NLA = 84;\r |
225 | \r |
226 | zzline = atoi(zzbegexpr+5) - 1; zzline++; zzmore();\r |
227 | getFileNameFromTheLineInfo(FileStr[CurFile], zzbegexpr);\r |
228 | >>\r |
229 | \r |
230 | #line ~[\n\r]* (\n|\r|\r\n)\r |
231 | <<\r |
232 | NLA = 85;\r |
233 | \r |
234 | zzline++; zzmore();\r |
235 | >>\r |
236 | \r |
237 | \>\>\r |
238 | <<\r |
239 | NLA = 86;\r |
240 | warn("Missing <<; found dangling \>\>"); zzskip(); \r |
241 | >>\r |
242 | \r |
243 | .\r |
244 | <<\r |
245 | NLA = WildCard;\r |
246 | >>\r |
247 | \r |
248 | \@\r |
249 | <<\r |
250 | NLA = 88;\r |
251 | FoundException = 1; /* MR6 */\r |
252 | FoundAtOperator = 1; \r |
253 | >>\r |
254 | \r |
255 | {\\}#pragma\r |
256 | <<\r |
257 | NLA = Pragma;\r |
258 | >>\r |
259 | \r |
260 | {\\}#FirstSetSymbol\r |
261 | <<\r |
262 | NLA = FirstSetSymbol;\r |
263 | >>\r |
264 | \r |
265 | {\\}#header\r |
266 | <<\r |
267 | NLA = 94;\r |
268 | >>\r |
269 | \r |
270 | {\\}#first\r |
271 | <<\r |
272 | NLA = 95;\r |
273 | >>\r |
274 | \r |
275 | {\\}#parser\r |
276 | <<\r |
277 | NLA = 96;\r |
278 | >>\r |
279 | \r |
280 | {\\}#tokdefs\r |
281 | <<\r |
282 | NLA = 97;\r |
283 | >>\r |
284 | \r |
285 | \}\r |
286 | <<\r |
287 | NLA = 98;\r |
288 | >>\r |
289 | \r |
290 | class\r |
291 | <<\r |
292 | NLA = 99;\r |
293 | >>\r |
294 | \r |
295 | \{\r |
296 | <<\r |
297 | NLA = 102;\r |
298 | >>\r |
299 | \r |
300 | !\r |
301 | <<\r |
302 | NLA = 103;\r |
303 | >>\r |
304 | \r |
305 | \<\r |
306 | <<\r |
307 | NLA = 104;\r |
308 | >>\r |
309 | \r |
310 | \>\r |
311 | <<\r |
312 | NLA = 105;\r |
313 | >>\r |
314 | \r |
315 | :\r |
316 | <<\r |
317 | NLA = 106;\r |
318 | >>\r |
319 | \r |
320 | ;\r |
321 | <<\r |
322 | NLA = 107;\r |
323 | >>\r |
324 | \r |
325 | {\\}#lexaction\r |
326 | <<\r |
327 | NLA = 108;\r |
328 | >>\r |
329 | \r |
330 | {\\}#lexmember\r |
331 | <<\r |
332 | NLA = 109;\r |
333 | >>\r |
334 | \r |
335 | {\\}#lexprefix\r |
336 | <<\r |
337 | NLA = 110;\r |
338 | >>\r |
339 | \r |
340 | {\\}#pred\r |
341 | <<\r |
342 | NLA = 111;\r |
343 | >>\r |
344 | \r |
345 | \|\|\r |
346 | <<\r |
347 | NLA = 112;\r |
348 | >>\r |
349 | \r |
350 | &&\r |
351 | <<\r |
352 | NLA = 113;\r |
353 | >>\r |
354 | \r |
355 | \(\r |
356 | <<\r |
357 | NLA = 114;\r |
358 | >>\r |
359 | \r |
360 | \)\r |
361 | <<\r |
362 | NLA = 115;\r |
363 | >>\r |
364 | \r |
365 | {\\}#lexclass\r |
366 | <<\r |
367 | NLA = 116;\r |
368 | >>\r |
369 | \r |
370 | {\\}#errclass\r |
371 | <<\r |
372 | NLA = 117;\r |
373 | >>\r |
374 | \r |
375 | {\\}#tokclass\r |
376 | <<\r |
377 | NLA = 118;\r |
378 | >>\r |
379 | \r |
380 | ..\r |
381 | <<\r |
382 | NLA = 119;\r |
383 | >>\r |
384 | \r |
385 | {\\}#token\r |
386 | <<\r |
387 | NLA = 120;\r |
388 | >>\r |
389 | \r |
390 | =\r |
391 | <<\r |
392 | NLA = 121;\r |
393 | >>\r |
394 | \r |
395 | [0-9]+\r |
396 | <<\r |
397 | NLA = 122;\r |
398 | >>\r |
399 | \r |
400 | \|\r |
401 | <<\r |
402 | NLA = 123;\r |
403 | >>\r |
404 | \r |
405 | \~\r |
406 | <<\r |
407 | NLA = 124;\r |
408 | >>\r |
409 | \r |
410 | ^\r |
411 | <<\r |
412 | NLA = 125;\r |
413 | >>\r |
414 | \r |
415 | approx\r |
416 | <<\r |
417 | NLA = 126;\r |
418 | >>\r |
419 | \r |
420 | LL\(1\)\r |
421 | <<\r |
422 | NLA = 127;\r |
423 | >>\r |
424 | \r |
425 | LL\(2\)\r |
426 | <<\r |
427 | NLA = 128;\r |
428 | >>\r |
429 | \r |
430 | \*\r |
431 | <<\r |
432 | NLA = 129;\r |
433 | >>\r |
434 | \r |
435 | \+\r |
436 | <<\r |
437 | NLA = 130;\r |
438 | >>\r |
439 | \r |
440 | ?\r |
441 | <<\r |
442 | NLA = 131;\r |
443 | >>\r |
444 | \r |
445 | =>\r |
446 | <<\r |
447 | NLA = 132;\r |
448 | >>\r |
449 | \r |
450 | exception\r |
451 | <<\r |
452 | NLA = 133;\r |
453 | >>\r |
454 | \r |
455 | default\r |
456 | <<\r |
457 | NLA = 134;\r |
458 | >>\r |
459 | \r |
460 | catch\r |
461 | <<\r |
462 | NLA = 135;\r |
463 | >>\r |
464 | \r |
465 | [a-z] [A-Za-z0-9_]*\r |
466 | <<\r |
467 | NLA = NonTerminal;\r |
468 | \r |
469 | while ( zzchar==' ' || zzchar=='\t' ) {\r |
470 | zzadvance();\r |
471 | }\r |
472 | if ( zzchar == ':' && inAlt ) NLA = LABEL;\r |
473 | >>\r |
474 | \r |
475 | [A-Z] [A-Za-z0-9_]*\r |
476 | <<\r |
477 | NLA = TokenTerm;\r |
478 | \r |
479 | while ( zzchar==' ' || zzchar=='\t' ) {\r |
480 | zzadvance();\r |
481 | }\r |
482 | if ( zzchar == ':' && inAlt ) NLA = LABEL;\r |
483 | >>\r |
484 | \r |
485 | {\\}#[A-Za-z0-9_]*\r |
486 | <<\r |
487 | NLA = 136;\r |
488 | warn(eMsg1("unknown meta-op: %s",LATEXT(1))); zzskip(); \r |
489 | >>\r |
490 | \r |
491 | \r |
492 | %%STRINGS\r |
493 | \r |
494 | @\r |
495 | <<\r |
496 | NLA = Eof;\r |
497 | >>\r |
498 | \r |
499 | \"\r |
500 | <<\r |
501 | NLA = QuotedTerm;\r |
502 | zzmode(START); \r |
503 | >>\r |
504 | \r |
505 | \n|\r|\r\n\r |
506 | <<\r |
507 | NLA = 3;\r |
508 | \r |
509 | zzline++;\r |
510 | warn("eoln found in string");\r |
511 | zzskip();\r |
512 | >>\r |
513 | \r |
514 | \\(\n|\r|\r\n)\r |
515 | <<\r |
516 | NLA = 4;\r |
517 | zzline++; zzmore(); \r |
518 | >>\r |
519 | \r |
520 | \\~[]\r |
521 | <<\r |
522 | NLA = 5;\r |
523 | zzmore(); \r |
524 | >>\r |
525 | \r |
526 | ~[\n\r\"\\]+\r |
527 | <<\r |
528 | NLA = 6;\r |
529 | zzmore(); \r |
530 | >>\r |
531 | \r |
532 | \r |
533 | %%ACTION_STRINGS\r |
534 | \r |
535 | @\r |
536 | <<\r |
537 | NLA = Eof;\r |
538 | >>\r |
539 | \r |
540 | \"\r |
541 | <<\r |
542 | NLA = 7;\r |
543 | zzmode(ACTIONS); zzmore(); \r |
544 | >>\r |
545 | \r |
546 | \n|\r|\r\n\r |
547 | <<\r |
548 | NLA = 8;\r |
549 | \r |
550 | zzline++;\r |
551 | warn("eoln found in string (in user action)");\r |
552 | zzskip();\r |
553 | >>\r |
554 | \r |
555 | \\(\n|\r|\r\n)\r |
556 | <<\r |
557 | NLA = 9;\r |
558 | zzline++; zzmore(); \r |
559 | >>\r |
560 | \r |
561 | \\~[]\r |
562 | <<\r |
563 | NLA = 10;\r |
564 | zzmore(); \r |
565 | >>\r |
566 | \r |
567 | ~[\n\r\"\\]+\r |
568 | <<\r |
569 | NLA = 11;\r |
570 | zzmore(); \r |
571 | >>\r |
572 | \r |
573 | \r |
574 | %%ACTION_CHARS\r |
575 | \r |
576 | @\r |
577 | <<\r |
578 | NLA = Eof;\r |
579 | >>\r |
580 | \r |
581 | '\r |
582 | <<\r |
583 | NLA = 12;\r |
584 | zzmode(ACTIONS); zzmore(); \r |
585 | >>\r |
586 | \r |
587 | \n|\r|\r\n\r |
588 | <<\r |
589 | NLA = 13;\r |
590 | \r |
591 | zzline++;\r |
592 | warn("eoln found in char literal (in user action)");\r |
593 | zzskip();\r |
594 | >>\r |
595 | \r |
596 | \\~[]\r |
597 | <<\r |
598 | NLA = 14;\r |
599 | zzmore(); \r |
600 | >>\r |
601 | \r |
602 | ~[\n\r'\\]+\r |
603 | <<\r |
604 | NLA = 15;\r |
605 | zzmore(); \r |
606 | >>\r |
607 | \r |
608 | \r |
609 | %%ACTION_COMMENTS\r |
610 | \r |
611 | @\r |
612 | <<\r |
613 | NLA = Eof;\r |
614 | >>\r |
615 | \r |
616 | \*/\r |
617 | <<\r |
618 | NLA = 16;\r |
619 | zzmode(ACTIONS); zzmore(); \r |
620 | >>\r |
621 | \r |
622 | \*\r |
623 | <<\r |
624 | NLA = 17;\r |
625 | zzmore(); \r |
626 | >>\r |
627 | \r |
628 | \n|\r|\r\n\r |
629 | <<\r |
630 | NLA = 18;\r |
631 | zzline++; zzmore(); DAWDLE; \r |
632 | >>\r |
633 | \r |
634 | ~[\n\r\*]+\r |
635 | <<\r |
636 | NLA = 19;\r |
637 | zzmore(); \r |
638 | >>\r |
639 | \r |
640 | \r |
641 | %%TOK_DEF_COMMENTS\r |
642 | \r |
643 | @\r |
644 | <<\r |
645 | NLA = Eof;\r |
646 | >>\r |
647 | \r |
648 | \*/\r |
649 | <<\r |
650 | NLA = 20;\r |
651 | zzmode(PARSE_ENUM_FILE);\r |
652 | zzmore(); \r |
653 | >>\r |
654 | \r |
655 | \*\r |
656 | <<\r |
657 | NLA = 21;\r |
658 | zzmore(); \r |
659 | >>\r |
660 | \r |
661 | \n|\r|\r\n\r |
662 | <<\r |
663 | NLA = 22;\r |
664 | zzline++; zzmore(); DAWDLE; \r |
665 | >>\r |
666 | \r |
667 | ~[\n\r\*]+\r |
668 | <<\r |
669 | NLA = 23;\r |
670 | zzmore(); \r |
671 | >>\r |
672 | \r |
673 | \r |
674 | %%TOK_DEF_CPP_COMMENTS\r |
675 | \r |
676 | @\r |
677 | <<\r |
678 | NLA = Eof;\r |
679 | >>\r |
680 | \r |
681 | \n|\r|\r\n\r |
682 | <<\r |
683 | NLA = 24;\r |
684 | zzline++; zzmode(PARSE_ENUM_FILE); zzskip(); DAWDLE; \r |
685 | >>\r |
686 | \r |
687 | ~[\n\r]+\r |
688 | <<\r |
689 | NLA = 25;\r |
690 | zzskip(); \r |
691 | >>\r |
692 | \r |
693 | \r |
694 | %%ACTION_CPP_COMMENTS\r |
695 | \r |
696 | @\r |
697 | <<\r |
698 | NLA = Eof;\r |
699 | >>\r |
700 | \r |
701 | \n|\r|\r\n\r |
702 | <<\r |
703 | NLA = 26;\r |
704 | zzline++; zzmode(ACTIONS); zzmore(); DAWDLE; \r |
705 | >>\r |
706 | \r |
707 | ~[\n\r]+\r |
708 | <<\r |
709 | NLA = 27;\r |
710 | zzmore(); \r |
711 | >>\r |
712 | \r |
713 | \r |
714 | %%CPP_COMMENTS\r |
715 | \r |
716 | @\r |
717 | <<\r |
718 | NLA = Eof;\r |
719 | >>\r |
720 | \r |
721 | \n|\r|\r\n\r |
722 | <<\r |
723 | NLA = 28;\r |
724 | zzline++; zzmode(START); zzskip(); DAWDLE; \r |
725 | >>\r |
726 | \r |
727 | ~[\n\r]+\r |
728 | <<\r |
729 | NLA = 29;\r |
730 | zzskip(); \r |
731 | >>\r |
732 | \r |
733 | \r |
734 | %%COMMENTS\r |
735 | \r |
736 | @\r |
737 | <<\r |
738 | NLA = Eof;\r |
739 | >>\r |
740 | \r |
741 | \*/\r |
742 | <<\r |
743 | NLA = 30;\r |
744 | zzmode(START); zzskip(); \r |
745 | >>\r |
746 | \r |
747 | \*\r |
748 | <<\r |
749 | NLA = 31;\r |
750 | zzskip(); \r |
751 | >>\r |
752 | \r |
753 | \n|\r|\r\n\r |
754 | <<\r |
755 | NLA = 32;\r |
756 | zzline++; zzskip(); DAWDLE; \r |
757 | >>\r |
758 | \r |
759 | ~[\n\r\*]+\r |
760 | <<\r |
761 | NLA = 33;\r |
762 | zzskip(); \r |
763 | >>\r |
764 | \r |
765 | \r |
766 | %%ACTIONS\r |
767 | \r |
768 | @\r |
769 | <<\r |
770 | NLA = Eof;\r |
771 | >>\r |
772 | \r |
773 | \>\>\r |
774 | <<\r |
775 | NLA = Action;\r |
776 | /* these do not nest */\r |
777 | zzmode(START);\r |
778 | NLATEXT[0] = ' ';\r |
779 | NLATEXT[1] = ' ';\r |
780 | zzbegexpr[0] = ' ';\r |
781 | zzbegexpr[1] = ' ';\r |
782 | if ( zzbufovf ) {\r |
783 | err( eMsgd("action buffer overflow; size %d",ZZLEXBUFSIZE));\r |
784 | }\r |
785 | \r |
786 | /* MR1 10-Apr-97 MR1 Previously unable to put right shift operator */\r |
787 | /* MR1 in DLG action */\r |
788 | /* MR1 Doesn't matter what kind of action it is - reset*/\r |
789 | \r |
790 | tokenActionActive=0; /* MR1 */\r |
791 | >>\r |
792 | \r |
793 | \>\>?\r |
794 | <<\r |
795 | NLA = Pred;\r |
796 | /* these do not nest */\r |
797 | zzmode(START);\r |
798 | NLATEXT[0] = ' ';\r |
799 | NLATEXT[1] = ' ';\r |
800 | zzbegexpr[0] = '\0';\r |
801 | if ( zzbufovf ) {\r |
802 | err( eMsgd("predicate buffer overflow; size %d",ZZLEXBUFSIZE));\r |
803 | };\r |
804 | #ifdef __cplusplus__\r |
805 | /* MR10 */ list_apply(CurActionLabels, (void (*)(void *))mark_label_used_in_sem_pred);\r |
806 | #else\r |
807 | #ifdef __STDC__\r |
808 | /* MR10 */ list_apply(CurActionLabels, (void (*)(void *))mark_label_used_in_sem_pred);\r |
809 | #else\r |
810 | #ifdef __USE_PROTOS\r |
811 | /* MRxx */ list_apply(CurActionLabels, (void (*)(void *))mark_label_used_in_sem_pred);\r |
812 | #else\r |
813 | /* MR10 */ list_apply(CurActionLabels,mark_label_used_in_sem_pred);\r |
814 | #endif\r |
815 | #endif\r |
816 | #endif\r |
817 | >>\r |
818 | \r |
819 | \]\r |
820 | <<\r |
821 | NLA = PassAction;\r |
822 | if ( topint() == ']' ) {\r |
823 | popint();\r |
824 | if ( istackempty() ) /* terminate action */\r |
825 | {\r |
826 | zzmode(START);\r |
827 | NLATEXT[0] = ' ';\r |
828 | zzbegexpr[0] = ' ';\r |
829 | if ( zzbufovf ) {\r |
830 | err( eMsgd("parameter buffer overflow; size %d",ZZLEXBUFSIZE));\r |
831 | }\r |
832 | }\r |
833 | else {\r |
834 | /* terminate $[..] and #[..] */\r |
835 | if ( GenCC ) zzreplstr("))");\r |
836 | else zzreplstr(")");\r |
837 | zzmore();\r |
838 | }\r |
839 | }\r |
840 | else if ( topint() == '|' ) { /* end of simple [...] */\r |
841 | popint();\r |
842 | zzmore();\r |
843 | }\r |
844 | else zzmore();\r |
845 | >>\r |
846 | \r |
847 | consumeUntil\( [\ \t]* \{~[\}]+\} [\ \t]* \)\r |
848 | <<\r |
849 | NLA = 37;\r |
850 | \r |
851 | zzmore();\r |
852 | zzreplstr(inline_set(zzbegexpr+\r |
853 | strlen("consumeUntil(")));\r |
854 | >>\r |
855 | \r |
856 | consumeUntil\( ~[\)]+ \)\r |
857 | <<\r |
858 | NLA = 38;\r |
859 | zzmore(); \r |
860 | >>\r |
861 | \r |
862 | \n|\r|\r\n\r |
863 | <<\r |
864 | NLA = 39;\r |
865 | zzline++; zzmore(); DAWDLE; \r |
866 | >>\r |
867 | \r |
868 | \>\r |
869 | <<\r |
870 | NLA = 40;\r |
871 | zzmore(); \r |
872 | >>\r |
873 | \r |
874 | $\r |
875 | <<\r |
876 | NLA = 41;\r |
877 | zzmore(); \r |
878 | >>\r |
879 | \r |
880 | $$\r |
881 | <<\r |
882 | NLA = 42;\r |
883 | if ( !GenCC ) {zzreplstr("zzaRet"); zzmore();}\r |
884 | else err("$$ use invalid in C++ mode"); \r |
885 | >>\r |
886 | \r |
887 | $\[\]\r |
888 | <<\r |
889 | NLA = 43;\r |
890 | if ( !GenCC ) {zzreplstr("zzempty_attr"); zzmore();}\r |
891 | else err("$[] use invalid in C++ mode"); \r |
892 | >>\r |
893 | \r |
894 | $\[\r |
895 | <<\r |
896 | NLA = 44;\r |
897 | \r |
898 | pushint(']');\r |
899 | if ( !GenCC ) zzreplstr("zzconstr_attr(");\r |
900 | else err("$[..] use invalid in C++ mode");\r |
901 | zzmore();\r |
902 | >>\r |
903 | \r |
904 | $[0-9]+\r |
905 | <<\r |
906 | NLA = 45;\r |
907 | {\r |
908 | static char buf[100];\r |
909 | numericActionLabel=1; /* MR10 */\r |
910 | if ( strlen(zzbegexpr)>(size_t)85 )\r |
911 | fatal("$i attrib ref too big");\r |
912 | set_orel(atoi(zzbegexpr+1), &attribsRefdFromAction);\r |
913 | if ( !GenCC ) sprintf(buf,"zzaArg(zztasp%d,%s)",\r |
914 | BlkLevel-1,zzbegexpr+1);\r |
915 | else sprintf(buf,"_t%d%s",\r |
916 | BlkLevel-1,zzbegexpr+1);\r |
917 | zzreplstr(buf);\r |
918 | zzmore();\r |
919 | UsedOldStyleAttrib = 1;\r |
920 | if ( UsedNewStyleLabel )\r |
921 | err("cannot mix old-style $i with new-style labels");\r |
922 | }\r |
923 | >>\r |
924 | \r |
925 | $[0-9]+.\r |
926 | <<\r |
927 | NLA = 46;\r |
928 | {\r |
929 | static char buf[100];\r |
930 | numericActionLabel=1; /* MR10 */\r |
931 | if ( strlen(zzbegexpr)>(size_t)85 )\r |
932 | fatal("$i.field attrib ref too big");\r |
933 | zzbegexpr[strlen(zzbegexpr)-1] = ' ';\r |
934 | set_orel(atoi(zzbegexpr+1), &attribsRefdFromAction);\r |
935 | if ( !GenCC ) sprintf(buf,"zzaArg(zztasp%d,%s).",\r |
936 | BlkLevel-1,zzbegexpr+1);\r |
937 | else sprintf(buf,"_t%d%s.",\r |
938 | BlkLevel-1,zzbegexpr+1);\r |
939 | zzreplstr(buf);\r |
940 | zzmore();\r |
941 | UsedOldStyleAttrib = 1;\r |
942 | if ( UsedNewStyleLabel )\r |
943 | err("cannot mix old-style $i with new-style labels");\r |
944 | }\r |
945 | >>\r |
946 | \r |
947 | $[0-9]+.[0-9]+\r |
948 | <<\r |
949 | NLA = 47;\r |
950 | {\r |
951 | static char buf[100];\r |
952 | static char i[20], j[20];\r |
953 | char *p,*q;\r |
954 | numericActionLabel=1; /* MR10 */\r |
955 | if (strlen(zzbegexpr)>(size_t)85) fatal("$i.j attrib ref too big");\r |
956 | for (p=zzbegexpr+1,q= &i[0]; *p!='.'; p++) {\r |
957 | if ( q == &i[20] )\r |
958 | fatalFL("i of $i.j attrib ref too big",\r |
959 | FileStr[CurFile], zzline );\r |
960 | *q++ = *p;\r |
961 | }\r |
962 | *q = '\0';\r |
963 | for (p++, q= &j[0]; *p!='\0'; p++) {\r |
964 | if ( q == &j[20] )\r |
965 | fatalFL("j of $i.j attrib ref too big",\r |
966 | FileStr[CurFile], zzline );\r |
967 | *q++ = *p;\r |
968 | }\r |
969 | *q = '\0';\r |
970 | if ( !GenCC ) sprintf(buf,"zzaArg(zztasp%s,%s)",i,j);\r |
971 | else sprintf(buf,"_t%s%s",i,j);\r |
972 | zzreplstr(buf);\r |
973 | zzmore();\r |
974 | UsedOldStyleAttrib = 1;\r |
975 | if ( UsedNewStyleLabel )\r |
976 | err("cannot mix old-style $i with new-style labels");\r |
977 | }\r |
978 | >>\r |
979 | \r |
980 | $[_a-zA-Z][_a-zA-Z0-9]*\r |
981 | <<\r |
982 | NLA = 48;\r |
983 | { static char buf[300]; LabelEntry *el;\r |
984 | zzbegexpr[0] = ' ';\r |
985 | if ( CurRule != NULL &&\r |
986 | strcmp(CurRule, &zzbegexpr[1])==0 ) {\r |
987 | if ( !GenCC ) zzreplstr("zzaRet");\r |
988 | }\r |
989 | else if ( CurRetDef != NULL &&\r |
990 | strmember(CurRetDef, &zzbegexpr[1])) {\r |
991 | if ( hasMultipleOperands( CurRetDef ) ) {\r |
992 | require (strlen(zzbegexpr)<=(size_t)285,\r |
993 | "$retval attrib ref too big");\r |
994 | sprintf(buf,"_retv.%s",&zzbegexpr[1]);\r |
995 | zzreplstr(buf);\r |
996 | }\r |
997 | else zzreplstr("_retv");\r |
998 | }\r |
999 | else if ( CurParmDef != NULL &&\r |
1000 | strmember(CurParmDef, &zzbegexpr[1])) {\r |
1001 | ;\r |
1002 | }\r |
1003 | else if ( Elabel==NULL ) {\r |
1004 | { err("$-variables in actions outside of rules are not allowed"); }\r |
1005 | } else if ( (el=(LabelEntry *)hash_get(Elabel, &zzbegexpr[1]))!=NULL ) {\r |
1006 | /* MR10 */\r |
1007 | /* MR10 */ /* element labels might exist without an elem when */\r |
1008 | /* MR10 */ /* it is a forward reference (to a rule) */\r |
1009 | /* MR10 */\r |
1010 | /* MR10 */ if ( GenCC && (el->elem == NULL || el->elem->ntype==nRuleRef) )\r |
1011 | /* MR10 */ { err(eMsg1("There are no token ptrs for rule references: '$%s'",&zzbegexpr[1])); }\r |
1012 | /* MR10 */\r |
1013 | /* MR10 */ if ( !GenCC && (el->elem == NULL || el->elem->ntype==nRuleRef) && GenAST) {\r |
1014 | /* MR10 */ err("You can no longer use attributes returned by rules when also using ASTs");\r |
1015 | /* MR10 */ err(" Use upward inheritance (\"rule >[Attrib a] : ... <<$a=...\>\>\")");\r |
1016 | /* MR10 */ };\r |
1017 | /* MR10 */\r |
1018 | /* MR10 */ /* keep track of <<... $label ...>> for semantic predicates in guess mode */\r |
1019 | /* MR10 */ /* element labels contain pointer to the owners node */\r |
1020 | /* MR10 */\r |
1021 | /* MR10 */ if (el->elem != NULL && el->elem->ntype == nToken) {\r |
1022 | /* MR10 */ list_add(&CurActionLabels,el);\r |
1023 | /* MR10 */ };\r |
1024 | }\r |
1025 | else\r |
1026 | warn(eMsg1("$%s not parameter, return value, (defined) element label",&zzbegexpr[1]));\r |
1027 | }\r |
1028 | zzmore();\r |
1029 | >>\r |
1030 | \r |
1031 | #0\r |
1032 | <<\r |
1033 | NLA = 49;\r |
1034 | zzreplstr("(*_root)"); zzmore(); chkGTFlag(); \r |
1035 | >>\r |
1036 | \r |
1037 | #\[\]\r |
1038 | <<\r |
1039 | NLA = 50;\r |
1040 | if ( GenCC ) {\r |
1041 | if (NewAST) zzreplstr("(newAST)");\r |
1042 | else zzreplstr("(new AST)");}\r |
1043 | else {zzreplstr("zzastnew()");} zzmore();\r |
1044 | chkGTFlag();\r |
1045 | >>\r |
1046 | \r |
1047 | #\(\)\r |
1048 | <<\r |
1049 | NLA = 51;\r |
1050 | zzreplstr("NULL"); zzmore(); chkGTFlag(); \r |
1051 | >>\r |
1052 | \r |
1053 | #[0-9]+\r |
1054 | <<\r |
1055 | NLA = 52;\r |
1056 | {\r |
1057 | static char buf[100];\r |
1058 | if ( strlen(zzbegexpr)>(size_t)85 )\r |
1059 | fatal("#i AST ref too big");\r |
1060 | if ( GenCC ) sprintf(buf,"_ast%d%s",BlkLevel-1,zzbegexpr+1);\r |
1061 | else sprintf(buf,"zzastArg(%s)",zzbegexpr+1);\r |
1062 | zzreplstr(buf);\r |
1063 | zzmore();\r |
1064 | set_orel(atoi(zzbegexpr+1), &AST_nodes_refd_in_actions);\r |
1065 | chkGTFlag();\r |
1066 | }\r |
1067 | >>\r |
1068 | \r |
1069 | #line[\ \t]* [0-9]+ {[\ \t]* \"~[\"]+\" ([\ \t]* [0-9]*)* } (\n|\r|\r\n)\r |
1070 | <<\r |
1071 | NLA = 53;\r |
1072 | \r |
1073 | zzline = atoi(zzbegexpr+5) - 1; zzline++; zzmore();\r |
1074 | getFileNameFromTheLineInfo(FileStr[CurFile], zzbegexpr);\r |
1075 | >>\r |
1076 | \r |
1077 | #line ~[\n\r]* (\n|\r|\r\n)\r |
1078 | <<\r |
1079 | NLA = 54;\r |
1080 | \r |
1081 | zzline++; zzmore();\r |
1082 | >>\r |
1083 | \r |
1084 | #[_a-zA-Z][_a-zA-Z0-9]*\r |
1085 | <<\r |
1086 | NLA = 55;\r |
1087 | \r |
1088 | if ( !(strcmp(zzbegexpr, "#ifdef")==0 ||\r |
1089 | strcmp(zzbegexpr, "#if")==0 ||\r |
1090 | strcmp(zzbegexpr, "#else")==0 ||\r |
1091 | strcmp(zzbegexpr, "#endif")==0 ||\r |
1092 | strcmp(zzbegexpr, "#ifndef")==0 ||\r |
1093 | strcmp(zzbegexpr, "#define")==0 ||\r |
1094 | strcmp(zzbegexpr, "#pragma")==0 ||\r |
1095 | strcmp(zzbegexpr, "#undef")==0 ||\r |
1096 | strcmp(zzbegexpr, "#import")==0 ||\r |
1097 | strcmp(zzbegexpr, "#line")==0 ||\r |
1098 | strcmp(zzbegexpr, "#include")==0 ||\r |
1099 | strcmp(zzbegexpr, "#error")==0) )\r |
1100 | {\r |
1101 | static char buf[100];\r |
1102 | sprintf(buf, "%s_ast", zzbegexpr+1);\r |
1103 | /* MR27 */ list_add(&CurAstLabelsInActions, mystrdup(zzbegexpr+1));\r |
1104 | zzreplstr(buf);\r |
1105 | chkGTFlag();\r |
1106 | }\r |
1107 | zzmore();\r |
1108 | >>\r |
1109 | \r |
1110 | #\[\r |
1111 | <<\r |
1112 | NLA = 56;\r |
1113 | \r |
1114 | pushint(']');\r |
1115 | if ( GenCC ) {\r |
1116 | if (NewAST) zzreplstr("(newAST(");\r |
1117 | else zzreplstr("(new AST("); }\r |
1118 | else zzreplstr("zzmk_ast(zzastnew(),");\r |
1119 | zzmore();\r |
1120 | chkGTFlag();\r |
1121 | >>\r |
1122 | \r |
1123 | #\(\r |
1124 | <<\r |
1125 | NLA = 57;\r |
1126 | \r |
1127 | pushint('}');\r |
1128 | if ( GenCC ) {\r |
1129 | if (tmakeInParser) {\r |
1130 | zzreplstr("tmake(");\r |
1131 | }\r |
1132 | else {\r |
1133 | zzreplstr("ASTBase::tmake(");\r |
1134 | }\r |
1135 | }\r |
1136 | else {\r |
1137 | zzreplstr("zztmake(");\r |
1138 | }\r |
1139 | zzmore();\r |
1140 | chkGTFlag();\r |
1141 | >>\r |
1142 | \r |
1143 | #\r |
1144 | <<\r |
1145 | NLA = 58;\r |
1146 | zzmore(); \r |
1147 | >>\r |
1148 | \r |
1149 | \)\r |
1150 | <<\r |
1151 | NLA = 59;\r |
1152 | \r |
1153 | if ( istackempty() )\r |
1154 | zzmore();\r |
1155 | else if ( topint()==')' ) {\r |
1156 | popint();\r |
1157 | }\r |
1158 | else if ( topint()=='}' ) {\r |
1159 | popint();\r |
1160 | /* terminate #(..) */\r |
1161 | zzreplstr(", NULL)");\r |
1162 | }\r |
1163 | zzmore();\r |
1164 | >>\r |
1165 | \r |
1166 | \[\r |
1167 | <<\r |
1168 | NLA = 60;\r |
1169 | \r |
1170 | pushint('|'); /* look for '|' to terminate simple [...] */\r |
1171 | zzmore();\r |
1172 | >>\r |
1173 | \r |
1174 | \(\r |
1175 | <<\r |
1176 | NLA = 61;\r |
1177 | \r |
1178 | pushint(')');\r |
1179 | zzmore();\r |
1180 | >>\r |
1181 | \r |
1182 | \\\]\r |
1183 | <<\r |
1184 | NLA = 62;\r |
1185 | zzreplstr("]"); zzmore(); \r |
1186 | >>\r |
1187 | \r |
1188 | \\\)\r |
1189 | <<\r |
1190 | NLA = 63;\r |
1191 | zzreplstr(")"); zzmore(); \r |
1192 | >>\r |
1193 | \r |
1194 | \\>\r |
1195 | <<\r |
1196 | NLA = 64;\r |
1197 | if (! tokenActionActive) zzreplstr(">"); /* MR1 */\r |
1198 | zzmore(); /* MR1 */\r |
1199 | >>\r |
1200 | \r |
1201 | '\r |
1202 | <<\r |
1203 | NLA = 65;\r |
1204 | zzmode(ACTION_CHARS); zzmore(); \r |
1205 | >>\r |
1206 | \r |
1207 | \"\r |
1208 | <<\r |
1209 | NLA = 66;\r |
1210 | zzmode(ACTION_STRINGS); zzmore(); \r |
1211 | >>\r |
1212 | \r |
1213 | \\$\r |
1214 | <<\r |
1215 | NLA = 67;\r |
1216 | zzreplstr("$"); zzmore(); \r |
1217 | >>\r |
1218 | \r |
1219 | \\#\r |
1220 | <<\r |
1221 | NLA = 68;\r |
1222 | zzreplstr("#"); zzmore(); \r |
1223 | >>\r |
1224 | \r |
1225 | \\(\n|\r|\r\n)\r |
1226 | <<\r |
1227 | NLA = 69;\r |
1228 | zzline++; zzmore(); \r |
1229 | >>\r |
1230 | \r |
1231 | \\~[\]\)>$#]\r |
1232 | <<\r |
1233 | NLA = 70;\r |
1234 | zzmore(); \r |
1235 | >>\r |
1236 | \r |
1237 | /\r |
1238 | <<\r |
1239 | NLA = 71;\r |
1240 | zzmore(); \r |
1241 | >>\r |
1242 | \r |
1243 | /\*\r |
1244 | <<\r |
1245 | NLA = 72;\r |
1246 | zzmode(ACTION_COMMENTS); zzmore(); \r |
1247 | >>\r |
1248 | \r |
1249 | \*/\r |
1250 | <<\r |
1251 | NLA = 73;\r |
1252 | warn("Missing /*; found dangling */ in action"); zzmore(); \r |
1253 | >>\r |
1254 | \r |
1255 | //\r |
1256 | <<\r |
1257 | NLA = 74;\r |
1258 | zzmode(ACTION_CPP_COMMENTS); zzmore(); \r |
1259 | >>\r |
1260 | \r |
1261 | ~[\n\r\)\(\\$#\>\]\[\"'/]+\r |
1262 | <<\r |
1263 | NLA = 75;\r |
1264 | zzmore(); \r |
1265 | >>\r |
1266 | \r |
1267 | \r |
1268 | %%PARSE_ENUM_FILE\r |
1269 | \r |
1270 | @\r |
1271 | <<\r |
1272 | NLA = Eof;\r |
1273 | ; \r |
1274 | >>\r |
1275 | \r |
1276 | [\t\ ]+\r |
1277 | <<\r |
1278 | NLA = 137;\r |
1279 | zzskip(); \r |
1280 | >>\r |
1281 | \r |
1282 | \n|\r|\r\n\r |
1283 | <<\r |
1284 | NLA = 138;\r |
1285 | zzline++; zzskip(); \r |
1286 | >>\r |
1287 | \r |
1288 | //\r |
1289 | <<\r |
1290 | NLA = 139;\r |
1291 | zzmode(TOK_DEF_CPP_COMMENTS); zzmore(); \r |
1292 | >>\r |
1293 | \r |
1294 | /\*\r |
1295 | <<\r |
1296 | NLA = 140;\r |
1297 | zzmode(TOK_DEF_COMMENTS); zzskip(); \r |
1298 | >>\r |
1299 | \r |
1300 | #ifdef\r |
1301 | <<\r |
1302 | NLA = 141;\r |
1303 | zzmode(TOK_DEF_CPP_COMMENTS); zzskip(); \r |
1304 | >>\r |
1305 | \r |
1306 | #if\r |
1307 | <<\r |
1308 | NLA = 142;\r |
1309 | zzmode(TOK_DEF_CPP_COMMENTS); zzskip(); \r |
1310 | >>\r |
1311 | \r |
1312 | #ifndef\r |
1313 | <<\r |
1314 | NLA = 143;\r |
1315 | ; \r |
1316 | >>\r |
1317 | \r |
1318 | #else\r |
1319 | <<\r |
1320 | NLA = 144;\r |
1321 | zzmode(TOK_DEF_CPP_COMMENTS); zzskip(); \r |
1322 | >>\r |
1323 | \r |
1324 | #endif\r |
1325 | <<\r |
1326 | NLA = 145;\r |
1327 | zzmode(TOK_DEF_CPP_COMMENTS); zzskip(); \r |
1328 | >>\r |
1329 | \r |
1330 | #undef\r |
1331 | <<\r |
1332 | NLA = 146;\r |
1333 | zzmode(TOK_DEF_CPP_COMMENTS); zzskip(); \r |
1334 | >>\r |
1335 | \r |
1336 | #import\r |
1337 | <<\r |
1338 | NLA = 147;\r |
1339 | zzmode(TOK_DEF_CPP_COMMENTS); zzskip(); \r |
1340 | >>\r |
1341 | \r |
1342 | #define\r |
1343 | <<\r |
1344 | NLA = 149;\r |
1345 | >>\r |
1346 | \r |
1347 | enum\r |
1348 | <<\r |
1349 | NLA = 151;\r |
1350 | >>\r |
1351 | \r |
1352 | \{\r |
1353 | <<\r |
1354 | NLA = 152;\r |
1355 | >>\r |
1356 | \r |
1357 | =\r |
1358 | <<\r |
1359 | NLA = 153;\r |
1360 | >>\r |
1361 | \r |
1362 | ,\r |
1363 | <<\r |
1364 | NLA = 154;\r |
1365 | >>\r |
1366 | \r |
1367 | \}\r |
1368 | <<\r |
1369 | NLA = 155;\r |
1370 | >>\r |
1371 | \r |
1372 | ;\r |
1373 | <<\r |
1374 | NLA = 156;\r |
1375 | >>\r |
1376 | \r |
1377 | [0-9]+\r |
1378 | <<\r |
1379 | NLA = INT;\r |
1380 | >>\r |
1381 | \r |
1382 | [a-zA-Z_][_a-zA-Z0-9]*\r |
1383 | <<\r |
1384 | NLA = ID;\r |
1385 | >>\r |
1386 | \r |
1387 | %%\r |