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
105
106
107
108
109
110
111
112
113
114
115
116
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
define SZ_LBUF 2048
define SZ_PATSTR 128
define SZ_PATBUF 1024
# GDEVICES -- Print a summary of the graphics devices currently defined in
# graphcap. The devices parameter, a list of pattern strings, defines the
# class of devices to be listed. The devices aliases, X and Y resolution,
# and device description are output for each device.
procedure t_gdevices()
pointer fnt, ip, op, gty
int fd, junk, nalias, lnum, xr, yr
pointer sp, devices, fname, patstr, patbuf, lbuf, device, devdes
bool streq()
pointer fntopn(), gtyopen()
int patmake(), patmatch(), gtygeti()
int open(), getlongline(), envfind(), fntgfn()
string s_graphcap "graphcap"
begin
call smark (sp)
call salloc (devices, SZ_LINE, TY_CHAR)
call salloc (fname, SZ_PATHNAME, TY_CHAR)
call salloc (patstr, SZ_PATSTR, TY_CHAR)
call salloc (patbuf, SZ_PATBUF, TY_CHAR)
call salloc (lbuf, SZ_LBUF, TY_CHAR)
call salloc (device, SZ_FNAME, TY_CHAR)
# Get list of device patterns to be matched against graphcap.
call clgstr ("devices", Memc[devices], SZ_LINE)
# Get graphcap file name.
call clgstr (s_graphcap, Memc[fname], SZ_PATHNAME)
if (Memc[fname] == EOS)
call strcpy ("dev$graphcap", Memc[fname], SZ_PATHNAME)
else if (streq (Memc[fname], s_graphcap))
if (envfind (s_graphcap, Memc[fname], SZ_PATHNAME) <= 0)
call strcpy ("dev$graphcap", Memc[fname], SZ_PATHNAME)
# Print table header.
call printf ("#%39s %4s %4s %s\n")
call pargstr ("ALIASES")
call pargstr ("NX")
call pargstr ("NY")
call pargstr ("DESCRIPTION")
fnt = fntopn (Memc[devices])
while (fntgfn (fnt, Memc[patstr], SZ_PATSTR) != EOF) {
junk = patmake (Memc[patstr], Memc[patbuf], SZ_PATBUF)
fd = open (Memc[fname], READ_ONLY, TEXT_FILE)
while (getlongline (fd, Memc[lbuf], SZ_LBUF, lnum) != EOF) {
if (patmatch (Memc[lbuf], Memc[patbuf]) > 0) {
# Get device alias list and extract first device name
# into "device" string.
ip = lbuf
op = device
for (nalias=1; Memc[ip] != EOS; nalias=nalias+1) {
devdes = ip
while (Memc[ip] != EOS) {
if (Memc[ip] == '|') {
Memc[ip] = ' '
ip = ip + 1
break
} else if (Memc[ip] == ':') {
Memc[devdes-1] = EOS
Memc[ip] = EOS
break
} else {
if (nalias == 1) {
Memc[op] = Memc[ip]
op = op + 1
}
ip = ip + 1
}
}
Memc[op] = EOS
}
# Fetch graphcap entry for device.
iferr (gty = gtyopen (Memc[fname], Memc[device], "")) {
call eprintf ("cannot access entry for %s\n")
call pargstr (Memc[device])
next
}
# Print information about graphics device, in the
# form alias ... alias nx ny description.
iferr (xr = gtygeti (gty, "xr"))
xr = 0
iferr (yr = gtygeti (gty, "yr"))
yr = 0
call printf ("%40s %5d%5d %0.27s\n")
call pargstr (Memc[lbuf])
call pargi (xr)
call pargi (yr)
call pargstr (Memc[devdes])
call flush (STDOUT)
call gtyclose (gty)
}
}
call close (fd)
}
call fntcls (fnt)
call sfree (sp)
end
|
