Initial commit

1 files changed, 29 insertions, 0 deletions

diff --git a/unix/boot/bootlib/osclose.c b/unix/boot/bootlib/osclose.c
new file mode 100644
index 00000000..f9be512c
--- /dev/null
+++ b/unix/boot/bootlib/osclose.c
@@ -0,0 +1,29 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include <unistd.h>		/* for close()	*/
+#include "bootlib.h"
+
+
+/* OS_CLOSE -- Close a file created (opened) by OSCREATE.  If writing to a
+ * text file flush any incomplete (non newline terminated) output line.
+ */
+void
+os_close (int fd)
+{
+	XINT	junk, xfd=fd;
+	XINT	nchars;
+
+	extern  int ZPUTTX(), ZCLSTX();
+
+
+	if (osfiletype == BINARY_FILE)
+	    close (fd);
+	else {
+	    if (txop > text) {
+		nchars = txop - text;
+		ZPUTTX (&xfd, text, &nchars, &junk);
+	    }
+	    ZCLSTX (&xfd, &junk);
+	}
+}