Initial commit

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;
+}