From cc1543421aafac336be05ac0b75cecc2da4b6818 Mon Sep 17 00:00:00 2001 From: Michael Williamson Date: Mon, 5 Oct 2015 12:55:11 +0100 Subject: Split interpreter values from primitives --- .../interpreter/values/StringInterpreterValue.java | 41 ++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 src/main/java/org/zwobble/couscous/interpreter/values/StringInterpreterValue.java (limited to 'src/main/java/org/zwobble/couscous/interpreter/values/StringInterpreterValue.java') diff --git a/src/main/java/org/zwobble/couscous/interpreter/values/StringInterpreterValue.java b/src/main/java/org/zwobble/couscous/interpreter/values/StringInterpreterValue.java new file mode 100644 index 0000000..f17cdd5 --- /dev/null +++ b/src/main/java/org/zwobble/couscous/interpreter/values/StringInterpreterValue.java @@ -0,0 +1,41 @@ +package org.zwobble.couscous.interpreter.values; + +import java.util.Optional; + +import org.zwobble.couscous.values.IntegerValue; +import org.zwobble.couscous.values.PrimitiveValue; +import org.zwobble.couscous.values.PrimitiveValues; +import org.zwobble.couscous.values.StringValue; + +import static java.util.Arrays.asList; + +import lombok.Value; +import lombok.val; + +@Value +public class StringInterpreterValue implements InterpreterValue { + public static final ConcreteType TYPE = ConcreteType.builder(StringValue.REF) + .method("length", asList(), + (receiver, arguments) -> new IntegerInterpreterValue(receiver.value.length())) + + .method("substring", asList(IntegerValue.REF, IntegerValue.REF), + (receiver, arguments) -> { + val startIndex = (IntegerInterpreterValue)arguments.get(0); + val endIndex = (IntegerInterpreterValue)arguments.get(1); + return new StringInterpreterValue(receiver.value.substring(startIndex.getValue(), endIndex.getValue())); + }) + + .build(); + + String value; + + @Override + public ConcreteType getType() { + return TYPE; + } + + @Override + public Optional toPrimitiveValue() { + return Optional.of(PrimitiveValues.value(value)); + } +} -- cgit v1.2.3