1 files changed, 37 insertions, 0 deletions
diff --git a/sys/gio/gim/gimwiomap.x b/sys/gio/gim/gimwiomap.x
new file mode 100644
index 00000000..a756a235
--- /dev/null
+++ b/sys/gio/gim/gimwiomap.x
@@ -0,0 +1,37 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gio.h>
+include	<gescape.h>
+
+# GIM_IOMAPWRITE -- Write to the iomap.  The iomap maps client pixel values
+# (colors) to gterm widget pixel value (widget colormap indices).  The iomap
+# should be set only if the client application does not use the gterm widget
+# color model.  iomap[i] gives the widget colormap index corresponding to
+# client pixel I.
+
+procedure gim_iomapwrite (gp, iomap, first, nelem)
+
+pointer	gp			#I graphics descriptor
+int	iomap[ARB]		#I iomap data
+int	first			#I first iomap entry to be written
+int	nelem			#I number of elements to write
+
+pointer	sp, data
+short	gim[GIM_WRITEIOMAP_LEN]
+errchk	gpl_flush
+
+begin
+	call gpl_flush()
+
+	call smark (sp)
+	call salloc (data, nelem, TY_SHORT)
+
+	gim[GIM_WRITEIOMAP_FC] = first
+	gim[GIM_WRITEIOMAP_NC] = nelem
+
+	call achtis (iomap, Mems[data], nelem)
+	call gki_wescape (GP_FD(gp), GIM_WRITEIOMAP,
+	    gim, GIM_WRITEIOMAP_LEN, Mems[data], nelem)
+
+	call sfree (sp)
+end