1 files changed, 94 insertions, 0 deletions
diff --git a/src/libcf/cf_fes_proc_check.c b/src/libcf/cf_fes_proc_check.c
new file mode 100644
index 0000000..74a41b4
--- /dev/null
+++ b/src/libcf/cf_fes_proc_check.c
@@ -0,0 +1,94 @@
+/******************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ ******************************************************************************
+ *
+ * Synopsis:    cf_fes_proc_check(fitsfile *fptr, char *prog_id)
+ *
+ * Description: cf_fes_proc_check will determine if a given calibration
+ *              step is to be performed on the data.  It will also
+ *              determine whether all previous steps have been
+ *              completed successfully.
+ *
+ * Arguments:   fitsfile    *fptr	Pointer to input file
+ *              char        *prog_id 	Procedure name
+ *
+ * History:     06/21/98        emm     Begin work.
+ *		08/19/2004 1.1	wvd	Move to v3.0, add CF_VER_NUM,
+ *					change cf_errmsg to cf_if_error.
+ *		09/07/2007 1.2	bot	Removed unused CF_VER_NUM and CF_PRGM_ID
+ *
+ *****************************************************************************/
+
+#include <stdio.h>
+#include <string.h>
+#include "calfuse.h"
+#define  MAXCHARS 120
+
+int cf_fes_proc_check(fitsfile *fptr, char *prog_id) 
+{
+    int   i,j, status=0;
+    char  comment[FLEN_CARD], key_value[FLEN_CARD];
+    char  complete[19], skipped[19], perform[19];
+
+    /*
+     *  The calfuse.h file contains the definitions of fes_keyword_tab
+     *  NUM_PROC_STEPS, and CALIBRATION_STEP_KEYS.
+     */
+    struct fes_keyword_tab keytab[NUM_FES_PROC_STEPS]=FES_CALIBRATION_STEP_KEYS;
+    status=0;
+
+    strncpy(complete,"COMPLETE          ",19);
+    strncpy(skipped, "SKIPPED           ",19);
+    strncpy(perform, "PERFORM           ",19);
+
+    j=0;
+    /*
+     *  First, determine if this procedure is even supposed to be
+     *  run on this data.
+     */
+    while ((strncmp(keytab[j].proc,prog_id, strlen(keytab[j].proc)) != 0) &&
+	   (j < NUM_FES_PROC_STEPS)) j++;
+    if ((j >= NUM_FES_PROC_STEPS) || 
+	(strncmp(keytab[j].value,perform,7))) {
+	cf_if_error("Processing step does not "
+		  "need to be run on this type of data.");
+	fprintf(stderr,"     Step %18.18s does not need "
+		"to be run.\n",prog_id);
+	return 1;
+    }
+
+    status=0;
+    fits_read_key_str(fptr, keytab[j].name, key_value, comment, 
+		      &status);
+
+    /* Now check to see if the step has already been completed. */
+    if (strncmp(key_value,complete,7)==0) {
+	cf_if_error("Processing step has already been completed.\n");
+	fprintf(stderr,"     Step %18.18s does not need to be run.\n",
+		prog_id);
+	return 1;
+    }
+
+    /*  Now determine if the previous programs are all complete. */
+    for (i=0; i<j; i++) {
+	fits_read_key_str(fptr, keytab[i].name, key_value, comment, 
+			  &status);
+	if (strncmp(keytab[i].value,perform,7)==0) {
+	    if (strncmp(key_value,complete,8) &&
+		strncmp(key_value,skipped,7)) {
+		cf_if_error("Processing step not completed.");
+		fprintf(stderr,"     Step %8.8s has value "
+			"%8.8s.\n",keytab[i].name,key_value);
+		fprintf(stderr,"     It should be either "
+			"COMPLETE or SKIPPED before running "
+			"%18.18s\n",prog_id);
+		return 1;
+	    } /* End if check on key_value */
+	} /* End check on keytab[i].value */
+    } /* End for */
+   
+    /* If we got to here, it must be OK */
+    return 0;
+}