1 files changed, 30 insertions, 0 deletions
diff --git a/sys/gio/gki/gkikern.x b/sys/gio/gki/gkikern.x
new file mode 100644
index 00000000..95c8e648
--- /dev/null
+++ b/sys/gio/gki/gkikern.x
@@ -0,0 +1,30 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<config.h>
+include	<gki.h>
+
+# GKI_SUBKERNEL -- Identify a graphics stream for use with a kernel in a
+# connected subprocess of the current process.  This type of kernel is
+# equivalent to a file for all of the output instructions, but the input
+# instructions (e.g., read cursor) must fiddle with process i/o and need
+# additional information to do so, i.e., the process id number of the kernel
+# process, and the entry point address of the PR_PSIO procedure.  We do not
+# wish to directly reference the latter procedure as this would require
+# all processes which use GKI to link in the process control code, even if
+# they never talk directly to a process.  Note that processes which talk to
+# an external kernel via the CL do so with the normal file interface, hence
+# do not need to call us.  We are called by the GIOTR (cursor mode) code in
+# the CL process when an external kernel is spawned.
+
+procedure gki_subkernel (stream, pid, prpsio_epa)
+
+int	stream			# graphics stream to be redirected
+int	pid			# process id of kernel process
+int	prpsio_epa		# epa of the etc$prpsio procedure.
+include	"gki.com"
+
+begin
+	gk_type[stream] = pid
+	gk_fd[stream] = stream
+	gk_prpsio = prpsio_epa
+end