diff options
Diffstat (limited to 'noao/onedspec/odcombine/srcwt/xtprocid.x')
| -rw-r--r-- | noao/onedspec/odcombine/srcwt/xtprocid.x | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/noao/onedspec/odcombine/srcwt/xtprocid.x b/noao/onedspec/odcombine/srcwt/xtprocid.x new file mode 100644 index 00000000..0a82d81b --- /dev/null +++ b/noao/onedspec/odcombine/srcwt/xtprocid.x @@ -0,0 +1,38 @@ +# XT_PROCID -- Set or ppdate PROCID keyword. + +procedure xt_procid (im) + +pointer im #I Image header + +int i, j, ver, patmake(), gpatmatch(), strlen(), ctoi() +pointer sp, pat, str + +begin + call smark (sp) + call salloc (pat, SZ_LINE, TY_CHAR) + call salloc (str, SZ_FNAME, TY_CHAR) + + # Get current ID. + iferr (call imgstr (im, "PROCID", Memc[str], SZ_LINE)) { + iferr (call imgstr (im, "OBSID", Memc[str], SZ_LINE)) { + call sfree (sp) + return + } + } + + # Set new PROCID. + ver = 0 + i = patmake ("V[0-9]*$", Memc[pat], SZ_LINE) + if (gpatmatch (Memc[str], Memc[pat], i, j) == 0) + ; + if (j > 0) { + j = i+1 + if (ctoi (Memc[str], j, ver) == 0) + ver = 0 + i = i - 1 + } else + i = strlen (Memc[str]) + call sprintf (Memc[str+i], SZ_LINE, "V%d") + call pargi (ver+1) + call imastr (im, "PROCID", Memc[str]) +end |