Just another update

Task/Hostname/AppleScript/hostname.applescript

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

Task/Hostname/Batch-File/hostname.bat

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

Task/Hostname/Factor/hostname.factor

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

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/Oberon-2/hostname.oberon-2

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

Task/Hostname/Vim-Script/hostname.vim

@@ -0,0 +1 @@
+echo hostname()