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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
task dump = t_dump
# DUMP -- Dump a termcap (GTY) device entry.
procedure t_dump()
char fname[SZ_FNAME]
char device[SZ_FNAME]
char ufields[SZ_LINE]
pointer gty
pointer gtyopen()
pointer gtycaps()
begin
call clgstr ("fname", fname, SZ_FNAME)
call clgstr ("device", device, SZ_FNAME)
call clgstr ("ufields", ufields, SZ_LINE)
gty = gtyopen (fname, device, ufields)
call printf ("%s\n")
call pargstr (Memc[gtycaps(gty)])
call gtyclose (gty)
end
|
