From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- sys/mwcs/mwstati.x | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 sys/mwcs/mwstati.x (limited to 'sys/mwcs/mwstati.x') diff --git a/sys/mwcs/mwstati.x b/sys/mwcs/mwstati.x new file mode 100644 index 00000000..03e80587 --- /dev/null +++ b/sys/mwcs/mwstati.x @@ -0,0 +1,36 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include +include +include "mwcs.h" + +# MW_STATI -- Get the value of a MWCS interface parameter. + +int procedure mw_stati (mw, param) + +pointer mw #I pointer to MWCS descriptor +int param #I parameter code as defined in + +begin + switch (param) { + case MW_NDIM: + if (MI_USEAXMAP(mw) == NO) + return (MI_NDIM(mw)) + else + return (MI_NLOGDIM(mw)) + case MW_NWCS: + return (MI_NWCS(mw)) + case MW_REFIM: + return (MI_REFIM(mw)) + case MW_USEAXMAP: + return (MI_USEAXMAP(mw)) + case MW_NPHYSDIM: + return (MI_NDIM(mw)) + case MW_SAVELEN: + return (MI_LEN(mw) * SZ_STRUCT + MI_DBUFUSED(mw) * SZ_DOUBLE + + (MI_SBUFUSED(mw) + SZB_CHAR-1) / SZB_CHAR) + default: + call syserr (SYS_MWSTAT) + } +end -- cgit