package org.zwobble.couscous.interpreter; import java.util.Map; import java.util.Optional; import org.zwobble.couscous.ast.TypeName; import org.zwobble.couscous.ast.VariableDeclaration; import org.zwobble.couscous.ast.VariableNode; import org.zwobble.couscous.interpreter.values.ConcreteType; import org.zwobble.couscous.interpreter.values.InterpreterValue; import static java.util.stream.Collectors.toMap; import lombok.AllArgsConstructor; import lombok.Getter; import lombok.Setter; import lombok.val; public class Environment { private final Project project; private final Optional thisValue; private final Map stackFrame; public Environment( Project project, Optional thisValue, Map> stackFrame) { this.project = project; this.thisValue = thisValue; this.stackFrame = stackFrame.entrySet() .stream() .collect(toMap( entry -> entry.getKey().getId(), entry -> VariableEntry.of(entry.getKey().getType(), entry.getValue()))); } public Optional getThis() { return thisValue; } public InterpreterValue get(String variableId) { checkVariableIsInScope(variableId); val entry = stackFrame.get(variableId); return entry.getValue().orElseThrow(() -> new UnboundVariable(variableId)); } public void put(String variableId, InterpreterValue value) { checkVariableIsInScope(variableId); checkVariableType(variableId, value); stackFrame.get(variableId).setValue(Optional.of(value)); } public void put(VariableNode variable, InterpreterValue value) { put(variable.getDeclaration().getId(), value); } public ConcreteType findClass(TypeName className) { return project.findClass(className); } public Environment withStackFrame(Optional thisValue, Map> stackFrame) { return new Environment(project, thisValue, stackFrame); } private void checkVariableIsInScope(String variableId) { if (!stackFrame.containsKey(variableId)) { throw new VariableNotInScope(variableId); } } private void checkVariableType(String variableId, InterpreterValue value) { val variableType = stackFrame.get(variableId).getType(); InterpreterTypes.checkIsInstance(variableType, value); } @AllArgsConstructor(staticName="of") @Getter @Setter private static class VariableEntry { private final TypeName type; private Optional value; } }