Add nqp::isint/nqp::isnum/nqp::isstr for JVM.

Author: jnthn

src/vm/jvm/QAST/Compiler.nqp

@@ -1774,6 +1774,9 @@ QAST::OperationsJAST.map_classlib_core_op('shift_i', $TYPE_OPS, 'shift_i', [$RT_
 QAST::OperationsJAST.map_classlib_core_op('shift_n', $TYPE_OPS, 'shift_n', [$RT_OBJ], $RT_NUM, :tc);
 QAST::OperationsJAST.map_classlib_core_op('shift_s', $TYPE_OPS, 'shift_s', [$RT_OBJ], $RT_STR, :tc);
 QAST::OperationsJAST.map_classlib_core_op('splice', $TYPE_OPS, 'splice', [$RT_OBJ, $RT_OBJ, $RT_INT, $RT_INT], $RT_OBJ, :tc);
+QAST::OperationsJAST.map_classlib_core_op('isint', $TYPE_OPS, 'isint', [$RT_OBJ], $RT_INT, :tc);
+QAST::OperationsJAST.map_classlib_core_op('isnum', $TYPE_OPS, 'isnum', [$RT_OBJ], $RT_INT, :tc);
+QAST::OperationsJAST.map_classlib_core_op('isstr', $TYPE_OPS, 'isstr', [$RT_OBJ], $RT_INT, :tc);
 QAST::OperationsJAST.map_classlib_core_op('islist', $TYPE_OPS, 'islist', [$RT_OBJ], $RT_INT, :tc);
 QAST::OperationsJAST.map_classlib_core_op('ishash', $TYPE_OPS, 'ishash', [$RT_OBJ], $RT_INT, :tc);
 QAST::OperationsJAST.map_classlib_core_op('iterator', $TYPE_OPS, 'iter', [$RT_OBJ], $RT_OBJ, :tc);

src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java

@@ -1493,6 +1493,18 @@ public static double unbox_n(SixModelObject obj, ThreadContext tc) {
     public static String unbox_s(SixModelObject obj, ThreadContext tc) {
         return obj.get_str(tc);
     }
+    public static long isint(SixModelObject obj, ThreadContext tc) {
+        StorageSpec ss = obj.st.REPR.get_storage_spec(tc, obj.st);
+        return (ss.can_box & StorageSpec.CAN_BOX_INT) == 0 ? 0 : 1;
+    }
+    public static long isnum(SixModelObject obj, ThreadContext tc) {
+        StorageSpec ss = obj.st.REPR.get_storage_spec(tc, obj.st);
+        return (ss.can_box & StorageSpec.CAN_BOX_NUM) == 0 ? 0 : 1;
+    }
+    public static long isstr(SixModelObject obj, ThreadContext tc) {
+        StorageSpec ss = obj.st.REPR.get_storage_spec(tc, obj.st);
+        return (ss.can_box & StorageSpec.CAN_BOX_STR) == 0 ? 0 : 1;
+    }
 
     /* Attribute operations. */
     public static SixModelObject getattr(SixModelObject obj, SixModelObject ch, String name, ThreadContext tc) {