Move interpreter values into interpreter package

1 files changed, 34 insertions, 0 deletions

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.<StringValue>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;
+    }
+}