Repatch (from linux) of OSX IRAF

1 files changed, 28 insertions, 0 deletions

diff --git a/sys/gio/gdeact.x b/sys/gio/gdeact.x
new file mode 100644
index 00000000..f61f4133
--- /dev/null
+++ b/sys/gio/gdeact.x
@@ -0,0 +1,28 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gio.h>
+include	<gset.h>
+
+# GDEACTIVATE -- Deactivate the workstation, i.e., for an interactive device
+# (graphics terminal) restore the terminal to text mode.  This is similar to
+# closing the workstation will gclose, except that the graphics state is
+# retained and graphics i/o may be resumed following a subsequent call to
+# greactivate.  These calls are generally no-ops for noninteractive devices.
+
+procedure gdeactivate (gp, flags)
+
+pointer	gp			# graphics descriptor
+int	flags			# action flags
+
+int	and()
+errchk	gflush
+errchk	gki_deactivatews
+
+begin
+	if (and (GP_GFLAGS(gp), GF_WSOPEN) != 0) {
+	    call gflush (gp)
+	    call gki_deactivatews (GP_FD(gp), flags)
+	    if (and (GP_GFLAGS(gp), GF_WSACTIVE) != 0)
+		GP_GFLAGS(gp) = GP_GFLAGS(gp) - GF_WSACTIVE
+	}
+end