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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include <gki.h>
include <error.h>
include "gkt.h"
# GKT_OPENWS -- Open the named workstation. Once a workstation has been
# opened we leave it open until some other workstation is opened or the
# kernel is closed. Opening a workstation involves initialization of the
# kernel data structures, following by initialization of the device itself.
procedure gkt_openws (devname, n, mode)
short devname[ARB] # device name
int n # length of device name
int mode # access mode
pointer sp, buf
pointer ttygdes()
bool streq()
int gkt_mfopen()
bool need_open, same_dev
include "gkt.com"
include "nspp.com"
begin
call smark (sp)
call salloc (buf, max (SZ_FNAME, n), TY_CHAR)
# If a device was named when the kernel was opened then output will
# always go to that device (g_device) regardless of the device named
# in the OPENWS instruction. If no device was named (null string)
# then unpack the device name, passed as a short integer array.
if (g_device[1] == EOS) {
call achtsc (devname, Memc[buf], n)
Memc[buf+n] = EOS
} else
call strcpy (g_device, Memc[buf], SZ_FNAME)
# Find out if first time, and if not, if same device as before
# note that if (g_kt == NULL), then same_dev is false.
same_dev = false
need_open = true
if (g_kt != NULL) {
same_dev = (streq (Memc[GKT_DEVNAME(g_kt)], Memc[buf]))
if (!same_dev) {
# Does this device require a frame advance at end of metafile?
if (GKT_ENDFRAME(g_kt) == YES)
call frame()
call close (g_out)
} else
need_open = false
}
# Initialize the kernel data structures. Open graphcap descriptor
# for the named device, allocate and initialize descriptor and common.
# graphcap entry for device must exist.
if (need_open) {
if (!same_dev) {
if (g_kt != NULL)
call ttycdes (g_tty)
iferr (g_tty = ttygdes (Memc[buf]))
call erract (EA_ERROR)
# Initialize data structures if we had to open a new device.
call gkt_init (g_tty, Memc[buf])
call gkt_reset()
}
# Open the output file. The device is connected to FIO as a
# binary file. Metacode output to the device will be spooled
# and then disposed of to the device at CLOSEWS time.
iferr (g_out = gkt_mfopen (g_tty, mode)) {
call ttycdes (g_tty)
call erract (EA_ERROR)
} else {
# Does this device require a frame advance at start of metafile?
if (GKT_STARTFRAME(g_kt) == YES)
call frame()
g_nframes = 0
g_ndraw = 0
}
# Initialize output file descriptor in nspp common.
munit = g_out
}
# Clear the screen if device is being opened in new_file mode.
# This is a nop if we really opened a new device, but it will clear
# the screen if this is just a reopen of the same device in new file
# mode.
if (mode == NEW_FILE)
call gkt_clear (0)
call sfree (sp)
end
|
