blob: 95c8e648c135f373771bfceb7276bb0117e28620 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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
|
