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/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