Repatch (from linux) of OSX IRAF

1 files changed, 36 insertions, 0 deletions

diff --git a/unix/boot/bootlib/oscrfile.c b/unix/boot/bootlib/oscrfile.c
new file mode 100644
index 00000000..28eec304
--- /dev/null
+++ b/unix/boot/bootlib/oscrfile.c
@@ -0,0 +1,36 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include <fcntl.h>
+#include "bootlib.h"
+
+
+/* OS_CREATEFILE -- Open a new file for writing.  Create the file with the
+ * given mode bits.
+ */
+int
+os_createfile (
+  char	*fname,
+  int	mode,
+  int	type
+)
+{
+	static	XINT xmode = NEW_FILE;
+	PKCHAR	*osfn = (PKCHAR *) vfn2osfn (fname, 1);
+	XINT	chan;
+	extern  int ZOPNTX();
+
+
+	if (bdebug)
+	    fprintf (stderr, "create %s file `%s' -> `%s'\n",
+		type == TEXT_FILE ? "text" : "binary", fname, (char *)osfn);
+	osfiletype = type;
+
+	if (type == BINARY_FILE)
+	    return (creat ((char *)osfn, mode));
+	else {
+	    ZOPNTX (osfn, &xmode, &chan);
+	    txop = text;
+	    return (chan == XERR ? ERR : chan);
+	}
+}