XOTclClassMyProcessor.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.ModuleDeclaration;
import org.eclipse.dltk.ast.references.SimpleReference;
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.tcl.core.TclParseUtil;
import org.eclipse.dltk.tcl.core.ast.TclVariableDeclaration;
import org.eclipse.dltk.xotcl.core.ast.xotcl.XOTclMethodDeclaration;

public class XOTclClassMyProcessor extends AbstractTclCommandProcessor {

	public XOTclClassMyProcessor() {
	}

	public ASTNode process(TclStatement statement, ITclParser parser, 
			ASTNode parent) {
		ModuleDeclaration moduleDeclaration = this.getModuleDeclaration();
		ASTNode scopeParent = TclParseUtil.getScopeParent(moduleDeclaration,
				parent);
		if (scopeParent instanceof XOTclMethodDeclaration) {
			if (statement.getCount() >= 3
					&& "instvar".equals(TclParseUtil.getNameFromNode(statement
							.getAt(1)))) {
				ASTListNode vars = new ASTListNode();
				for (int i = 2; i < statement.getCount(); i++) {
					if (statement.getAt(i) instanceof SimpleReference) {
						SimpleReference ref = (SimpleReference) statement
								.getAt(i);
						TclVariableDeclaration decl = new TclVariableDeclaration(
								ref, null, ref.sourceStart(), ref.sourceEnd());
						this.addToParent(parent, decl);
						vars.addNode(decl);
					}
				}
				return vars;
			} else {
				// TODO process method call.
			}
		} 
//			else
//			this
//					.report(
//							parser,
//							"'my' can only be used in a context of an instproc or a method specific proc.",
//							statement, ProblemSeverities.Error);
		return null;
	}
}