add (unix only) nqp::shell for jvm

sorear++

Author: coke

src/vm/jvm/QAST/Compiler.nqp

@@ -1901,6 +1901,7 @@ QAST::OperationsJAST.map_classlib_core_op('mkdir', $TYPE_OPS, 'mkdir', [$RT_STR,
 QAST::OperationsJAST.map_classlib_core_op('rename', $TYPE_OPS, 'rename', [$RT_STR, $RT_STR], $RT_INT);
 QAST::OperationsJAST.map_classlib_core_op('copy', $TYPE_OPS, 'copy', [$RT_STR, $RT_STR], $RT_INT);
 QAST::OperationsJAST.map_classlib_core_op('link', $TYPE_OPS, 'link', [$RT_STR, $RT_STR], $RT_INT);
+QAST::OperationsJAST.map_classlib_core_op('shell', $TYPE_OPS, 'shell', [$RT_STR], $RT_INT);
 QAST::OperationsJAST.map_classlib_core_op('symlink', $TYPE_OPS, 'symlink', [$RT_STR, $RT_STR], $RT_INT);
 
 

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

@@ -611,6 +611,21 @@ public static long link(String before, String after) {
         }
         return 0;
     }
+
+    public static long shell(String cmd) {
+        long retval = 255;
+        try {
+            Process proc = new ProcessBuilder("sh", "-c", cmd)
+                .inheritIO().start();
+            proc.waitFor();
+            retval = proc.exitValue();
+        }
+        catch (IOException e) {
+        }
+        catch (InterruptedException e) {
+        }
+        return retval;
+    }
 
     public static long symlink(String before, String after) {
         Path before_o = Paths.get(before);