From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- noao/digiphot/photcal/mctable/mctindef.x | 40 ++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 noao/digiphot/photcal/mctable/mctindef.x (limited to 'noao/digiphot/photcal/mctable/mctindef.x') diff --git a/noao/digiphot/photcal/mctable/mctindef.x b/noao/digiphot/photcal/mctable/mctindef.x new file mode 100644 index 00000000..f3e3427c --- /dev/null +++ b/noao/digiphot/photcal/mctable/mctindef.x @@ -0,0 +1,40 @@ +include "../lib/mctable.h" + + +# MCT_INDEF - Fill table buffer with undefined values, acording to the +# data type used. + +procedure mct_indef (table, buffer, npts) + +pointer table # table descriptor +pointer buffer # buffer to clear +int npts # number of untis to clear + +char cval +short sval + +begin + # Clear according to data type. + switch (MCT_TYPE (table)) { + case TY_CHAR: + cval = '\000' + call amovkc (cval, Memc[buffer], npts) + case TY_SHORT: + sval = INDEFS + call amovks (sval, Mems[buffer], npts) + case TY_INT: + call amovki (INDEFI, Memi[buffer], npts) + case TY_LONG: + call amovkl (INDEFL, Meml[buffer], npts) + case TY_REAL: + call amovkr (INDEFR, Memr[buffer], npts) + case TY_DOUBLE: + call amovkd (INDEFD, Memd[buffer], npts) + case TY_COMPLEX: + call amovkx (INDEFX, Memx[buffer], npts) + case TY_POINTER: + call amovki (NULL, Memi[buffer], npts) + default: + call error (0, "mct_indef: Unknown data type") + } +end -- cgit