From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- 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