Add jvmgetproperties op for access to JVM VM info

Author: sorear

src/vm/jvm/QAST/Compiler.nqp

@@ -2343,6 +2343,7 @@ QAST::OperationsJAST.map_classlib_core_op('nfarunalt', $TYPE_OPS, 'nfarunalt', [
 QAST::OperationsJAST.map_classlib_core_op('exit', $TYPE_OPS, 'exit', [$RT_INT], $RT_INT);
 QAST::OperationsJAST.map_classlib_core_op('sleep', $TYPE_OPS, 'sleep', [$RT_NUM], $RT_NUM);
 QAST::OperationsJAST.map_classlib_core_op('getenvhash', $TYPE_OPS, 'getenvhash', [], $RT_OBJ, :tc);
+QAST::OperationsJAST.map_classlib_core_op('jvmgetproperties', $TYPE_OPS, 'jvmgetproperties', [], $RT_OBJ, :tc);
 
 # JVM-specific ops for compilation unit handling
 QAST::OperationsJAST.map_classlib_core_op('compilejast', $TYPE_OPS, 'compilejast', [$RT_STR], $RT_OBJ, :tc);

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

@@ -30,6 +30,7 @@
 import java.util.HashMap;
 import java.util.List;
 import java.util.Map;
+import java.util.Properties;
 import java.util.Set;
 import java.util.concurrent.ThreadLocalRandom;
 import java.util.concurrent.TimeUnit;
@@ -3240,6 +3241,18 @@ public static SixModelObject getenvhash(ThreadContext tc) {
 
         return res;
     }
+
+    public static SixModelObject jvmgetproperties(ThreadContext tc) {
+        SixModelObject hashType = tc.curFrame.codeRef.staticInfo.compUnit.hllConfig.hashType;
+        SixModelObject strType = tc.curFrame.codeRef.staticInfo.compUnit.hllConfig.strBoxType;
+        SixModelObject res = hashType.st.REPR.allocate(tc, hashType.st);
+
+        Properties env = System.getProperties();
+        for (String envName : env.stringPropertyNames())
+            res.bind_key_boxed(tc, envName, box_s(env.getProperty(envName), strType, tc));
+
+        return res;
+    }
 
     /* Exception related. */
     public static void die_s_c(String msg, ThreadContext tc) {