1 files changed, 37 insertions, 0 deletions
diff --git a/otherlibs/unix/gethostname.c b/otherlibs/unix/gethostname.c
new file mode 100644
index 000000000..4c11c6b2a
--- /dev/null
+++ b/otherlibs/unix/gethostname.c
@@ -0,0 +1,37 @@
+#include <mlvalues.h>
+#include <alloc.h>
+#include <sys/param.h>
+#include "unix.h"
+
+#ifdef HAS_GETHOSTNAME
+
+#ifndef MAXHOSTNAMELEN
+#define MAXHOSTNAMELEN 256
+#endif
+
+value unix_gethostname()         /* ML */
+{
+  char name[MAXHOSTNAMELEN];
+  gethostname(name, MAXHOSTNAMELEN);
+  name[MAXHOSTNAMELEN-1] = 0;
+  return copy_string(name);
+}
+
+#else
+#ifdef HAS_UNAME
+
+#include <sys/utsname.h>
+
+value unix_gethostname()
+{
+  struct utsname un;
+  uname(&un);
+  return copy_string(un.nodename);
+}
+
+#else
+
+value unix_gethostname() { invalid_argument("gethostname not implemented"); }
+
+#endif
+#endif