[js] Start working on multidimensional ops.

Make them work on 1 dimensional arrays.

Author: pmurias

src/vm/js/QAST/Compiler.nqp

@@ -785,8 +785,15 @@ class QAST::OperationsJS {
 
         add_simple_op('pop' ~ $suffix, $type, [$T_OBJ], sub ($array) {"$array.pop()"}, :sideffects);
         add_simple_op('push' ~ $suffix, $type, [$T_OBJ, $type], sub ($array, $elem) {"$array.push($elem)"}, :sideffects);
+
+        add_simple_op('atposnd' ~ $suffix, $type, [$T_OBJ, $T_OBJ], :ctx);
+        add_simple_op('bindposnd' ~ $suffix, $type, [$T_OBJ, $T_OBJ, $type], :ctx, :sideffects);
     }
 
+    add_simple_op('numdimensions', $T_INT, [$T_OBJ]);
+    add_simple_op('dimensions', $T_OBJ, [$T_OBJ]);
+    add_simple_op('setdimensions', $T_OBJ, [$T_OBJ, $T_OBJ], :sideffects, :ctx);
+
     add_op('hash', sub ($comp, $node, :$want, :$cps) {
         # TODO CPS
         my $hash := $*BLOCK.add_tmp();

src/vm/js/nqp-runtime/core.js

@@ -870,3 +870,52 @@ op.getcodelocation = function(code) {
 op.getcodecuid = function(codeRef) {
   return codeRef.cuid;
 };
+
+op.numdimensions = function(array) {
+  if (array instanceof Array) {
+    return 1;
+  }
+};
+
+op.dimensions = function(array) {
+  if (array instanceof Array) {
+    return [array.length];
+  }
+};
+
+op.setdimensions = function(ctx, array, dimensions) {
+  if (array instanceof Array) {
+    if (dimensions.length != 1) {
+      ctx.die("A dynamic array can only have a single dimension");
+    } else {
+        //console.log("setting ", array, dimensions);
+        array.length = dimensions[0];
+    }
+  }
+};
+
+op.atposnd = function(ctx, array, idx) {
+  if (array instanceof Array) {
+    if (idx.length != 1) {
+      ctx.die("A dynamic array can only be indexed with a single dimension");
+    }
+    return array[idx[0]];
+  }
+};
+
+op.atposnd_n = op.atposnd;
+op.atposnd_s = op.atposnd;
+op.atposnd_i = op.atposnd;
+
+op.bindposnd = function(ctx, array, idx, value) {
+  if (array instanceof Array) {
+    if (idx.length != 1) {
+      ctx.die("A dynamic array can only be indexed with a single dimension");
+    }
+    return (array[idx[0]] = value);
+  }
+};
+
+op.bindposnd_n = op.bindposnd;
+op.bindposnd_s = op.bindposnd;
+op.bindposnd_i = op.bindposnd;