Add gethostname op

Author: retupmoca

src/vm/jvm/QAST/Compiler.nqp

@@ -1921,6 +1921,8 @@ QAST::OperationsJAST.map_classlib_core_op('rename', $TYPE_OPS, 'rename', [$RT_ST
 QAST::OperationsJAST.map_classlib_core_op('copy', $TYPE_OPS, 'copy', [$RT_STR, $RT_STR], $RT_INT, :tc);
 QAST::OperationsJAST.map_classlib_core_op('link', $TYPE_OPS, 'link', [$RT_STR, $RT_STR], $RT_INT, :tc);
 
+QAST::OperationsJAST.map_classlib_core_op('gethostname', $TYPE_OPS, 'gethostname', [], $RT_STR);
+
 # Two variants of shell until we deprecate shell1
 QAST::OperationsJAST.map_classlib_core_op('shell1', $TYPE_OPS, 'shell1', [$RT_STR], $RT_INT, :tc);
 QAST::OperationsJAST.map_classlib_core_op('shell3', $TYPE_OPS, 'shell3', [$RT_STR, $RT_STR, $RT_OBJ], $RT_INT, :tc);

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

@@ -34,6 +34,7 @@
 import java.util.Set;
 import java.util.concurrent.LinkedBlockingQueue;
 import java.util.concurrent.TimeUnit;
+import java.net.InetAddress;
 
 import org.perl6.nqp.io.AsyncFileHandle;
 import org.perl6.nqp.io.FileHandle;
@@ -841,6 +842,14 @@ public static SixModelObject openpipe(String cmd, String dir,
         return h;
     }
 
+    public static String gethostname(){
+        try {
+            String hostname = InetAddress.getLocalHost().getHostName();
+            return hostname;
+        } catch (Exception e) {
+            return null;
+        }
+    }
 
     // To be removed once shell3 is adopted
     public static long shell1(String cmd, ThreadContext tc) {

src/vm/parrot/QAST/Operations.nqp

@@ -2513,6 +2513,7 @@ QAST::Operations.add_core_pirop_mapping('nfarunalt', 'nqp_nfa_run_alt', '0PsiPPP
 # process related opcodes
 QAST::Operations.add_core_pirop_mapping('exit', 'exit', '0i', :inlinable(1));
 QAST::Operations.add_core_pirop_mapping('sleep', 'sleep', '0n', :inlinable(1));
+QAST::Operations.add_core_pirop_mapping('gethostname', 'nqp_gethostname', 'S');
 QAST::Operations.add_core_pirop_mapping('shell', 'nqp_shell', 'IssP');
 QAST::Operations.add_core_pirop_mapping('getenvhash', 'nqp_getenvhash', 'P');
 

src/vm/parrot/ops/nqp.ops

@@ -3539,6 +3539,12 @@ inline op nqp_delete_f(out INT, in STR) :base_core {
 #endif
 }
 
+inline op nqp_gethostname(out STR) {
+    char hostname[65];
+    gethostname(hostname, 65);
+    $1 = Parrot_str_new_init(interp, hostname, strlen(hostname), Parrot_utf8_encoding_ptr, 0);
+}
+
 inline op nqp_shell(out INT, in STR, in STR, in PMC) {
      STRING *command = $2;  
      STRING *dir = $3;