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/mwflookup.x | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 sys/mwcs/mwflookup.x (limited to 'sys/mwcs/mwflookup.x') diff --git a/sys/mwcs/mwflookup.x b/sys/mwcs/mwflookup.x new file mode 100644 index 00000000..e9f28f8d --- /dev/null +++ b/sys/mwcs/mwflookup.x @@ -0,0 +1,31 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include "mwcs.h" + +# MW_FLOOKUP -- Look up the named WCS function in the driver table, and +# return the index of the associated driver. ERR is returned if the named +# function is not found, 0 if the function is "linear", otherwise the +# index of the function driver is returned. + +int procedure mw_flookup (mw, fnname) + +pointer mw #I pointer to MWCS descriptor +char fnname[ARB] #I function to be lookup up + +int fn, i +bool streq() +include "mwcs.com" + +begin + if (streq (fnname, "linear")) + return (F_LINEAR) + + fn = ERR + do i = 1, fn_nfn + if (streq (fnname, FN_NAME(i))) { + fn = i + break + } + + return (fn) +end -- cgit