Perl 5.001perl-5.001

[See the Changes file for a list of changes]

1 files changed, 37 insertions, 28 deletions

diff --git a/vms/sockadapt.h b/vms/sockadapt.h
index 60890bddce..0d56285750 100644
--- a/vms/sockadapt.h
+++ b/vms/sockadapt.h
@@ -2,35 +2,57 @@
  *
  *  Authors: Charles Bailey  bailey@genetics.upenn.edu
  *           David Denholm  denholm@conmat.phys.soton.ac.uk
- *  Last Revised: 05-Oct-1994
+ *  Last Revised: 24-Feb-1995
  *
  *  This file should include any other header files and procide any
  *  declarations, typedefs, and prototypes needed by perl for TCP/IP
  *  operations.
  *
- *  This version is set up for perl5 with socketshr 0.9A TCP/IP support.
+ *  This version is set up for perl5 with socketshr 0.9D TCP/IP support.
  */
 
 #include <socketshr.h>
 
-/* we may not have socket.h etc, so lets just do these here  - div */
-/* built up from a variety of sources */
+/* we may not have netdb.h etc, so lets just do this here  - div */
 /* no harm doing this for all .c files - needed only by pp_sys.c */
 
-struct hostent {
-	char *h_name;
-	char *h_aliases;
-	int h_addrtype;
-	int h_length;
-	char **h_addr_list;
+struct	hostent {
+    char	*h_name;	/* official name of host */
+    char	**h_aliases;	/* alias list */
+    int	h_addrtype;	/* host address type */
+    int	h_length;	/* length of address */
+    char	**h_addr_list;	/* address */
 };
+#ifdef h_addr
+#   undef h_addr
+#endif
 #define h_addr h_addr_list[0]
 
-struct sockaddr_in {
-	short sin_family;
-	unsigned short sin_port;
-	unsigned long sin_addr;
-	char sin_zero[8];
+struct	protoent {
+    char	*p_name;	/* official protocol name */
+    char	**p_aliases;	/* alias list */
+    int	p_proto;	/* protocol # */
+};
+
+struct	servent {
+    char	*s_name;	/* official service name */
+    char	**s_aliases;	/* alias list */
+    int	s_port;		/* port # */
+    char	*s_proto;	/* protocol to use */
+};
+
+struct	in_addr {
+    unsigned long s_addr;
+};
+
+struct	sockaddr {
+    unsigned short	sa_family;		/* address family */
+    char	sa_data[14];		/* up to 14 bytes of direct address */
+};
+
+struct timeval {
+    long tv_sec;
+    long tv_usec;
 };
 
 struct netent {
@@ -39,16 +61,3 @@ struct netent {
 	int n_addrtype;
 	long n_net;
 };
-
-struct  servent {
-        char    *s_name;        /* official service name */
-        char    **s_aliases;    /* alias list */
-        int     s_port;         /* port # */
-        char    *s_proto;       /* protocol to use */
-};
-
-struct  protoent {
-        char    *p_name;        /* official protocol name */
-        char    **p_aliases;    /* alias list */
-        int     p_proto;        /* protocol # */
-};