diff options
Diffstat (limited to 'pkg/xtools/inlfit/inget.x')
| -rw-r--r-- | pkg/xtools/inlfit/inget.x | 242 |
1 files changed, 242 insertions, 0 deletions
diff --git a/pkg/xtools/inlfit/inget.x b/pkg/xtools/inlfit/inget.x new file mode 100644 index 00000000..aa31a8cb --- /dev/null +++ b/pkg/xtools/inlfit/inget.x @@ -0,0 +1,242 @@ +.help inget + int = in_geti (in, param) + pointer= in_getp (in, param) + real = in_getr (in, param) + double = in_getd (in, param) + in_gstr (in, param, str, maxch) + in_gkey (in, key, axis, type, varnum) +.endhelp + +include <pkg/inlfit.h> +include "inlfitdef.h" + +# IN_GETI -- Get integer valued parameters. + +int procedure in_geti (in, param) + +pointer in # INLFIT pointer +int param # parameter to get + +begin + switch (param) { + case INLFUNCTION: + return (IN_FUNC (in)) + case INLDERIVATIVE: + return (IN_DFUNC (in)) + case INLNPARAMS: + return (IN_NPARAMS (in)) + case INLNFPARAMS: + return (IN_NFPARAMS (in)) + case INLNVARS: + return (IN_NVARS (in)) + case INLNPTS: + return (IN_NPTS (in)) + case INLMAXITER: + return (IN_MAXITER (in)) + case INLNREJECT: + return (IN_NREJECT(in)) + case INLNREJPTS: + return (IN_NREJPTS (in)) + case INLUAXES: + return (IN_UAXES (in)) + case INLUCOLON: + return (IN_UCOLON (in)) + case INLUFIT: + return (IN_UFIT (in)) + case INLOVERPLOT: + return (IN_OVERPLOT (in)) + case INLPLOTFIT: + return (IN_PLOTFIT (in)) + case INLFITERROR: + return (IN_FITERROR (in)) + case INLGKEY: + return (IN_GKEY (in)) + default: + call error (0, "INLFIT, in_geti: Unknown parameter") + } +end + + + +# IN_GET[RD] -- Get real/double valued parameters. + +real procedure in_getr (in, param) + +pointer in # INLFIT pointer +int param # parameter to get + +begin + switch (param) { + case INLTOLERANCE: + return (IN_TOLR (in)) + case INLLOW: + return (IN_LOWR (in)) + case INLHIGH: + return (IN_HIGHR (in)) + case INLGROW: + return (IN_GROWR (in)) + default: + call error (0, "INLFIT, in_get[rd]: Unknown parameter") + } +end + +# IN_GET[RD] -- Get real/double valued parameters. + +double procedure in_getd (in, param) + +pointer in # INLFIT pointer +int param # parameter to get + +begin + switch (param) { + case INLTOLERANCE: + return (IN_TOLD (in)) + case INLLOW: + return (IN_LOWD (in)) + case INLHIGH: + return (IN_HIGHD (in)) + case INLGROW: + return (IN_GROWD (in)) + default: + call error (0, "INLFIT, in_get[rd]: Unknown parameter") + } +end + + + +# IN_GETP -- Get pointer valued parameters. + +pointer procedure in_getp (in, param) + +pointer in # INLFIT pointer +int param # parameter to get + +begin + switch (param) { + case INLPARAM: + return (IN_PARAM (in)) + case INLDPARAM: + return (IN_DPARAM (in)) + case INLPLIST: + return (IN_PLIST (in)) + case INLSFLOAT: + return (IN_SFLOAT (in)) + case INLREJPTS: + return (IN_REJPTS (in)) + case INLXMIN: + return (IN_XMIN (in)) + case INLXMAX: + return (IN_XMAX (in)) + case INLSGAXES: + return (IN_SGAXES (in)) + default: + call error (0, "INLFIT, in_getp: Unknown parameter") + } +end + + +# IN_GETC -- Get character pointer valued parameters. + +pointer procedure in_getc (in, param) + +pointer in # INLFIT pointer +int param # parameter to get + +begin + switch (param) { + case INLLABELS: + return (IN_LABELS (in)) + case INLUNITS: + return (IN_UNITS (in)) + case INLFLABELS: + return (IN_FLABELS (in)) + case INLFUNITS: + return (IN_FUNITS (in)) + case INLPLABELS: + return (IN_PLABELS (in)) + case INLPUNITS: + return (IN_PUNITS (in)) + case INLVLABELS: + return (IN_VLABELS (in)) + case INLVUNITS: + return (IN_VUNITS (in)) + case INLUSERLABELS: + return (IN_USERLABELS (in)) + case INLUSERUNITS: + return (IN_USERUNITS (in)) + case INLHELP: + return (IN_HELP (in)) + case INLPROMPT: + return (IN_PROMPT (in)) + default: + call error (0, "INLFIT, in_getc: Unknown parameter") + } +end + + +# IN_GSTR -- Get string valued parameters. + +procedure in_gstr (in, param, str, maxch) + +pointer in # INLFIT pointer +int param # parameter to get +char str[maxch] # string value +int maxch # maximum number of characters + +begin + switch (param) { + case INLLABELS: + call strcpy (Memc[IN_LABELS (in)], str, maxch) + case INLUNITS: + call strcpy (Memc[IN_UNITS (in)], str, maxch) + case INLFLABELS: + call strcpy (Memc[IN_FLABELS (in)], str, maxch) + case INLFUNITS: + call strcpy (Memc[IN_FUNITS (in)], str, maxch) + case INLPLABELS: + call strcpy (Memc[IN_PLABELS (in)], str, maxch) + case INLPUNITS: + call strcpy (Memc[IN_PUNITS (in)], str, maxch) + case INLVLABELS: + call strcpy (Memc[IN_VLABELS (in)], str, maxch) + case INLVUNITS: + call strcpy (Memc[IN_VUNITS (in)], str, maxch) + case INLUSERLABELS: + call strcpy (Memc[IN_USERLABELS (in)], str, maxch) + case INLUSERUNITS: + call strcpy (Memc[IN_USERUNITS (in)], str, maxch) + case INLHELP: + call strcpy (Memc[IN_HELP (in)], str, maxch) + case INLPROMPT: + call strcpy (Memc[IN_PROMPT (in)], str, maxch) + default: + call error (0, "INLFIT, in_gstr: Unknown parameter") + } +end + + +# IN_GKEY -- Get key parameters. + +procedure in_gkey (in, key, axis, type, varnum) + +pointer in # INLFIT pointer +int key # key to get +int axis # axis number +int type # axis type (output) +int varnum # axis variable number (output) + +begin + # Check ranges + if (key < 1 || key > INLNGKEYS) + call error (0, "INLFIT, in_pkey: Illegal key") + + # Get data + if (axis == INLXAXIS) { + type = IN_GXTYPE (in, key) + varnum = IN_GXNUMBER (in, key) + } else if (axis == INLYAXIS) { + type = IN_GYTYPE (in, key) + varnum = IN_GYNUMBER (in, key) + } else + call error (0, "INLFIT, in_gkey: Illegal axis") +end |