Repatch (from linux) of OSX IRAF

1 files changed, 29 insertions, 0 deletions

diff --git a/sys/gio/gpagefile.x b/sys/gio/gpagefile.x
new file mode 100644
index 00000000..df950e71
--- /dev/null
+++ b/sys/gio/gpagefile.x
@@ -0,0 +1,29 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<error.h>
+include	<gset.h>
+include	<gio.h>
+
+# GPAGEFILE -- File pager which works in or out of cursor mode.  If in graphics
+# mode, the workstation is deactivated, the file paged, and graphics mode later
+# restored.
+
+procedure gpagefile (gp, fname, prompt)
+
+pointer	gp			# graphics descriptor
+char	fname[ARB]		# name of file to be paged
+char	prompt[ARB]		# user prompt string
+
+bool	wsactive
+int	and()
+
+begin
+	wsactive = (and (GP_GFLAGS(gp), GF_WSACTIVE) != 0)
+
+	if (wsactive)
+	    call gdeactivate (gp, 0)
+	iferr (call pagefile (fname, prompt))
+	    call erract (EA_WARN)
+	if (wsactive)
+	    call greactivate (gp, AW_PAUSE)
+end