+++ /dev/null
-/*\r
- * A n t l r T r a n s l a t i o n H e a d e r\r
- *\r
- * Terence Parr, Will Cohen, and Hank Dietz: 1989-2001\r
- * Purdue University Electrical Engineering\r
- * With AHPCRC, University of Minnesota\r
- * ANTLR Version 1.33MR33\r
- *\r
- * ..\bin\antlr dlg_p.g -gh\r
- *\r
- */\r
-\r
-#define ANTLR_VERSION 13333\r
-#include "pcctscfg.h"\r
-#include "pccts_stdio.h"\r
-\r
-#include <ctype.h>\r
-#include "dlg.h"\r
-#define zzSET_SIZE 8\r
-#include "antlr.h"\r
-#include "tokens.h"\r
-#include "dlgdef.h"\r
-#include "mode.h"\r
-\r
-/* MR23 In order to remove calls to PURIFY use the antlr -nopurify option */\r
-\r
-#ifndef PCCTS_PURIFY\r
-#define PCCTS_PURIFY(r,s) memset((char *) &(r),'\0',(s));\r
-#endif\r
-\r
-ANTLR_INFO\r
-\r
-\r
-/* MR20 G. Hobbelt \r
-Fix for Borland C++ 4.x & 5.x compiling with ALL warnings enabled\r
-*/\r
-\r
-#ifdef __TURBOC__\r
-#pragma warn -aus /* unused assignment of 'xxx' */\r
-#endif\r
-\r
-int action_no = 0; /* keep track of actions outputed */\r
-int nfa_allocated = 0; /* keeps track of number of nfa nodes */\r
-nfa_node **nfa_array = NULL;/* root of binary tree that stores nfa array */\r
-nfa_node nfa_model_node; /* model to initialize new nodes */\r
-set used_chars; /* used to label trans. arcs */\r
-set used_classes; /* classes or chars used to label trans. arcs */\r
-set normal_chars; /* mask to get rid elements that aren't used\r
-in set */\r
-int flag_paren = FALSE;\r
-int flag_brace = FALSE;\r
-int mode_counter = 0; /* keep track of number of %%names */\r
-\r
- \r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-grammar(void)\r
-#else\r
-grammar()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- p_head(); p_class_hdr(); func_action = FALSE;\r
- {\r
- zzBLOCK(zztasp2);\r
- zzMake0;\r
- {\r
- while ( (setwd1[LA(1)]&0x1) ) {\r
- {\r
- zzBLOCK(zztasp3);\r
- zzMake0;\r
- {\r
- if ( (LA(1)==LEXACTION) ) {\r
- zzmatch(LEXACTION); zzCONSUME;\r
- }\r
- else {\r
- if ( (LA(1)==LEXMEMBER) ) {\r
- zzmatch(LEXMEMBER); zzCONSUME;\r
- }\r
- else {\r
- if ( (LA(1)==LEXPREFIX) ) {\r
- zzmatch(LEXPREFIX); zzCONSUME;\r
- }\r
- else {\r
- if ( (LA(1)==PARSERCLASS) ) {\r
- zzmatch(PARSERCLASS); zzCONSUME;\r
- }\r
- else {\r
- if ( (LA(1)==ACTION) ) {\r
- }\r
- else {zzFAIL(1,zzerr1,&zzMissSet,&zzMissText,&zzBadTok,&zzBadText,&zzErrk); goto fail;}\r
- }\r
- }\r
- }\r
- }\r
- zzEXIT(zztasp3);\r
- }\r
- }\r
- zzmatch(ACTION); zzCONSUME;\r
- zzLOOP(zztasp2);\r
- }\r
- zzEXIT(zztasp2);\r
- }\r
- }\r
- if ( gen_cpp ) p_includes();\r
- start_states();\r
- func_action = FALSE; p_tables(); p_tail();\r
- {\r
- zzBLOCK(zztasp2);\r
- zzMake0;\r
- {\r
- while ( (LA(1)==ACTION) ) {\r
- zzmatch(ACTION); zzCONSUME;\r
- zzLOOP(zztasp2);\r
- }\r
- zzEXIT(zztasp2);\r
- }\r
- }\r
- zzmatch(1);\r
- if (firstLexMember != 0) p_class_def1();\r
- zzCONSUME;\r
-\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd1, 0x2);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-start_states(void)\r
-#else\r
-start_states()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- {\r
- zzBLOCK(zztasp2);\r
- zzMake0;\r
- {\r
- if ( (LA(1)==PER_PER) ) {\r
- zzmatch(PER_PER); zzCONSUME;\r
- do_conversion();\r
- }\r
- else {\r
- if ( (LA(1)==NAME_PER_PER) ) {\r
- zzmatch(NAME_PER_PER); zzCONSUME;\r
- do_conversion();\r
- {\r
- zzBLOCK(zztasp3);\r
- zzMake0;\r
- {\r
- while ( (LA(1)==NAME_PER_PER) ) {\r
- zzmatch(NAME_PER_PER); zzCONSUME;\r
- do_conversion();\r
- zzLOOP(zztasp3);\r
- }\r
- zzEXIT(zztasp3);\r
- }\r
- }\r
- }\r
- else {zzFAIL(1,zzerr2,&zzMissSet,&zzMissText,&zzBadTok,&zzBadText,&zzErrk); goto fail;}\r
- }\r
- zzEXIT(zztasp2);\r
- }\r
- }\r
- zzmatch(PER_PER); zzCONSUME;\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd1, 0x4);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-do_conversion(void)\r
-#else\r
-do_conversion()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- new_automaton_mode(); func_action = TRUE;\r
- rule_list();\r
- \r
- dfa_class_nop[mode_counter] =\r
- relabel(zzaArg(zztasp1,1 ).l,comp_level);\r
- if (comp_level)\r
- p_shift_table(mode_counter);\r
- dfa_basep[mode_counter] = dfa_allocated+1;\r
- make_dfa_model_node(dfa_class_nop[mode_counter]);\r
- nfa_to_dfa(zzaArg(zztasp1,1 ).l);\r
- ++mode_counter;\r
- func_action = FALSE;\r
-#ifdef HASH_STAT\r
- fprint_hash_stats(stderr);\r
-#endif\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd1, 0x8);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-rule_list(void)\r
-#else\r
-rule_list()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- if ( (setwd1[LA(1)]&0x10) ) {\r
- rule();\r
- zzaRet.l=zzaArg(zztasp1,1 ).l; zzaRet.r=zzaArg(zztasp1,1 ).r;\r
- {\r
- zzBLOCK(zztasp2);\r
- zzMake0;\r
- {\r
- while ( (setwd1[LA(1)]&0x20) ) {\r
- rule();\r
- {nfa_node *t1;\r
- t1 = new_nfa_node();\r
- (t1)->trans[0]=zzaRet.l;\r
- (t1)->trans[1]=zzaArg(zztasp2,1 ).l;\r
- /* all accept nodes "dead ends" */\r
- zzaRet.l=t1; zzaRet.r=NULL;\r
- }\r
- zzLOOP(zztasp2);\r
- }\r
- zzEXIT(zztasp2);\r
- }\r
- }\r
- }\r
- else {\r
- if ( (setwd1[LA(1)]&0x40) ) {\r
- zzaRet.l = new_nfa_node(); zzaRet.r = NULL;\r
- warning("no regular expressions", zzline);\r
- }\r
- else {zzFAIL(1,zzerr3,&zzMissSet,&zzMissText,&zzBadTok,&zzBadText,&zzErrk); goto fail;}\r
- }\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd1, 0x80);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-rule(void)\r
-#else\r
-rule()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- if ( (setwd2[LA(1)]&0x1) ) {\r
- reg_expr();\r
- zzmatch(ACTION);\r
- if (zzaArg(zztasp1,1 ).r != NULL) {\r
- zzaRet.l=zzaArg(zztasp1,1 ).l; zzaRet.r=zzaArg(zztasp1,1 ).r; (zzaArg(zztasp1,1 ).r)->accept=action_no;\r
- }\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==ACTION) ) {\r
- zzmatch(ACTION);\r
- zzaRet.l = NULL; zzaRet.r = NULL;\r
- error("no expression for action ", zzline);\r
- zzCONSUME;\r
-\r
- }\r
- else {zzFAIL(1,zzerr4,&zzMissSet,&zzMissText,&zzBadTok,&zzBadText,&zzErrk); goto fail;}\r
- }\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd2, 0x2);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-reg_expr(void)\r
-#else\r
-reg_expr()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- and_expr();\r
- zzaRet.l=zzaArg(zztasp1,1 ).l; zzaRet.r=zzaArg(zztasp1,1 ).r;\r
- {\r
- zzBLOCK(zztasp2);\r
- zzMake0;\r
- {\r
- while ( (LA(1)==OR) ) {\r
- zzmatch(OR); zzCONSUME;\r
- and_expr();\r
- {nfa_node *t1, *t2;\r
- t1 = new_nfa_node(); t2 = new_nfa_node();\r
- (t1)->trans[0]=zzaRet.l;\r
- (t1)->trans[1]=zzaArg(zztasp2,2 ).l;\r
- /* MR23 */ if (zzaRet.r != NULL) (zzaRet.r)->trans[1]=t2;\r
- if (zzaArg(zztasp2,2 ).r) {\r
- (zzaArg(zztasp2,2 ).r)->trans[1]=t2; /* MR20 */\r
- }\r
- zzaRet.l=t1; zzaRet.r=t2;\r
- }\r
- zzLOOP(zztasp2);\r
- }\r
- zzEXIT(zztasp2);\r
- }\r
- }\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd2, 0x4);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-and_expr(void)\r
-#else\r
-and_expr()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- repeat_expr();\r
- \r
- zzaRet.l=zzaArg(zztasp1,1 ).l; zzaRet.r=zzaArg(zztasp1,1 ).r;\r
- {\r
- zzBLOCK(zztasp2);\r
- zzMake0;\r
- {\r
- while ( (setwd2[LA(1)]&0x8) ) {\r
- repeat_expr();\r
- if (zzaRet.r != NULL) {\r
- (zzaRet.r)->trans[1]=zzaArg(zztasp2,1 ).l;\r
- zzaRet.r=zzaArg(zztasp2,1 ).r;\r
- }\r
- zzLOOP(zztasp2);\r
- }\r
- zzEXIT(zztasp2);\r
- }\r
- }\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd2, 0x10);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-repeat_expr(void)\r
-#else\r
-repeat_expr()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- if ( (setwd2[LA(1)]&0x20) ) {\r
- expr();\r
- zzaRet.l=zzaArg(zztasp1,1 ).l; zzaRet.r=zzaArg(zztasp1,1 ).r;\r
- {\r
- zzBLOCK(zztasp2);\r
- zzMake0;\r
- {\r
- if ( (LA(1)==ZERO_MORE) ) {\r
- zzmatch(ZERO_MORE);\r
- { nfa_node *t1,*t2;\r
- /* MR23 */ if (zzaRet.r != NULL) (zzaRet.r)->trans[0] = zzaRet.l;\r
- t1 = new_nfa_node(); t2 = new_nfa_node();\r
- t1->trans[0]=zzaRet.l;\r
- t1->trans[1]=t2;\r
- /* MR23 */ if (zzaRet.r != NULL) (zzaRet.r)->trans[1]=t2;\r
- zzaRet.l=t1;zzaRet.r=t2;\r
- }\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==ONE_MORE) ) {\r
- zzmatch(ONE_MORE);\r
- if (zzaRet.r != NULL) (zzaRet.r)->trans[0] = zzaRet.l;\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (setwd2[LA(1)]&0x40) ) {\r
- }\r
- else {zzFAIL(1,zzerr5,&zzMissSet,&zzMissText,&zzBadTok,&zzBadText,&zzErrk); goto fail;}\r
- }\r
- }\r
- zzEXIT(zztasp2);\r
- }\r
- }\r
- }\r
- else {\r
- if ( (LA(1)==ZERO_MORE) ) {\r
- zzmatch(ZERO_MORE);\r
- error("no expression for *", zzline);\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==ONE_MORE) ) {\r
- zzmatch(ONE_MORE);\r
- error("no expression for +", zzline);\r
- zzCONSUME;\r
-\r
- }\r
- else {zzFAIL(1,zzerr6,&zzMissSet,&zzMissText,&zzBadTok,&zzBadText,&zzErrk); goto fail;}\r
- }\r
- }\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd2, 0x80);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-expr(void)\r
-#else\r
-expr()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- zzaRet.l = new_nfa_node();\r
- zzaRet.r = new_nfa_node();\r
- if ( (LA(1)==L_BRACK) ) {\r
- zzmatch(L_BRACK); zzCONSUME;\r
- atom_list();\r
- zzmatch(R_BRACK);\r
- \r
- /* MR23 */ if (zzaRet.l != NULL) {\r
- (zzaRet.l)->trans[0] = zzaRet.r;\r
- (zzaRet.l)->label = set_dup(zzaArg(zztasp1,2 ).label);\r
- set_orin(&used_chars,(zzaRet.l)->label);\r
- }\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==NOT) ) {\r
- zzmatch(NOT); zzCONSUME;\r
- zzmatch(L_BRACK); zzCONSUME;\r
- atom_list();\r
- zzmatch(R_BRACK);\r
- \r
- /* MR23 */ if (zzaRet.l != NULL) {\r
- (zzaRet.l)->trans[0] = zzaRet.r;\r
- (zzaRet.l)->label = set_dif(normal_chars,zzaArg(zztasp1,3 ).label);\r
- set_orin(&used_chars,(zzaRet.l)->label);\r
- }\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==L_PAR) ) {\r
- zzmatch(L_PAR); zzCONSUME;\r
- reg_expr();\r
- zzmatch(R_PAR);\r
- \r
- /* MR23 */ if (zzaRet.l != NULL) { \r
- (zzaRet.l)->trans[0] = zzaArg(zztasp1,2 ).l;\r
- if (zzaArg(zztasp1,2 ).r) {\r
- (zzaArg(zztasp1,2 ).r)->trans[1] = zzaRet.r; /* MR20 */\r
- }\r
- }\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==L_BRACE) ) {\r
- zzmatch(L_BRACE); zzCONSUME;\r
- reg_expr();\r
- zzmatch(R_BRACE);\r
- \r
- /* MR23 */ if (zzaRet.l != NULL) {\r
- (zzaRet.l)->trans[0] = zzaArg(zztasp1,2 ).l;\r
- (zzaRet.l)->trans[1] = zzaRet.r;\r
- if (zzaArg(zztasp1,2 ).r) {\r
- (zzaArg(zztasp1,2 ).r)->trans[1] = zzaRet.r; /* MR20 */\r
- }\r
- }\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (setwd3[LA(1)]&0x1) ) {\r
- atom();\r
- \r
- /* MR23 */ if (zzaRet.l != NULL) {\r
- (zzaRet.l)->trans[0] = zzaRet.r;\r
- (zzaRet.l)->label = set_dup(zzaArg(zztasp1,1 ).label);\r
- set_orin(&used_chars,(zzaRet.l)->label);\r
- }\r
- }\r
- else {zzFAIL(1,zzerr7,&zzMissSet,&zzMissText,&zzBadTok,&zzBadText,&zzErrk); goto fail;}\r
- }\r
- }\r
- }\r
- }\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd3, 0x2);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-atom_list(void)\r
-#else\r
-atom_list()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- set_free(zzaRet.label);\r
- {\r
- zzBLOCK(zztasp2);\r
- zzMake0;\r
- {\r
- while ( (setwd3[LA(1)]&0x4) ) {\r
- near_atom();\r
- set_orin(&(zzaRet.label),zzaArg(zztasp2,1 ).label);\r
- zzLOOP(zztasp2);\r
- }\r
- zzEXIT(zztasp2);\r
- }\r
- }\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd3, 0x8);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-near_atom(void)\r
-#else\r
-near_atom()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- register int i;\r
- register int i_prime;\r
- anychar();\r
- zzaRet.letter=zzaArg(zztasp1,1 ).letter; zzaRet.label=set_of(zzaArg(zztasp1,1 ).letter);\r
- i_prime = zzaArg(zztasp1,1 ).letter + MIN_CHAR;\r
- if (case_insensitive && islower(i_prime))\r
- set_orel(toupper(i_prime)-MIN_CHAR,\r
- &(zzaRet.label));\r
- if (case_insensitive && isupper(i_prime))\r
- set_orel(tolower(i_prime)-MIN_CHAR,\r
- &(zzaRet.label));\r
- {\r
- zzBLOCK(zztasp2);\r
- zzMake0;\r
- {\r
- if ( (LA(1)==RANGE) ) {\r
- zzmatch(RANGE); zzCONSUME;\r
- anychar();\r
- if (case_insensitive){\r
- i_prime = zzaRet.letter+MIN_CHAR;\r
- zzaRet.letter = (islower(i_prime) ?\r
- toupper(i_prime) : i_prime)-MIN_CHAR;\r
- i_prime = zzaArg(zztasp2,2 ).letter+MIN_CHAR;\r
- zzaArg(zztasp2,2 ).letter = (islower(i_prime) ?\r
- toupper(i_prime) : i_prime)-MIN_CHAR;\r
- }\r
- /* check to see if range okay */\r
- {\r
- int debugLetter1 = zzaRet.letter;\r
- int debugLetter2 = zzaArg(zztasp2,2 ).letter;\r
- }\r
- if (zzaRet.letter > zzaArg(zztasp2,2 ).letter \r
- && zzaArg(zztasp2,2 ).letter != 0xff){ /* MR16 */\r
- error("invalid range ", zzline);\r
- }\r
- for (i=zzaRet.letter; i<= (int)zzaArg(zztasp2,2 ).letter; ++i){\r
- set_orel(i,&(zzaRet.label));\r
- i_prime = i+MIN_CHAR;\r
- if (case_insensitive && islower(i_prime))\r
- set_orel(toupper(i_prime)-MIN_CHAR,\r
- &(zzaRet.label));\r
- if (case_insensitive && isupper(i_prime))\r
- set_orel(tolower(i_prime)-MIN_CHAR,\r
- &(zzaRet.label));\r
- }\r
- }\r
- else {\r
- if ( (setwd3[LA(1)]&0x10) ) {\r
- }\r
- else {zzFAIL(1,zzerr8,&zzMissSet,&zzMissText,&zzBadTok,&zzBadText,&zzErrk); goto fail;}\r
- }\r
- zzEXIT(zztasp2);\r
- }\r
- }\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd3, 0x20);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-atom(void)\r
-#else\r
-atom()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- register int i_prime;\r
- anychar();\r
- zzaRet.label = set_of(zzaArg(zztasp1,1 ).letter);\r
- i_prime = zzaArg(zztasp1,1 ).letter + MIN_CHAR;\r
- if (case_insensitive && islower(i_prime))\r
- set_orel(toupper(i_prime)-MIN_CHAR,\r
- &(zzaRet.label));\r
- if (case_insensitive && isupper(i_prime))\r
- set_orel(tolower(i_prime)-MIN_CHAR,\r
- &(zzaRet.label));\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd3, 0x40);\r
- }\r
-}\r
-\r
-void\r
-#ifdef __USE_PROTOS\r
-anychar(void)\r
-#else\r
-anychar()\r
-#endif\r
-{\r
- zzRULE;\r
- zzBLOCK(zztasp1);\r
- zzMake0;\r
- {\r
- if ( (LA(1)==REGCHAR) ) {\r
- zzmatch(REGCHAR);\r
- zzaRet.letter = zzaArg(zztasp1,1 ).letter - MIN_CHAR;\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==OCTAL_VALUE) ) {\r
- zzmatch(OCTAL_VALUE);\r
- zzaRet.letter = zzaArg(zztasp1,1 ).letter - MIN_CHAR;\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==HEX_VALUE) ) {\r
- zzmatch(HEX_VALUE);\r
- zzaRet.letter = zzaArg(zztasp1,1 ).letter - MIN_CHAR;\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==DEC_VALUE) ) {\r
- zzmatch(DEC_VALUE);\r
- zzaRet.letter = zzaArg(zztasp1,1 ).letter - MIN_CHAR;\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==TAB) ) {\r
- zzmatch(TAB);\r
- zzaRet.letter = zzaArg(zztasp1,1 ).letter - MIN_CHAR;\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==NL) ) {\r
- zzmatch(NL);\r
- zzaRet.letter = zzaArg(zztasp1,1 ).letter - MIN_CHAR;\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==CR) ) {\r
- zzmatch(CR);\r
- zzaRet.letter = zzaArg(zztasp1,1 ).letter - MIN_CHAR;\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==BS) ) {\r
- zzmatch(BS);\r
- zzaRet.letter = zzaArg(zztasp1,1 ).letter - MIN_CHAR;\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==LIT) ) {\r
- zzmatch(LIT);\r
- zzaRet.letter = zzaArg(zztasp1,1 ).letter - MIN_CHAR;\r
- zzCONSUME;\r
-\r
- }\r
- else {\r
- if ( (LA(1)==L_EOF) ) {\r
- zzmatch(L_EOF);\r
- zzaRet.letter = 0;\r
- zzCONSUME;\r
-\r
- }\r
- else {zzFAIL(1,zzerr9,&zzMissSet,&zzMissText,&zzBadTok,&zzBadText,&zzErrk); goto fail;}\r
- }\r
- }\r
- }\r
- }\r
- }\r
- }\r
- }\r
- }\r
- }\r
- zzEXIT(zztasp1);\r
- return;\r
-fail:\r
- zzEXIT(zztasp1);\r
- /* empty action */ \r
- zzsyn(zzMissText, zzBadTok, (ANTLRChar *)"", zzMissSet, zzMissTok, zzErrk, zzBadText);\r
- zzresynch(setwd3, 0x80);\r
- }\r
-}\r
-\r
-/* adds a new nfa to the binary tree and returns a pointer to it */\r
-nfa_node *\r
-#ifdef __USE_PROTOS\r
-new_nfa_node(void)\r
-#else\r
-new_nfa_node()\r
-#endif\r
-{\r
- register nfa_node *t;\r
- static int nfa_size=0; /* elements nfa_array[] can hold */\r
- \r
- ++nfa_allocated;\r
- if (nfa_size<=nfa_allocated){\r
- /* need to redo array */\r
- if (!nfa_array){\r
- /* need some to do inital allocation */\r
- nfa_size=nfa_allocated+NFA_MIN;\r
- nfa_array=(nfa_node **) malloc(sizeof(nfa_node*)*\r
- nfa_size);\r
- }else{\r
- /* need more space */\r
- nfa_size=2*(nfa_allocated+1);\r
- nfa_array=(nfa_node **) realloc(nfa_array,\r
- sizeof(nfa_node*)*nfa_size);\r
- }\r
- }\r
- /* fill out entry in array */\r
- t = (nfa_node*) malloc(sizeof(nfa_node));\r
- nfa_array[nfa_allocated] = t;\r
- *t = nfa_model_node;\r
- t->node_no = nfa_allocated;\r
- return t;\r
-}\r
-\r
-\r
-/* initialize the model node used to fill in newly made nfa_nodes */\r
-void\r
-#ifdef __USE_PROTOS\r
-make_nfa_model_node(void)\r
-#else\r
-make_nfa_model_node()\r
-#endif\r
-{\r
- nfa_model_node.node_no = -1; /* impossible value for real nfa node */\r
- nfa_model_node.nfa_set = 0;\r
- nfa_model_node.accept = 0; /* error state default*/\r
- nfa_model_node.trans[0] = NULL;\r
- nfa_model_node.trans[1] = NULL;\r
- nfa_model_node.label = empty;\r
-}\r
-\r
-#if defined(DEBUG) || defined(_DEBUG)\r
-\r
-/* print out the pointer value and the node_number */\r
-void\r
-#ifdef __USE_PROTOS\r
-fprint_dfa_pair(FILE *f, nfa_node *p)\r
-#else\r
-fprint_dfa_pair(f, p)\r
-FILE *f;\r
-nfa_node *p;\r
-#endif\r
-{\r
- if (p){\r
- fprintf(f, "%x (%d)", p, p->node_no);\r
- }else{\r
- fprintf(f, "(nil)");\r
- }\r
-}\r
-\r
-/* print out interest information on a set */\r
-void\r
-#ifdef __USE_PROTOS\r
-fprint_set(FILE *f, set s)\r
-#else\r
-fprint_set(f,s)\r
-FILE *f;\r
-set s;\r
-#endif\r
-{\r
- unsigned int *x;\r
- \r
- fprintf(f, "n = %d,", s.n);\r
- if (s.setword){\r
- fprintf(f, "setword = %x, ", s.setword);\r
- /* print out all the elements in the set */\r
- x = set_pdq(s);\r
- while (*x!=nil){\r
- fprintf(f, "%d ", *x);\r
- ++x;\r
- }\r
- }else{\r
- fprintf(f, "setword = (nil)");\r
- }\r
-}\r
-\r
-/* code to be able to dump out the nfas\r
-return 0 if okay dump\r
-return 1 if screwed up\r
-*/\r
-int\r
-#ifdef __USE_PROTOS\r
-dump_nfas(int first_node, int last_node)\r
-#else\r
-dump_nfas(first_node, last_node)\r
-int first_node;\r
-int last_node;\r
-#endif\r
-{\r
- register int i;\r
- nfa_node *t;\r
- \r
- for (i=first_node; i<=last_node; ++i){\r
- t = NFA(i);\r
- if (!t) break;\r
- fprintf(stderr, "nfa_node %d {\n", t->node_no);\r
- fprintf(stderr, "\n\tnfa_set = %d\n", t->nfa_set);\r
- fprintf(stderr, "\taccept\t=\t%d\n", t->accept);\r
- fprintf(stderr, "\ttrans\t=\t(");\r
- fprint_dfa_pair(stderr, t->trans[0]);\r
- fprintf(stderr, ",");\r
- fprint_dfa_pair(stderr, t->trans[1]);\r
- fprintf(stderr, ")\n");\r
- fprintf(stderr, "\tlabel\t=\t{ ");\r
- fprint_set(stderr, t->label);\r
- fprintf(stderr, "\t}\n");\r
- fprintf(stderr, "}\n\n");\r
- }\r
- return 0;\r
-}\r
-#endif\r
-\r
-/* DLG-specific syntax error message generator\r
-* (define USER_ZZSYN when compiling so don't get 2 definitions)\r
-*/\r
-void\r
-#ifdef __USE_PROTOS\r
-zzsyn(char *text, int tok, char *egroup, SetWordType *eset, int etok, int k, char *bad_text)\r
-#else\r
-zzsyn(text, tok, egroup, eset, etok, k, bad_text)\r
-char *text, *egroup, *bad_text;\r
-int tok;\r
-int etok;\r
-int k;\r
-SetWordType *eset;\r
-#endif\r
-{\r
-fprintf(stderr, ErrHdr, file_str[0]!=NULL?file_str[0]:"stdin", zzline);\r
-fprintf(stderr, " syntax error at \"%s\"", (tok==zzEOF_TOKEN)?"EOF":text);\r
-if ( !etok && !eset ) {fprintf(stderr, "\n"); return;}\r
-if ( k==1 ) fprintf(stderr, " missing");\r
-else\r
-{\r
-fprintf(stderr, "; \"%s\" not", bad_text);\r
-if ( zzset_deg(eset)>1 ) fprintf(stderr, " in");\r
-}\r
-if ( zzset_deg(eset)>0 ) zzedecode(eset);\r
-else fprintf(stderr, " %s", zztokens[etok]);\r
-if ( strlen(egroup) > (size_t)0 ) fprintf(stderr, " in %s", egroup);\r
-fprintf(stderr, "\n");\r
-}\r