
#line 9 "prog_grammar.y"
typedef union {
	class PROGRAM_LINE *line;
	class block_list *lblock;
	struct
	{
		class EvalProg *node;
		int isline;
	} block;
	class elseif_block_list *elselblock;
	class else_block *eblock;
	class elseif_block *eifblock;
	class EvalProg *statement;
} YYSTYPE;
#line 23 "prog_grammar.y"


#include <stdio.h>
#include <stdarg.h>
#include "fcb.h"
#include "program_line.h"

#include "evalprog.h"
#include "evalblock.h"
#include "evalptrtodouble.h"
#include "evalfunc.h"
#include "evalsequence.h"

#define program_parser_error(msg) ProgramParserError (fcb, msg)
static void ProgramParserError (FCBASIC *fcb, const char *msg, ...);
int program_parser_lex (PROGRAM_YYSTYPE *lval, FCBASIC *fcb);
static void program_parser_delete (int symbol, PROGRAM_YYSTYPE value, FCBASIC *fcb);

#undef YYDEBUG
#define YYDEBUG		0

