1 files changed, 84 insertions, 0 deletions
diff --git a/src/libcf/cf_cal_file.c b/src/libcf/cf_cal_file.c
new file mode 100644
index 0000000..59c873d
--- /dev/null
+++ b/src/libcf/cf_cal_file.c
@@ -0,0 +1,84 @@
+/*****************************************************************************
+ *              Johns Hopkins University
+ *              Center For Astrophysical Sciences
+ *              FUSE
+ *****************************************************************************
+ *
+ * Synopsis:    cf_cal_file(char *calfile)
+ *
+ * Description: Returns a pointer to a string with the full calibration 
+ *              path (from the CF_CALDIR environment variable) prepended 
+ *              to the given file name.
+ *
+ * Arguments:   char    *calfile        Name of the calibration file.
+ *
+ * Returns:     A pointer to a string which contains the full path filename.
+ *
+ * History:     02/26/99       emurphy  Begin and finish work.
+ *              03/01/99       emurphy  Added some error checking
+ *              03/02/99       emurphy  Added use of cf_if_warning
+ *              04/04/99       emurphy  removed cf_error_init
+ *              04/08/99       barrett  replaced fitsio.h with calfuse.h
+ *              05/18/99       emurphy  Added checks on strlen and ending "/"
+ *              06/04/99          peb   Removed 160 character string limit
+ *                                      Added cf_malloc function.
+ *              08/05/99       emurphy  Created cf_populate_file, to support
+ *                                      cf_cal_file and cf_hist_file.c
+ *              08/25/99       emurphy  Added cf_parm_file for parameter files.
+ *              12/18/03       bjg      Change calfusettag.h to calfuse.h
+ *
+ ****************************************************************************/
+
+#include <stdlib.h>
+#include <string.h>
+#include "calfuse.h"
+
+static char
+*cf_populate_file(char *calfile, char *enviro_name)
+{
+    char *enviro, *filen;
+    int strl, strt;
+
+    enviro = getenv(enviro_name);
+
+    if (enviro) {
+        strl = strlen(enviro);
+	strt = strl + strlen(calfile) + 16;
+
+	filen = cf_malloc(strt);
+        strcpy(filen, enviro);
+
+        /* Check to see if last character is a "/" */
+        if (strncmp(filen+strl-1, "/", 1)!=0)
+             strcat(filen, "/");
+
+        strcat(filen, calfile);
+        return filen;
+    }
+    else {
+        printf("Environment variable %-20.20s undefined.",enviro_name);
+        cf_if_warning("Environment variable undefined");
+        return calfile;
+    }
+}
+
+char *cf_cal_file(char *calfile)
+{
+
+     return cf_populate_file(calfile, "CF_CALDIR");
+
+}
+
+char *cf_hist_file(char *calfile)
+{
+
+     return cf_populate_file(calfile, "CF_HISTDIR");
+
+}
+
+char *cf_parm_file(char *calfile)
+{
+
+     return cf_populate_file(calfile, "CF_PARMDIR");
+
+}