diff options
Diffstat (limited to 'noao/onedspec/identify/autoid/aidset.x')
| -rw-r--r-- | noao/onedspec/identify/autoid/aidset.x | 162 |
1 files changed, 162 insertions, 0 deletions
diff --git a/noao/onedspec/identify/autoid/aidset.x b/noao/onedspec/identify/autoid/aidset.x new file mode 100644 index 00000000..5905002b --- /dev/null +++ b/noao/onedspec/identify/autoid/aidset.x @@ -0,0 +1,162 @@ +include "autoid.h" + +define AIDSET "|reflist|refspec|crval|cdelt|crpix|crquad|crsearch|cdsearch\ + |cddir|ntarget|nreference|aidord|maxnl|nbins|nneighbors\ + |npattern|sigma|nfound|rms|fmatch|ftmatch|minratio|ndmax\ + |debug|nbest|wrms|wfmatch|wftmatch|" + + +# AID_SETS -- Set AID parameters by name. +# If the first word of the value field is "CL" or "ENV" then the second +# word is the CL parameter name or environment variable name to use +# for the value. + +procedure aid_sets (aid, param, value) + +pointer aid #I AID object +char param[ARB] #I Parameter name +char value[ARB] #I Value + +int i, j, strdic(), strncmp(), envfind(), nowhite(), ctoi(), ctor(), ctod() +pointer sp, str + +begin + call smark (sp) + call salloc (str, SZ_LINE, TY_CHAR) + + i = strdic (param, Memc[str], SZ_LINE, AIDSET) + + if (strncmp ("CL ", value, 3) == 0) + call clgstr (value[4], Memc[str], SZ_LINE) + else if (strncmp ("ENV ", value, 4) == 0) { + if (envfind (value[5], Memc[str], SZ_LINE) <= 0) + Memc[str] = EOS + } else + call strcpy (value, Memc[str], SZ_LINE) + j = nowhite (Memc[str], Memc[str], SZ_LINE) + + j = 1 + switch (i) { + case 1: + call strcpy (Memc[str], AID_REFLIST(aid), AID_SZLINE) + case 2: + call strcpy (Memc[str], AID_REFSPEC(aid), AID_SZLINE) + case 3: + call strcpy (Memc[str], AID_CR(aid), AID_SZLINE) + case 4: + call strcpy (Memc[str], AID_CD(aid), AID_SZLINE) + case 5: + call strcpy (Memc[str], AID_CP(aid), AID_SZLINE) + case 6: + i = ctod (Memc[str], j, AID_CRQUAD(aid)) + case 7: + call strcpy (Memc[str], AID_CRS(aid), AID_SZLINE) + case 8: + call strcpy (Memc[str], AID_CDS(aid), AID_SZLINE) + case 9: + AID_CDDIR(aid) = strdic (Memc[str], Memc[str], SZ_LINE, CDDIR) + if (AID_CDDIR(aid) == 0) + AID_CDDIR(aid) = CDUNKNOWN + case 10: + i = ctoi (Memc[str], j, AID_NTMAX(aid)) + case 11: + i = ctoi (Memc[str], j, AID_NRMAX(aid)) + case 12: + i = ctoi (Memc[str], j, AID_ORD(aid)) + call ic_puti (AID_IC1(aid), "order", AID_ORD(aid)) + case 13: + i = ctor (Memc[str], j, AID_MAXNL(aid)) + case 14: + i = ctoi (Memc[str], j, AID_NB(aid)) + case 15: + i = ctoi (Memc[str], j, AID_NN(aid)) + case 16: + i = ctoi (Memc[str], j, AID_NP(aid)) + case 17: + i = ctor (Memc[str], j, AID_SIG(aid)) + case 18: + i = ctoi (Memc[str], j, AID_NFOUND(aid)) + case 19: + i = ctor (Memc[str], j, AID_RMSG(aid)) + case 20: + i = ctor (Memc[str], j, AID_FMATCHG(aid)) + case 21: + i = ctor (Memc[str], j, AID_FTMATCHG(aid)) + case 22: + i = ctor (Memc[str], j, AID_MINRATIO(aid)) + case 23: + i = ctoi (Memc[str], j, AID_NDMAX(aid)) + case 24: + call strcpy (Memc[str], AID_DEBUG(aid,1), AID_SZLINE) + case 25: + i = ctoi (Memc[str], j, AID_NBEST(aid)) + case 26: + i = ctor (Memc[str], j, AID_WRMS(aid)) + case 27: + i = ctor (Memc[str], j, AID_WFMATCH(aid)) + case 28: + i = ctor (Memc[str], j, AID_WFTMATCH(aid)) + } + + call sfree (sp) +end + + +# AID_SETI -- Set integer AID parameters. + +procedure aid_seti (aid, param, ival) + +pointer aid #I AID object +char param[ARB] #I Parameter name +int ival #I Value + +pointer sp, str + +begin + call smark (sp) + call salloc (str, SZ_FNAME, TY_CHAR) + call sprintf (Memc[str], SZ_FNAME, "%d") + call pargi (ival) + call aid_sets (aid, param, Memc[str]) + call sfree (sp) +end + + +# AID_SETR -- Set real AID parameters. + +procedure aid_setr (aid, param, rval) + +pointer aid #I AID object +char param[ARB] #I Parameter name +real rval #I Value + +pointer sp, str + +begin + call smark (sp) + call salloc (str, SZ_FNAME, TY_CHAR) + call sprintf (Memc[str], SZ_FNAME, "%g") + call pargr (rval) + call aid_sets (aid, param, Memc[str]) + call sfree (sp) +end + + +# AID_SETD -- Set double AID parameters. + +procedure aid_setd (aid, param, dval) + +pointer aid #I AID object +char param[ARB] #I Parameter name +double dval #I Value + +pointer sp, str + +begin + call smark (sp) + call salloc (str, SZ_FNAME, TY_CHAR) + call sprintf (Memc[str], SZ_FNAME, "%g") + call pargd (dval) + call aid_sets (aid, param, Memc[str]) + call sfree (sp) +end |