Repatch (from linux) of OSX IRAF

1 files changed, 30 insertions, 0 deletions

diff --git a/sys/etc/prpsload.x b/sys/etc/prpsload.x
new file mode 100644
index 00000000..c44eea03
--- /dev/null
+++ b/sys/etc/prpsload.x
@@ -0,0 +1,30 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include <config.h>
+
+# PRPSLOAD -- Must be called at process startup time to initialize pseudofile
+# i/o for the graphics streams, if any i/o to the graphics pseudofiles is
+# expected.  The arguments are the LOCPR entry point addresses of the graphics
+# driver (gio.cursor) procedures to be called to process i/o requests on the
+# graphics streams.
+
+procedure prpsload (giotr, control, gflush, writep, readtty, writetty)
+
+extern	giotr()			#I gio.cursor driver procedures
+extern	control()		#I	"		"
+extern	gflush()		#I	"		"
+extern	writep()		#I	"		"
+extern	readtty()		#I	"		"
+extern	writetty()		#I	"		"
+
+int	locpr()
+include	"prc.com"
+
+begin
+	epa_giotr	= locpr (giotr)
+	epa_control	= locpr (control)
+	epa_gflush	= locpr (gflush)
+	epa_writep	= locpr (writep)
+	epa_readtty	= locpr (readtty)
+	epa_writetty	= locpr (writetty)
+end