Repatch (from linux) of OSX IRAF

1 files changed, 19 insertions, 0 deletions

diff --git a/unix/os/zglobl.c b/unix/os/zglobl.c
new file mode 100644
index 00000000..0fec31e6
--- /dev/null
+++ b/unix/os/zglobl.c
@@ -0,0 +1,19 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include <stdio.h>
+#define import_spp
+#define	import_kernel
+#include <iraf.h>
+
+#define	SZ_PROCNAME	256
+
+/* Allocate ZFD, the global data structure for the kernel file i/o system.
+ * Also allocate a buffer for the process name, used by the error handling
+ * code to identify the process generating an abort.
+ */
+struct	fiodes zfd[MAXOFILES];
+char	os_process_name[SZ_PROCNAME];
+PKCHAR	osfn_bkgfile[SZ_PATHNAME/sizeof(PKCHAR)+1];
+int	save_prtype = 0;
+char	oscwd[SZ_PATHNAME+1];