Repatch (from linux) of OSX IRAF

1 files changed, 23 insertions, 0 deletions

diff --git a/sys/fmtio/fmtread.x b/sys/fmtio/fmtread.x
new file mode 100644
index 00000000..e7506ab9
--- /dev/null
+++ b/sys/fmtio/fmtread.x
@@ -0,0 +1,23 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<printf.h>
+
+# FMT_READ -- Read and interpret a format specification.  Called in
+# circumstances where a NOT_DONE_YET return from FPRFMT is certain to
+# indicate a missing PARGI type argument.  If this happens, print warning
+# message, and exhaust format string so that default formats will be used.
+
+procedure fmt_read()
+
+int	fprfmt()
+include	"fmt.com"
+
+begin
+	while (fprfmt(0) != ALL_DONE) {			# read format
+	    call putline (STDERR, "Warning: Missing argument to printf\n")
+	    call fmt_err ("", format, ip)
+	    while (format[ip] != EOS)			# discard rest of format
+		ip = ip + 1
+	    fmt_state = FMT_START			# set defaults
+	}
+end