Repatch (from linux) of OSX IRAF

1 files changed, 30 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/ratlibc/open.c b/unix/boot/spp/rpp/ratlibc/open.c
new file mode 100644
index 00000000..fa4558d9
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibc/open.c
@@ -0,0 +1,30 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include "ratdef.h"
+
+extern void r4tocstr (register RCHAR *rstr, register char *cstr);
+
+FINT
+OPEN(rname, mode)
+RCHAR *rname;
+register FINT *mode;
+{
+	register FILE  *fp;
+	char	       cname[FILENAMESIZE];
+
+	r4tocstr(rname, cname);
+
+	if (*mode == APPEND)
+		fp = fopen(cname, "a");
+	else if (*mode == READWRITE || *mode == WRITE)
+		fp = fopen(cname, "w");
+	else
+		fp = fopen(cname, "r");
+
+	if (fp == NULL)
+		return(RERR);	/* unable to open file */
+
+	_fdtofile[fileno(fp)] = fp;
+	return(fileno(fp));
+}