Repatch (from linux) of OSX IRAF

1 files changed, 37 insertions, 0 deletions

diff --git a/sys/gio/stdgraph/zzdebug.x b/sys/gio/stdgraph/zzdebug.x
new file mode 100644
index 00000000..ce11d4ea
--- /dev/null
+++ b/sys/gio/stdgraph/zzdebug.x
@@ -0,0 +1,37 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+task	slio = t_slio
+
+procedure t_slio()
+
+pointer	gp
+char	lbuf[SZ_LINE]
+real	x[5], y[5]
+
+pointer	gopen()
+int	getline()
+
+begin
+	x[1] = .25;  y[1] = .25
+	x[2] = .75;  y[2] = .25
+	x[3] = .75;  y[3] = .75
+	x[4] = .25;  y[4] = .75
+	x[5] = .25;  y[5] = .25
+
+	gp = gopen ("stdgraph", NEW_FILE, STDGRAPH)
+	call gpline (gp, x, y, 5)
+	call gflush (gp)
+
+	call putline (STDOUT, "enter text: ")
+	call flush (STDOUT)
+
+	if (getline (STDIN, lbuf) != EOF) {
+	    call zwmsec (3000)
+	    call printf ("text = %s")
+		call pargstr (lbuf)
+	    call flush (STDOUT)
+	}
+
+	call zwmsec (3000)
+	call gclose (gp)
+end