1 files changed, 44 insertions, 0 deletions
diff --git a/sys/gio/gki/gkigetwcs.x b/sys/gio/gki/gkigetwcs.x
new file mode 100644
index 00000000..f6aa07c2
--- /dev/null
+++ b/sys/gio/gki/gkigetwcs.x
@@ -0,0 +1,44 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<config.h>
+include	<syserr.h>
+include	<gki.h>
+
+# GKI_GETWCS -- Retrieve the WCS from the CL process.  Used when opening a
+# (non-metafile) device in append mode.
+#
+# BOI GKI_GETWCS L N
+#
+#        L(i)           3
+#	 N(i)		number of words of WCS data to be read
+
+procedure gki_getwcs (fd, wcs, len_wcs)
+
+int	fd			# input/output file
+int	wcs[ARB]		# array of WCS structures (output)
+int	len_wcs			# number of ints (struct units) in array
+
+int	nchars, nwords, read()
+short	gki[GKI_GETWCS_LEN]
+data	gki[1] /BOI/, gki[2] /GKI_GETWCS/, gki[3] /GKI_GETWCS_LEN/
+errchk	syserr, read, write, flush
+include	"gki.com"
+
+begin
+	nwords = (len_wcs * SZ_INT / SZ_SHORT)
+	gki[GKI_GETWCS_N] = nwords
+
+	# Request CL to send SETWCS instruction back to us.  The directive
+	# must be sent on the pseudofile control stream.
+
+	call write (PSIOCTRL, fd, SZ_INT32)
+	call write (PSIOCTRL, gki, GKI_GETWCS_LEN * SZ_SHORT)
+	call flush (PSIOCTRL)
+
+	# Read the wcs data.  This is returned on the process CLIN channel 
+	# by the CL.
+
+	nchars = nwords * SZ_SHORT
+	if (read (CLIN, wcs, nchars) != nchars)
+	    call syserr (SYS_GGETWCS)
+end