From 2f9374c7f32a761413da4c5484bec88a76c855d2 Mon Sep 17 00:00:00 2001 From: Michael Williamson Date: Mon, 5 Oct 2015 12:29:48 +0100 Subject: Move interpreter values into interpreter package --- .../couscous/interpreter/values/StringValue.java | 34 ++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 src/main/java/org/zwobble/couscous/interpreter/values/StringValue.java (limited to 'src/main/java/org/zwobble/couscous/interpreter/values/StringValue.java') diff --git a/src/main/java/org/zwobble/couscous/interpreter/values/StringValue.java b/src/main/java/org/zwobble/couscous/interpreter/values/StringValue.java new file mode 100644 index 0000000..43a4bde --- /dev/null +++ b/src/main/java/org/zwobble/couscous/interpreter/values/StringValue.java @@ -0,0 +1,34 @@ +package org.zwobble.couscous.interpreter.values; + +import org.zwobble.couscous.values.TypeReference; + +import static java.util.Arrays.asList; +import static org.zwobble.couscous.values.TypeReference.typeRef; + +import lombok.Value; +import lombok.val; + +@Value +public class StringValue implements InterpreterValue { + public static final TypeReference REF = typeRef("java.lang.String"); + + public static final ConcreteType TYPE = ConcreteType.builder(REF) + .method("length", asList(), + (receiver, arguments) -> new IntegerValue(receiver.value.length())) + + .method("substring", asList(IntegerValue.REF, IntegerValue.REF), + (receiver, arguments) -> { + val startIndex = (IntegerValue)arguments.get(0); + val endIndex = (IntegerValue)arguments.get(1); + return new StringValue(receiver.value.substring(startIndex.getValue(), endIndex.getValue())); + }) + + .build(); + + String value; + + @Override + public ConcreteType getType() { + return TYPE; + } +} -- cgit v1.2.3