1 files changed, 100 insertions, 0 deletions
diff --git a/sys/gio/cursor/gtrstatus.x b/sys/gio/cursor/gtrstatus.x
new file mode 100644
index 00000000..45b5731c
--- /dev/null
+++ b/sys/gio/cursor/gtrstatus.x
@@ -0,0 +1,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