Initial commit

1 files changed, 38 insertions, 0 deletions

diff --git a/unix/os/zzsetk.c b/unix/os/zzsetk.c
new file mode 100644
index 00000000..d1b374cc
--- /dev/null
+++ b/unix/os/zzsetk.c
@@ -0,0 +1,38 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include <stdio.h>
+#include <string.h>
+
+#define	import_spp
+#define	import_knames
+#include <iraf.h>
+
+extern	char os_process_name[];
+extern	PKCHAR osfn_bkgfile[];
+extern	int save_prtype;
+extern	int ipc_isatty;
+extern	int ipc_in, ipc_out;
+
+/* ZZSETK -- Internal kernel routine, used by the zmain to set the values
+ * of certain internal kernel parameters.
+ */
+int
+ZZSETK (
+  char	*ospn,
+  char	*osbfn,
+  int	prtype,
+  int	isatty,
+  int	in, 
+  int   out
+)
+{
+	strcpy (os_process_name, ospn);
+	strcpy ((char *)osfn_bkgfile, osbfn);
+	save_prtype = prtype;
+	ipc_isatty = isatty;
+	ipc_in = in;
+	ipc_out = out;
+
+	return (XOK);
+}