[js] Implement nqp::hllbool and nqp::hllboolfor

Raku · Aug 17, 2018 · f1ce002 · f1ce002
1 parent 7517ed0
commit f1ce002
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/src/vm/js/Operations.nqp b/src/vm/js/Operations.nqp
@@ -1032,6 +1032,9 @@ class QAST::OperationsJS {
     add_simple_op('bindhllsym', $T_OBJ, [$T_STR, $T_STR, $T_OBJ], :side_effects);
     add_simple_op('gethllsym', $T_OBJ, [$T_STR, $T_STR]);
 
+    add_simple_op('hllbool', $T_OBJ, [$T_INT], :takes_hll);
+    add_simple_op('hllboolfor', $T_OBJ, [$T_INT, $T_STR]);
+
     add_simple_op('hllizefor', $T_OBJ, [$T_OBJ, $T_STR], :ctx, :side_effects, :await);
 
     add_simple_op('hllize', $T_OBJ, [$T_OBJ], :ctx, :side_effects, sub ($ctx, $obj) {

diff --git a/src/vm/js/nqp-runtime/hll.js b/src/vm/js/nqp-runtime/hll.js
@@ -91,6 +91,8 @@ function getHLL(language) {
     hllConfigs[language] = new Map;
     hllConfigs[language].set('slurpy_array', BOOT.Array);
     hllConfigs[language].set('list', BOOT.Array);
+    hllConfigs[language].set('true_value', Null);
+    hllConfigs[language].set('false_value', Null);
 
     // For serialization purposes
     hllConfigs[language].set('name', language);
@@ -130,3 +132,12 @@ exports.list = function(currentHLL, array) {
   const list = currentHLL.get('list');
   return list._STable.REPR.allocateFromArray(list._STable, array);
 };
+
+op.hllbool = function(currentHLL, value) {
+   return value ? currentHLL.get('true_value') : currentHLL.get('false_value');
+};
+
+op.hllboolfor = function(value, hllName) {
+  const hll = getHLL(hllName);
+  return value ? hll.get('true_value') : hll.get('false_value');
+};