MicParser.cpp

// This file was automatically generated by EbnfStudio; don't modify it!
#include "MicParser.h"
using namespace Mic;

static inline bool FIRST_Micron(int tt) {
	return tt == Tok_MODULE;
}

static inline bool FIRST_number(int tt) {
	return tt == Tok_integer || tt == Tok_real;
}

static inline bool FIRST_qualident(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_identdef(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_ConstDeclaration(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_ConstExpression(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_Minus:
	case Tok_NOT:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_At:
	case Tok_string:
	case Tok_Tilde:
	case Tok_NIL:
	case Tok_Plus:
	case Tok_Lbrace:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_TypeDeclaration(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_type(int tt) {
	switch(tt){
	case Tok_PROC:
	case Tok_ARRAY:
	case Tok_OBJECT:
	case Tok_Hat:
	case Tok_PROCEDURE:
	case Tok_INTERFACE:
	case Tok_POINTER:
	case Tok_Lbrack:
	case Tok_Lpar:
	case Tok_RECORD:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_NamedType(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_ArrayType(int tt) {
	return tt == Tok_ARRAY || tt == Tok_Lbrack;
}

static inline bool FIRST_length(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_Minus:
	case Tok_NOT:
	case Tok_real:
	case Tok_integer:
	case Tok_At:
	case Tok_TRUE:
	case Tok_string:
	case Tok_Tilde:
	case Tok_Lbrace:
	case Tok_Plus:
	case Tok_NIL:
	case Tok_Lpar:
	case Tok_ident:
	case Tok_VAR:
		return true;
	default: return false;
	}
}

static inline bool FIRST_RecordType(int tt) {
	return tt == Tok_RECORD;
}

static inline bool FIRST_ObjectType(int tt) {
	return tt == Tok_OBJECT;
}

static inline bool FIRST_BaseType(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_inline_(int tt) {
	return tt == Tok_INLINE || tt == Tok_IN;
}

static inline bool FIRST_VariantPart(int tt) {
	return tt == Tok_CASE;
}

static inline bool FIRST_FixedPart(int tt) {
	return tt == Tok_INLINE || tt == Tok_IN || tt == Tok_2Dot || tt == Tok_ident;
}

static inline bool FIRST_FieldList(int tt) {
	return tt == Tok_INLINE || tt == Tok_IN || tt == Tok_2Dot || tt == Tok_ident;
}

static inline bool FIRST_IdentList(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_PointerType(int tt) {
	return tt == Tok_Hat || tt == Tok_POINTER;
}

static inline bool FIRST_enumeration(int tt) {
	return tt == Tok_Lpar;
}

static inline bool FIRST_constEnum(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_WhereDeclaration(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_VariableDeclaration(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_designator(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_selector(int tt) {
	return tt == Tok_Hat || tt == Tok_Dot || tt == Tok_Lbrack || tt == Tok_Lpar;
}

static inline bool FIRST_ExpList(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_Minus:
	case Tok_NOT:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_At:
	case Tok_string:
	case Tok_Tilde:
	case Tok_Plus:
	case Tok_NIL:
	case Tok_Lbrace:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_expression(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_Minus:
	case Tok_NOT:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_At:
	case Tok_string:
	case Tok_Tilde:
	case Tok_NIL:
	case Tok_Plus:
	case Tok_Lbrace:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_relation(int tt) {
	switch(tt){
	case Tok_IS:
	case Tok_Lt:
	case Tok_LtGt:
	case Tok_Gt:
	case Tok_Eq:
	case Tok_Leq:
	case Tok_IN:
	case Tok_Hash:
	case Tok_Geq:
		return true;
	default: return false;
	}
}

static inline bool FIRST_SimpleExpression(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_Minus:
	case Tok_NOT:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_At:
	case Tok_string:
	case Tok_Tilde:
	case Tok_Plus:
	case Tok_NIL:
	case Tok_Lbrace:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_AddOperator(int tt) {
	return tt == Tok_OR || tt == Tok_Minus || tt == Tok_Plus;
}

static inline bool FIRST_term(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_NOT:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_At:
	case Tok_string:
	case Tok_Tilde:
	case Tok_NIL:
	case Tok_Lbrace:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_MulOperator(int tt) {
	switch(tt){
	case Tok_DIV:
	case Tok_Slash:
	case Tok_AND:
	case Tok_Star:
	case Tok_Amp:
	case Tok_MOD:
		return true;
	default: return false;
	}
}

static inline bool FIRST_literal(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_string:
	case Tok_NIL:
		return true;
	default: return false;
	}
}

static inline bool FIRST_constructor(int tt) {
	return tt == Tok_Lbrace || tt == Tok_ident;
}

static inline bool FIRST_component(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_Minus:
	case Tok_hexstring:
	case Tok_NOT:
	case Tok_real:
	case Tok_integer:
	case Tok_At:
	case Tok_TRUE:
	case Tok_string:
	case Tok_Lbrack:
	case Tok_Tilde:
	case Tok_Lbrace:
	case Tok_Plus:
	case Tok_NIL:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_factor(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_NOT:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_At:
	case Tok_string:
	case Tok_Tilde:
	case Tok_NIL:
	case Tok_Lbrace:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_variableOrFunctionCall(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_statement(int tt) {
	switch(tt){
	case Tok_CASE:
	case Tok_GOTO:
	case Tok_REPEAT:
	case Tok_LOOP:
	case Tok_EXIT:
	case Tok_RETURN:
	case Tok_IF:
	case Tok_WHILE:
	case Tok_ident:
	case Tok_FOR:
		return true;
	default: return false;
	}
}

static inline bool FIRST_assignmentOrProcedureCall(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_StatementSequence(int tt) {
	switch(tt){
	case Tok_CASE:
	case Tok_Semi:
	case Tok_GOTO:
	case Tok_REPEAT:
	case Tok_LOOP:
	case Tok_EXIT:
	case Tok_RETURN:
	case Tok_IF:
	case Tok_WHILE:
	case Tok_ident:
	case Tok_FOR:
		return true;
	default: return false;
	}
}

static inline bool FIRST_gotoLabel(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_GotoStatement(int tt) {
	return tt == Tok_GOTO;
}

static inline bool FIRST_IfStatement(int tt) {
	return tt == Tok_IF;
}

static inline bool FIRST_ElsifStatement(int tt) {
	return tt == Tok_ELSIF;
}

static inline bool FIRST_ElseStatement(int tt) {
	return tt == Tok_ELSE;
}

static inline bool FIRST_CaseStatement(int tt) {
	return tt == Tok_CASE;
}

static inline bool FIRST_Case(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_Minus:
	case Tok_NOT:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_At:
	case Tok_string:
	case Tok_Tilde:
	case Tok_Plus:
	case Tok_NIL:
	case Tok_Lbrace:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_CaseLabelList(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_Minus:
	case Tok_NOT:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_At:
	case Tok_string:
	case Tok_Tilde:
	case Tok_NIL:
	case Tok_Plus:
	case Tok_Lbrace:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_LabelRange(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_Minus:
	case Tok_NOT:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_At:
	case Tok_string:
	case Tok_Tilde:
	case Tok_Plus:
	case Tok_NIL:
	case Tok_Lbrace:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_label(int tt) {
	switch(tt){
	case Tok_hexchar:
	case Tok_FALSE:
	case Tok_hexstring:
	case Tok_Minus:
	case Tok_NOT:
	case Tok_integer:
	case Tok_real:
	case Tok_TRUE:
	case Tok_At:
	case Tok_string:
	case Tok_Tilde:
	case Tok_NIL:
	case Tok_Plus:
	case Tok_Lbrace:
	case Tok_Lpar:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_WhileStatement(int tt) {
	return tt == Tok_WHILE;
}

static inline bool FIRST_RepeatStatement(int tt) {
	return tt == Tok_REPEAT;
}

static inline bool FIRST_ForStatement(int tt) {
	return tt == Tok_FOR;
}

static inline bool FIRST_LoopStatement(int tt) {
	return tt == Tok_LOOP;
}

static inline bool FIRST_ExitStatement(int tt) {
	return tt == Tok_EXIT;
}

static inline bool FIRST_procedure(int tt) {
	return tt == Tok_PROC || tt == Tok_PROCEDURE;
}

static inline bool FIRST_ProcedureType(int tt) {
	return tt == Tok_PROC || tt == Tok_PROCEDURE;
}

static inline bool FIRST_InterfaceType(int tt) {
	return tt == Tok_INTERFACE;
}

static inline bool FIRST_InterfaceProc(int tt) {
	return tt == Tok_PROC || tt == Tok_PROCEDURE || tt == Tok_ident;
}

static inline bool FIRST_ProcedureDeclaration(int tt) {
	return tt == Tok_PROC || tt == Tok_PROCEDURE;
}

static inline bool FIRST_ProcedureHeading(int tt) {
	return tt == Tok_PROC || tt == Tok_PROCEDURE;
}

static inline bool FIRST_ForwardDecl(int tt) {
	return tt == Tok_PROC || tt == Tok_PROCEDURE;
}

static inline bool FIRST_Receiver(int tt) {
	return tt == Tok_Lpar;
}

static inline bool FIRST_block(int tt) {
	return tt == Tok_BEGIN;
}

static inline bool FIRST_ProcedureBody(int tt) {
	switch(tt){
	case Tok_TYPE:
	case Tok_PROC:
	case Tok_PROCEDURE:
	case Tok_CONST:
	case Tok_BEGIN:
	case Tok_VAR:
		return true;
	default: return false;
	}
}

static inline bool FIRST_DeclarationSequence(int tt) {
	return tt == Tok_TYPE || tt == Tok_PROC || tt == Tok_PROCEDURE || tt == Tok_CONST || tt == Tok_VAR;
}

static inline bool FIRST_ReturnStatement(int tt) {
	return tt == Tok_RETURN;
}

static inline bool FIRST_FormalParameters(int tt) {
	return tt == Tok_Lpar;
}

static inline bool FIRST_ReturnType(int tt) {
	return tt == Tok_Hat || tt == Tok_POINTER || tt == Tok_ident;
}

static inline bool FIRST_FPSection(int tt) {
	return tt == Tok_CONST || tt == Tok_ident;
}

static inline bool FIRST_FormalType(int tt) {
	switch(tt){
	case Tok_PROC:
	case Tok_ARRAY:
	case Tok_OBJECT:
	case Tok_Hat:
	case Tok_PROCEDURE:
	case Tok_INTERFACE:
	case Tok_POINTER:
	case Tok_Lbrack:
	case Tok_Lpar:
	case Tok_RECORD:
	case Tok_ident:
		return true;
	default: return false;
	}
}

static inline bool FIRST_module(int tt) {
	return tt == Tok_MODULE;
}

static inline bool FIRST_ModuleAttributes(int tt) {
	return tt == Tok_Lbrack;
}

static inline bool FIRST_Attribute(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_ImportList(int tt) {
	return tt == Tok_IMPORT;
}

static inline bool FIRST_WhereDecls(int tt) {
	return tt == Tok_WHERE;
}

static inline bool FIRST_import(int tt) {
	return tt == Tok_ident;
}

static inline bool FIRST_MetaActuals(int tt) {
	return tt == Tok_Lpar;
}

static inline bool FIRST_MetaParams(int tt) {
	return tt == Tok_Lpar;
}

static inline bool FIRST_MetaSection(int tt) {
	return tt == Tok_TYPE || tt == Tok_CONST || tt == Tok_ident;
}

void Parser::RunParser() {
	errors.clear();
	next();
	Micron();
}

void Parser::next() {
	cur = la;
	la = scanner->next();
	while( la.d_type == Tok_Invalid ) {
		errors << Error(la.d_val, la.d_lineNr, la.d_colNr, la.d_sourcePath);
		la = scanner->next();
	}
}

Token Parser::peek(int off) {
	if( off == 1 )
		return la;
	else if( off == 0 )
		return cur;
	else
		return scanner->peek(off-1);
}

void Parser::invalid(const char* what) {
	errors << Error(QString("invalid %1").arg(what),la.d_lineNr, la.d_colNr, la.d_sourcePath);
}

bool Parser::expect(int tt, bool pkw, const char* where) {
	if( la.d_type == tt) { next(); return true; }
	else { errors << Error(QString("'%1' expected in %2").arg(tokenTypeString(tt)).arg(where),la.d_lineNr, la.d_colNr, la.d_sourcePath); return false; }
}

static inline void dummy() {}

void Parser::Micron() {
	module();
}

void Parser::number() {
	if( la.d_type == Tok_integer ) {
		expect(Tok_integer, false, "number");
	} else if( la.d_type == Tok_real ) {
		expect(Tok_real, false, "number");
	} else
		invalid("number");
}

void Parser::qualident() {
	if( ( peek(1).d_type == Tok_ident && peek(2).d_type == Tok_Dot )  ) {
		expect(Tok_ident, false, "qualident");
		expect(Tok_Dot, false, "qualident");
	}
	expect(Tok_ident, false, "qualident");
}

void Parser::identdef() {
	expect(Tok_ident, false, "identdef");
	if( la.d_type == Tok_Star || la.d_type == Tok_Minus ) {
		if( la.d_type == Tok_Star ) {
			expect(Tok_Star, false, "identdef");
		} else if( la.d_type == Tok_Minus ) {
			expect(Tok_Minus, false, "identdef");
		} else
			invalid("identdef");
	}
}

void Parser::ConstDeclaration() {
	identdef();
	expect(Tok_Eq, false, "ConstDeclaration");
	ConstExpression();
}

void Parser::ConstExpression() {
	expression();
}

void Parser::TypeDeclaration() {
	identdef();
	expect(Tok_Eq, false, "TypeDeclaration");
	type();
}

void Parser::type() {
	if( FIRST_NamedType(la.d_type) ) {
		NamedType();
	} else if( FIRST_ArrayType(la.d_type) ) {
		ArrayType();
	} else if( FIRST_RecordType(la.d_type) ) {
		RecordType();
	} else if( FIRST_PointerType(la.d_type) ) {
		PointerType();
	} else if( FIRST_ProcedureType(la.d_type) ) {
		ProcedureType();
	} else if( FIRST_enumeration(la.d_type) ) {
		enumeration();
	} else if( FIRST_InterfaceType(la.d_type) ) {
		InterfaceType();
	} else if( FIRST_ObjectType(la.d_type) ) {
		ObjectType();
	} else
		invalid("type");
}

void Parser::NamedType() {
	qualident();
}

void Parser::ArrayType() {
	if( la.d_type == Tok_ARRAY ) {
		expect(Tok_ARRAY, false, "ArrayType");
		if( FIRST_length(la.d_type) ) {
			length();
		}
		expect(Tok_OF, false, "ArrayType");
		type();
	} else if( la.d_type == Tok_Lbrack ) {
		expect(Tok_Lbrack, false, "ArrayType");
		if( FIRST_length(la.d_type) ) {
			length();
		}
		expect(Tok_Rbrack, false, "ArrayType");
		type();
	} else
		invalid("ArrayType");
}

void Parser::length() {
	if( FIRST_ConstExpression(la.d_type) ) {
		ConstExpression();
	} else if( la.d_type == Tok_VAR ) {
		expect(Tok_VAR, false, "length");
		expression();
	} else
		invalid("length");
}

void Parser::RecordType() {
	expect(Tok_RECORD, false, "RecordType");
	if( FIRST_FixedPart(la.d_type) ) {
		FixedPart();
	}
	if( FIRST_VariantPart(la.d_type) ) {
		VariantPart();
	}
	expect(Tok_END, false, "RecordType");
}

void Parser::ObjectType() {
	expect(Tok_OBJECT, false, "ObjectType");
	if( la.d_type == Tok_Lpar ) {
		expect(Tok_Lpar, false, "ObjectType");
		BaseType();
		expect(Tok_Rpar, false, "ObjectType");
	}
	while( FIRST_IdentList(la.d_type) ) {
		IdentList();
		expect(Tok_Colon, false, "ObjectType");
		type();
		if( la.d_type == Tok_Semi ) {
			expect(Tok_Semi, false, "ObjectType");
		}
	}
	expect(Tok_END, false, "ObjectType");
}

void Parser::BaseType() {
	NamedType();
}

void Parser::inline_() {
	if( la.d_type == Tok_INLINE ) {
		expect(Tok_INLINE, false, "inline_");
	} else if( la.d_type == Tok_IN ) {
		expect(Tok_IN, false, "inline_");
	} else
		invalid("inline_");
}

void Parser::VariantPart() {
	expect(Tok_CASE, false, "VariantPart");
	while( la.d_type == Tok_Bar || FIRST_inline_(la.d_type) || FIRST_identdef(la.d_type) ) {
		if( la.d_type == Tok_Bar ) {
			expect(Tok_Bar, false, "VariantPart");
		}
		if( FIRST_inline_(la.d_type) ) {
			inline_();
		}
		identdef();
		expect(Tok_Colon, false, "VariantPart");
		type();
	}
}

void Parser::FixedPart() {
	FieldList();
	if( la.d_type == Tok_Semi ) {
		expect(Tok_Semi, false, "FixedPart");
	}
	while( FIRST_FieldList(la.d_type) ) {
		FieldList();
		if( la.d_type == Tok_Semi ) {
			expect(Tok_Semi, false, "FixedPart");
		}
	}
}

void Parser::FieldList() {
	if( FIRST_IdentList(la.d_type) ) {
		IdentList();
		expect(Tok_Colon, false, "FieldList");
		type();
		if( la.d_type == Tok_BITS ) {
			expect(Tok_BITS, false, "FieldList");
			expect(Tok_integer, false, "FieldList");
		}
	} else if( la.d_type == Tok_2Dot ) {
		expect(Tok_2Dot, false, "FieldList");
		expect(Tok_BITS, false, "FieldList");
		expect(Tok_integer, false, "FieldList");
	} else if( FIRST_inline_(la.d_type) ) {
		inline_();
		identdef();
		expect(Tok_Colon, false, "FieldList");
		type();
	} else
		invalid("FieldList");
}

void Parser::IdentList() {
	identdef();
	while( la.d_type == Tok_Comma || FIRST_identdef(la.d_type) ) {
		if( la.d_type == Tok_Comma ) {
			expect(Tok_Comma, false, "IdentList");
		}
		identdef();
	}
}

void Parser::PointerType() {
	if( la.d_type == Tok_POINTER ) {
		expect(Tok_POINTER, false, "PointerType");
		expect(Tok_TO, false, "PointerType");
	} else if( la.d_type == Tok_Hat ) {
		expect(Tok_Hat, false, "PointerType");
	} else
		invalid("PointerType");
	type();
}

void Parser::enumeration() {
	expect(Tok_Lpar, false, "enumeration");
	constEnum();
	expect(Tok_Rpar, false, "enumeration");
}

void Parser::constEnum() {
	expect(Tok_ident, false, "constEnum");
	if( la.d_type == Tok_Eq ) {
		expect(Tok_Eq, false, "constEnum");
		ConstExpression();
	}
	while( la.d_type == Tok_Comma || la.d_type == Tok_ident ) {
		if( la.d_type == Tok_Comma ) {
			expect(Tok_Comma, false, "constEnum");
		}
		expect(Tok_ident, false, "constEnum");
	}
}

void Parser::WhereDeclaration() {
	expect(Tok_ident, false, "WhereDeclaration");
	expect(Tok_Colon, false, "WhereDeclaration");
	type();
}

void Parser::VariableDeclaration() {
	IdentList();
	expect(Tok_Colon, false, "VariableDeclaration");
	type();
}

void Parser::designator() {
	qualident();
	while( FIRST_selector(la.d_type) ) {
		selector();
	}
}

void Parser::selector() {
	if( la.d_type == Tok_Dot ) {
		expect(Tok_Dot, false, "selector");
		expect(Tok_ident, false, "selector");
	} else if( la.d_type == Tok_Lbrack ) {
		expect(Tok_Lbrack, false, "selector");
		expression();
		expect(Tok_Rbrack, false, "selector");
	} else if( la.d_type == Tok_Hat ) {
		expect(Tok_Hat, false, "selector");
	} else if( la.d_type == Tok_Lpar ) {
		expect(Tok_Lpar, false, "selector");
		if( FIRST_ExpList(la.d_type) ) {
			ExpList();
		}
		expect(Tok_Rpar, false, "selector");
	} else
		invalid("selector");
}

void Parser::ExpList() {
	expression();
	while( la.d_type == Tok_Comma || FIRST_expression(la.d_type) ) {
		if( la.d_type == Tok_Comma ) {
			expect(Tok_Comma, false, "ExpList");
		}
		expression();
	}
}

void Parser::expression() {
	SimpleExpression();
	if( FIRST_relation(la.d_type) ) {
		relation();
		SimpleExpression();
	}
}

void Parser::relation() {
	if( la.d_type == Tok_Eq ) {
		expect(Tok_Eq, false, "relation");
	} else if( la.d_type == Tok_Hash ) {
		expect(Tok_Hash, false, "relation");
	} else if( la.d_type == Tok_LtGt ) {
		expect(Tok_LtGt, false, "relation");
	} else if( la.d_type == Tok_Lt ) {
		expect(Tok_Lt, false, "relation");
	} else if( la.d_type == Tok_Leq ) {
		expect(Tok_Leq, false, "relation");
	} else if( la.d_type == Tok_Gt ) {
		expect(Tok_Gt, false, "relation");
	} else if( la.d_type == Tok_Geq ) {
		expect(Tok_Geq, false, "relation");
	} else if( la.d_type == Tok_IN ) {
		expect(Tok_IN, false, "relation");
	} else if( la.d_type == Tok_IS ) {
		expect(Tok_IS, false, "relation");
	} else
		invalid("relation");
}

void Parser::SimpleExpression() {
	if( la.d_type == Tok_Plus || la.d_type == Tok_Minus ) {
		if( la.d_type == Tok_Plus ) {
			expect(Tok_Plus, false, "SimpleExpression");
		} else if( la.d_type == Tok_Minus ) {
			expect(Tok_Minus, false, "SimpleExpression");
		} else
			invalid("SimpleExpression");
	}
	term();
	while( FIRST_AddOperator(la.d_type) ) {
		AddOperator();
		term();
	}
}

void Parser::AddOperator() {
	if( la.d_type == Tok_Plus ) {
		expect(Tok_Plus, false, "AddOperator");
	} else if( la.d_type == Tok_Minus ) {
		expect(Tok_Minus, false, "AddOperator");
	} else if( la.d_type == Tok_OR ) {
		expect(Tok_OR, false, "AddOperator");
	} else
		invalid("AddOperator");
}

void Parser::term() {
	factor();
	while( FIRST_MulOperator(la.d_type) ) {
		MulOperator();
		factor();
	}
}

void Parser::MulOperator() {
	if( la.d_type == Tok_Star ) {
		expect(Tok_Star, false, "MulOperator");
	} else if( la.d_type == Tok_Slash ) {
		expect(Tok_Slash, false, "MulOperator");
	} else if( la.d_type == Tok_DIV ) {
		expect(Tok_DIV, false, "MulOperator");
	} else if( la.d_type == Tok_MOD ) {
		expect(Tok_MOD, false, "MulOperator");
	} else if( la.d_type == Tok_Amp ) {
		expect(Tok_Amp, false, "MulOperator");
	} else if( la.d_type == Tok_AND ) {
		expect(Tok_AND, false, "MulOperator");
	} else
		invalid("MulOperator");
}

void Parser::literal() {
	if( FIRST_number(la.d_type) ) {
		number();
	} else if( la.d_type == Tok_string ) {
		expect(Tok_string, false, "literal");
	} else if( la.d_type == Tok_hexstring ) {
		expect(Tok_hexstring, false, "literal");
	} else if( la.d_type == Tok_hexchar ) {
		expect(Tok_hexchar, false, "literal");
	} else if( la.d_type == Tok_NIL ) {
		expect(Tok_NIL, false, "literal");
	} else if( la.d_type == Tok_TRUE ) {
		expect(Tok_TRUE, false, "literal");
	} else if( la.d_type == Tok_FALSE ) {
		expect(Tok_FALSE, false, "literal");
	} else
		invalid("literal");
}

void Parser::constructor() {
	if( FIRST_NamedType(la.d_type) ) {
		NamedType();
	}
	expect(Tok_Lbrace, false, "constructor");
	if( FIRST_component(la.d_type) ) {
		component();
		while( la.d_type == Tok_Comma || FIRST_component(la.d_type) ) {
			if( la.d_type == Tok_Comma ) {
				expect(Tok_Comma, false, "constructor");
			}
			component();
		}
	}
	expect(Tok_Rbrace, false, "constructor");
}

void Parser::component() {
	if( ( peek(1).d_type == Tok_ident && peek(2).d_type == Tok_Colon )  ) {
		expect(Tok_ident, false, "component");
		expect(Tok_Colon, false, "component");
		expression();
	} else if( la.d_type == Tok_Lbrack ) {
		expect(Tok_Lbrack, false, "component");
		ConstExpression();
		expect(Tok_Rbrack, false, "component");
		expect(Tok_Colon, false, "component");
		expression();
	} else if( FIRST_expression(la.d_type) ) {
		expression();
		if( la.d_type == Tok_2Dot ) {
			expect(Tok_2Dot, false, "component");
			expression();
		}
	} else
		invalid("component");
}

void Parser::factor() {
	if( ( ( peek(1).d_type == Tok_Lbrace || peek(1).d_type == Tok_ident && peek(2).d_type == Tok_Lbrace ) )  ) {
		constructor();
	} else if( FIRST_literal(la.d_type) ) {
		literal();
	} else if( FIRST_variableOrFunctionCall(la.d_type) ) {
		variableOrFunctionCall();
	} else if( la.d_type == Tok_Lpar ) {
		expect(Tok_Lpar, false, "factor");
		expression();
		expect(Tok_Rpar, false, "factor");
	} else if( la.d_type == Tok_Tilde || la.d_type == Tok_NOT ) {
		if( la.d_type == Tok_Tilde ) {
			expect(Tok_Tilde, false, "factor");
		} else if( la.d_type == Tok_NOT ) {
			expect(Tok_NOT, false, "factor");
		} else
			invalid("factor");
		factor();
	} else if( la.d_type == Tok_At ) {
		expect(Tok_At, false, "factor");
		constructor();
		designator();
	} else
		invalid("factor");
}

void Parser::variableOrFunctionCall() {
	designator();
}

void Parser::statement() {
	if( ( peek(1).d_type == Tok_ident && peek(2).d_type == Tok_Colon )  ) {
		gotoLabel();
	} else if( FIRST_assignmentOrProcedureCall(la.d_type) ) {
		assignmentOrProcedureCall();
	} else if( FIRST_IfStatement(la.d_type) ) {
		IfStatement();
	} else if( FIRST_CaseStatement(la.d_type) ) {
		CaseStatement();
	} else if( FIRST_LoopStatement(la.d_type) ) {
		LoopStatement();
	} else if( FIRST_ExitStatement(la.d_type) ) {
		ExitStatement();
	} else if( FIRST_GotoStatement(la.d_type) ) {
		GotoStatement();
	} else if( FIRST_ReturnStatement(la.d_type) ) {
		ReturnStatement();
	} else if( FIRST_WhileStatement(la.d_type) ) {
		WhileStatement();
	} else if( FIRST_RepeatStatement(la.d_type) ) {
		RepeatStatement();
	} else if( FIRST_ForStatement(la.d_type) ) {
		ForStatement();
	} else
		invalid("statement");
}

void Parser::assignmentOrProcedureCall() {
	designator();
	if( la.d_type == Tok_ColonEq ) {
		expect(Tok_ColonEq, false, "assignmentOrProcedureCall");
		expression();
	}
}

void Parser::StatementSequence() {
	while( la.d_type == Tok_Semi ) {
		expect(Tok_Semi, false, "StatementSequence");
	}
	while( FIRST_statement(la.d_type) ) {
		statement();
		while( la.d_type == Tok_Semi ) {
			expect(Tok_Semi, false, "StatementSequence");
		}
	}
}

void Parser::gotoLabel() {
	expect(Tok_ident, false, "gotoLabel");
	expect(Tok_Colon, false, "gotoLabel");
}

void Parser::GotoStatement() {
	expect(Tok_GOTO, false, "GotoStatement");
	expect(Tok_ident, false, "GotoStatement");
}

void Parser::IfStatement() {
	expect(Tok_IF, false, "IfStatement");
	expression();
	expect(Tok_THEN, false, "IfStatement");
	StatementSequence();
	while( FIRST_ElsifStatement(la.d_type) ) {
		ElsifStatement();
	}
	if( FIRST_ElseStatement(la.d_type) ) {
		ElseStatement();
	}
	expect(Tok_END, false, "IfStatement");
}

void Parser::ElsifStatement() {
	expect(Tok_ELSIF, false, "ElsifStatement");
	expression();
	expect(Tok_THEN, false, "ElsifStatement");
	StatementSequence();
}

void Parser::ElseStatement() {
	expect(Tok_ELSE, false, "ElseStatement");
	StatementSequence();
}

void Parser::CaseStatement() {
	expect(Tok_CASE, false, "CaseStatement");
	expression();
	expect(Tok_OF, false, "CaseStatement");
	if( FIRST_Case(la.d_type) ) {
		Case();
	}
	while( la.d_type == Tok_Bar ) {
		expect(Tok_Bar, false, "CaseStatement");
		Case();
	}
	if( la.d_type == Tok_ELSE ) {
		expect(Tok_ELSE, false, "CaseStatement");
		StatementSequence();
	}
	expect(Tok_END, false, "CaseStatement");
}

void Parser::Case() {
	CaseLabelList();
	expect(Tok_Colon, false, "Case");
	StatementSequence();
}

void Parser::CaseLabelList() {
	LabelRange();
	while( la.d_type == Tok_Comma || FIRST_LabelRange(la.d_type) ) {
		if( la.d_type == Tok_Comma ) {
			expect(Tok_Comma, false, "CaseLabelList");
		}
		LabelRange();
	}
}

void Parser::LabelRange() {
	label();
	if( la.d_type == Tok_2Dot ) {
		expect(Tok_2Dot, false, "LabelRange");
		label();
	}
}

void Parser::label() {
	ConstExpression();
}

void Parser::WhileStatement() {
	expect(Tok_WHILE, false, "WhileStatement");
	expression();
	expect(Tok_DO, false, "WhileStatement");
	StatementSequence();
	expect(Tok_END, false, "WhileStatement");
}

void Parser::RepeatStatement() {
	expect(Tok_REPEAT, false, "RepeatStatement");
	StatementSequence();
	expect(Tok_UNTIL, false, "RepeatStatement");
	expression();
}

void Parser::ForStatement() {
	expect(Tok_FOR, false, "ForStatement");
	expect(Tok_ident, false, "ForStatement");
	expect(Tok_ColonEq, false, "ForStatement");
	expression();
	expect(Tok_TO, false, "ForStatement");
	expression();
	if( la.d_type == Tok_BY ) {
		expect(Tok_BY, false, "ForStatement");
		ConstExpression();
	}
	expect(Tok_DO, false, "ForStatement");
	StatementSequence();
	expect(Tok_END, false, "ForStatement");
}

void Parser::LoopStatement() {
	expect(Tok_LOOP, false, "LoopStatement");
	StatementSequence();
	expect(Tok_END, false, "LoopStatement");
}

void Parser::ExitStatement() {
	expect(Tok_EXIT, false, "ExitStatement");
}

void Parser::procedure() {
	if( la.d_type == Tok_PROCEDURE ) {
		expect(Tok_PROCEDURE, false, "procedure");
	} else if( la.d_type == Tok_PROC ) {
		expect(Tok_PROC, false, "procedure");
	} else
		invalid("procedure");
}

void Parser::ProcedureType() {
	procedure();
	if( ( peek(1).d_type == Tok_Lpar && ( peek(2).d_type == Tok_Hat || peek(2).d_type == Tok_POINTER ) )  ) {
		expect(Tok_Lpar, false, "ProcedureType");
		if( la.d_type == Tok_POINTER ) {
			expect(Tok_POINTER, false, "ProcedureType");
		} else if( la.d_type == Tok_Hat ) {
			expect(Tok_Hat, false, "ProcedureType");
		} else
			invalid("ProcedureType");
		expect(Tok_Rpar, false, "ProcedureType");
	}
	if( FIRST_FormalParameters(la.d_type) ) {
		FormalParameters();
	}
}

void Parser::InterfaceType() {
	expect(Tok_INTERFACE, false, "InterfaceType");
	while( FIRST_InterfaceProc(la.d_type) ) {
		InterfaceProc();
	}
	expect(Tok_END, false, "InterfaceType");
}

void Parser::InterfaceProc() {
	if( FIRST_procedure(la.d_type) ) {
		procedure();
	}
	identdef();
	if( FIRST_FormalParameters(la.d_type) ) {
		FormalParameters();
	}
	if( la.d_type == Tok_Semi ) {
		expect(Tok_Semi, false, "InterfaceProc");
	}
}

void Parser::ProcedureDeclaration() {
	if( ( peek(2).d_type == Tok_Hat )  ) {
		ForwardDecl();
	} else if( FIRST_ProcedureHeading(la.d_type) ) {
		ProcedureHeading();
		if( la.d_type == Tok_INLINE || la.d_type == Tok_INVAR || la.d_type == Tok_Semi || FIRST_ProcedureBody(la.d_type) ) {
			if( la.d_type == Tok_INLINE || la.d_type == Tok_INVAR ) {
				if( la.d_type == Tok_INLINE ) {
					expect(Tok_INLINE, false, "ProcedureDeclaration");
				} else if( la.d_type == Tok_INVAR ) {
					expect(Tok_INVAR, false, "ProcedureDeclaration");
				} else
					invalid("ProcedureDeclaration");
			}
			if( la.d_type == Tok_Semi ) {
				expect(Tok_Semi, false, "ProcedureDeclaration");
			}
			ProcedureBody();
		} else if( ( ( peek(1).d_type == Tok_EXTERN || peek(1).d_type == Tok_Semi ) && ( peek(2).d_type == Tok_EXTERN || peek(2).d_type == Tok_ident ) )  ) {
			if( la.d_type == Tok_Semi ) {
				expect(Tok_Semi, false, "ProcedureDeclaration");
			}
			expect(Tok_EXTERN, false, "ProcedureDeclaration");
			if( la.d_type == Tok_ident ) {
				expect(Tok_ident, false, "ProcedureDeclaration");
				if( la.d_type == Tok_string ) {
					expect(Tok_string, false, "ProcedureDeclaration");
				}
			}
		} else
			invalid("ProcedureDeclaration");
	} else
		invalid("ProcedureDeclaration");
}

void Parser::ProcedureHeading() {
	procedure();
	if( FIRST_Receiver(la.d_type) || ( peek(1).d_type == Tok_ident && peek(2).d_type == Tok_Dot )  ) {
		if( FIRST_Receiver(la.d_type) ) {
			Receiver();
		} else if( ( peek(1).d_type == Tok_ident && peek(2).d_type == Tok_Dot )  ) {
			expect(Tok_ident, false, "ProcedureHeading");
			expect(Tok_Dot, false, "ProcedureHeading");
		} else
			invalid("ProcedureHeading");
	}
	identdef();
	if( FIRST_FormalParameters(la.d_type) ) {
		FormalParameters();
	}
}

void Parser::ForwardDecl() {
	procedure();
	expect(Tok_Hat, false, "ForwardDecl");
	if( FIRST_Receiver(la.d_type) || ( peek(1).d_type == Tok_ident && peek(2).d_type == Tok_Dot )  ) {
		if( FIRST_Receiver(la.d_type) ) {
			Receiver();
		} else if( ( peek(1).d_type == Tok_ident && peek(2).d_type == Tok_Dot )  ) {
			expect(Tok_ident, false, "ForwardDecl");
			expect(Tok_Dot, false, "ForwardDecl");
		} else
			invalid("ForwardDecl");
	}
	identdef();
	if( FIRST_FormalParameters(la.d_type) ) {
		FormalParameters();
	}
}

void Parser::Receiver() {
	expect(Tok_Lpar, false, "Receiver");
	expect(Tok_ident, false, "Receiver");
	expect(Tok_Colon, false, "Receiver");
	expect(Tok_ident, false, "Receiver");
	expect(Tok_Rpar, false, "Receiver");
}

void Parser::block() {
	expect(Tok_BEGIN, false, "block");
	StatementSequence();
	if( la.d_type == Tok_FINALLY ) {
		expect(Tok_FINALLY, false, "block");
		StatementSequence();
	}
}

void Parser::ProcedureBody() {
	DeclarationSequence();
	block();
	expect(Tok_END, false, "ProcedureBody");
	expect(Tok_ident, false, "ProcedureBody");
}

void Parser::DeclarationSequence() {
	while( la.d_type == Tok_CONST || la.d_type == Tok_TYPE || la.d_type == Tok_VAR || FIRST_ProcedureDeclaration(la.d_type) ) {
		if( la.d_type == Tok_CONST ) {
			expect(Tok_CONST, false, "DeclarationSequence");
			while( FIRST_ConstDeclaration(la.d_type) ) {
				ConstDeclaration();
				if( la.d_type == Tok_Semi ) {
					expect(Tok_Semi, false, "DeclarationSequence");
				}
			}
		} else if( la.d_type == Tok_TYPE ) {
			expect(Tok_TYPE, false, "DeclarationSequence");
			while( FIRST_TypeDeclaration(la.d_type) ) {
				TypeDeclaration();
				if( la.d_type == Tok_Semi ) {
					expect(Tok_Semi, false, "DeclarationSequence");
				}
			}
		} else if( la.d_type == Tok_VAR ) {
			expect(Tok_VAR, false, "DeclarationSequence");
			while( FIRST_VariableDeclaration(la.d_type) ) {
				VariableDeclaration();
				if( la.d_type == Tok_Semi ) {
					expect(Tok_Semi, false, "DeclarationSequence");
				}
			}
		} else if( FIRST_ProcedureDeclaration(la.d_type) ) {
			ProcedureDeclaration();
			if( la.d_type == Tok_Semi ) {
				expect(Tok_Semi, false, "DeclarationSequence");
			}
		} else
			invalid("DeclarationSequence");
	}
}

void Parser::ReturnStatement() {
	expect(Tok_RETURN, false, "ReturnStatement");
	if( FIRST_expression(la.d_type) ) {
		expression();
	}
}

void Parser::FormalParameters() {
	expect(Tok_Lpar, false, "FormalParameters");
	if( FIRST_FPSection(la.d_type) ) {
		FPSection();
		while( ( ( ( peek(1).d_type == Tok_ident || peek(1).d_type == Tok_CONST ) || peek(2).d_type == Tok_Semi && ( peek(3).d_type == Tok_ident || peek(3).d_type == Tok_CONST ) ) )  ) {
			if( la.d_type == Tok_Semi ) {
				expect(Tok_Semi, false, "FormalParameters");
			}
			FPSection();
		}
	}
	expect(Tok_Rpar, false, "FormalParameters");
	if( la.d_type == Tok_Colon ) {
		expect(Tok_Colon, false, "FormalParameters");
		ReturnType();
	}
}

void Parser::ReturnType() {
	if( la.d_type == Tok_POINTER || la.d_type == Tok_Hat ) {
		if( la.d_type == Tok_POINTER ) {
			expect(Tok_POINTER, false, "ReturnType");
			expect(Tok_TO, false, "ReturnType");
		} else if( la.d_type == Tok_Hat ) {
			expect(Tok_Hat, false, "ReturnType");
		} else
			invalid("ReturnType");
	}
	NamedType();
}

void Parser::FPSection() {
	if( la.d_type == Tok_CONST ) {
		expect(Tok_CONST, false, "FPSection");
	}
	expect(Tok_ident, false, "FPSection");
	while( la.d_type == Tok_Comma || la.d_type == Tok_ident ) {
		if( la.d_type == Tok_Comma ) {
			expect(Tok_Comma, false, "FPSection");
		}
		expect(Tok_ident, false, "FPSection");
	}
	expect(Tok_Colon, false, "FPSection");
	FormalType();
}

void Parser::FormalType() {
	type();
}

void Parser::module() {
	expect(Tok_MODULE, false, "module");
	expect(Tok_ident, false, "module");
	if( FIRST_MetaParams(la.d_type) ) {
		MetaParams();
	}
	if( FIRST_ModuleAttributes(la.d_type) ) {
		ModuleAttributes();
	}
	if( la.d_type == Tok_Semi ) {
		expect(Tok_Semi, false, "module");
	}
	while( FIRST_ImportList(la.d_type) || FIRST_WhereDecls(la.d_type) || FIRST_DeclarationSequence(la.d_type) ) {
		if( FIRST_ImportList(la.d_type) ) {
			ImportList();
		} else if( FIRST_WhereDecls(la.d_type) ) {
			WhereDecls();
		} else if( FIRST_DeclarationSequence(la.d_type) || la.d_type == Tok_BEGIN || la.d_type == Tok_CONST || la.d_type == Tok_END || la.d_type == Tok_TYPE || la.d_type == Tok_VAR || la.d_type == Tok_WHERE || la.d_type == Tok_PROCEDURE || la.d_type == Tok_IMPORT || la.d_type == Tok_PROC ) {
			DeclarationSequence();
		} else
			invalid("module");
	}
	if( FIRST_block(la.d_type) ) {
		block();
	}
	expect(Tok_END, false, "module");
	expect(Tok_ident, false, "module");
	if( la.d_type == Tok_Dot ) {
		expect(Tok_Dot, false, "module");
	}
}

void Parser::ModuleAttributes() {
	expect(Tok_Lbrack, false, "ModuleAttributes");
	Attribute();
	while( la.d_type == Tok_Comma || FIRST_Attribute(la.d_type) ) {
		if( la.d_type == Tok_Comma ) {
			expect(Tok_Comma, false, "ModuleAttributes");
		}
		Attribute();
	}
	expect(Tok_Rbrack, false, "ModuleAttributes");
}

void Parser::Attribute() {
	expect(Tok_ident, false, "Attribute");
	if( la.d_type == Tok_Eq ) {
		expect(Tok_Eq, false, "Attribute");
		ConstExpression();
	}
}

void Parser::ImportList() {
	expect(Tok_IMPORT, false, "ImportList");
	import();
	while( la.d_type == Tok_Comma || FIRST_import(la.d_type) ) {
		if( la.d_type == Tok_Comma ) {
			expect(Tok_Comma, false, "ImportList");
		}
		import();
	}
	if( la.d_type == Tok_Semi ) {
		expect(Tok_Semi, false, "ImportList");
	}
}

void Parser::WhereDecls() {
	expect(Tok_WHERE, false, "WhereDecls");
	while( FIRST_WhereDeclaration(la.d_type) ) {
		WhereDeclaration();
		if( la.d_type == Tok_Semi ) {
			expect(Tok_Semi, false, "WhereDecls");
		}
	}
}

void Parser::import() {
	if( ( peek(1).d_type == Tok_ident && peek(2).d_type == Tok_ColonEq )  ) {
		expect(Tok_ident, false, "import");
		expect(Tok_ColonEq, false, "import");
	}
	expect(Tok_ident, false, "import");
	while( la.d_type == Tok_Dot ) {
		expect(Tok_Dot, false, "import");
		expect(Tok_ident, false, "import");
	}
	if( FIRST_MetaActuals(la.d_type) ) {
		MetaActuals();
	}
}

void Parser::MetaActuals() {
	expect(Tok_Lpar, false, "MetaActuals");
	ConstExpression();
	while( la.d_type == Tok_Comma || FIRST_ConstExpression(la.d_type) ) {
		if( la.d_type == Tok_Comma ) {
			expect(Tok_Comma, false, "MetaActuals");
		}
		ConstExpression();
	}
	expect(Tok_Rpar, false, "MetaActuals");
}

void Parser::MetaParams() {
	expect(Tok_Lpar, false, "MetaParams");
	MetaSection();
	while( la.d_type == Tok_Semi || FIRST_MetaSection(la.d_type) ) {
		if( la.d_type == Tok_Semi ) {
			expect(Tok_Semi, false, "MetaParams");
		}
		MetaSection();
	}
	expect(Tok_Rpar, false, "MetaParams");
}

void Parser::MetaSection() {
	if( la.d_type == Tok_TYPE || la.d_type == Tok_CONST ) {
		if( la.d_type == Tok_TYPE ) {
			expect(Tok_TYPE, false, "MetaSection");
		} else if( la.d_type == Tok_CONST ) {
			expect(Tok_CONST, false, "MetaSection");
		} else
			invalid("MetaSection");
	}
	expect(Tok_ident, false, "MetaSection");
	while( ( ( peek(1).d_type == Tok_Comma || peek(1).d_type == Tok_ident ) && peek(2).d_type == Tok_ident )  ) {
		if( la.d_type == Tok_Comma ) {
			expect(Tok_Comma, false, "MetaSection");
		}
		expect(Tok_ident, false, "MetaSection");
	}
}