/lib/antlr-2.7.5/examples/java/pascal/SymtabPhase.java

Large files files are truncated, but you can click here to view the full file

// $ANTLR 2.7.2: "expandedsymtab.g" -> "SymtabPhase.java"$

import antlr.TreeParser;
import antlr.Token;
import antlr.collections.AST;
import antlr.RecognitionException;
import antlr.ANTLRException;
import antlr.NoViableAltException;
import antlr.MismatchedTokenException;
import antlr.SemanticException;
import antlr.collections.impl.BitSet;
import antlr.ASTPair;
import antlr.collections.impl.ASTArray;

import java.util.*;
import java.io.*;


public class SymtabPhase extends antlr.TreeParser       implements SymtabPhaseTokenTypes
 {

Stack scopes = new Stack();
Stack usesScopes = new Stack();
//public static File thisUnit;
public File thisUnit;
public SymtabPhase() {
	tokenNames = _tokenNames;
}

	public final void program(AST _t) throws RecognitionException {
		
		PascalAST program_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			programHeading(_t);
			_t = _retTree;
			block(_t);
			_t = _retTree;
			System.out.println(scopes.peek());
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void programHeading(AST _t) throws RecognitionException {
		
		PascalAST programHeading_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case PROGRAM:
			{
				AST __t3 = _t;
				PascalAST tmp1_AST_in = (PascalAST)_t;
				match(_t,PROGRAM);
				_t = _t.getFirstChild();
				PascalAST tmp2_AST_in = (PascalAST)_t;
				match(_t,IDENT);
				_t = _t.getNextSibling();
				identifierList(_t);
				_t = _retTree;
				_t = __t3;
				_t = _t.getNextSibling();
				Scope root = new Scope(null); 
				scopes.push(root);
				break;
			}
			case UNIT:
			{
				AST __t4 = _t;
				PascalAST tmp3_AST_in = (PascalAST)_t;
				match(_t,UNIT);
				_t = _t.getFirstChild();
				PascalAST tmp4_AST_in = (PascalAST)_t;
				match(_t,IDENT);
				_t = _t.getNextSibling();
				_t = __t4;
				_t = _t.getNextSibling();
				
				Scope root = new Scope(null); // create new scope
				scopes.push(root);            // enter new scope :)
				root.addSymbol(new Unit(tmp4_AST_in.getText())); // create unit symbol entry
				
				String tUnit = new String (tmp4_AST_in.getText());
				tUnit = tUnit.concat(".sym");
				thisUnit = new File (PascalParser.translateFilePath, tUnit);
				
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void block(AST _t) throws RecognitionException {
		
		PascalAST block_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			{
			_loop7:
			do {
				if (_t==null) _t=ASTNULL;
				switch ( _t.getType()) {
				case LABEL:
				{
					labelDeclarationPart(_t);
					_t = _retTree;
					break;
				}
				case CONST:
				{
					constantDefinitionPart(_t);
					_t = _retTree;
					break;
				}
				case TYPE:
				{
					typeDefinitionPart(_t);
					_t = _retTree;
					break;
				}
				case VAR:
				{
					variableDeclarationPart(_t);
					_t = _retTree;
					break;
				}
				case FUNCTION:
				case PROCEDURE:
				{
					procedureAndFunctionDeclarationPart(_t);
					_t = _retTree;
					break;
				}
				case USES:
				{
					usesUnitsPart(_t);
					_t = _retTree;
					break;
				}
				case IMPLEMENTATION:
				{
					PascalAST tmp5_AST_in = (PascalAST)_t;
					match(_t,IMPLEMENTATION);
					_t = _t.getNextSibling();
					System.out.println(scopes.peek()); 
					//write symbol table and exit when currentFileName != translateFileName
					if  (PascalParser.currentFileName.compareTo(PascalParser.translateFileName) != 0) {
					try{
					ObjectOutputStream oos = new ObjectOutputStream(new FileOutputStream(thisUnit));
					oos.writeObject(scopes);
					oos.close();
					}
					catch (IOException e) {
					System.err.println("IOexception: "+e); }
					_t = null;
					throw new RecognitionException();
					}
					
					break;
				}
				default:
				{
					break _loop7;
				}
				}
			} while (true);
			}
			compoundStatement(_t);
			_t = _retTree;
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final Vector  identifierList(AST _t) throws RecognitionException {
		Vector ids=new Vector();
		
		PascalAST identifierList_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t38 = _t;
			PascalAST tmp6_AST_in = (PascalAST)_t;
			match(_t,IDLIST);
			_t = _t.getFirstChild();
			{
			int _cnt40=0;
			_loop40:
			do {
				if (_t==null) _t=ASTNULL;
				if ((_t.getType()==IDENT)) {
					PascalAST tmp7_AST_in = (PascalAST)_t;
					match(_t,IDENT);
					_t = _t.getNextSibling();
					ids.addElement(tmp7_AST_in.getText());
				}
				else {
					if ( _cnt40>=1 ) { break _loop40; } else {throw new NoViableAltException(_t);}
				}
				
				_cnt40++;
			} while (true);
			}
			_t = __t38;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
		return ids;
	}
	
	public final void labelDeclarationPart(AST _t) throws RecognitionException {
		
		PascalAST labelDeclarationPart_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t47 = _t;
			PascalAST tmp8_AST_in = (PascalAST)_t;
			match(_t,LABEL);
			_t = _t.getFirstChild();
			{
			int _cnt49=0;
			_loop49:
			do {
				if (_t==null) _t=ASTNULL;
				if ((_t.getType()==NUM_INT)) {
					label(_t);
					_t = _retTree;
				}
				else {
					if ( _cnt49>=1 ) { break _loop49; } else {throw new NoViableAltException(_t);}
				}
				
				_cnt49++;
			} while (true);
			}
			_t = __t47;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void constantDefinitionPart(AST _t) throws RecognitionException {
		
		PascalAST constantDefinitionPart_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t52 = _t;
			PascalAST tmp9_AST_in = (PascalAST)_t;
			match(_t,CONST);
			_t = _t.getFirstChild();
			{
			int _cnt54=0;
			_loop54:
			do {
				if (_t==null) _t=ASTNULL;
				if ((_t.getType()==EQUAL)) {
					constantDefinition(_t);
					_t = _retTree;
				}
				else {
					if ( _cnt54>=1 ) { break _loop54; } else {throw new NoViableAltException(_t);}
				}
				
				_cnt54++;
			} while (true);
			}
			_t = __t52;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void typeDefinitionPart(AST _t) throws RecognitionException {
		
		PascalAST typeDefinitionPart_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t57 = _t;
			PascalAST tmp10_AST_in = (PascalAST)_t;
			match(_t,TYPE);
			_t = _t.getFirstChild();
			{
			int _cnt59=0;
			_loop59:
			do {
				if (_t==null) _t=ASTNULL;
				if ((_t.getType()==TYPEDECL)) {
					typeDefinition(_t);
					_t = _retTree;
				}
				else {
					if ( _cnt59>=1 ) { break _loop59; } else {throw new NoViableAltException(_t);}
				}
				
				_cnt59++;
			} while (true);
			}
			_t = __t57;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void variableDeclarationPart(AST _t) throws RecognitionException {
		
		PascalAST variableDeclarationPart_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t95 = _t;
			PascalAST tmp11_AST_in = (PascalAST)_t;
			match(_t,VAR);
			_t = _t.getFirstChild();
			{
			int _cnt97=0;
			_loop97:
			do {
				if (_t==null) _t=ASTNULL;
				if ((_t.getType()==VARDECL)) {
					variableDeclaration(_t);
					_t = _retTree;
				}
				else {
					if ( _cnt97>=1 ) { break _loop97; } else {throw new NoViableAltException(_t);}
				}
				
				_cnt97++;
			} while (true);
			}
			_t = __t95;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void procedureAndFunctionDeclarationPart(AST _t) throws RecognitionException {
		
		PascalAST procedureAndFunctionDeclarationPart_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			procedureOrFunctionDeclaration(_t);
			_t = _retTree;
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void usesUnitsPart(AST _t) throws RecognitionException {
		
		PascalAST usesUnitsPart_AST_in = (PascalAST)_t;
		PascalAST usesList = null;
		
		String usesFile, usesSymtab;
		String oldUsesFile;
		File f, symFile;
		Object readSymtab = new Stack();
		
		
		try {      // for error handling
			AST __t9 = _t;
			PascalAST tmp12_AST_in = (PascalAST)_t;
			match(_t,USES);
			_t = _t.getFirstChild();
			usesList = _t==ASTNULL ? null : (PascalAST)_t;
			identifierList(_t);
			_t = _retTree;
			_t = __t9;
			_t = _t.getNextSibling();
			
			usesList = (PascalAST) usesList.getFirstChild();
			oldUsesFile = PascalParser.currentFileName;
			while (usesList !=null) {
			// make symboltable for usesFile
			usesFile = usesList.getText();
			usesFile = usesFile.concat(".pas");
			usesSymtab = usesList.getText();
			usesSymtab = usesSymtab.concat(".sym");
			
			f = new File(PascalParser.translateFilePath,usesFile);
			symFile = new File(PascalParser.translateFilePath,usesSymtab);
			
						// we have to build the symbol table when ...
						if (( !(symFile.exists() ) )
						// this .sym file (usesSymtyb) does not exist or ...
						   || ((f.lastModified()) > (symFile.lastModified()) ) ){
						// the date of this .sym file (usesSymtyb) is older than the .pas file (usesFile)
			
			try {
			PascalParser.parseFile(f.getName(),new FileInputStream(f));
			}
			catch (Exception e) {
			System.err.println("parser exception: "+e);
			e.printStackTrace();   // so we can get stack trace
			}
			}
			
			// read serialized symbol table and add to symbol table "usesScopes"
			File symTab = new File (PascalParser.translateFilePath , usesSymtab);
			try {
			ObjectInputStream ois = new ObjectInputStream(new FileInputStream(symTab));
			readSymtab = ois.readObject();
			ois.close();
			}
			catch (ClassNotFoundException cnfe) {
			System.err.println("parser exception: "+cnfe);
			cnfe.printStackTrace();   // so we can get stack trace
			}
			catch (FileNotFoundException e) {
			System.err.println("parser exception: "+e);
			e.printStackTrace();   // so we can get stack trace
						}
			catch (IOException e) {
			System.err.println("parser exception: "+e);
			e.printStackTrace();   // so we can get stack trace
			}
			
			Stack symTabToPop = (Stack) readSymtab;
			
			// add uses symbol table "readSymtab" to symboltable "usesScopes"
			while (!(symTabToPop.empty())) {
			usesScopes.push(symTabToPop.pop());
			}
			
			usesList = (PascalAST) usesList.getNextSibling();
			}
			PascalParser.currentFileName = oldUsesFile;
			
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void compoundStatement(AST _t) throws RecognitionException {
		
		PascalAST compoundStatement_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			statements(_t);
			_t = _retTree;
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void constantDefinition(AST _t) throws RecognitionException {
		
		PascalAST constantDefinition_AST_in = (PascalAST)_t;
		PascalAST r = null;
		
		Constant c = null;
		
		
		try {      // for error handling
			AST __t11 = _t;
			r = _t==ASTNULL ? null :(PascalAST)_t;
			match(_t,EQUAL);
			_t = _t.getFirstChild();
			PascalAST tmp13_AST_in = (PascalAST)_t;
			match(_t,IDENT);
			_t = _t.getNextSibling();
			c=constant(_t);
			_t = _retTree;
			_t = __t11;
			_t = _t.getNextSibling();
			
			if ( c!=null ) {
			Scope sc = (Scope)scopes.peek();
			c.setName(tmp13_AST_in.getText());
			sc.addSymbol(c);
			r.symbol = c; // AST def root points to symbol table entry now
			}
			
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final Constant  constant(AST _t) throws RecognitionException {
		Constant c=null;
		
		PascalAST constant_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case NUM_INT:
			{
				PascalAST tmp14_AST_in = (PascalAST)_t;
				match(_t,NUM_INT);
				_t = _t.getNextSibling();
				c = new IntegerConstant(tmp14_AST_in.getText());
				break;
			}
			case NUM_REAL:
			{
				PascalAST tmp15_AST_in = (PascalAST)_t;
				match(_t,NUM_REAL);
				_t = _t.getNextSibling();
				c = new RealConstant(tmp15_AST_in.getText());
				break;
			}
			case PLUS:
			{
				AST __t13 = _t;
				PascalAST tmp16_AST_in = (PascalAST)_t;
				match(_t,PLUS);
				_t = _t.getFirstChild();
				{
				if (_t==null) _t=ASTNULL;
				switch ( _t.getType()) {
				case NUM_INT:
				{
					PascalAST tmp17_AST_in = (PascalAST)_t;
					match(_t,NUM_INT);
					_t = _t.getNextSibling();
					c = new IntegerConstant(tmp17_AST_in.getText());
					break;
				}
				case NUM_REAL:
				{
					PascalAST tmp18_AST_in = (PascalAST)_t;
					match(_t,NUM_REAL);
					_t = _t.getNextSibling();
					c = new RealConstant(tmp18_AST_in.getText());
					break;
				}
				case IDENT:
				{
					PascalAST tmp19_AST_in = (PascalAST)_t;
					match(_t,IDENT);
					_t = _t.getNextSibling();
					break;
				}
				default:
				{
					throw new NoViableAltException(_t);
				}
				}
				}
				_t = __t13;
				_t = _t.getNextSibling();
				break;
			}
			case MINUS:
			{
				AST __t15 = _t;
				PascalAST tmp20_AST_in = (PascalAST)_t;
				match(_t,MINUS);
				_t = _t.getFirstChild();
				{
				if (_t==null) _t=ASTNULL;
				switch ( _t.getType()) {
				case NUM_INT:
				{
					PascalAST tmp21_AST_in = (PascalAST)_t;
					match(_t,NUM_INT);
					_t = _t.getNextSibling();
					c = new IntegerConstant(tmp21_AST_in.getText());
					break;
				}
				case NUM_REAL:
				{
					PascalAST tmp22_AST_in = (PascalAST)_t;
					match(_t,NUM_REAL);
					_t = _t.getNextSibling();
					c = new RealConstant(tmp22_AST_in.getText());
					break;
				}
				case IDENT:
				{
					PascalAST tmp23_AST_in = (PascalAST)_t;
					match(_t,IDENT);
					_t = _t.getNextSibling();
					break;
				}
				default:
				{
					throw new NoViableAltException(_t);
				}
				}
				}
				_t = __t15;
				_t = _t.getNextSibling();
				break;
			}
			case IDENT:
			{
				PascalAST tmp24_AST_in = (PascalAST)_t;
				match(_t,IDENT);
				_t = _t.getNextSibling();
				break;
			}
			case STRING_LITERAL:
			{
				PascalAST tmp25_AST_in = (PascalAST)_t;
				match(_t,STRING_LITERAL);
				_t = _t.getNextSibling();
				break;
			}
			case CHR:
			{
				AST __t17 = _t;
				PascalAST tmp26_AST_in = (PascalAST)_t;
				match(_t,CHR);
				_t = _t.getFirstChild();
				{
				if (_t==null) _t=ASTNULL;
				switch ( _t.getType()) {
				case NUM_INT:
				{
					PascalAST tmp27_AST_in = (PascalAST)_t;
					match(_t,NUM_INT);
					_t = _t.getNextSibling();
					break;
				}
				case NUM_REAL:
				{
					PascalAST tmp28_AST_in = (PascalAST)_t;
					match(_t,NUM_REAL);
					_t = _t.getNextSibling();
					break;
				}
				default:
				{
					throw new NoViableAltException(_t);
				}
				}
				}
				_t = __t17;
				_t = _t.getNextSibling();
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
		return c;
	}
	
	public final void typeDefinition(AST _t) throws RecognitionException {
		
		PascalAST typeDefinition_AST_in = (PascalAST)_t;
		PascalAST r = null;
		
		TypeSpecifier t=null;
		
		
		try {      // for error handling
			AST __t20 = _t;
			PascalAST tmp29_AST_in = (PascalAST)_t;
			match(_t,TYPEDECL);
			_t = _t.getFirstChild();
			PascalAST tmp30_AST_in = (PascalAST)_t;
			match(_t,IDENT);
			_t = _t.getNextSibling();
			{
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case SCALARTYPE:
			case IDENT:
			case DOTDOT:
			case CHAR:
			case BOOLEAN:
			case INTEGER:
			case REAL:
			case STRING:
			case PACKED:
			case ARRAY:
			case RECORD:
			case SET:
			case FILE:
			case POINTER:
			{
				type(_t);
				_t = _retTree;
				break;
			}
			case FUNCTION:
			{
				AST __t22 = _t;
				r = _t==ASTNULL ? null :(PascalAST)_t;
				match(_t,FUNCTION);
				_t = _t.getFirstChild();
				{
				if (_t==null) _t=ASTNULL;
				switch ( _t.getType()) {
				case ARGDECLS:
				{
					formalParameterList(_t);
					_t = _retTree;
					break;
				}
				case IDENT:
				case CHAR:
				case BOOLEAN:
				case INTEGER:
				case REAL:
				case STRING:
				{
					break;
				}
				default:
				{
					throw new NoViableAltException(_t);
				}
				}
				}
				t=resultType(_t);
				_t = _retTree;
				_t = __t22;
				_t = _t.getNextSibling();
				
				if ( t!=null ) {r.symbol = t;}
				
				break;
			}
			case PROCEDURE:
			{
				AST __t24 = _t;
				PascalAST tmp31_AST_in = (PascalAST)_t;
				match(_t,PROCEDURE);
				_t = _t.getFirstChild();
				{
				if (_t==null) _t=ASTNULL;
				switch ( _t.getType()) {
				case ARGDECLS:
				{
					formalParameterList(_t);
					_t = _retTree;
					break;
				}
				case 3:
				{
					break;
				}
				default:
				{
					throw new NoViableAltException(_t);
				}
				}
				}
				_t = __t24;
				_t = _t.getNextSibling();
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
			}
			_t = __t20;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final TypeSpecifier  type(AST _t) throws RecognitionException {
		TypeSpecifier ts=null;
		
		PascalAST type_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case SCALARTYPE:
			{
				AST __t27 = _t;
				PascalAST tmp32_AST_in = (PascalAST)_t;
				match(_t,SCALARTYPE);
				_t = _t.getFirstChild();
				identifierList(_t);
				_t = _retTree;
				_t = __t27;
				_t = _t.getNextSibling();
				break;
			}
			case DOTDOT:
			{
				AST __t28 = _t;
				PascalAST tmp33_AST_in = (PascalAST)_t;
				match(_t,DOTDOT);
				_t = _t.getFirstChild();
				constant(_t);
				_t = _retTree;
				constant(_t);
				_t = _retTree;
				_t = __t28;
				_t = _t.getNextSibling();
				break;
			}
			case IDENT:
			case CHAR:
			case BOOLEAN:
			case INTEGER:
			case REAL:
			case STRING:
			{
				ts=typeIdentifier(_t);
				_t = _retTree;
				break;
			}
			case PACKED:
			case ARRAY:
			case RECORD:
			case SET:
			case FILE:
			{
				structuredType(_t);
				_t = _retTree;
				break;
			}
			case POINTER:
			{
				AST __t29 = _t;
				PascalAST tmp34_AST_in = (PascalAST)_t;
				match(_t,POINTER);
				_t = _t.getFirstChild();
				typeIdentifier(_t);
				_t = _retTree;
				_t = __t29;
				_t = _t.getNextSibling();
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
		return ts;
	}
	
	public final void formalParameterList(AST _t) throws RecognitionException {
		
		PascalAST formalParameterList_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t104 = _t;
			PascalAST tmp35_AST_in = (PascalAST)_t;
			match(_t,ARGDECLS);
			_t = _t.getFirstChild();
			{
			int _cnt106=0;
			_loop106:
			do {
				if (_t==null) _t=ASTNULL;
				if ((_tokenSet_0.member(_t.getType()))) {
					formalParameterSection(_t);
					_t = _retTree;
				}
				else {
					if ( _cnt106>=1 ) { break _loop106; } else {throw new NoViableAltException(_t);}
				}
				
				_cnt106++;
			} while (true);
			}
			_t = __t104;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final TypeSpecifier  resultType(AST _t) throws RecognitionException {
		TypeSpecifier ts=null;
		
		PascalAST resultType_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			ts=typeIdentifier(_t);
			_t = _retTree;
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
		return ts;
	}
	
	public final TypeSpecifier  typeIdentifier(AST _t) throws RecognitionException {
		TypeSpecifier ts=null;
		
		PascalAST typeIdentifier_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case IDENT:
			{
				PascalAST tmp36_AST_in = (PascalAST)_t;
				match(_t,IDENT);
				_t = _t.getNextSibling();
				break;
			}
			case CHAR:
			{
				PascalAST tmp37_AST_in = (PascalAST)_t;
				match(_t,CHAR);
				_t = _t.getNextSibling();
				break;
			}
			case BOOLEAN:
			{
				PascalAST tmp38_AST_in = (PascalAST)_t;
				match(_t,BOOLEAN);
				_t = _t.getNextSibling();
				break;
			}
			case INTEGER:
			{
				PascalAST tmp39_AST_in = (PascalAST)_t;
				match(_t,INTEGER);
				_t = _t.getNextSibling();
				ts=PascalParser.symbolTable.getPredefinedType("integer");
				break;
			}
			case REAL:
			{
				PascalAST tmp40_AST_in = (PascalAST)_t;
				match(_t,REAL);
				_t = _t.getNextSibling();
				ts=PascalParser.symbolTable.getPredefinedType("real");
				break;
			}
			case STRING:
			{
				AST __t31 = _t;
				PascalAST tmp41_AST_in = (PascalAST)_t;
				match(_t,STRING);
				_t = _t.getFirstChild();
				{
				if (_t==null) _t=ASTNULL;
				switch ( _t.getType()) {
				case IDENT:
				{
					PascalAST tmp42_AST_in = (PascalAST)_t;
					match(_t,IDENT);
					_t = _t.getNextSibling();
					break;
				}
				case NUM_INT:
				{
					PascalAST tmp43_AST_in = (PascalAST)_t;
					match(_t,NUM_INT);
					_t = _t.getNextSibling();
					break;
				}
				case NUM_REAL:
				{
					PascalAST tmp44_AST_in = (PascalAST)_t;
					match(_t,NUM_REAL);
					_t = _t.getNextSibling();
					break;
				}
				case 3:
				{
					break;
				}
				default:
				{
					throw new NoViableAltException(_t);
				}
				}
				}
				_t = __t31;
				_t = _t.getNextSibling();
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
		return ts;
	}
	
	public final void structuredType(AST _t) throws RecognitionException {
		
		PascalAST structuredType_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case PACKED:
			{
				AST __t61 = _t;
				PascalAST tmp45_AST_in = (PascalAST)_t;
				match(_t,PACKED);
				_t = _t.getFirstChild();
				unpackedStructuredType(_t);
				_t = _retTree;
				_t = __t61;
				_t = _t.getNextSibling();
				break;
			}
			case ARRAY:
			case RECORD:
			case SET:
			case FILE:
			{
				unpackedStructuredType(_t);
				_t = _retTree;
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void variableDeclaration(AST _t) throws RecognitionException {
		
		PascalAST variableDeclaration_AST_in = (PascalAST)_t;
		PascalAST r = null;
		
		Vector ids=null;
		TypeSpecifier t=null;
		
		
		try {      // for error handling
			AST __t34 = _t;
			r = _t==ASTNULL ? null :(PascalAST)_t;
			match(_t,VARDECL);
			_t = _t.getFirstChild();
			ids=identifierList(_t);
			_t = _retTree;
			t=type(_t);
			_t = _retTree;
			_t = __t34;
			_t = _t.getNextSibling();
			
			// walk list of identifiers, creating variable syms and setting types
			if ( t!=null ) {
			Scope sc = (Scope)scopes.peek();
			for (int i=0; ids!=null && i<ids.size(); i++) {
			String id = (String)ids.elementAt(i);
			Variable v = new Variable(id,t);
			sc.addSymbol(v);
			r.symbol = t; // AST def root points to symbol table entry now
			}
			}
			
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void parameterGroup(AST _t) throws RecognitionException {
		
		PascalAST parameterGroup_AST_in = (PascalAST)_t;
		PascalAST r = null;
		
		Vector ids=null;
		TypeSpecifier t=null;
		
		
		try {      // for error handling
			AST __t36 = _t;
			r = _t==ASTNULL ? null :(PascalAST)_t;
			match(_t,ARGDECL);
			_t = _t.getFirstChild();
			ids=identifierList(_t);
			_t = _retTree;
			t=typeIdentifier(_t);
			_t = _retTree;
			_t = __t36;
			_t = _t.getNextSibling();
			
			// walk list of identifiers, creating variable syms and setting types
			if ( t!=null ) {
			Scope sc = (Scope)scopes.peek();
			for (int i=0; ids!=null && i<ids.size(); i++) {
			String id = (String)ids.elementAt(i);
			Variable v = new Variable(id,t);
			sc.addSymbol(v);
			r.symbol = t; // AST def root points to symbol table entry now
			}
			}
			
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void functionDeclaration(AST _t) throws RecognitionException {
		
		PascalAST functionDeclaration_AST_in = (PascalAST)_t;
		PascalAST r = null;
		
		TypeSpecifier t=null;
		
		
		try {      // for error handling
			AST __t42 = _t;
			r = _t==ASTNULL ? null :(PascalAST)_t;
			match(_t,FUNCTION);
			_t = _t.getFirstChild();
			PascalAST tmp46_AST_in = (PascalAST)_t;
			match(_t,IDENT);
			_t = _t.getNextSibling();
			{
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case ARGDECLS:
			{
				formalParameterList(_t);
				_t = _retTree;
				break;
			}
			case IDENT:
			case CHAR:
			case BOOLEAN:
			case INTEGER:
			case REAL:
			case STRING:
			{
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
			}
			t=resultType(_t);
			_t = _retTree;
			block(_t);
			_t = _retTree;
			_t = __t42;
			_t = _t.getNextSibling();
			
			if ( t!=null ) {r.symbol = t;}
			
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void identifier(AST _t) throws RecognitionException {
		
		PascalAST identifier_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			PascalAST tmp47_AST_in = (PascalAST)_t;
			match(_t,IDENT);
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void label(AST _t) throws RecognitionException {
		
		PascalAST label_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			PascalAST tmp48_AST_in = (PascalAST)_t;
			match(_t,NUM_INT);
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void string(AST _t) throws RecognitionException {
		
		PascalAST string_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			PascalAST tmp49_AST_in = (PascalAST)_t;
			match(_t,STRING_LITERAL);
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void unpackedStructuredType(AST _t) throws RecognitionException {
		
		PascalAST unpackedStructuredType_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case ARRAY:
			{
				arrayType(_t);
				_t = _retTree;
				break;
			}
			case RECORD:
			{
				recordType(_t);
				_t = _retTree;
				break;
			}
			case SET:
			{
				setType(_t);
				_t = _retTree;
				break;
			}
			case FILE:
			{
				fileType(_t);
				_t = _retTree;
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void arrayType(AST _t) throws RecognitionException {
		
		PascalAST arrayType_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t64 = _t;
			PascalAST tmp50_AST_in = (PascalAST)_t;
			match(_t,ARRAY);
			_t = _t.getFirstChild();
			typeList(_t);
			_t = _retTree;
			type(_t);
			_t = _retTree;
			_t = __t64;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void recordType(AST _t) throws RecognitionException {
		
		PascalAST recordType_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t70 = _t;
			PascalAST tmp51_AST_in = (PascalAST)_t;
			match(_t,RECORD);
			_t = _t.getFirstChild();
			fieldList(_t);
			_t = _retTree;
			_t = __t70;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void setType(AST _t) throws RecognitionException {
		
		PascalAST setType_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t90 = _t;
			PascalAST tmp52_AST_in = (PascalAST)_t;
			match(_t,SET);
			_t = _t.getFirstChild();
			type(_t);
			_t = _retTree;
			_t = __t90;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void fileType(AST _t) throws RecognitionException {
		
		PascalAST fileType_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t92 = _t;
			PascalAST tmp53_AST_in = (PascalAST)_t;
			match(_t,FILE);
			_t = _t.getFirstChild();
			{
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case SCALARTYPE:
			case IDENT:
			case DOTDOT:
			case CHAR:
			case BOOLEAN:
			case INTEGER:
			case REAL:
			case STRING:
			case PACKED:
			case ARRAY:
			case RECORD:
			case SET:
			case FILE:
			case POINTER:
			{
				type(_t);
				_t = _retTree;
				break;
			}
			case 3:
			{
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
			}
			_t = __t92;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void typeList(AST _t) throws RecognitionException {
		
		PascalAST typeList_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t66 = _t;
			PascalAST tmp54_AST_in = (PascalAST)_t;
			match(_t,TYPELIST);
			_t = _t.getFirstChild();
			{
			int _cnt68=0;
			_loop68:
			do {
				if (_t==null) _t=ASTNULL;
				if ((_tokenSet_1.member(_t.getType()))) {
					type(_t);
					_t = _retTree;
				}
				else {
					if ( _cnt68>=1 ) { break _loop68; } else {throw new NoViableAltException(_t);}
				}
				
				_cnt68++;
			} while (true);
			}
			_t = __t66;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void fieldList(AST _t) throws RecognitionException {
		
		PascalAST fieldList_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t72 = _t;
			PascalAST tmp55_AST_in = (PascalAST)_t;
			match(_t,FIELDLIST);
			_t = _t.getFirstChild();
			{
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case FIELD:
			{
				fixedPart(_t);
				_t = _retTree;
				{
				if (_t==null) _t=ASTNULL;
				switch ( _t.getType()) {
				case CASE:
				{
					variantPart(_t);
					_t = _retTree;
					break;
				}
				case 3:
				{
					break;
				}
				default:
				{
					throw new NoViableAltException(_t);
				}
				}
				}
				break;
			}
			case CASE:
			{
				variantPart(_t);
				_t = _retTree;
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
			}
			_t = __t72;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void fixedPart(AST _t) throws RecognitionException {
		
		PascalAST fixedPart_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			{
			int _cnt77=0;
			_loop77:
			do {
				if (_t==null) _t=ASTNULL;
				if ((_t.getType()==FIELD)) {
					recordSection(_t);
					_t = _retTree;
				}
				else {
					if ( _cnt77>=1 ) { break _loop77; } else {throw new NoViableAltException(_t);}
				}
				
				_cnt77++;
			} while (true);
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void variantPart(AST _t) throws RecognitionException {
		
		PascalAST variantPart_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t81 = _t;
			PascalAST tmp56_AST_in = (PascalAST)_t;
			match(_t,CASE);
			_t = _t.getFirstChild();
			tag(_t);
			_t = _retTree;
			{
			int _cnt83=0;
			_loop83:
			do {
				if (_t==null) _t=ASTNULL;
				if ((_t.getType()==VARIANT_CASE)) {
					variant(_t);
					_t = _retTree;
				}
				else {
					if ( _cnt83>=1 ) { break _loop83; } else {throw new NoViableAltException(_t);}
				}
				
				_cnt83++;
			} while (true);
			}
			_t = __t81;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void recordSection(AST _t) throws RecognitionException {
		
		PascalAST recordSection_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t79 = _t;
			PascalAST tmp57_AST_in = (PascalAST)_t;
			match(_t,FIELD);
			_t = _t.getFirstChild();
			identifierList(_t);
			_t = _retTree;
			type(_t);
			_t = _retTree;
			_t = __t79;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void tag(AST _t) throws RecognitionException {
		
		PascalAST tag_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case VARIANT_TAG:
			{
				AST __t85 = _t;
				PascalAST tmp58_AST_in = (PascalAST)_t;
				match(_t,VARIANT_TAG);
				_t = _t.getFirstChild();
				identifier(_t);
				_t = _retTree;
				typeIdentifier(_t);
				_t = _retTree;
				_t = __t85;
				_t = _t.getNextSibling();
				break;
			}
			case VARIANT_TAG_NO_ID:
			{
				AST __t86 = _t;
				PascalAST tmp59_AST_in = (PascalAST)_t;
				match(_t,VARIANT_TAG_NO_ID);
				_t = _t.getFirstChild();
				typeIdentifier(_t);
				_t = _retTree;
				_t = __t86;
				_t = _t.getNextSibling();
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void variant(AST _t) throws RecognitionException {
		
		PascalAST variant_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t88 = _t;
			PascalAST tmp60_AST_in = (PascalAST)_t;
			match(_t,VARIANT_CASE);
			_t = _t.getFirstChild();
			constList(_t);
			_t = _retTree;
			fieldList(_t);
			_t = _retTree;
			_t = __t88;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void constList(AST _t) throws RecognitionException {
		
		PascalAST constList_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t112 = _t;
			PascalAST tmp61_AST_in = (PascalAST)_t;
			match(_t,CONSTLIST);
			_t = _t.getFirstChild();
			{
			int _cnt114=0;
			_loop114:
			do {
				if (_t==null) _t=ASTNULL;
				if ((_tokenSet_2.member(_t.getType()))) {
					constant(_t);
					_t = _retTree;
				}
				else {
					if ( _cnt114>=1 ) { break _loop114; } else {throw new NoViableAltException(_t);}
				}
				
				_cnt114++;
			} while (true);
			}
			_t = __t112;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void procedureOrFunctionDeclaration(AST _t) throws RecognitionException {
		
		PascalAST procedureOrFunctionDeclaration_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case PROCEDURE:
			{
				procedureDeclaration(_t);
				_t = _retTree;
				break;
			}
			case FUNCTION:
			{
				functionDeclaration(_t);
				_t = _retTree;
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void procedureDeclaration(AST _t) throws RecognitionException {
		
		PascalAST procedureDeclaration_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t101 = _t;
			PascalAST tmp62_AST_in = (PascalAST)_t;
			match(_t,PROCEDURE);
			_t = _t.getFirstChild();
			PascalAST tmp63_AST_in = (PascalAST)_t;
			match(_t,IDENT);
			_t = _t.getNextSibling();
			{
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case ARGDECLS:
			{
				formalParameterList(_t);
				_t = _retTree;
				break;
			}
			case BLOCK:
			case IMPLEMENTATION:
			case USES:
			case LABEL:
			case CONST:
			case TYPE:
			case FUNCTION:
			case PROCEDURE:
			case VAR:
			{
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
			}
			block(_t);
			_t = _retTree;
			_t = __t101;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void formalParameterSection(AST _t) throws RecognitionException {
		
		PascalAST formalParameterSection_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case ARGDECL:
			{
				parameterGroup(_t);
				_t = _retTree;
				break;
			}
			case VAR:
			{
				AST __t108 = _t;
				PascalAST tmp64_AST_in = (PascalAST)_t;
				match(_t,VAR);
				_t = _t.getFirstChild();
				parameterGroup(_t);
				_t = _retTree;
				_t = __t108;
				_t = _t.getNextSibling();
				break;
			}
			case FUNCTION:
			{
				AST __t109 = _t;
				PascalAST tmp65_AST_in = (PascalAST)_t;
				match(_t,FUNCTION);
				_t = _t.getFirstChild();
				parameterGroup(_t);
				_t = _retTree;
				_t = __t109;
				_t = _t.getNextSibling();
				break;
			}
			case PROCEDURE:
			{
				AST __t110 = _t;
				PascalAST tmp66_AST_in = (PascalAST)_t;
				match(_t,PROCEDURE);
				_t = _t.getFirstChild();
				parameterGroup(_t);
				_t = _retTree;
				_t = __t110;
				_t = _t.getNextSibling();
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void statement(AST _t) throws RecognitionException {
		
		PascalAST statement_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case COLON:
			{
				AST __t116 = _t;
				PascalAST tmp67_AST_in = (PascalAST)_t;
				match(_t,COLON);
				_t = _t.getFirstChild();
				label(_t);
				_t = _retTree;
				unlabelledStatement(_t);
				_t = _retTree;
				_t = __t116;
				_t = _t.getNextSibling();
				break;
			}
			case BLOCK:
			case PROC_CALL:
			case CASE:
			case ASSIGN:
			case GOTO:
			case IF:
			case WHILE:
			case REPEAT:
			case FOR:
			case WITH:
			{
				unlabelledStatement(_t);
				_t = _retTree;
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void unlabelledStatement(AST _t) throws RecognitionException {
		
		PascalAST unlabelledStatement_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case PROC_CALL:
			case ASSIGN:
			case GOTO:
			{
				simpleStatement(_t);
				_t = _retTree;
				break;
			}
			case BLOCK:
			case CASE:
			case IF:
			case WHILE:
			case REPEAT:
			case FOR:
			case WITH:
			{
				structuredStatement(_t);
				_t = _retTree;
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void simpleStatement(AST _t) throws RecognitionException {
		
		PascalAST simpleStatement_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case ASSIGN:
			{
				assignmentStatement(_t);
				_t = _retTree;
				break;
			}
			case PROC_CALL:
			{
				procedureStatement(_t);
				_t = _retTree;
				break;
			}
			case GOTO:
			{
				gotoStatement(_t);
				_t = _retTree;
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void structuredStatement(AST _t) throws RecognitionException {
		
		PascalAST structuredStatement_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case BLOCK:
			{
				compoundStatement(_t);
				_t = _retTree;
				break;
			}
			case CASE:
			case IF:
			{
				conditionalStatement(_t);
				_t = _retTree;
				break;
			}
			case WHILE:
			case REPEAT:
			case FOR:
			{
				repetetiveStatement(_t);
				_t = _retTree;
				break;
			}
			case WITH:
			{
				withStatement(_t);
				_t = _retTree;
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void assignmentStatement(AST _t) throws RecognitionException {
		
		PascalAST assignmentStatement_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t120 = _t;
			PascalAST tmp68_AST_in = (PascalAST)_t;
			match(_t,ASSIGN);
			_t = _t.getFirstChild();
			variable(_t);
			_t = _retTree;
			expression(_t);
			_t = _retTree;
			_t = __t120;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void procedureStatement(AST _t) throws RecognitionException {
		
		PascalAST procedureStatement_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t166 = _t;
			PascalAST tmp69_AST_in = (PascalAST)_t;
			match(_t,PROC_CALL);
			_t = _t.getFirstChild();
			PascalAST tmp70_AST_in = (PascalAST)_t;
			match(_t,IDENT);
			_t = _t.getNextSibling();
			{
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case ARGLIST:
			{
				parameterList(_t);
				_t = _retTree;
				break;
			}
			case 3:
			{
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
			}
			_t = __t166;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void gotoStatement(AST _t) throws RecognitionException {
		
		PascalAST gotoStatement_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			AST __t170 = _t;
			PascalAST tmp71_AST_in = (PascalAST)_t;
			match(_t,GOTO);
			_t = _t.getFirstChild();
			label(_t);
			_t = _retTree;
			_t = __t170;
			_t = _t.getNextSibling();
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void variable(AST _t) throws RecognitionException {
		
		PascalAST variable_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case LBRACK:
			{
				AST __t122 = _t;
				PascalAST tmp72_AST_in = (PascalAST)_t;
				match(_t,LBRACK);
				_t = _t.getFirstChild();
				variable(_t);
				_t = _retTree;
				{
				int _cnt124=0;
				_loop124:
				do {
					if (_t==null) _t=ASTNULL;
					if ((_tokenSet_3.member(_t.getType()))) {
						expression(_t);
						_t = _retTree;
					}
					else {
						if ( _cnt124>=1 ) { break _loop124; } else {throw new NoViableAltException(_t);}
					}
					
					_cnt124++;
				} while (true);
				}
				_t = __t122;
				_t = _t.getNextSibling();
				break;
			}
			case LBRACK2:
			{
				AST __t125 = _t;
				PascalAST tmp73_AST_in = (PascalAST)_t;
				match(_t,LBRACK2);
				_t = _t.getFirstChild();
				variable(_t);
				_t = _retTree;
				{
				int _cnt127=0;
				_loop127:
				do {
					if (_t==null) _t=ASTNULL;
					if ((_tokenSet_3.member(_t.getType()))) {
						expression(_t);
						_t = _retTree;
					}
					else {
						if ( _cnt127>=1 ) { break _loop127; } else {throw new NoViableAltException(_t);}
					}
					
					_cnt127++;
				} while (true);
				}
				_t = __t125;
				_t = _t.getNextSibling();
				break;
			}
			case DOT:
			{
				AST __t128 = _t;
				PascalAST tmp74_AST_in = (PascalAST)_t;
				match(_t,DOT);
				_t = _t.getFirstChild();
				variable(_t);
				_t = _retTree;
				PascalAST tmp75_AST_in = (PascalAST)_t;
				match(_t,IDENT);
				_t = _t.getNextSibling();
				_t = __t128;
				_t = _t.getNextSibling();
				break;
			}
			case POINTER:
			{
				AST __t129 = _t;
				PascalAST tmp76_AST_in = (PascalAST)_t;
				match(_t,POINTER);
				_t = _t.getFirstChild();
				variable(_t);
				_t = _retTree;
				_t = __t129;
				_t = _t.getNextSibling();
				break;
			}
			case AT:
			{
				AST __t130 = _t;
				PascalAST tmp77_AST_in = (PascalAST)_t;
				match(_t,AT);
				_t = _t.getFirstChild();
				PascalAST tmp78_AST_in = (PascalAST)_t;
				match(_t,IDENT);
				_t = _t.getNextSibling();
				_t = __t130;
				_t = _t.getNextSibling();
				break;
			}
			case IDENT:
			{
				PascalAST tmp79_AST_in = (PascalAST)_t;
				match(_t,IDENT);
				_t = _t.getNextSibling();
				break;
			}
			default:
			{
				throw new NoViableAltException(_t);
			}
			}
		}
		catch (RecognitionException ex) {
			reportError(ex);
			if (_t!=null) {_t = _t.getNextSibling();}
		}
		_retTree = _t;
	}
	
	public final void expression(AST _t) throws RecognitionException {
		
		PascalAST expression_AST_in = (PascalAST)_t;
		
		try {      // for error handling
			if (_t==null) _t=ASTNULL;
			switch ( _t.getType()) {
			case EQUAL:
			{
				AST __t132 = _t;
				PascalAST tmp80_AST_in = (PascalAST)_t;
				match(_t,EQUAL);
				_t = _t.getFirstChild();
				expression(_t);
				_t = _retTree;
				expression(_t);
				_t = _retTree;
				_t = __t132;
				_t = _t.getNextSibling();
				break;
			}
			case NOT_EQUAL:
			{
				AST __t133 = _t;
				PascalAST tmp81_AST_in = (PascalAST)_t;
				match(_t,NOT_EQUAL);
				_t = _t.getFirstChild();
				expression(_t);
				_t = _retTree;
				expression(_t);
				_t = _retTree;
				_t = __t133;
				_t = _t.getNextSibling();
				break;
			}
			case LT:
			{
				AST __t134 = _t;
				PascalAST tmp82_AST_in = (PascalAST)_t;
				match(_t,LT);
				_t = _t.getFirstChild();
				expression(_t);
				_t = _retTree;
				expression(_t);
				_t = _retTree;
				_t = __t134;
				_t = _t.getNextSibling();
				break;
			}
			case LE:
			{
				AST __t135 = _t;
				PascalAST tmp83_AST_in = (PascalAST)_t;
				match(_t,LE);
				_t = _t.getFirstChild();
				expression(_t);
				_t = _retTree;
				expression(_t);
				_t = _retTree;
				_t = __t135;
				_t = _t.getNextSibling();
				break;
			}
			case GE:
			{
				AST __t136 = _t;
				PascalAST tmp84_AST_in = (PascalAST)_t;
				match(_t,GE);
				_t = _t.getFirstChild();
				expression(_t);
				_t = _retTree;
				expression(_t);
				_t = _retTree;
				_t = __t136;
				_t = _t.getNextSibling();
				break;
			}
			case GT:
			{
				AST __t137 = _t;
				PascalAST tmp85_AST_in = (PascalAST)_t;
				match(_t,GT);
				_t = _t.getFirstChild();
				expression(_t);
				_t = _retTree;
				expression(_t);
				_t = _retTree;
				_t = __t137;
				_t = _t.getNextSibling();
				break;
			}
			case IN:
			{
				AST __t138 = _t;
				PascalAST tmp86_AST_in = (PascalAST)_t;
				match(_t,IN);
				_t = _t.getFirstChild();
				expression(_t);
				_t = _retTree;
				expression(_t);
				_t = _retTree;
				_t = __t138;
				_t = _t.getNextSibling();
				break;
			}
			case PLUS:
			{
				AST __t139 = _t;
				PascalAST tmp87_AST_in = (PascalAST)_t;
				match(_t,PLUS);
				_t = _t.getFirstChild();
				expression(_t);
				_t = _retTree;
				{
				if (_t==null) _t=ASTNULL;
				switch ( _t.getType()) {
				case FUNC_CALL:
				case DOT:
				case IDENT:
				case EQUAL:
				case CHR:
				case NUM_INT:
				case NUM_REAL:
				case PLUS:
				case MINUS:
				case STRING_LITERAL:
				case LBRACK:
				case LBRACK2:
				case SET:
				case POINTER:
				case AT:
				case NOT_EQUAL:
				case LT:
				case LE:
				case GE:
				case GT:
				case IN:
				case OR:
				case STAR:
				case SLASH:
				case DIV:
				case MOD:
				case AND:
				case NOT:
				case NIL:
				{
					expression(_t);
					_t = _retTree;
					break;
				}
				case 3:
				{
					break;
				}
				default:
				{
					throw new NoViableAltException(_t);
				}
				}
				}
				_t = __t139;
				_t = _t.getNextSibling();
				break;
			}
			case MINUS:
			{
				AST __t141 = _t;
				PascalAST tmp88_AST_in = (PascalAST)_t;
				match(_t,MINUS);
				_t = _…