From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- sys/gio/gki/gkikern.x | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 sys/gio/gki/gkikern.x (limited to 'sys/gio/gki/gkikern.x') 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 +include + +# 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 -- cgit