Repatch (from linux) of OSX IRAF

1 files changed, 26 insertions, 0 deletions

diff --git a/unix/os/net/tcpread.c b/unix/os/net/tcpread.c
new file mode 100644
index 00000000..3a7162d3
--- /dev/null
+++ b/unix/os/net/tcpread.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_READ -- Read from a socket.
+ */
+tcp_read (s, buf, maxbytes)
+u_sock	s;			/* input socket		*/
+char	*buf;			/* output buffer	*/
+int	maxbytes;		/* max bytes to read	*/
+{
+	int	nbytes;
+
+	/* MACHDEP */
+eprintf ("read %d bytes\n", maxbytes);
+
+	nbytes = read (s, buf, maxbytes);
+eprintf ("\t%d bytes read\n", nbytes);
+
+	tcperrno = errno;
+	return (nbytes);
+}