Repatch (from linux) of OSX IRAF

1 files changed, 26 insertions, 0 deletions

diff --git a/unix/os/net/accept.c b/unix/os/net/accept.c
new file mode 100644
index 00000000..578c1eba
--- /dev/null
+++ b/unix/os/net/accept.c
@@ -0,0 +1,26 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include "types.h"
+
+extern	int errno;
+extern	int tcperrno;
+
+/* TCP_ACCEPT -- Accept a connection on a socket.  Accept extracts the first
+ * connection from the queue of pending connections (set up with LISTEN),
+ * creates a new socket with the same properties as S and allocates a new
+ * file descriptor NS for the socket.
+ */
+u_sock
+tcp_accept (s, addr, addrlen)
+u_sock	s;			/* the socket			*/
+struct	sockaddr *addr;		/* endpoint of communications	*/
+int	*addrlen;		/* sizeof (addr)		*/
+{
+	u_sock	ns;
+
+	/* MACHDEP */
+	ns = accept (s, addr, addrlen);
+	tcperrno = errno;
+	return (ns);
+}