Repatch (from linux) of OSX IRAF

1 files changed, 23 insertions, 0 deletions

diff --git a/unix/os/net/tcpwrite.c b/unix/os/net/tcpwrite.c
new file mode 100644
index 00000000..c0a946d3
--- /dev/null
+++ b/unix/os/net/tcpwrite.c
@@ -0,0 +1,23 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include "types.h"
+
+extern	int errno;
+extern	int tcperrno;
+
+/* TCP_WRITE -- Write to a socket.
+ */
+tcp_write (s, buf, nbytes)
+u_sock	s;			/* output socket	*/
+char	*buf;			/* input buffer		*/
+int	nbytes;			/* num bytes to write	*/
+{
+	/* MACHDEP */
+eprintf ("write %d bytes\n", nbytes);
+	nbytes = write (s, buf, nbytes);
+eprintf ("%d bytes written\n", nbytes);
+
+	tcperrno = errno;
+	return (nbytes);
+}