Repatch (from linux) of OSX IRAF

1 files changed, 25 insertions, 0 deletions

diff --git a/sys/fmtio/fmterr.x b/sys/fmtio/fmterr.x
new file mode 100644
index 00000000..7a341764
--- /dev/null
+++ b/sys/fmtio/fmterr.x
@@ -0,0 +1,25 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# FMT_ERR -- Print the format string on the standard error output, marking
+# the position within the string to which the error refers.
+
+procedure fmt_err (preamble, format, index)
+
+char	preamble[ARB], format[ARB]
+int	index, ip
+
+begin
+	call putline (STDERR, "(")
+	call putline (STDERR, preamble)
+	call putline (STDERR, "format = \"")
+
+	for (ip=1;  ip < index && format[ip] != EOS;  ip=ip+1)
+	    call putcc (STDERR, format[ip])
+
+	if (format[ip] != EOS) {			# mark position of error
+	    call putline (STDERR, "<>")
+	    for (;  format[ip] != EOS;  ip=ip+1)
+		call putcc (STDERR, format[ip])
+	}
+	call putline (STDERR, "\")\n")
+end