Repatch (from linux) of OSX IRAF

1 files changed, 59 insertions, 0 deletions

diff --git a/sys/gio/gki/gkiwesc.x b/sys/gio/gki/gkiwesc.x
new file mode 100644
index 00000000..bd4c8571
--- /dev/null
+++ b/sys/gio/gki/gkiwesc.x
@@ -0,0 +1,59 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<config.h>
+include	<gki.h>
+
+# GKI_WESCAPE -- Write a GKI escape instruction, used to pass device
+# dependent instructions on to a graphics kernel.  This version of gki_escape
+# is used in cases where the escape instruction consists of the escape header
+# followed by a block of data, and it is inconvenient to have to combine the
+# header and the data into one array.
+#
+# BOI GKI_ESCAPE L FN N DC
+#
+#        L(i)            5 + N
+#        FN(i)           escape function code
+#        N(i)            number of escape data words
+#        DC(i)           escape data words
+
+procedure gki_wescape (fd, fn, hdr, hdrlen, data, datalen)
+
+int	fd		#I output file
+int	fn		#I escape function code
+short	hdr[ARB]	#I escape instruction header
+int	hdrlen		#I header length, shorts
+short	data[ARB]	#I escape instruction data
+int	datalen		#I data length, shorts
+
+pointer	sp, buf
+int	epa, nwords
+short	gki[GKI_ESCAPE_LEN]
+data	gki[1] /BOI/, gki[2] /GKI_ESCAPE/
+include	"gki.com"
+
+begin
+	nwords = hdrlen + datalen
+
+	if (IS_INLINE(fd)) {
+	    call smark (sp)
+	    call salloc (buf, nwords, TY_SHORT)
+
+	    call amovs (hdr, Mems[buf], hdrlen)
+	    call amovs (data, Mems[buf+hdrlen], datalen)
+
+	    epa = gk_dd[GKI_ESCAPE]
+	    if (epa != 0)
+		call zcall3 (epa, fn, Mems[buf], nwords)
+
+	    call sfree (sp)
+
+	} else {
+	    gki[GKI_ESCAPE_L]  = GKI_ESCAPE_LEN + nwords
+	    gki[GKI_ESCAPE_N]  = nwords
+	    gki[GKI_ESCAPE_FN] = fn
+
+	    call write (gk_fd[fd], gki, GKI_ESCAPE_LEN * SZ_SHORT)
+	    call write (gk_fd[fd], hdr, hdrlen * SZ_SHORT)
+	    call write (gk_fd[fd], data, datalen * SZ_SHORT)
+	}
+end