<<
/* parser.dlg -- DLG Description of scanner
 *
 * Generated from: dlg_p.g
 *
 * Terence Parr, Will Cohen, and Hank Dietz: 1989-2001
 * Purdue University Electrical Engineering
 * With AHPCRC, University of Minnesota
 * ANTLR Version 1.33MR33
 */

#define ANTLR_VERSION	13333
#include "pcctscfg.h"
#include "pccts_stdio.h"

#include <ctype.h>
#include "dlg.h"
#include "antlr.h"
#include "tokens.h"
#include "dlgdef.h"
LOOKAHEAD

void
#ifdef __USE_PROTOS
zzerraction(void)
#else
zzerraction()
#endif
{
	(*zzerr)("invalid token");
	zzadvance();
	zzskip();
}
>>

<<%%lexaction

int	func_action;		/* should actions be turned into functions?*/
int	lex_mode_counter = 0;	/* keeps track of the number of %%names */
/* MR1									    */
/* MR1  11-Apr-97	Provide mechanism for inserting code into DLG class */
/* MR1				via <<%%lexmember...>>			    */
/* MR1									    */
int	lexMember = 0;		/* <<%%lexmemeber ...>>	   		MR1 */
int	lexAction = 0;		/* <<%%lexaction ...>>			MR1 */
int	parserClass = 0;	/* <<%%parserclass ...>>        MR1 */
int	lexPrefix = 0;		/* <<%%lexprefix ...>>			MR1 */
char	theClassName[100];						     /* MR11 */
char	*pClassName=theClassName;					 /* MR11 */
int	firstLexMember=1;					             /* MR1 */

#ifdef __USE_PROTOS
void  xxputc(int c) {						/* MR1 */
#else
  void xxputc(c)							/* MR1 */
  int	c;							/* MR1 */
  {								/* MR1 */
#endif
    if (parserClass) {						/* MR1 */
      *pClassName++=c;						/* MR1 */
      *pClassName=0;						/* MR1 */
    } else if (lexMember || lexPrefix) {				/* MR1 */
      if (class_stream != NULL) fputc(c,class_stream);		/* MR1 */
    } else {							/* MR1 */
      fputc(c,OUT);						/* MR1 */
    };								/* MR1 */
  }  								/* MR1 */
  
#ifdef __USE_PROTOS
  void xxprintf(char *format,char *string) {			/* MR1 */
#else
    void xxprintf(format,string) 					/* MR1 */
    char *format;							/* MR1 */
    char *string;							/* MR1 */
    {								/* MR1 */
#endif
      if (lexMember || lexPrefix || parserClass) {			/* MR1 */
        if (class_stream != NULL)					/* MR1 */
        fprintf(class_stream,format,string);			/* MR1 */
      } else {							/* MR1 */
        fprintf(OUT,format,string);					/* MR1 */
      };								/* MR1 */
    }  								/* MR1 */
>>


%%START

@
	<<
		NLA = 1;
	>>

[\r\t\ ]+
	<<
		NLA = 2;
    zzskip();   
	>>

\n
	<<
		NLA = 3;
    zzline++; zzskip(); DAWDLE;   
	>>

\@
	<<
		NLA = L_EOF;
	>>

\%\%
	<<
		NLA = PER_PER;
	>>

\%\%[a-zA-Z_][a-zA-Z0-9_]*
	<<
		NLA = NAME_PER_PER;
    p_mode_def(&zzlextext[2],lex_mode_counter++);   
	>>

\<\<\%\%lexmember
	<<
		NLA = LEXMEMBER;
    lexMember=1;					/* MR1 */
    if (firstLexMember != 0) {			/* MR1 */
      firstLexMember=0;				/* MR1 */
      p_class_def1();				/* MR1 */
    };						/* MR1 */
    zzmode(ACT);					/* MR1 */
	>>

\<\<\%\%lexaction
	<<
		NLA = LEXACTION;
    lexAction=1;zzmode(ACT);  
	>>

\<\<\%\%parserclass
	<<
		NLA = PARSERCLASS;
    parserClass=1;				/* MR1 */
    zzmode(ACT);					/* MR1 */
	>>

\<\<\%\%lexprefix
	<<
		NLA = LEXPREFIX;
    lexPrefix=1;zzmode(ACT);  
	>>

\<\<
	<<
		NLA = ACTION;
    if (func_action)
    fprintf(OUT,"\n%s %sact%d()\n{ ",
    gen_cpp?"ANTLRTokenType":"static void",
    gen_cpp?ClassName("::"):"", ++action_no);
    zzmode(ACT); zzskip();
	>>

\>\>
	<<
		NLA = GREAT_GREAT;
	>>

\{
	<<
		NLA = L_BRACE;
	>>

\}
	<<
		NLA = R_BRACE;
	>>

\(
	<<
		NLA = L_PAR;
	>>

\)
	<<
		NLA = R_PAR;
	>>

\[
	<<
		NLA = L_BRACK;
	>>

\]
	<<
		NLA = R_BRACK;
	>>

\*
	<<
		NLA = ZERO_MORE;
	>>

\+
	<<
		NLA = ONE_MORE;
	>>

\|
	<<
		NLA = OR;
	>>

\-
	<<
		NLA = RANGE;
	>>

\~
	<<
		NLA = NOT;
	>>

\\0[0-7]*
	<<
		NLA = OCTAL_VALUE;
    {int t; sscanf(&zzlextext[1],"%o",&t); zzlextext[0] = t;}  
	>>

\\0[Xx][0-9a-fA-F]+
	<<
		NLA = HEX_VALUE;
    {int t; sscanf(&zzlextext[3],"%x",&t); zzlextext[0] = t;}  
	>>

\\[1-9][0-9]*
	<<
		NLA = DEC_VALUE;
    {int t; sscanf(&zzlextext[1],"%d",&t); zzlextext[0] = t;}  
	>>

\\t
	<<
		NLA = TAB;
    zzlextext[0] = '\t';  
	>>

\\n
	<<
		NLA = NL;
    zzlextext[0] = '\n';  
	>>

\\r
	<<
		NLA = CR;
    zzlextext[0] = '\r';  
	>>

\\b
	<<
		NLA = BS;
    zzlextext[0] = '\b';  
	>>

\\ \n
	<<
		NLA = CONTINUATION;
    zzline++; zzskip();  
	>>

\\~[tnrb]
	<<
		NLA = LIT;
    zzlextext[0] = zzlextext[1];  
	>>

~[\\]
	<<
		NLA = REGCHAR;
	>>


%%ACT

@
	<<
		NLA = 1;
    error("unterminated action", zzline); zzmode(START);   
	>>

\>\>
	<<
		NLA = ACTION;
    if (func_action) fprintf(OUT,"}\n\n");
    zzmode(START);
    /* MR1									    */
    /* MR1  11-Apr-97	Provide mechanism for inserting code into DLG class */
    /* MR1				via <<%%lexmember ...>>			    */
    /* MR1			This is a consequence of not saving actions         */
    /* MR1									    */
    /* MR1 */	   parserClass=0;		
    /* MR1 */	   lexPrefix=0;
    /* MR1 */	   lexAction=0;
    /* MR1 */	   lexMember=0;
	>>

\>
	<<
		NLA = 34;
    xxputc(zzlextext[0]); zzskip();   
	>>

\\\>
	<<
		NLA = 35;
    xxputc('>'); zzskip();   
	>>

\\
	<<
		NLA = 36;
    xxputc('\\'); zzskip();   
	>>

\n
	<<
		NLA = 37;
    xxputc(zzlextext[0]); ++zzline; zzskip();   
	>>

/\*
	<<
		NLA = 38;
    zzmode(ACTION_COMMENTS);			/* MR1 */
    xxprintf("%s", &(zzlextext[0])); zzskip();	/* MR1 */
	>>

//
	<<
		NLA = 39;
    zzmode(ACTION_CPP_COMMENTS);			/* MR1 */
    xxprintf("%s", &(zzlextext[0])); zzskip();	/* MR1 */
	>>

~[]
	<<
		NLA = 40;
    xxputc(zzlextext[0]); zzskip();   
	>>


%%ACTION_COMMENTS

@
	<<
		NLA = 1;
	>>

\*/
	<<
		NLA = 41;
    zzmode(ACT);					/* MR1 */
    xxprintf("%s", &(zzlextext[0])); zzskip();	/* MR1 */
	>>

[\n\r]
	<<
		NLA = 42;
    zzline++; xxputc(zzlextext[0]); zzskip();  
	>>

~[]
	<<
		NLA = 43;
    xxputc(zzlextext[0]); zzskip();  
	>>


%%ACTION_CPP_COMMENTS

@
	<<
		NLA = 1;
	>>

[\n\r]
	<<
		NLA = 44;
    zzmode(ACT); zzline++;			/* MR1 */
    xxprintf("%s", &(zzlextext[0])); zzskip();	/* MR1 */
	>>

~[]
	<<
		NLA = 45;
    xxputc(zzlextext[0]); zzskip();  
	>>

%%