1 files changed, 106 insertions, 0 deletions
diff --git a/sys/ki/kfiopr.x b/sys/ki/kfiopr.x
new file mode 100644
index 00000000..2abae18e
--- /dev/null
+++ b/sys/ki/kfiopr.x
@@ -0,0 +1,106 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+include	<config.h>
+include	"ki.h"
+
+# KFIOPR -- IPC driver.  This driver has no open and close entry points since
+# these functions are provided by the ZOPCPR and ZCLCPR procedures, which also
+# spawn the subprocess.
+
+#	procedure kopnpr (osfn, mode, chan)
+#	
+#	char	osfn[ARB]
+#	int	mode, chan
+#	
+#	int	server
+#	int	ki_connect(), ki_getchan()
+#	include	"kii.com"
+#	
+#	begin
+#		server = ki_connect (osfn)
+#	
+#		if (server == NULL) {
+#		    call strpak (p_sbuf[p_arg[1]], p_sbuf, SZ_SBUF)
+#		    call zopnpr (p_sbuf, mode, chan)
+#		    if (chan != ERR)
+#			chan = ki_getchan (server, chan)
+#		} else
+#		    call kb_zopn (KI_ZFIOPR, osfn, mode, chan)
+#	end
+#	
+#	
+#	procedure kclspr (chan, status)
+#	
+#	int	chan
+#	int	status
+#	include	"kichan.com"
+#	
+#	begin
+#		if (k_node[chan] == NULL) {
+#		    call zclspr (k_oschan[chan], status)
+#		    k_oschan[chan] = NULL
+#		} else
+#		    call kb_zcls (KI_ZFIOPR, chan, status)
+#	end
+
+
+procedure kardpr (chan, buf, max_bytes, offset)
+
+int	chan
+char	buf[ARB]
+int	max_bytes
+long	offset
+include	"kichan.com"
+
+begin
+	if (k_node[chan] == NULL)
+	    call zardpr (k_oschan[chan], buf, max_bytes, offset)
+	else
+	    call kb_zard (KI_ZFIOPR, chan, buf, max_bytes, offset)
+end
+
+
+procedure kawrpr (chan, buf, nbytes, offset)
+
+int	chan
+char	buf[ARB]
+int	nbytes
+long	offset
+include	"kichan.com"
+
+begin
+	if (k_node[chan] == NULL)
+	    call zawrpr (k_oschan[chan], buf, nbytes, offset)
+	else
+	    call kb_zawr (KI_ZFIOPR, chan, buf, nbytes, offset)
+end
+
+
+procedure kawtpr (chan, status)
+
+int	chan
+int	status
+include	"kichan.com"
+
+begin
+	if (k_node[chan] == NULL)
+	    call zawtpr (k_oschan[chan], status)
+	else
+	    call kb_zawt (KI_ZFIOPR, chan, status)
+end
+
+
+procedure ksttpr (chan, what, lvalue)
+
+int	chan
+int	what
+long	lvalue
+include	"kichan.com"
+
+begin
+	if (k_node[chan] == NULL)
+	    call zsttpr (k_oschan[chan], what, lvalue)
+	else
+	    call kb_zstt (KI_ZFIOPR, chan, what, lvalue)
+end