Data commit

Task/Hostname/00-META.yaml

@@ -0,0 +1,5 @@
+---
+category:
+- Networking and Web Interaction
+from: http://rosettacode.org/wiki/Hostname
+note: Programming environment operations

Task/Hostname/00-TASK.txt

@@ -0,0 +1,4 @@
+;Task:
+Find the name of the host on which the routine is running.
+<br><br>
+

Task/Hostname/ALGOL-68/hostname.alg

@@ -0,0 +1,3 @@
+STRING hostname;
+get(read OF execve child pipe("/bin/hostname","hostname",""), hostname);
+print(("hostname: ", hostname, new line))

Task/Hostname/AWK/hostname.awk

@@ -0,0 +1,2 @@
+$ awk 'BEGIN{print ENVIRON["HOST"]}'
+E51A08ZD

Task/Hostname/Ada/hostname.ada

@@ -0,0 +1,7 @@
+with Ada.Text_IO; use Ada.Text_IO;
+with GNAT.Sockets;
+
+procedure Demo is
+begin
+   Put_Line (GNAT.Sockets.Host_Name);
+end Demo;

Task/Hostname/Aikido/hostname.aikido

@@ -0,0 +1 @@
+println (System.hostname)

Task/Hostname/AppleScript/hostname.applescript

@@ -0,0 +1 @@
+host name of (system info)

Task/Hostname/Arc/hostname.arc

@@ -0,0 +1 @@
+(system "hostname -f")

Task/Hostname/Arturo/hostname.arturo

@@ -0,0 +1 @@
+print sys\hostname

Task/Hostname/AutoHotkey/hostname-1.ahk

@@ -0,0 +1 @@
+MsgBox % A_ComputerName

Task/Hostname/AutoHotkey/hostname-2.ahk

@@ -0,0 +1,2 @@
+for objItem in ComObjGet("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT * FROM Win32_ComputerSystem")
+    MsgBox, % "Hostname:`t" objItem.Name

Task/Hostname/BBC-BASIC/hostname.basic

@@ -0,0 +1,4 @@
+      INSTALL @lib$+"SOCKLIB"
+      PROC_initsockets
+      PRINT "hostname: " FN_gethostname
+      PROC_exitsockets

Task/Hostname/BaCon/hostname.bacon

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

Task/Hostname/Batch-File/hostname.bat

@@ -0,0 +1 @@
+Hostname

Task/Hostname/C-sharp/hostname.cs

@@ -0,0 +1 @@
+System.Net.Dns.GetHostName();

Task/Hostname/C/hostname.c

@@ -0,0 +1,10 @@
+#include <stdlib.h>
+#include <stdio.h>
+#include <limits.h>
+#include <unistd.h>
+
+int main(void)
+{
+ char name[_POSIX_HOST_NAME_MAX + 1];
+ return gethostname(name, sizeof name) == -1 || printf("%s\n", name) < 0 ? EXIT_FAILURE : EXIT_SUCCESS;
+}

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/Clojure/hostname-1.clj

@@ -0,0 +1 @@
+(.. java.net.InetAddress getLocalHost getHostName)

Task/Hostname/Clojure/hostname-2.clj

@@ -0,0 +1 @@
+java -cp clojure.jar clojure.main -e "(.. java.net.InetAddress getLocalHost getHostName)"

Task/Hostname/CoffeeScript/hostname.coffee

@@ -0,0 +1,2 @@
+os = require 'os'
+console.log os.hostname()

Task/Hostname/Common-Lisp/hostname-1.lisp

@@ -0,0 +1,4 @@
+(defun get-host-name ()
+    #+(or sbcl ccl) (machine-instance)
+    #+clisp (let ((s (machine-instance))) (subseq s 0 (position #\Space s)))
+    #-(or sbcl ccl clisp) (error "get-host-name not implemented"))

Task/Hostname/Common-Lisp/hostname-2.lisp

@@ -0,0 +1,8 @@
+(cffi:defcfun ("gethostname" c-gethostname) :int
+  (buf :pointer) (len :unsigned-long))
+
+(defun get-hostname ()
+  (cffi:with-foreign-object (buf :char 256)
+    (unless (zerop (c-gethostname buf 256))
+      (error "Can't get hostname"))
+    (values (cffi:foreign-string-to-lisp buf))))

Task/Hostname/Common-Lisp/hostname-3.lisp

@@ -0,0 +1,2 @@
+BOA> (get-hostname)
+"aurora"

Task/Hostname/Crystal/hostname.crystal

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

Task/Hostname/D/hostname.d

@@ -0,0 +1,5 @@
+import std.stdio, std.socket;
+
+void main() {
+    writeln(Socket.hostName());
+}

Task/Hostname/Delphi/hostname.delphi

@@ -0,0 +1,16 @@
+program ShowHostName;
+
+{$APPTYPE CONSOLE}
+
+uses Windows;
+
+var
+  lHostName: array[0..255] of char;
+  lBufferSize: DWORD;
+begin
+  lBufferSize := 256;
+  if GetComputerName(lHostName, lBufferSize) then
+    Writeln(lHostName)
+  else
+    Writeln('error getting host name');
+end.

Task/Hostname/E/hostname.e

@@ -0,0 +1 @@
+makeCommand("hostname")()[0].trim()

Task/Hostname/Emacs-Lisp/hostname.l

@@ -0,0 +1 @@
+(system-name)

Task/Hostname/Erlang/hostname.erl

@@ -0,0 +1 @@
+Host = net_adm:localhost().

Task/Hostname/F-Sharp/hostname.fs

@@ -0,0 +1 @@
+printfn "%s" (System.Net.Dns.GetHostName())

Task/Hostname/Factor/hostname.factor

@@ -0,0 +1,2 @@
+USE: io.sockets
+host-name

Task/Hostname/Forth/hostname.fth

@@ -0,0 +1,3 @@
+include unix/socket.fs
+
+hostname type

Task/Hostname/Fortran/hostname-1.f

@@ -0,0 +1,5 @@
+program HostTest
+  character(len=128) :: name
+  call hostnm(name)
+  print *, name
+end program HostTest

Task/Hostname/Fortran/hostname-2.f

@@ -0,0 +1,38 @@
+program test_hostname
+   use, intrinsic  :: iso_c_binding
+   implicit none
+   interface !to function: int gethostname(char *name, size_t namelen);
+      integer(c_int) function gethostname(name, namelen) bind(c)
+         use, intrinsic  :: iso_c_binding, only: c_char, c_int, c_size_t
+         integer(c_size_t), value, intent(in) :: namelen
+         character(len=1,kind=c_char), dimension(namelen),  intent(inout) ::  name
+      end function gethostname
+   end interface
+   integer(c_int) :: status
+   integer,parameter :: HOST_NAME_MAX=255
+   character(kind=c_char,len=1),dimension(HOST_NAME_MAX) :: cstr_hostname
+   integer(c_size_t) :: lenstr
+   character(len=:),allocatable :: hostname
+   lenstr = HOST_NAME_MAX
+   status = gethostname(cstr_hostname, lenstr)
+   hostname = c_to_f_string(cstr_hostname)
+   write(*,*) hostname, len(hostname)
+
+ contains
+   ! convert c_string to f_string
+   pure function c_to_f_string(c_string) result(f_string)
+      use, intrinsic :: iso_c_binding, only: c_char, c_null_char
+      character(kind=c_char,len=1), intent(in) :: c_string(:)
+      character(len=:), allocatable :: f_string
+      integer i, n
+      i = 1
+      do
+         if (c_string(i) == c_null_char) exit
+         i = i + 1
+      end do
+      n = i - 1  ! exclude c_null_char
+      allocate(character(len=n) :: f_string)
+      f_string = transfer(c_string(1:n), f_string)
+   end function c_to_f_string
+
+end program test_hostname

Task/Hostname/FreeBASIC/hostname.basic

@@ -0,0 +1,13 @@
+' FB 1.05.0 Win64
+
+' On Windows 10, the command line utility HOSTNAME.EXE prints the 'hostname' to the console.
+' We can execute this remotely and read from its 'stdin' stream as follows:
+
+Dim As String hostname
+Open Pipe "hostname" For Input As #1
+Input #1, hostname
+Close #1
+Print hostname
+Print
+Print "Press any key to quit"
+Sleep

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/Frink/hostname.frink

@@ -0,0 +1 @@
+callJava["java.net.InetAddress", "getLocalHost"].getHostName[]

Task/Hostname/FutureBasic/hostname.basic

@@ -0,0 +1,3 @@
+include "NSLog.incl"
+NSLog( @"%@", fn ProcessInfoHostName )
+HandleEvents

Task/Hostname/Gambas/hostname.gambas

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

Task/Hostname/Go/hostname.go

@@ -0,0 +1,10 @@
+package main
+
+import (
+	"fmt"
+	"os"
+)
+
+func main() {
+	fmt.Println(os.Hostname())
+}

Task/Hostname/Groovy/hostname.groovy

@@ -0,0 +1 @@
+println InetAddress.localHost.hostName

Task/Hostname/Harbour/hostname.harbour

@@ -0,0 +1 @@
+? NetName()

Task/Hostname/Haskell/hostname-1.hs

@@ -0,0 +1,3 @@
+import Network.BSD
+main = do hostName <- getHostName
+          putStrLn hostName

Task/Hostname/Haskell/hostname-2.hs

@@ -0,0 +1,19 @@
+module GetHostName where
+
+import Foreign.Marshal.Array ( allocaArray0, peekArray0 )
+import Foreign.C.Types ( CInt(..), CSize(..) )
+import Foreign.C.String ( CString, peekCString )
+import Foreign.C.Error ( throwErrnoIfMinus1_ )
+
+getHostName :: IO String
+getHostName = do
+  let size = 256
+  allocaArray0 size $ \ cstr -> do
+    throwErrnoIfMinus1_ "getHostName" $ c_gethostname cstr (fromIntegral size)
+    peekCString cstr
+
+foreign import ccall "gethostname"
+   c_gethostname :: CString -> CSize -> IO CInt
+
+main = do hostName <- getHostName
+          putStrLn hostName

Task/Hostname/IDL/hostname.idl

@@ -0,0 +1 @@
+hostname = GETENV('computername')

Task/Hostname/Icon/hostname.icon

@@ -0,0 +1,3 @@
+procedure main()
+  write(&host)
+end

Task/Hostname/J/hostname.j

@@ -0,0 +1,13 @@
+NB. Load the socket libraries
+
+  load 'socket'
+  coinsert 'jsocket'
+
+NB. fetch and implicitly display the hostname
+
+  > {: sdgethostname ''
+
+NB. If fetching the hostname is the only reason for loading the socket libraries,
+NB. and the hostname is fetched only once, then use a 'one-liner' to accomplish it:
+
+  > {: sdgethostname coinsert 'jsocket' [ load 'socket'

Task/Hostname/Java/hostname-1.java

@@ -0,0 +1,2 @@
+import java.net.InetAddress;
+import java.net.UnknownHostException;

Task/Hostname/Java/hostname-2.java

@@ -0,0 +1,4 @@
+void printHostname() throws UnknownHostException {
+    InetAddress localhost = InetAddress.getLocalHost();
+    System.out.println(localhost.getHostName());
+}

Task/Hostname/JavaScript/hostname.js

@@ -0,0 +1,3 @@
+var network = new ActiveXObject('WScript.Network');
+var hostname = network.computerName;
+WScript.echo(hostname);

Task/Hostname/Jsish/hostname.jsish

@@ -0,0 +1 @@
+var hn = exec("hostname", {retAll:true}).data.trim();

Task/Hostname/Julia/hostname.julia

@@ -0,0 +1 @@
+println(gethostname())

Task/Hostname/K/hostname.k

@@ -0,0 +1 @@
+_h

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/LFE/hostname.lfe

@@ -0,0 +1 @@
+(net_adm:localhost)

Task/Hostname/Lasso/hostname-1.lasso

@@ -0,0 +1 @@
+[web_request->httpHost]

Task/Hostname/Lasso/hostname-2.lasso

@@ -0,0 +1,35 @@
+define host_name => thread {
+
+	data
+		public initiated::date, // when the thread was initiated. Most likely at Lasso server startup
+		private hostname::string // as reported by the servers hostname
+
+	public onCreate() => {
+		.reset
+	}
+
+	public reset() => {
+		if(lasso_version(-lassoplatform) >> 'Win') => {
+			protect => {
+				local(process = sys_process('cmd',(:'hostname.exe')))
+				#process -> wait
+				.hostname = string(#process -> readstring) -> trim&
+				#process -> close
+			}
+		else
+			protect => {
+				local(process = sys_process('/bin/hostname'))
+				#process -> wait
+				.hostname = string(#process -> readstring) -> trim&
+				#process -> close
+			}
+		}
+		.initiated = date(date -> format(`yyyyMMddHHmmss`)) // need to set format to get rid of nasty hidden fractions of seconds
+		.hostname -> size == 0 ? .hostname = 'undefined'
+	}
+
+	public asString() => .hostname
+
+}
+
+host_name

Task/Hostname/Liberty-BASIC/hostname.basic

@@ -0,0 +1,8 @@
+lpBuffer$=Space$(128) + Chr$(0)
+struct SIZE,sz As Long
+SIZE.sz.struct=Len(lpBuffer$)
+
+calldll #kernel32, "GetComputerNameA",lpBuffer$ as ptr, SIZE as struct, result as Long
+CurrentComputerName$=Trim$(Left$(lpBuffer$, SIZE.sz.struct))
+
+print CurrentComputerName$

Task/Hostname/Limbo/hostname.limbo

@@ -0,0 +1,31 @@
+implement Hostname;
+
+include "sys.m"; sys: Sys;
+include "draw.m";
+
+Hostname: module {
+	init: fn(nil: ref Draw->Context, nil: list of string);
+};
+
+init(nil: ref Draw->Context, nil: list of string)
+{
+	sys = load Sys Sys->PATH;
+	buf := array[Sys->ATOMICIO] of byte;
+
+	fd := sys->open("/dev/sysname", Sys->OREAD);
+	if(fd == nil)
+		die("Couldn't open /dev/sysname");
+
+	n := sys->read(fd, buf, len buf - 1);
+	if(n < 1)
+		die("Couldn't read /dev/sysname");
+
+	buf[n++] = byte '\n';
+	sys->write(sys->fildes(1), buf, n);
+}
+
+die(s: string)
+{
+	sys->fprint(sys->fildes(2), "hostname: %s: %r", s);
+	raise "fail:errors";
+}

Task/Hostname/Lingo/hostname.lingo

@@ -0,0 +1,6 @@
+sx = xtra("Shell").new()
+if the platform contains "win" then
+  hostname = sx.shell_cmd("hostname", ["eol":RETURN]).line[1] -- win 7 or later
+else
+  hostname = sx.shell_cmd("hostname", RETURN).line[1]
+end if

Task/Hostname/LiveCode/hostname.livecode

@@ -0,0 +1 @@
+answer the hostName

Task/Hostname/Lua/hostname.lua

@@ -0,0 +1,2 @@
+socket = require "socket"
+print( socket.dns.gethostname() )

Task/Hostname/M2000-Interpreter/hostname.m2000

@@ -0,0 +1,10 @@
+Module Host {
+      \\ one way
+      Print computer$
+      \\ second way
+      Declare objNetwork "WScript.Network"
+      With objNetwork,  "ComputerName" as cName$
+      Print cName$, cName$=Computer$
+      Declare objNetwork Nothing
+}
+Host

Task/Hostname/MATLAB/hostname.m

@@ -0,0 +1 @@
+[failed,hostname] = system('hostname')

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

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

Task/Hostname/MUMPS/hostname.mumps

@@ -0,0 +1 @@
+Write $Piece($System,":")

Task/Hostname/Maple/hostname.maple

@@ -0,0 +1 @@
+Sockets:-GetHostName()

Task/Hostname/Mathematica/hostname.math

@@ -0,0 +1 @@
+$MachineName

Task/Hostname/Modula-3/hostname.mod3

@@ -0,0 +1,7 @@
+MODULE Hostname EXPORTS Main;
+
+IMPORT IO, OSConfig;
+
+BEGIN
+  IO.Put(OSConfig.HostName() & "\n");
+END Hostname.

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.l

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

Task/Hostname/Nim/hostname.nim

@@ -0,0 +1,2 @@
+import nativesockets
+echo getHostName()

Task/Hostname/OCaml/hostname.ocaml

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

Task/Hostname/Oberon-2/hostname.oberon

@@ -0,0 +1,7 @@
+MODULE HostName;
+IMPORT
+  OS:ProcessParameters,
+  Out;
+BEGIN
+  Out.Object("Host: " + ProcessParameters.GetEnv("HOSTNAME"));Out.Ln
+END HostName.

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/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/Oz/hostname.oz

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

Task/Hostname/PARI-GP/hostname.parigp

@@ -0,0 +1,2 @@
+str = externstr("hostname")[1];
+str = externstr("uname -n")[1];

Task/Hostname/PHP/hostname-1.php

@@ -0,0 +1 @@
+echo $_SERVER['HTTP_HOST'];

Task/Hostname/PHP/hostname-2.php

@@ -0,0 +1 @@
+echo php_uname('n');

Task/Hostname/PHP/hostname-3.php

@@ -0,0 +1 @@
+echo gethostname();

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.pas

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

Task/Hostname/Perl/hostname.pl

@@ -0,0 +1,3 @@
+use Sys::Hostname;
+
+$name = hostname;

Task/Hostname/Phix/hostname.phix

@@ -0,0 +1,9 @@
+(notonline)-->
+ <span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- (system_exec, file i/o)</span>
+ <span style="color: #008080;">constant</span> <span style="color: #000000;">tmp</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"hostname.txt"</span><span style="color: #0000FF;">,</span>
+          <span style="color: #000000;">cmd</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">platform</span><span style="color: #0000FF;">()=</span><span style="color: #004600;">WINDOWS</span><span style="color: #0000FF;">?</span><span style="color: #008000;">"hostname"</span><span style="color: #0000FF;">:</span><span style="color: #008000;">"uname -n"</span><span style="color: #0000FF;">)</span>
+ <span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">system_exec</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"%s &gt; %s"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">cmd</span><span style="color: #0000FF;">,</span><span style="color: #000000;">tmp</span><span style="color: #0000FF;">}),</span><span style="color: #000000;">4</span><span style="color: #0000FF;">)</span>
+ <span style="color: #004080;">string</span> <span style="color: #000000;">host</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">trim</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">get_text</span><span style="color: #0000FF;">(</span><span style="color: #000000;">tmp</span><span style="color: #0000FF;">))</span>
+ <span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">delete_file</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"hostname.txt"</span><span style="color: #0000FF;">)</span>
+ <span style="color: #0000FF;">?</span><span style="color: #000000;">host</span>
+<!--

Task/Hostname/PicoLisp/hostname-1.l

@@ -0,0 +1 @@
+(call 'hostname)

Task/Hostname/PicoLisp/hostname-2.l

@@ -0,0 +1 @@
+(in '(hostname) (line T))

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.basic

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

Task/Hostname/PowerBASIC/hostname-2.basic

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