Repatch (from linux) of OSX IRAF

1 files changed, 44 insertions, 0 deletions

diff --git a/sys/tty/ttyload.x b/sys/tty/ttyload.x
new file mode 100644
index 00000000..117575b8
--- /dev/null
+++ b/sys/tty/ttyload.x
@@ -0,0 +1,44 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# TTYLOAD -- Search the database of compiled TERMCAP entries for the named
+# device, and if found, return the CAPLIST string (list of device capabilities)
+# in the output string.  The number of characters output is returned as the
+# function value.  The compiled database is defined by the include file
+# "cachet.dat", which serves as a cache for the TERMCAP entries of heavily
+# used devices (see TTYCOMPILE).
+# 
+# N.B.: This file can serve as a template for generating TTYLOAD procedures
+# for devices other than the terminal.  Change the name TTYLOAD to something
+# else, change the name of the include file, generate a different include file
+# with TTYCOMPILE, and you are in business.
+
+int procedure ttyload (fname, device, outstr, maxch)
+
+char	fname[ARB]		# name of termcap file being referenced
+char	device[ARB]		# device name as in TERMCAP entry
+char	outstr[maxch]		# output string to receive caplist
+int	maxch
+
+int	dev
+bool	streq(), strne()
+int	gstrcpy()
+
+include	"dev$cachet.dat"
+
+begin
+	# If the name of the file being referenced is not the same as the
+	# name of the file used to build the cache, then the cache is
+	# invalidated.
+
+	if (strne (fname, sbuf[termcap_filename]))
+	    return (0)
+
+	# NDEVICES, DEVNAME, DEVCAPS, and SBUF are defined and initialized
+	# in the include file.
+
+	do dev = 1, ndevices
+	    if (streq (sbuf[devname[dev]], device))
+		return (gstrcpy (sbuf[devcaps[dev]], outstr, maxch))
+
+	return (0)
+end