Add new primitive GET-HOST-BY-ADDRESS.

diff --git a/v7/src/microcode/ntsock.c b/v7/src/microcode/ntsock.c
index 57652a296b490501989bfb3b5340d25c23932f06..942a8b7e9ac144f2616957f90b970a74541ba8cb 100644 (file)
--- a/v7/src/microcode/ntsock.c
+++ b/v7/src/microcode/ntsock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntsock.c,v 1.5 1999/01/02 06:11:34 cph Exp $
+$Id: ntsock.c,v 1.6 1999/08/13 18:29:38 cph Exp $
 
 Copyright (c) 1997-1999 Massachusetts Institute of Technology
 
@@ -157,6 +157,19 @@ OS_canonical_host_name (const char * host_name)
     return (result);
   }
 }
+
+const char *
+OS_get_host_by_address (const char * host_addr)
+{
+  struct hostent * entry = (gethostbyaddr (host_addr));
+  if (entry == 0)
+    return (0);
+  {
+    char * result = (OS_malloc ((strlen (entry -> h_name)) + 1));
+    strcpy (result, (entry -> h_name));
+    return (result);
+  }
+}
 \f
 #ifndef SOCKET_LISTEN_BACKLOG
 #define SOCKET_LISTEN_BACKLOG 5

diff --git a/v7/src/microcode/os2sock.c b/v7/src/microcode/os2sock.c
index c00c82d464ace563cf48ee5bb2095c8dbac9306f..b5ed7f2df03eeea7dba25bf07182bdda5e21d724 100644 (file)
--- a/v7/src/microcode/os2sock.c
+++ b/v7/src/microcode/os2sock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2sock.c,v 1.10 1999/04/28 03:27:55 cph Exp $
+$Id: os2sock.c,v 1.11 1999/08/13 18:29:34 cph Exp $
 
 Copyright (c) 1990-1999 Massachusetts Institute of Technology
 
@@ -175,6 +175,19 @@ OS_canonical_host_name (const char * host_name)
     return (result);
   }
 }
+
+const char *
+OS_get_host_by_address (const char * host_addr)
+{
+  struct hostent * entry = (gethostbyaddr (host_addr));
+  if (entry == 0)
+    return (0);
+  {
+    char * result = (OS_malloc ((strlen (entry -> h_name)) + 1));
+    strcpy (result, (entry -> h_name));
+    return (result);
+  }
+}
 \f
 #ifndef SOCKET_LISTEN_BACKLOG
 #define SOCKET_LISTEN_BACKLOG 5

diff --git a/v7/src/microcode/pruxsock.c b/v7/src/microcode/pruxsock.c
index ecb900cec919348a92a7e6b6e364fbfbabc880cc..48b0f56773e7198479a91137a7b4bee6602d599c 100644 (file)
--- a/v7/src/microcode/pruxsock.c
+++ b/v7/src/microcode/pruxsock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pruxsock.c,v 1.16 1999/01/02 06:11:34 cph Exp $
+$Id: pruxsock.c,v 1.17 1999/08/13 18:29:06 cph Exp $
 
 Copyright (c) 1990-1999 Massachusetts Institute of Technology
 
@@ -156,6 +156,23 @@ DEFINE_PRIMITIVE ("CANONICAL-HOST-NAME", Prim_canonical_host_name, 1, 1, 0)
     });
 }
 
+DEFINE_PRIMITIVE ("GET-HOST-BY-ADDRESS", Prim_get_host_by_address, 1, 1, 0)
+{
+  PRIMITIVE_HEADER (1);
+  SOCKET_CODE
+    ({
+      CONST char * host_name = (OS_get_host_by_address (STRING_ARG (1)));
+      if (host_name == 0)
+       PRIMITIVE_RETURN (SHARP_F);
+      {
+       SCHEME_OBJECT result
+         = (char_pointer_to_string ((unsigned char *) host_name));
+       OS_free ((PTR) host_name);
+       PRIMITIVE_RETURN (result);
+      }
+    });
+}
+
 #ifdef HAVE_SOCKETS
 
 static char *

diff --git a/v7/src/microcode/uxsock.c b/v7/src/microcode/uxsock.c
index 1aae5f5bbcc55aca1e2611a2aea63d385630700a..9727bf01fa281bdf2af034d11a385faf576fea1e 100644 (file)
--- a/v7/src/microcode/uxsock.c
+++ b/v7/src/microcode/uxsock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxsock.c,v 1.18 1999/01/02 06:11:34 cph Exp $
+$Id: uxsock.c,v 1.19 1999/08/13 18:29:28 cph Exp $
 
 Copyright (c) 1990-1999 Massachusetts Institute of Technology
 
@@ -35,10 +35,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 #include "prims.h"
 #include "limits.h"
 
-#ifndef _SUNOS4
+#ifdef 0
 extern struct servent * EXFUN (getservbyname, (CONST char *, CONST char *));
-#endif
 extern struct hostent * EXFUN (gethostbyname, (CONST char *));
+#endif
 \f
 Tchannel
 DEFUN (OS_open_tcp_stream_socket, (host, port), char * host AND int port)
@@ -143,6 +143,19 @@ DEFUN (OS_canonical_host_name, (host_name), CONST char * host_name)
   }
 }
 
+CONST char *
+DEFUN (OS_get_host_by_address, (host_addr), CONST char * host_addr)
+{
+  struct hostent * entry = (UX_gethostbyaddr (host_addr, AF_INET));
+  if (entry == 0)
+    return (0);
+  {
+    char * result = (OS_malloc ((strlen (entry -> h_name)) + 1));
+    strcpy (result, (entry -> h_name));
+    return (result);
+  }
+}
+
 Tchannel
 DEFUN (OS_open_unix_stream_socket, (filename), CONST char * filename)
 {

diff --git a/v7/src/microcode/uxsock.h b/v7/src/microcode/uxsock.h
index 9631fa949a61a10d8d3701f53f71068109ae91f1..1b4f3206583095b83a450a2de1b3d81a291e3ab6 100644 (file)
--- a/v7/src/microcode/uxsock.h
+++ b/v7/src/microcode/uxsock.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxsock.h,v 1.8 1999/01/02 06:11:34 cph Exp $
+$Id: uxsock.h,v 1.9 1999/08/13 18:29:18 cph Exp $
 
 Copyright (c) 1990-1999 Massachusetts Institute of Technology
 
@@ -31,6 +31,7 @@ extern unsigned int EXFUN (OS_host_address_length, (void));
 extern char ** EXFUN (OS_get_host_by_name, (CONST char *));
 CONST char * EXFUN (OS_get_host_name, (void));
 CONST char * EXFUN (OS_canonical_host_name, (CONST char *));
+CONST char * EXFUN (OS_get_host_by_address, (CONST char *));
 
 #ifdef HAVE_UNIX_SOCKETS
 extern Tchannel EXFUN (OS_open_unix_stream_socket, (CONST char *));