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/iwfind.x | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 sys/mwcs/iwfind.x (limited to 'sys/mwcs/iwfind.x') diff --git a/sys/mwcs/iwfind.x b/sys/mwcs/iwfind.x new file mode 100644 index 00000000..e400f9ee --- /dev/null +++ b/sys/mwcs/iwfind.x @@ -0,0 +1,34 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include "imwcs.h" + +# IW_FINDCARD -- Search the card list in the IMWCS descriptor for a card of +# the given type, with the given axis and index numbers. Return a pointer to +# the card if found, else NULL. + +pointer procedure iw_findcard (iw, type, axis, index) + +pointer iw #I pointer to IMWCS descriptor +int type #I card type code +int axis #I axis number, or <0 to ignore +int index #I index number, or <=0 to ignore + +int i +pointer cp + +begin + do i = 1, IW_NCARDS(iw) { + cp = IW_CARD(iw,i) + if (C_TYPE(cp) != type) + next + if (axis >= 0) + if (C_AXIS(cp) != axis) + next + if (index > 0) + if (C_INDEX(cp) != index) + next + return (cp) + } + + return (NULL) +end -- cgit