Implement multi-dim access funcs in VMArray.

Raku · Jul 10, 2015 · 404e842 · 404e842
1 parent ef20fbf
commit 404e842
Showing 1 changed file with 24 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMArrayInstanceBase.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMArrayInstanceBase.java
@@ -16,4 +16,28 @@ public void set_dimensions(ThreadContext tc, long[] dims) {
             throw ExceptionHandling.dieInternal(tc, "A dynamic array can only have a single dimension");
         this.set_elems(tc, dims[0]);
     }
+
+    public SixModelObject at_pos_multidim_boxed(ThreadContext tc, long[] indices) {
+        if (indices.length != 1)
+            throw ExceptionHandling.dieInternal(tc, "A dynamic array can only be indexed with a single dimension");
+        return this.at_pos_boxed(tc, indices[0]);
+    }
+
+    public void at_pos_multidim_native(ThreadContext tc, long[] indices) {
+        if (indices.length != 1)
+            throw ExceptionHandling.dieInternal(tc, "A dynamic array can only be indexed with a single dimension");
+        this.at_pos_native(tc, indices[0]);
+    }
+
+    public void bind_pos_multidim_boxed(ThreadContext tc, long[] indices, SixModelObject value) {
+        if (indices.length != 1)
+            throw ExceptionHandling.dieInternal(tc, "A dynamic array can only be indexed with a single dimension");
+        this.bind_pos_boxed(tc, indices[0], value);
+    }
+
+    public void bind_pos_multidim_native(ThreadContext tc, long[] indices) {
+        if (indices.length != 1)
+            throw ExceptionHandling.dieInternal(tc, "A dynamic array can only be indexed with a single dimension");
+        this.bind_pos_native(tc, indices[0]);
+    }
 }