X-Git-Url: https://git.proxmox.com/?p=mirror_edk2.git;a=blobdiff_plain;f=Tools%2FCCode%2FSource%2FPccts%2Fdlg%2Fdlg_p.c;fp=Tools%2FCCode%2FSource%2FPccts%2Fdlg%2Fdlg_p.c;h=0000000000000000000000000000000000000000;hp=e726ae398360cf47ffe706a5f3851853144b1fdd;hb=808def96aa4589fba9c2d0ea55837754a3b7a4f7;hpb=9216450d1143056a50a5f916984a2d7faf590488

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