diff options
Diffstat (limited to 'src/libcf/cf_proc_check.c')
| -rw-r--r-- | src/libcf/cf_proc_check.c | 124 |
1 files changed, 124 insertions, 0 deletions
diff --git a/src/libcf/cf_proc_check.c b/src/libcf/cf_proc_check.c new file mode 100644 index 0000000..0dd2c72 --- /dev/null +++ b/src/libcf/cf_proc_check.c @@ -0,0 +1,124 @@ +/***************************************************************************** + * Johns Hopkins University + * Center For Astrophysical Sciences + * FUSE + ***************************************************************************** + * + * Synopsis: cf_proc_check(fitsfile *fptr, char *prog_id) + * + * Description: cf_proc_check will determine whether a given calibration + * step is to be performed on the data. + * + * Arguments: fitsfile *fptr Pointer to input file + * char *prog_id Procedure name + * + * History: 05/21/98 emm Begin work. + * 05/21/98 emm finished + * 06/17/98 emm Modified so that the keyword_tab + * structure is read from ed_calfuse.h + * file, which simplifies revisions in + * the order of processing. + * 03/04/99 emm I added use of errflg instead of + * return so that it checks all parms. + * 04/01/03 wvd Change fits_read_key_str to + * FITS_read_key, delete fits_print_err + * 05/20/03 rdr remove part which checks previous steps + * 05/22/03 v1.6 wvd Modify i/o; implement cf_verbose + * 07/23/03 v1.7 wvd Modify i/o + * 09/10/03 v1.8 wvd Bug fix: was printing HIST values + * whenever called with verbose option. + * Now returns TTAG when appropriate. + * 03/17/04 v1.9 wvd Call cf_verbose rather than + * cf_if_warning when program not + * appropriate for HIST data. + * 06/02/04 v1.10 wvd Call cf_verbose rather than + * cf_if_warning when program not + * appropriate for TTAG data. + * 11/26/04 v1.11 wvd If header keyword is set to OMIT, skip + * this step and set keyword to SKIPPED. + * 03/30/05 v1.12 wvd If header keyword is set to SKIPPED, + * skip this step. + * + ****************************************************************************/ + +#include <stdio.h> +#include <string.h> +#include "calfuse.h" + + +int cf_proc_check(fitsfile *fptr, char *prog_id) +{ + char comment[FLEN_CARD], instmode[FLEN_CARD]; + char key_value[FLEN_CARD]; + int j=0, errflg=0, status=0; + + /* The calfuse.h file contains the definitions of keyword_tab, + * NUM_PROC_STEPS, and CALIBRATION_STEP_KEYS. + */ + struct keyword_tab keytab[NUM_PROC_STEPS]=CALIBRATION_STEP_KEYS; + + FITS_read_key(fptr, TSTRING, "INSTMODE", instmode, comment, &status); + + switch (instmode[0]) { + case 'H': + /* Histogram mode */ + /* First, determine if this procedure is even supposed to be + * run on this data. */ + + while ((strncmp(keytab[j].hist_proc,prog_id, + strlen(keytab[j].hist_proc)) != 0) && + (j < NUM_PROC_STEPS)) j++; + if (j < NUM_PROC_STEPS) + cf_verbose(3, "cf_proc_check: prog_id=%s, key=%s, j=%d, value=%s", + prog_id, keytab[j].hist_proc, j, keytab[j].hist_value) ; + if ((j >= NUM_PROC_STEPS) || + (strncmp(keytab[j].hist_value, "PERFORM", 7))) { + cf_verbose(1, "Not appropriate for HIST data. Exiting."); + errflg=1; + } + + break; + + case 'T': + /* Time-tag mode */ + /* First, determine if this procedure is even supposed to be + * run on this data. */ + while ((strncmp(keytab[j].ttag_proc,prog_id, + strlen(keytab[j].ttag_proc)) != 0) && + (j < NUM_PROC_STEPS)) j++; + if (j < NUM_PROC_STEPS) + cf_verbose(3, "cf_proc_check: prog_id=%s, key=%s, j=%d, value=%s", + prog_id, keytab[j].ttag_proc, j, keytab[j].ttag_value) ; + if ((j >= NUM_PROC_STEPS) || + (strncmp(keytab[j].ttag_value, "PERFORM", 7))) { + cf_verbose(1, "Not appropriate for TTAG data. Exiting."); + errflg=1; + } + + break; + + default: + errflg = 1; + } + + if (!errflg) { + /* Check to see whether user wants to skip this step. */ + FITS_read_key(fptr, TSTRING, keytab[j].name, key_value, comment, + &status); + if (!strncmp(key_value, "OMIT", 4) || !strncmp(key_value, "SKIPPED", 7)) { + cf_verbose(1, "Header keyword %s = %s. Exiting.", + keytab[j].name, key_value); + FITS_update_key(fptr, TSTRING, keytab[j].name, "SKIPPED", NULL, + &status); + errflg=1; + } + + /* Now check to see if the step has already been completed. */ + if (!strncmp(key_value, "COMPLETE", 7)) { + cf_if_warning("Exiting.\n\t%s has already been run on this file.", + prog_id); + errflg=1; + } + } + return errflg; +} |