From 85ab5ba803ef18a4d339f9925be1f4c45a1f5ba4 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 23 Sep 2014 09:37:01 +0900
Subject: [PATCH] Adding get-host-name.

---
 lib/chibi/system.sld  | 3 ++-
 lib/chibi/system.stub | 5 +++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/system.sld b/lib/chibi/system.sld
index 4d7a619e..fa8223ab 100644
--- a/lib/chibi/system.sld
+++ b/lib/chibi/system.sld
@@ -1,6 +1,7 @@
 
 (define-library (chibi system)
-  (export user-information user? user-name user-password
+  (export get-host-name
+          user-information user? user-name user-password
           user-id user-group-id user-gecos user-home user-shell
           group-information group-name group-password group-id
           current-user-id current-group-id
diff --git a/lib/chibi/system.stub b/lib/chibi/system.stub
index bcb2588d..23da1d33 100644
--- a/lib/chibi/system.stub
+++ b/lib/chibi/system.stub
@@ -4,6 +4,11 @@
 (c-system-include "grp.h")
 (c-system-include "sys/types.h")
 
+;;> Returns the standard hostname of the current processor.
+
+(define-c errno (get-host-name "gethostname")
+  ((result (array char (auto-expand arg1))) (value 256 int)))
+
 ;;> \section{\scheme{(user-information name-or-id)}}
 
 ;;> Returns the password entry for the given user.  \var{name-or-id}