[js] Implement nqp::p6store.

rakudo · Oct 17, 2016 · 9eeaa6f · 9eeaa6f
1 parent 5c1b5e6
commit 9eeaa6f
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/src/vm/js/Perl6/Ops.nqp b/src/vm/js/Perl6/Ops.nqp
@@ -76,5 +76,6 @@ $ops.add_simple_op('p6captureouters', $ops.OBJ, [$ops.OBJ], :ctx);
 $ops.add_simple_op('p6capturelex', $ops.OBJ, [$ops.OBJ], :ctx);
 
 $ops.add_simple_op('p6bindassert', $ops.OBJ, [$ops.OBJ, $ops.OBJ], :ctx);
+$ops.add_simple_op('p6store', $ops.OBJ, [$ops.OBJ, $ops.OBJ], :ctx);
 
 $ops.add_simple_op('p6var', $ops.OBJ, [$ops.OBJ], :sideffects); # TODO not really just needs marking as returning a fresh value
diff --git a/src/vm/js/perl6-runtime/runtime.js b/src/vm/js/perl6-runtime/runtime.js
@@ -125,6 +125,20 @@ op.p6bindassert = function(ctx, value, type) {
   return value;
 };
 
+op.p6store = function(ctx, cont, value) {
+  if (cont) {
+    cont.$$assign(nqp.op.decont(ctx, value));
+  } else {
+    if (!cont.STORE) {
+      // TODO throw typed exception X::Assignment::RO
+      ctx.die("Cannot assign to a non-container");
+    } else {
+      cont.STORE(ctx, null, cont, value);
+    }
+  }
+  return cont;
+};
+
 var containerSpecs = require('nqp-runtime/container-specs.js');
 
 function RakudoScalar(STable) {
@@ -138,12 +152,13 @@ RakudoScalar.prototype.configure = function(conf) {
 RakudoScalar.prototype.setupSTable = function() {
   this.STable.addInternalMethod('$$assignunchecked', function(ctx, value) {
     console.log('storing into rakudo_scalar unchecked');
-    process.exit();
+    return this.$$bindattr(Scalar, '$!value', value);
   });
 
   this.STable.addInternalMethod('$$assign', function(ctx, value) {
     console.log('storing into rakudo_scalar');
-    process.exit();
+    /* TODO - checking and WHENCE */
+    return this.$$bindattr(Scalar, '$!value', value);
   });
 
   this.STable.addInternalMethod('$$decont', function(ctx) {