blob: 0813a7084140f633e65890102208417da6de3592 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include <gki.h>
# GKI_INIT -- Initialize GKI i/o on a graphics stream. Called by GOPEN to
# make the connection to either a metacode stream file or an inline kernel.
# If the stream has already been directed to a kernel we do nothing, else
# we initialize the stream as for a metacode file or remote kernel. If
# gki_inline is called before gopen then this procedure is a nop.
procedure gki_init (stream)
int stream # graphics stream to be redirected
include "gki.com"
begin
if (gk_type[stream] == NULL) {
gk_type[stream] = TY_FILE
gk_fd[stream] = stream
}
end
|
