/*
=====================================================================
                        Source: last.reqd
=====================================================================
*/


%%
/* programmer routines */
/*
# include "lex.yy.c"
# include "lexify.c"
*/

#ifdef MOVED
void
set_clobber(char *c)
{
	char *ptr;
	//char *ptr2;
	ptr=strrchr(c,'/');
	if (ptr) { strcpy(clobber,ptr+1); return; }

/* Do dos mode ? */
	ptr=strrchr(c,'\\');
	if (ptr) { strcpy(clobber,ptr+1); return; }

	strcpy(clobber,c);
}
#endif

#ifdef MOVED
char *
get_hdrdbname(void)
{
	return hdr_dbname;
}

void
set_hdrdbname(char *s)
{
	strcpy(hdr_dbname,s);
}
#endif

//use this set_str() if YYPURE and YYLEX_PARAM are not set
//void
//set_str(char *s)
//	strcpy(yylval.str,s);
//}

//use this set_str() if YYPURE and YYLEX_PARAM are set


void
FGLPARSE_A4GL_lexer_set_str(void *p, char *s)
{
	YYSTYPE *y;
	y = (YYSTYPE *) p;
	strcpy( y->str, s );
}

int FGLPARSE_doparse() {
	return a4gl_yyparse();
}

void *FGLPARSE_A4GL_lexer_get_hashed_list(int a) {
	return (void *)hashed_list[a];
}

/*
void init_blk(void) {
int a;
for (a=0;a<MAXMENUOPTS;a++) menu_cmd_cnt[a] =0;
for (a=0;a<MAXMENU;a++) menu_blk[a]=0;
}
*/


int FGLPARSE_PARSER_initlib (void) {
        init_blk();
        a4gl_yydebug = 1;
	A4GL_initlex();
	return 1;
}





/* ====================== last.reqd =============================== */


/* ===================== EOF (fgl.yacc) =========================== */