XOTclClassProcCallProcessor.java

package org.eclipse.dltk.xotcl.internal.core.parser.processors.xotcl;

import org.eclipse.dltk.ast.ASTListNode;
import org.eclipse.dltk.ast.ASTNode;
import org.eclipse.dltk.ast.declarations.TypeDeclaration;
import org.eclipse.dltk.ast.expressions.Expression;
import org.eclipse.dltk.ast.references.SimpleReference;
import org.eclipse.dltk.compiler.problem.ProblemSeverities;
import org.eclipse.dltk.tcl.ast.TclStatement;
import org.eclipse.dltk.tcl.core.AbstractTclCommandProcessor;
import org.eclipse.dltk.tcl.core.ITclParser;
import org.eclipse.dltk.xotcl.core.ast.xotcl.XOTclProcCallStatement;

public class XOTclClassProcCallProcessor extends AbstractTclCommandProcessor {

	public XOTclClassProcCallProcessor() {
	}

	public ASTNode process(TclStatement statement, ITclParser parser, 
			ASTNode parent) {
		Object param = this.getDetectedParameter();
		if( param == null || !(param instanceof TypeDeclaration)) {
			return null;
		}

		TypeDeclaration type = (TypeDeclaration) param;
		Expression nameExpr = statement.getAt(1);
		if( !(nameExpr instanceof SimpleReference ) ) {
			this.report(parser, "A class proc name expected.", nameExpr, ProblemSeverities.Error);
			return null;
		}
		SimpleReference name = (SimpleReference)nameExpr;
		ASTListNode args = null;
		if(statement.getCount() > 2) {
			args = new ASTListNode(name.sourceEnd() + 1, statement.sourceEnd());
			for (int i = 2; i < statement.getCount(); i++) {
				args.addNode(statement.getAt(i));
			}
		}
		XOTclProcCallStatement call = new XOTclProcCallStatement(name, type, args);
		call.setInstNameRef((SimpleReference)statement.getAt(0));
		call.setStart(statement.sourceStart());
		call.setEnd(statement.sourceEnd());
		this.addToParent(parent, call);
		return call;
	}

}