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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <fset.h>
include <gio.h>
include "gtr.h"
define LEN_NAME 10
# GTR_STATUS -- Print information summarizing the utilization of resources
# by each of the three graphics streams.
procedure gtr_status (fd)
int fd # output file
int stream, ip
string names "STDGRAPH:,STDIMAGE:,STDPLOT: "
include "gtr.com"
begin
for (ip=1; names[ip] != EOS; ip=ip+1)
if (names[ip] == ',')
names[ip] = EOS
do stream = STDGRAPH, STDPLOT {
ip = (stream - STDGRAPH) * LEN_NAME + 1
if (trdes[stream] == NULL) {
call fprintf (fd, "\t%s disconnected\n")
call pargstr (names[ip])
} else
call gtr_memusage (fd, stream, names[ip])
}
call fprintf (fd, "\n")
call flush (fd)
end
# GTR_MEMUSAGE -- Print information summarizing the utilization of memory and
# other resources by a graphics stream.
procedure gtr_memusage (fd, stream, name)
int fd # output file
int stream # graphics stream to be described
char name[ARB] # name of graphics stream
pointer tr, tx
int bufsize
int fstati()
pointer gtr_init()
errchk gtr_init
begin
tr = gtr_init (stream)
call fprintf (fd, "\t%s kernel=%s, device=%s, page %s\n")
call pargstr (name)
call pargstr (TR_KERNFNAME(tr))
call pargstr (TR_DEVNAME(tr))
if (TR_PAGE(tr) == YES)
call pargstr ("enabled")
else
call pargstr ("disabled")
bufsize = fstati (stream, F_BUFSIZE)
call fprintf (fd,
"\t\tmemory=%d (%dfb+%dsb+%dfio), frame=%d+%d words\n")
call pargi (TR_LENFRAMEBUF(tr) + TR_LENSCRATCHBUF(tr) + bufsize)
call pargi (TR_LENFRAMEBUF(tr))
call pargi (TR_LENSCRATCHBUF(tr))
call pargi (bufsize)
call pargi (TR_OP(tr) - TR_FRAMEBUF(tr))
call pargi (TR_OPSB(tr) - TR_SCRATCHBUF(tr))
call fprintf (fd,
"\t\tspool=%s, nopen=%d, pid=%d, in=%d, out=%d, redir=%d, wcs=%d\n")
if (TR_SPOOLDATA(tr) == YES)
call pargstr ("yes")
else
call pargstr ("no")
call pargi (TR_NOPEN(tr))
call pargi (TR_PID(tr))
call pargi (TR_IN(tr))
call pargi (TR_OUT(tr))
call pargi (TR_REDIR(tr))
call pargi (TR_WCS(tr))
tx = TR_TXAP(tr)
call fprintf (fd,
"\t\ttext size=%g, up=%d, path=%s, hj=%s, vj=%s, color=%d\n")
call pargr (TX_SIZE(tx))
call pargi (TX_UP(tx))
call gkp_txparg (TX_PATH(tx))
call gkp_txparg (TX_HJUSTIFY(tx))
call gkp_txparg (TX_VJUSTIFY(tx))
call pargi (TX_COLOR(tx))
call fprintf (fd, "\n")
end
|
