Implement GSAVE

2016-12-13 23:24:44 +09:00
parent 51f6168e9f
commit 5cee75af6f
3 changed files with 97 additions and 2 deletions
--- a/SMILEBASIC/type.d
+++ b/SMILEBASIC/type.d
@@ -388,5 +388,14 @@ class Array(T)
        array ~= v;
        dim[0]++;
    }
+    @property void length(int size)
+    {
+        if (dimCount != 1)
+        {
+            throw new TypeMismatch();
+        }
+        array.length = size;
+        dim[0] = size;
+    }

 }