Repatch (from linux) of OSX IRAF

1 files changed, 188 insertions, 0 deletions

diff --git a/pkg/xtools/inlfit/input.gx b/pkg/xtools/inlfit/input.gx
new file mode 100644
index 00000000..4fac25a5
--- /dev/null
+++ b/pkg/xtools/inlfit/input.gx
@@ -0,0 +1,188 @@
+.help input
+	in_puti (in, param, ival)
+	in_putr (in, param, rval)
+	in_putd (in, param, dval)
+	in_putp (in, param, pval)
+	in_pstr (in, param, str)
+	in_pkey (in, key, axis, type, varnum)
+.endhelp
+
+include	<pkg/inlfit.h>
+include "inlfitdef.h"
+
+
+# IN_PUTI -- Put integer valued parameters.
+
+procedure in_puti (in, param, ival)
+
+pointer	in			# INLFIT pointer
+int	param			# parameter to put
+int	ival			# integer value
+
+begin
+	switch (param) {
+	case INLFUNCTION:
+	    IN_FUNC (in) = ival
+	case INLDERIVATIVE:
+	    IN_DFUNC (in) = ival
+	case INLNPARAMS:
+	    IN_NPARAMS (in) = ival
+	case INLNFPARAMS:
+	    IN_NFPARAMS (in) = ival
+	case INLNVARS:
+	    IN_NVARS (in) = ival
+	case INLNPTS:
+	    IN_NPTS (in) = ival
+	case INLMAXITER:
+	    IN_MAXITER (in) = ival
+	case INLNREJECT:
+	    IN_NREJECT (in) = ival
+	case INLNREJPTS:
+	    IN_NREJPTS (in) = ival
+	case INLUAXES:
+	    IN_UAXES (in) = ival
+	case INLUCOLON:
+	    IN_UCOLON (in) = ival
+	case INLUFIT:
+	    IN_UFIT (in) = ival
+	case INLOVERPLOT:
+	    IN_OVERPLOT (in) = ival
+	case INLPLOTFIT:
+	    IN_PLOTFIT (in) = ival
+	case INLFITERROR:
+	    IN_FITERROR (in) = ival
+	case INLGKEY:
+	    if (ival < 1 || ival > INLNGKEYS)
+		call error (0, "INLFIT, in_puti: Bad key number (INLGKEY)")
+	    IN_GKEY (in) = ival
+	default:
+	    call error (0, "INLFIT, in_puti: Unknown parameter")
+	}
+end
+
+
+$for (rd)
+# IN_PUT[RD] -- Put real/double valued parameters.
+
+procedure in_put$t (in, param, $tval)
+
+pointer	in			# INLFIT pointer
+int	param			# parameter to put
+PIXEL	$tval			# value
+
+begin
+	switch (param) {
+	case INLTOLERANCE:
+	    IN_TOL$T (in) = $tval
+	case INLLOW:
+	    IN_LOW$T (in) = $tval
+	case INLHIGH:
+	    IN_HIGH$T (in) = $tval
+	case INLGROW:
+	    IN_GROW$T (in) = $tval
+	default:
+	    call error (0, "INLFIT, in_put[rd]: Unknown parameter")
+	}
+end
+$endfor
+
+
+# IN_PUTP -- Put pointer valued parameters.
+
+procedure in_putp (in, param, pval)
+
+pointer	in			# INLFIT pointer
+int	param			# parameter to put
+pointer	pval			# pointer value
+
+begin
+	switch (param) {
+	case INLPARAM:
+	    IN_PARAM (in) = pval
+	case INLDPARAM:
+	    IN_DPARAM (in) = pval
+	case INLPLIST:
+	    IN_PLIST (in) = pval
+	case INLSFLOAT:
+	    IN_SFLOAT (in) = pval
+	case INLREJPTS:
+	    IN_REJPTS (in) = pval
+	case INLXMIN:
+	    IN_XMIN (in) = pval
+	case INLXMAX:
+	    IN_XMAX (in) = pval
+	case INLSGAXES:
+	    IN_SGAXES (in) = pval
+	default:
+	    call error (0, "INLFIT, in_putp: Unknown parameter")
+	}
+end
+
+
+# IN_PSTR -- Put string valued parameters.
+
+procedure in_pstr (in, param, str)
+
+pointer	in			# INLFIT pointer
+int	param			# parameter to put
+char	str[ARB]		# string value
+
+begin
+	switch (param) {
+	case INLLABELS:
+	    call strcpy (str, Memc[IN_LABELS (in)], SZ_LINE)
+	case INLUNITS:
+	    call strcpy (str, Memc[IN_UNITS (in)], SZ_LINE)
+	case INLFLABELS:
+	    call strcpy (str, Memc[IN_FLABELS (in)], SZ_LINE)
+	case INLFUNITS:
+	    call strcpy (str, Memc[IN_FUNITS (in)], SZ_LINE)
+	case INLPLABELS:
+	    call strcpy (str, Memc[IN_PLABELS (in)], SZ_LINE)
+	case INLPUNITS:
+	    call strcpy (str, Memc[IN_PUNITS (in)], SZ_LINE)
+	case INLVLABELS:
+	    call strcpy (str, Memc[IN_VLABELS (in)], SZ_LINE)
+	case INLVUNITS:
+	    call strcpy (str, Memc[IN_VUNITS (in)], SZ_LINE)
+	case INLUSERLABELS:
+	    call strcpy (str, Memc[IN_USERLABELS (in)], SZ_LINE)
+	case INLUSERUNITS:
+	    call strcpy (str, Memc[IN_USERUNITS (in)], SZ_LINE)
+	case INLHELP:
+	    call strcpy (str, Memc[IN_HELP (in)], SZ_FNAME)
+	case INLPROMPT:
+	    call strcpy (str, Memc[IN_PROMPT (in)], SZ_FNAME)
+	default:
+	    call error (0, "INLFIT, in_pstr: Unknown parameter")
+	}
+end
+
+
+# IN_PKEY -- Put key parameters.
+
+procedure in_pkey (in, key, axis, type, varnum)
+
+pointer	in			# INLFIT pointer
+int	key			# key to put
+int	axis			# axis number
+int	type			# axis type
+int	varnum			# axis variable number
+
+begin
+	# Check ranges
+	if (key < 1 || key > INLNGKEYS)
+	    call error (0, "INLFIT, in_pkey: Illegal key")
+	if (type < KEY_MIN || type > KEY_MAX)
+	    call error (0, "INLFIT, in_pkey: Illegal key type")
+	
+	# Enter data
+	if (axis == INLXAXIS) {
+	    IN_GXTYPE   (in, key) = type
+	    IN_GXNUMBER (in, key) = varnum
+	} else if (axis == INLYAXIS) {
+	    IN_GYTYPE   (in, key) = type
+	    IN_GYNUMBER (in, key) = varnum
+	} else
+	    call error (0,"INLFIT, in_pkey: Illegal axis number")
+end