ASTStructTuple.java

import java.util.ArrayList;
import java.util.List;
import java.util.Map;

public class ASTStructTuple implements ASTNode {
    String tag;
    List<ASTNode> exps;

    public ASTStructTuple(String tag, List<ASTNode> exps) {
        this.tag = tag;
        this.exps = exps;
    }
    
    @Override
	public IValue eval(Environment<IValue> e) throws InterpreterError
    {
        List<IValue> values = new ArrayList<>();
        for (ASTNode exp : exps) {
            values.add(exp.eval(e));
        }
        return new VStructTuple(tag, values);
    }

    @Override
    public ASTType typecheck(Environment<ASTType> e) throws TypeCheckError, InterpreterError {
        List<ASTType> fieldTypes = new ArrayList<>();
        for (ASTNode exp : exps) {
            ASTType t = exp.typecheck(e);
            fieldTypes.add(t);
        }
        List<Map.Entry<String, List<ASTType>>> options = new ArrayList<>();
        options.add(new java.util.AbstractMap.SimpleEntry<>(tag, fieldTypes));
        return new ASTTEnum(options);
    }

    @Override
    public boolean isFreeOutsideLambda(String id) {
        for (ASTNode e : exps)
            if (e.isFreeOutsideLambda(id)) return true;
        return false;
    }

}