Implement p6bool op for JVM.

rakudo · May 1, 2013 · 623d45e · 623d45e
1 parent e14ef54
commit 623d45e
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/rakudo/Ops.java b/src/vm/jvm/runtime/org/perl6/rakudo/Ops.java
@@ -7,7 +7,16 @@
  * Contains implementation of nqp:: ops specific to Rakudo Perl 6.
  */
 public final class Ops {
+    private static SixModelObject False;
+    private static SixModelObject True;
+
     public static SixModelObject p6settypes(SixModelObject conf, ThreadContext tc) {
+        False = conf.at_key_boxed(tc, "False");
+        True = conf.at_key_boxed(tc, "True");
         return conf;
     }
+
+    public static SixModelObject booleanize(int x) {
+        return x == 0 ? False : True;
+    }
 }