Implement stubs for getuniprop_str and unicodeprop.

Raku · Nov 25, 2015 · efd48d6 · efd48d6
1 parent 6d3179e
commit efd48d6
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/vm/jvm/QAST/Compiler.nqp b/src/vm/jvm/QAST/Compiler.nqp
@@ -2763,6 +2763,8 @@ QAST::OperationsJAST.add_core_op('getcodelocation', -> $qastcomp, $op {
 });
 
 QAST::OperationsJAST.map_classlib_core_op('getuniname', $TYPE_OPS, 'getuniname', [$RT_INT], $RT_STR, :tc);
+QAST::OperationsJAST.map_classlib_core_op('unipropcode', $TYPE_OPS, 'unipropcode', [$RT_STR], $RT_INT, :tc);
+QAST::OperationsJAST.map_classlib_core_op('getuniprop_str', $TYPE_OPS, 'getuniprop_str', [$RT_INT, $RT_INT], $RT_STR, :tc);
 
 QAST::OperationsJAST.map_classlib_core_op('force_gc', $TYPE_OPS, 'force_gc', [], $RT_OBJ, :tc);
 

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -6569,6 +6569,14 @@ public static String getuniname(long codePoint, ThreadContext tc) {
         return name;
     }
 
+    public static String getuniprop_str(long codepoint, long property, ThreadContext tc) {
+        return "";
+    }
+
+    public static long unipropcode(String prop, ThreadContext tc) {
+        return -1;
+    }
+
     public static SixModelObject force_gc(ThreadContext tc) {
         System.gc();
         return null;