libiberty/socketpair.c

["Philippe De Muyter" <phdm@macqel.be>]

ser-pipe.c fails to link on sysV68.  Here is a fix.

Mon Jul 19 10:46:18 1999  Philippe De Muyter  <phdm@macqel.be>

	* configure.in (socketpair): Function added to the list of functions
	to provide.
	* socketpair.c: New file.

--- ./libiberty/configure.in	Mon Jul 19 10:59:38 1999
+++ ./libiberty/configure.in	Fri Jul 16 16:06:17 1999
@@ -134,6 +134,7 @@ AC_SUBST_FILE(host_makefile_frag)
 funcs="$funcs rename"
 funcs="$funcs rindex"
 funcs="$funcs sigsetmask"
+funcs="$funcs socketpair"
 funcs="$funcs strcasecmp"
 funcs="$funcs strchr"
 funcs="$funcs strdup"
--- ./libiberty/socketpair.c	Mon Jul 19 10:59:38 1999
+++ ./libiberty/socketpair.c	Mon Jul 19 10:58:30 1999
@@ -0,0 +1,82 @@
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <fcntl.h>
+#include <stdio.h>
+
+socketpair(af, type, protocol, fd)
+int	af;
+int	type;
+int	protocol;
+int	fd[2];
+	{
+	int	listen_socket;
+	struct sockaddr_in sin[2];
+	int	len;
+
+	/* The following is only valid if type == SOCK_STREAM */
+	if (type != SOCK_STREAM)
+		return -1;
+
+	/* Create a temporary listen socket; temporary, so any port is good */
+	listen_socket = socket(af, type, protocol);
+	if (listen_socket < 0)
+		{
+		perror("creating listen_socket");
+		return -1;
+		}
+	sin[0].sin_family = af;
+	sin[0].sin_port = 0; /* Use any port number */
+	sin[0].sin_addr.s_addr = inet_makeaddr(INADDR_ANY, 0);
+	if (bind(listen_socket, &sin[0], sizeof(sin[0])) < 0)
+		{
+		perror("bind");
+		return -1;
+		}
+	len = sizeof(sin[0]);
+
+	/* Read the port number we got, so that our client can connect to it */
+	if (getsockname(listen_socket, &sin[0], &len) < 0)
+		{
+		perror("getsockname");
+		return -1;
+		}
+
+	/* Put the listen socket in listening mode */
+	if (listen(listen_socket, 5) < 0)
+		{
+		perror("listen");
+		return -1;
+		}
+
+	/* Create the client socket */
+	fd[1] = socket(af, type, protocol);
+	if (fd[1] < 0)
+		{
+		perror("creating client_socket");
+		return -1;
+		}
+
+	/* Put the client socket in non-blocking connecting mode */
+	fcntl(fd[1], F_SETFL, fcntl(fd[1], F_GETFL, 0) | O_NDELAY);
+	if (connect(fd[1], &sin[0], sizeof(sin[0])) < 0)
+		{
+		perror("connect");
+		return -1;
+		}
+
+	/* At the listen-side, accept the incoming connection we generated */
+	len = sizeof(sin[1]);
+	if ((fd[0] = accept(listen_socket, &sin[1], &len)) < 0)
+		{
+		perror("accept");
+		return -1;
+		}
+
+	/* Reset the client socket to blocking mode */
+	fcntl(fd[1], F_SETFL, fcntl(fd[1], F_GETFL, 0) & ~O_NDELAY);
+
+	close(listen_socket);
+
+	return 0;
+	}