A-M baby

Task/Hostname/0DESCRIPTION

@@ -0,0 +1 @@
+Find the name of the host on which the routine is running.

Task/Hostname/1META.yaml

@@ -0,0 +1,4 @@
+---
+category:
+- Networking and Web Interaction
+note: Programming environment operations

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/AutoHotkey/hostname.ahk

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

Task/Hostname/BBC-BASIC/hostname.bbc

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

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/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 ()
+    #+sbcl (machine-instance)
+    #+clisp (let ((s (machine-instance))) (subseq s 0 (position #\Space s)))
+    #-(or sbcl 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/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/Erlang/hostname.erl

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

Task/Hostname/Factor/hostname.factor

@@ -0,0 +1 @@
+host-name

Task/Hostname/Forth/hostname.fth

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

Task/Hostname/Fortran/hostname.f

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

Task/Hostname/Go/hostname.go

@@ -0,0 +1,11 @@
+package main
+
+import (
+	"fmt"
+	"os"
+)
+
+func main() {
+	host, _ := os.Hostname()
+	fmt.Printf("hostname: %s\n", host)
+}

Task/Hostname/Groovy/hostname.groovy

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

Task/Hostname/Haskell/hostname.hs

@@ -0,0 +1,3 @@
+import Network.BSD
+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.java

@@ -0,0 +1,9 @@
+import java.net.*;
+class DiscoverHostName {
+ public static void main(final String[] args) {
+  try {
+   System.out.println(InetAddress.getLocalHost().getHostName());
+  } catch (UnknownHostException e) { // Doesn't actually happen, but Java requires it be handled.
+  }
+ }
+}

Task/Hostname/JavaScript/hostname.js

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

Task/Hostname/Liberty-BASIC/hostname.liberty

@@ -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/Lua/hostname.lua

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

Task/Hostname/MATLAB/hostname.m

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

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

@@ -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/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/Perl/hostname.pl

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

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/Python/hostname.py

@@ -0,0 +1,2 @@
+import socket
+host = socket.gethostname()

Task/Hostname/R/hostname-1.r

@@ -0,0 +1 @@
+Sys.info()[["nodename"]]

Task/Hostname/R/hostname-2.r

@@ -0,0 +1 @@
+system("hostname", intern = TRUE)

Task/Hostname/R/hostname-3.r

@@ -0,0 +1,2 @@
+env_var <- ifelse(.Platform$OS.type == "windows", "COMPUTERNAME", "HOSTNAME")
+Sys.getenv(env_var)

Task/Hostname/REXX/hostname-1.rexx

@@ -0,0 +1,2 @@
+say value('COMPUTERNAME',,"ENVIRONMENT")
+say value('OS',,"ENVIRONMENT")

Task/Hostname/REXX/hostname-2.rexx

@@ -0,0 +1,2 @@
+say value('COMPUTERNAME',,"SYSTEM")
+say value('OS',,"SYSTEM")

Task/Hostname/REXX/hostname-3.rexx

@@ -0,0 +1 @@
+say userid()

Task/Hostname/REXX/hostname-4.rexx

@@ -0,0 +1 @@
+'VER'    /*this passes the  VER  command to the MS DOS system. */

Task/Hostname/REXX/hostname-5.rexx

@@ -0,0 +1,6 @@
+/* Rexx */
+address command "hostname -f" with output stem hn.
+do q_ = 1 to hn.0
+  say hn.q_
+  end q_
+exit

Task/Hostname/Racket/hostname.rkt

@@ -0,0 +1,3 @@
+#lang racket/base
+(require mzlib/os)
+(gethostname)

Task/Hostname/Ruby/hostname.rb

@@ -0,0 +1,2 @@
+require 'socket'
+host = Socket.gethostname

Task/Hostname/Scala/hostname.scala

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

Task/Hostname/Scheme/hostname-1.ss

@@ -0,0 +1,2 @@
+(use posix)
+(get-host-name)

Task/Hostname/Scheme/hostname-2.ss

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

Task/Hostname/Smalltalk/hostname.st

@@ -0,0 +1 @@
+OperatingSystem getHostName

Task/Hostname/Tcl/hostname.tcl

@@ -0,0 +1 @@
+set hname [info hostname]