Repatch (from linux) of OSX IRAF

1 files changed, 36 insertions, 0 deletions

diff --git a/sys/fmio/fmstati.x b/sys/fmio/fmstati.x
new file mode 100644
index 00000000..82720ade
--- /dev/null
+++ b/sys/fmio/fmstati.x
@@ -0,0 +1,36 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"fmset.h"
+include	"fmio.h"
+
+# FM_STATI -- Query an FMIO integer parameter.
+
+int procedure fm_stati (fm, param)
+
+pointer	fm		#I FMIO descriptor
+int	param		#I parameter code from <fmset.h>
+
+begin
+	switch (param) {
+	case FM_ACMODE:
+	    return (FM_MODE(fm))
+	case FM_MAXLFILES:
+	    return (FM_NLFILES(fm))
+	case FM_MAXPTPAGES:
+	    return (FM_PTILEN(fm))
+	case FM_OSCHAN:
+	    return (FM_CHAN(fm))
+	case FM_PAGESIZE:
+	    return (FM_SZBPAGE(fm))
+	case FM_VERSION:
+	    return (FM_DFVERSION(fm))
+	case FM_OPTFBSIZE:
+	    return (FM_OPTBUFSIZE(fm))
+	case FM_MAXFBSIZE:
+	    return (FM_MAXBUFSIZE(fm))
+	case FM_FCACHESIZE:
+	    return (FM_SZFCACHE(fm))
+	default:
+	    return (ERR)
+	}
+end