Repatch (from linux) of OSX IRAF

1 files changed, 21 insertions, 0 deletions

diff --git a/sys/etc/errget.x b/sys/etc/errget.x
new file mode 100644
index 00000000..e2ba10a9
--- /dev/null
+++ b/sys/etc/errget.x
@@ -0,0 +1,21 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<error.h>
+
+# ERRGET -- Return the integer code and descriptive error message string
+# of the last error posted.  The error code is set to a positive nonnegative
+# integer by a call to ERROR or FATAL, and is cleared (set to OK) whenever
+# an IFERR block is entered.  Note that if we are called from within an error
+# handler (true part of an IFERR block), xerflg is false, so we cannot test
+# xerflg to see if an error occurred.
+
+int procedure errget (outstr, maxch)
+
+char	outstr[maxch]		# error message
+int	maxch
+include	"error.com"
+
+begin
+	call xer_fmterrmsg (xermsg, outstr, maxch)
+	return (xercod)
+end