September 2017 Update

Task/Hostname/BaCon/hostname.bacon

@@ -0,0 +1 @@
+PRINT "Hostname: ", HOSTNAME$

Task/Hostname/COBOL/hostname.cobol

@@ -0,0 +1,15 @@
+       identification division.
+       program-id. hostname.
+
+       data division.
+       working-storage section.
+       01 hostname pic x(256).
+       01 nullpos  pic 999 value 1.
+
+       procedure division.
+       call "gethostname" using hostname by value length of hostname
+       string hostname delimited by low-value into hostname
+           with pointer nullpos
+       display "Host: " hostname(1 : nullpos - 1)
+       goback.
+       end program hostname.

Task/Hostname/Friendly-interactive-shell/hostname-1.fish

@@ -0,0 +1 @@
+hostname

Task/Hostname/Friendly-interactive-shell/hostname-2.fish

@@ -0,0 +1 @@
+uname -n

Task/Hostname/Gambas/hostname.gambas

@@ -0,0 +1,5 @@
+Public Sub Main()
+
+Print System.Host
+
+End

Task/Hostname/Kotlin/hostname.kotlin

@@ -0,0 +1,7 @@
+// version 1.1.4
+
+import java.net.InetAddress
+
+fun main(args: Array<String>) {
+    println(InetAddress.getLocalHost().hostName)
+}

Task/Hostname/MIRC-Scripting-Language/hostname.mirc

@@ -0,0 +1 @@
+echo -ag $host

Task/Hostname/OoRexx/hostname-1.rexx

@@ -0,0 +1 @@
+say .oleObject~new('WScript.Network')~computerName

Task/Hostname/OoRexx/hostname-2.rexx

@@ -0,0 +1 @@
+say value('COMPUTERNAME',,'environment')

Task/Hostname/OoRexx/hostname-3.rexx

@@ -0,0 +1 @@
+address command 'hostname -f'

Task/Hostname/OoRexx/hostname-4.rexx

@@ -0,0 +1 @@
+address command "echo $HOSTNAME"

Task/Hostname/OoRexx/hostname-5.rexx

@@ -0,0 +1,7 @@
+/* Rexx */
+address command "echo $HOSTNAME | rxqueue"
+address command "hostname -f | rxqueue"
+loop q_ = 1 while queued() > 0
+  parse pull hn
+  say q_~right(2)':' hn
+  end q_

Task/Hostname/OoRexx/hostname-6.rexx

@@ -0,0 +1,8 @@
+/* Rexx */
+qq = .rexxqueue~new()
+address command "echo $HOSTNAME | rxqueue"
+address command "hostname -f | rxqueue"
+loop q_ = 1 while qq~queued() > 0
+  hn = qq~pull()
+  say q_~right(2)':' hn
+  end q_

Task/Hostname/SQL/hostname.sql

@@ -0,0 +1 @@
+select host_name from v$instance;

Task/Hostname/Zkl/hostname-1.zkl

@@ -0,0 +1 @@
+System.hostname

Task/Hostname/Zkl/hostname-2.zkl

@@ -0,0 +1 @@
+Network.TCPServerSocket.open(8080).hostname