Implement GSAVE -1

2017-07-09 22:44:25 +09:00
parent 946e3a1c1b
commit ee4ab7bc9d
5 changed files with 60 additions and 5 deletions
--- a/SMILEBASIC/type.d
+++ b/SMILEBASIC/type.d
@@ -138,6 +138,21 @@ struct Value
        this.type = ValueType.Function;
        this.func = func;
    }
+    this(Array!int a)
+    {
+        this.type = ValueType.IntegerArray;
+        this.integerArray = a;
+    }
+    this(Array!double a)
+    {
+        this.type = ValueType.DoubleArray;
+        this.doubleArray = a;
+    }
+    this(Array!(Array!wchar) a)
+    {
+        this.type = ValueType.StringArray;
+        this.stringArray = a;
+    }
    void castOp(ValueType type)
    {
        switch(type)