This commit was manufactured by cvs2svn to create tag 'buildscript'.

[IRC.git] /

package IR.Tree;
import IR.NameDescriptor;
import IR.Descriptor;
import IR.VarDescriptor;
import IR.TagVarDescriptor;
import IR.TypeDescriptor;
import IR.FieldDescriptor;

public class NameNode extends ExpressionNode {
  NameDescriptor name;
  Descriptor vd;
  FieldDescriptor fd;
  ExpressionNode en;

  public NameNode(NameDescriptor nd) {
    this.name=nd;
    this.vd=null;
    this.fd=null;
  }

  public ExpressionNode getExpression() {
    return en;
  }

  /* Gross hack */
  public void setExpression(ExpressionNode en) {
    this.en=en;
  }

  public void setVar(Descriptor vd) {
    this.vd=vd;
  }

  public void setField(FieldDescriptor fd) {
    this.fd=fd;
  }

  public FieldDescriptor getField() {
    return fd;
  }

  public boolean isTag() {
    return (vd instanceof TagVarDescriptor);
  }

  public VarDescriptor getVar() {
    return (VarDescriptor) vd;
  }

  public TagVarDescriptor getTagVar() {
    return (TagVarDescriptor) vd;
  }

  public TypeDescriptor getType() {
    if (en!=null)
      return en.getType();
    else if (fd!=null)
      return fd.getType();
    else if (isTag())
      return new TypeDescriptor(TypeDescriptor.TAG);
    else
      return ((VarDescriptor)vd).getType();
  }

  NameDescriptor getName() {
    return name;
  }

  public String printNode(int indent) {
    return name.toString();
  }

  public int kind() {
    return Kind.NameNode;
  }
}