From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 sys/gio/stdgraph/t_stdgraph.x | 110 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 110 insertions(+)
 create mode 100644 sys/gio/stdgraph/t_stdgraph.x

(limited to 'sys/gio/stdgraph/t_stdgraph.x')

diff --git a/sys/gio/stdgraph/t_stdgraph.x b/sys/gio/stdgraph/t_stdgraph.x
new file mode 100644
index 00000000..8d6856fc
--- /dev/null
+++ b/sys/gio/stdgraph/t_stdgraph.x
@@ -0,0 +1,110 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<error.h>
+include	<gset.h>
+include	<gki.h>
+
+define	SZ_TXQUALITY	1
+
+# STDGRAPH -- Graphics kernel for the standard graphics output (interactive
+# graphics terminal).
+
+procedure t_stdgraph()
+
+int	fd, list
+char	txquality[SZ_TXQUALITY]
+pointer	gki, sp, fname, devname
+int	dev[LEN_GKIDD], deb[LEN_GKIDD]
+int	debug, verbose, gkiunits, xres, yres, quality
+bool	clgetb()
+int	clpopni(), clgfil(), open(), btoi(), clgeti()
+int	gki_fetch_next_instruction()
+
+begin
+	call smark (sp)
+	call salloc (fname, SZ_FNAME, TY_CHAR)
+	call salloc (devname, SZ_FNAME, TY_CHAR)
+
+	# Open list of metafiles to be decoded.
+	list = clpopni ("input")
+
+	# Get parameters.
+	call clgstr ("device", Memc[devname], SZ_FNAME)
+
+	if (clgetb ("generic")) {
+	    debug = NO
+	    verbose = NO
+	    gkiunits = NO
+	    quality = 0
+	    xres = 0
+	    yres = 0
+
+	} else {
+	    debug = btoi (clgetb ("debug"))
+	    if (debug == YES) {
+		verbose = btoi (clgetb ("verbose"))
+		gkiunits = btoi (clgetb ("gkiunits"))
+	    }
+
+	    # Get the quality parameter for the text generator.
+	    call clgstr ("txquality", txquality, SZ_TXQUALITY)
+	    switch (txquality[1]) {
+	    case 'l':
+		quality = GT_LOW
+	    case 'm':
+		quality = GT_MEDIUM
+	    case 'h':
+		quality = GT_HIGH
+	    default:
+		quality = 0
+	    }
+
+	    xres     = clgeti ("xres")
+	    yres     = clgeti ("yres")
+	}
+
+	# Open the graphics kernel.
+
+	call stg_open (Memc[devname], dev, STDIN, STDOUT, xres, yres, quality)
+	call gkp_install (deb, STDERR, verbose, gkiunits)
+
+	# Process a list of metacode files, writing the decoded metacode
+	# instructions on the standard output.
+
+	while (clgfil (list, Memc[fname], SZ_FNAME) != EOF) {
+	    # Open input file.
+	    iferr (fd = open (Memc[fname], READ_ONLY, BINARY_FILE)) {
+		call erract (EA_WARN)
+		next
+	    } else
+		call stg_grstream (fd)
+
+	    # Process the metacode instruction stream.
+	    while (gki_fetch_next_instruction (fd, gki) != EOF)
+		switch (Mems[gki+GKI_HDR_OPCODE-1]) {
+		case GKI_CLOSEWS, GKI_DEACTIVATEWS, GKI_REACTIVATEWS:
+		    # These instructions are passed directly to the kernel via
+		    # the PSIOCTRL stream at runtime, but are ignored in
+		    # metacode to avoid unnecessary mode switching of the
+		    # terminal.
+		    ;
+		default:
+		    if (debug == YES)
+			call gki_execute (Mems[gki], deb)
+		    call gki_execute (Mems[gki], dev)
+		}
+
+	    call close (fd)
+	}
+
+	# Make sure we finish with CLOSEWS so that the terminal is left in
+	# text mode.
+
+	call stg_closews (NULL, NULL)
+
+	# Finish up.
+	call gkp_close()
+	call stg_close()
+	call clpcls (list)
+	call sfree (sp)
+end
-- 
cgit