[js] Implement nqp::p6scalarfromdesc.

rakudo · Dec 19, 2016 · 19dd959 · 19dd959
1 parent b52586b
commit 19dd959
Showing 1 changed file with 32 additions and 1 deletion.
diff --git a/src/vm/js/perl6-runtime/runtime.js b/src/vm/js/perl6-runtime/runtime.js
@@ -3,7 +3,9 @@ var Null = nqp.Null;
 var CodeRef = require('nqp-runtime/code-ref');
 var op = {};
 
-var Scalar, True, False, Int, Num, Str, Code;
+var Scalar, True, False, Int, Num, Str, Code, Mu, Any, ContainerDescriptor;
+
+var defaultContainerDescriptor;
 
 op.p6settypes = function(types) {
   Scalar = types.content.get('Scalar');
@@ -14,6 +16,17 @@ op.p6settypes = function(types) {
   Str = types.content.get('Str');
   Code = types.content.get('Code');
   Mu = types.content.get('Mu');
+  Any = types.content.get('Any');
+  ContainerDescriptor = types.content.get('ContainerDescriptor');
+
+  defaultContainerDescriptor = ContainerDescriptor._STable.REPR.allocate(ContainerDescriptor._STable);
+
+  defaultContainerDescriptor.$$bindattr(ContainerDescriptor, '$!of', Mu);
+
+  defaultContainerDescriptor.$$bindattr_s(ContainerDescriptor, '$!name', "<element>");
+  defaultContainerDescriptor.$$bindattr_i(ContainerDescriptor, '$!rw', 1);
+  defaultContainerDescriptor.$$bindattr(ContainerDescriptor, '$!default', Any);
+
   return types;
 };
 
@@ -146,6 +159,24 @@ op.p6argvmarray = function(ctx, args) {
   return nqp.createArray(array);
 };
 
+op.p6scalarfromdesc = function(desc) {
+  console.log("p6scalarfromdesc");
+
+  if (desc === Null || desc.typeObject_)
+      desc = defaultContainerDescriptor;
+
+  let defVal = desc.$$getattr(ContainerDescriptor, '$!default');
+
+  let cont = Scalar._STable.REPR.allocate(Scalar._STable);
+
+  cont.$$bindattr(Scalar, '$!descriptor', desc);
+
+  cont.$$bindattr(Scalar, '$!value', defVal);
+
+  return cont;
+
+};
+
 var containerSpecs = require('nqp-runtime/container-specs.js');
 
 function RakudoScalar(STable) {