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>
# PRPSLOAD -- Must be called at process startup time to initialize pseudofile
# i/o for the graphics streams, if any i/o to the graphics pseudofiles is
# expected. The arguments are the LOCPR entry point addresses of the graphics
# driver (gio.cursor) procedures to be called to process i/o requests on the
# graphics streams.
procedure prpsload (giotr, control, gflush, writep, readtty, writetty)
extern giotr() #I gio.cursor driver procedures
extern control() #I " "
extern gflush() #I " "
extern writep() #I " "
extern readtty() #I " "
extern writetty() #I " "
int locpr()
include "prc.com"
begin
epa_giotr = locpr (giotr)
epa_control = locpr (control)
epa_gflush = locpr (gflush)
epa_writep = locpr (writep)
epa_readtty = locpr (readtty)
epa_writetty = locpr (writetty)
end
|
