# HG changeset patch
# User jwe
# Date 759787278 0
# Node ID 781f2e2409754d2a5788f0cd6cf347a1dc6f7c8a
# Parent  42fe4794ded9a7a8400d4e72de8211cd4a9fe6fc
[project @ 1994-01-28 20:00:20 by jwe]

diff --git a/src/utils.cc b/src/utils.cc
--- a/src/utils.cc
+++ b/src/utils.cc
@@ -32,7 +32,7 @@
   read_octal               sub_append_string
   decode_prompt_string     pathname_backup
   make_absolute            get_working_directory
-  change_to_directory
+  change_to_directory      gethostname
 
 */
 
@@ -1117,6 +1117,28 @@
     }
 }
 
+#if !defined (HAVE_GETHOSTNAME) && defined (HAVE_SYS_UTSNAME_H)
+extern "C"
+{
+#include <sys/utsname.h>
+int
+gethostname (char *name, int namelen)
+{
+  int i;
+  struct utsname ut;
+
+  --namelen;
+
+  uname (&ut);
+  i = strlen (ut.nodename) + 1;
+  strncpy (name, ut.nodename, i < namelen ? i : namelen);
+  name[namelen] = '\0';
+
+  return 0;
+}
+}
+#endif
+
 /*
  * Has file `A' been modified after time `T'?
  *
diff --git a/src/utils.h b/src/utils.h
--- a/src/utils.h
+++ b/src/utils.h
@@ -85,6 +85,11 @@
 extern double D_NINT (double x);
 extern void delete_ppchar (char **);
 
+extern "C"
+{
+extern int gethostname ();
+}
+
 #endif
 
 /*