Repatch (from linux) of OSX IRAF

1 files changed, 58 insertions, 0 deletions

diff --git a/sys/etc/psioisxt.x b/sys/etc/psioisxt.x
new file mode 100644
index 00000000..ddebd7df
--- /dev/null
+++ b/sys/etc/psioisxt.x
@@ -0,0 +1,58 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<syserr.h>
+include	<ctype.h>
+include	<gio.h>
+
+
+# PSIO_ISXMIT -- Test for a pseudofile directive.  Return XMIT, XFER, or DATA
+# as the function value, and if we do have a pseudofile, decode the pseudofile
+# number and char count.
+#
+# Syntax: "xmit(P,NNN)" or "xfer(P,NNN)"
+#          12345678         12345678
+#
+# where P is the pseudofile code (0<P<10) and NNN is the size of the data block
+# in chars.  In the following code all explicit integer constants refer to the
+# character offsets shown above.
+
+int procedure psio_isxmit (lbuf, pseudofile, nchars)
+
+char	lbuf[ARB]		# text
+int	pseudofile		# pseudofile code (output)
+int	nchars			# block size (output)
+int	line_type, ip
+int	ctoi()
+errchk	syserr
+
+begin
+	# Decode line type.  If we are called we have already determined that
+	# lbuf[1] is 'x'.
+
+	if (lbuf[2] == 'm') {
+	    if (lbuf[3] == 'i' && lbuf[4] == 't' && lbuf[5] == '(')
+		line_type = XMIT
+	    else
+		return (DATA)
+	} else if (lbuf[2] == 'f') {
+	    if (lbuf[3] == 'e' && lbuf[4] == 'r' && lbuf[5] == '(')
+		line_type = XFER
+	    else
+		return (DATA)
+	} else
+	    return (DATA)
+	
+	# Get pseudofile code.
+	ip = 6
+	if (ctoi (lbuf, ip, pseudofile) <= 0)
+	    call syserr (SYS_PRIPCSYNTAX)
+
+	while (lbuf[ip] == ',' || IS_WHITE(lbuf[ip]))
+	    ip = ip + 1
+
+	# Get char size of data block.
+	if (ctoi (lbuf, ip, nchars) <= 0)
+	    call syserr (SYS_PRIPCSYNTAX)
+
+	return (line_type)
+end