1 files changed, 24 insertions, 0 deletions
diff --git a/otherlibs/unix/strofaddr.c b/otherlibs/unix/strofaddr.c
new file mode 100644
index 000000000..340798946
--- /dev/null
+++ b/otherlibs/unix/strofaddr.c
@@ -0,0 +1,24 @@
+#include <mlvalues.h>
+#include <alloc.h>
+#include "unix.h"
+
+#ifdef HAS_SOCKETS
+
+#include "socketaddr.h"
+
+extern char * inet_ntoa();
+
+value unix_string_of_inet_addr(a) /* ML */
+     value a;
+{
+  struct in_addr address;
+  address.s_addr = GET_INET_ADDR(a);
+  return copy_string(inet_ntoa(address));
+}
+
+#else
+
+value unix_string_of_inet_addr()
+{ invalid_argument("string_of_inet_addr not implemented"); }
+
+#endif