Implement nqp::getuniname for the JVM backend.

Raku · Mar 22, 2015 · e45d8de · e45d8de
1 parent a7acff6
commit e45d8de
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/src/vm/jvm/QAST/Compiler.nqp b/src/vm/jvm/QAST/Compiler.nqp
@@ -2685,6 +2685,8 @@ QAST::OperationsJAST.map_classlib_core_op('nativecallsizeof', $TYPE_NATIVE_OPS,
 QAST::OperationsJAST.map_classlib_core_op('nativecallcast', $TYPE_NATIVE_OPS, 'nativecallcast', [$RT_OBJ, $RT_OBJ, $RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('nativecallglobal', $TYPE_NATIVE_OPS, 'nativecallglobal', [$RT_STR, $RT_STR, $RT_OBJ, $RT_OBJ], $RT_OBJ, :tc);
 
+QAST::OperationsJAST.map_classlib_core_op('getuniname', $TYPE_OPS, 'getuniname', [$RT_INT], $RT_STR, :tc);
+
 class QAST::CompilerJAST {
     # Responsible for handling issues around code references, building the
     # switch statement dispatcher, etc.

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -6191,4 +6191,18 @@ public static SixModelObject jvmgetconfig(ThreadContext tc) {
 
         return res;
     }
+
+    public static String getuniname(long codePoint, ThreadContext tc) {
+        String name;
+        int cp = (int) codePoint;
+        try {
+            name = Character.getName(cp);
+            if(name == null) {
+                name = "<unassigned>";
+            }
+        } catch (IllegalArgumentException iae) {
+            name = "<illegal>";
+        }
+        return name;
+    }
 }