Repatch (from linux) of OSX IRAF

1 files changed, 18 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/ratlibc/initst.c b/unix/boot/spp/rpp/ratlibc/initst.c
new file mode 100644
index 00000000..6cf4a9a4
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibc/initst.c
@@ -0,0 +1,18 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include "ratdef.h"
+
+FILE	*_fdtofile[10];
+
+/*
+ * Ratfor initialization routine.  To be called as the first
+ * executable statement of every program using the tools
+ * subroutines.
+ */
+void INITST()
+{
+	_fdtofile[0] = stdin;
+	_fdtofile[1] = stdout;
+	_fdtofile[2] = stderr;
+}