1 files changed, 35 insertions, 0 deletions
diff --git a/sys/gio/gstats.x b/sys/gio/gstats.x
new file mode 100644
index 00000000..14fd7c35
--- /dev/null
+++ b/sys/gio/gstats.x
@@ -0,0 +1,35 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<syserr.h>
+include	<gset.h>
+include	<gio.h>
+
+# GSTATS -- Get the value of a string valued GIO parameter.
+
+int procedure gstats (gp, param, outstr, maxch)
+
+pointer	gp			# graphics descriptor
+int	param			# parmeter to be set
+char	outstr[ARB]		# output string
+int	maxch
+int	gstrcpy()
+
+int	i, value
+pointer	p[2]
+
+begin
+	p[1] = GP_XAP(gp)
+	p[2] = GP_XAP(gp)
+
+	switch (param) {
+	case G_XTICKFORMAT:
+	    return (gstrcpy (GL_TICKFORMAT(p[1]), value, maxch))
+	case G_YTICKFORMAT:
+	    return (gstrcpy (GL_TICKFORMAT(p[2]), value, maxch))
+	case G_TICKFORMAT:
+	    do i = 1, 2
+		return (gstrcpy (GL_TICKFORMAT(p[i]), value, maxch))
+	default:
+	    call syserr (SYS_GSTAT)
+	}
+end