langs a-z

Task/Hostname/NetRexx/hostname.netrexx

@@ -0,0 +1,4 @@
+/* NetRexx */
+options replace format comments java crossref savelog symbols binary
+
+say InetAddress.getLocalHost.getHostName

Task/Hostname/NewLISP/hostname.newlisp

@@ -0,0 +1 @@
+(! "hostname")

Task/Hostname/OCaml/hostname.ocaml

@@ -0,0 +1 @@
+Unix.gethostname()

Task/Hostname/Objeck/hostname.objeck

@@ -0,0 +1,9 @@
+use Net;
+
+bundle Default {
+  class Hello {
+    function : Main(args : String[]) ~ Nil {
+      TCPSocket->HostName()->PrintLine();
+    }
+  }
+}

Task/Hostname/Objective-C/hostname-1.m

@@ -0,0 +1 @@
+NSLog(@"%@", [[NSProcessInfo processInfo] hostName]);

Task/Hostname/Objective-C/hostname-2.m

@@ -0,0 +1 @@
+2010-09-16 16:20:00.000 Playground[1319:a0f] sierra117.local // Hostname is sierra117.local.

Task/Hostname/Octave/hostname.octave

@@ -0,0 +1 @@
+uname().nodename

Task/Hostname/Oz/hostname.oz

@@ -0,0 +1 @@
+{System.showInfo {OS.getHostByName 'localhost'}.name}

Task/Hostname/PL-SQL/hostname.sql

@@ -0,0 +1,4 @@
+SET serveroutput on
+BEGIN
+  DBMS_OUTPUT.PUT_LINE(UTL_INADDR.GET_HOST_NAME);
+END;

Task/Hostname/Pascal/hostname.pascal

@@ -0,0 +1,8 @@
+Program HostName;
+
+uses
+  unix;
+
+begin
+  writeln('The name of this computer is: ', GetHostName);
+end.

Task/Hostname/Perl-6/hostname.pl6

@@ -0,0 +1 @@
+my $host = qx[hostname];

Task/Hostname/Pike/hostname.pike

@@ -0,0 +1,5 @@
+import System;
+
+int main(){
+   write(gethostname() + "\n");
+}

Task/Hostname/Pop11/hostname.pop11

@@ -0,0 +1 @@
+lvars host = sys_host_name();

Task/Hostname/PowerBASIC/hostname-1.powerbasic

@@ -0,0 +1 @@
+HOST NAME TO hostname$

Task/Hostname/PowerBASIC/hostname-2.powerbasic

@@ -0,0 +1 @@
+HOST NAME ipAddress& TO hostname$

Task/Hostname/PowerShell/hostname-1.psh

@@ -0,0 +1 @@
+$Env:COMPUTERNAME

Task/Hostname/PowerShell/hostname-2.psh

@@ -0,0 +1 @@
+[Net.Dns]::GetHostName()

Task/Hostname/PureBasic/hostname.purebasic

@@ -0,0 +1,2 @@
+InitNetwork()
+answer$=Hostname()

Task/Hostname/REBOL/hostname.rebol

@@ -0,0 +1 @@
+print system/network/host

Task/Hostname/Run-BASIC/hostname.run

@@ -0,0 +1,3 @@
+print Platform$    ' OS where Run BASIC is being hosted
+print UserInfo$    ' Information about the user's web browser
+print UserAddress$ ' IP address of the user

Task/Hostname/SNOBOL4/hostname.sno

@@ -0,0 +1,2 @@
+      output = host(4,"HOSTNAME")
+end

Task/Hostname/Seed7/hostname.seed7

@@ -0,0 +1,7 @@
+$ include "seed7_05.s7i";
+  include "socket.s7i";
+
+const proc: main is func
+  begin
+    writeln(getHostname);
+  end func;

Task/Hostname/Slate/hostname.slate

@@ -0,0 +1 @@
+Platform current nodeName

Task/Hostname/Standard-ML/hostname.ml

@@ -0,0 +1 @@
+NetHostDB.getHostName ()

Task/Hostname/TUSCRIPT/hostname.tuscript

@@ -0,0 +1,2 @@
+$$ MODE TUSCRIPT
+host=HOST ()

Task/Hostname/Toka/hostname.toka

@@ -0,0 +1,4 @@
+2 import gethostname
+1024 chars is-array foo
+foo 1024 gethostname
+foo type

Task/Hostname/UNIX-Shell/hostname-1.sh

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

Task/Hostname/UNIX-Shell/hostname-2.sh

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

Task/Hostname/Ursala/hostname-1.ursala

@@ -0,0 +1,3 @@
+#import cli
+
+hostname = ~&hmh+ (ask bash)/<>+ <'hostname'>!

Task/Hostname/Ursala/hostname-2.ursala

@@ -0,0 +1,3 @@
+#import flo
+
+creative_accounting = (hostname== 'kremvax')?(sqrt,sqr)