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/gks/gks.com | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 sys/gio/gks/gks.com

(limited to 'sys/gio/gks/gks.com')

diff --git a/sys/gio/gks/gks.com b/sys/gio/gks/gks.com
new file mode 100644
index 00000000..63c20568
--- /dev/null
+++ b/sys/gio/gks/gks.com
@@ -0,0 +1,10 @@
+# Common for GKS emulator.
+
+pointer	gp[NDEV]	# Graphics file descriptor for gio calls
+int	gk_status[NDEV]	# Active bit = INACTIVE or ACTIVE
+int	gk_std		# Index of gp array used for reference in set/get calls
+int	gk_style	# Fill area type of fill - set by GSFAIS
+int	gk_marker	# Marker type for use by GPM
+int	gk_asf[NASF]	# Array for maintaining aspect source flags
+
+common /gksemu/ gp, gk_status, gk_std, gk_style, gk_marker, gk_asf
-- 
cgit