From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- 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