Repatch (from linux) of OSX IRAF

1 files changed, 51 insertions, 0 deletions

diff --git a/sys/imio/imstati.x b/sys/imio/imstati.x
new file mode 100644
index 00000000..0697911b
--- /dev/null
+++ b/sys/imio/imstati.x
@@ -0,0 +1,51 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<syserr.h>
+include	<imhdr.h>
+include	<imset.h>
+include	<imio.h>
+
+# IMSTATI -- Get an IMIO option of type integer.
+
+int procedure imstati (im, option)
+
+pointer	im			#I image descriptor
+int	option			#I imset option being queried
+
+begin
+	switch (option) {
+	case IM_ADVICE:
+	    return (IM_VADVICE(im))
+	case IM_BUFSIZE:
+	    return (IM_VBUFSIZE(im))
+	case IM_BUFFRAC:
+	    return (IM_VBUFFRAC(im))
+	case IM_BUFMAX:
+	    return (IM_VBUFMAX(im))
+	case IM_NBUFS:
+	    return (IM_VNBUFS(im))
+	case IM_COMPRESS:
+	    return (IM_VCOMPRESS(im))
+	case IM_NBNDRYPIX:
+	    return (IM_VNBNDRYPIX(im))
+	case IM_TYBNDRY:
+	    return (IM_VTYBNDRY(im))
+	case IM_FLAGBADPIX:
+	    return (IM_VFLAGBADPIX(im))
+	case IM_PIXFD:
+	    return (IM_PFD(im))
+	case IM_CLOSEFD:
+	    return (IM_VCLOSEFD(im))
+	case IM_WHEADER:
+	    return (IM_UPDATE(im))
+	case IM_PLDES:
+	    return (IM_PL(im))
+	case IM_RLIO:
+	    if (and (IM_PLFLAGS(im), PL_RLIO) != 0)
+		return (YES)
+	    else
+		return (NO)
+	default:
+	    call imerr (IM_NAME(im), SYS_IMSTATUNKPAR)
+	}
+end