Changeset 6734 for branches/rel10_ifa/psModules/src/astrom/pmConceptsWrite.c

Timestamp:

Mar 30, 2006, 10:08:30 AM (20 years ago)

Author:

Paul Price

Message:

pmFPACopy now working

File:

• branches/rel10_ifa/psModules/src/astrom/pmConceptsWrite.c (modified) (6 diffs)

branches/rel10_ifa/psModules/src/astrom/pmConceptsWrite.c

@@ -95 +95 @@
 }
 
-static bool writeHeader(pmHDU *hdu,     // HDU for which to add to the header
-                        const char *keyword, // Keyword to add
-                        psMetadataItem *item // Item to add to the header
-                       )
+// Write a single value to a header
+static bool writeSingleHeader(pmHDU *hdu, // HDU for which to add to the header
+                              const char *keyword, // Keyword to add
+                              psMetadataItem *item // Item to add to the header
+                             )
 {
     switch (item->type) {
@@ -113 +114 @@
         return psMetadataAddF64(hdu->header, PS_LIST_TAIL, keyword, PS_META_REPLACE, item->comment,
                                 item->data.F64);
+    case PS_DATA_REGION: {
+            psString region = psRegionToString(*(psRegion*)item->data.V);
+            bool result = psMetadataAddStr(hdu->header, PS_LIST_TAIL, keyword, PS_META_REPLACE, item->comment,
+                                           region);
+            psFree(region);
+            return result;
+        }
     default:
         psLogMsg(__func__, PS_LOG_WARN, "Type of %s is not suitable for a FITS header --- not added.\n",
@@ -118 +126 @@
         return false;
     }
+}
+
+
+// Write potentially multiple values to a header
+static bool writeHeader(pmHDU *hdu,     // HDU for which to add to the header
+                        const char *keywords, // Keywords to add
+                        psMetadataItem *item // Item to add to the header
+                       )
+{
+    bool status = true;                 // Status of writing headers, to be returned
+    if (item->type == PS_DATA_LIST) {
+        psList *values = item->data.V;  // List of outputs
+        psList *keys = psStringSplit(keywords, " ,;"); // List of keywords
+        if (keys->n != values->n) {
+            psLogMsg(__func__, PS_LOG_WARN, "Number of keywords (%d) does not match number of values (%d).\n",
+                     keys->n, values->n);
+        }
+        psListIterator *keysIter = psListIteratorAlloc(keys, PS_LIST_HEAD, false); // Iterator for keywords
+        psListIterator *valuesIter = psListIteratorAlloc(values, PS_LIST_HEAD, false); // Iterator for values
+        psString key = NULL;            // Keyword from iteration
+        psMetadataItem *value = NULL;   // Value from iteration
+        while ((key = psListGetAndIncrement(keysIter)) && (value = psListGetAndIncrement(valuesIter))) {
+            status |= writeSingleHeader(hdu, key, value);
+        }
+        psFree(keysIter);
+        psFree(valuesIter);
+        psFree(keys);
+    } else {
+        status = writeSingleHeader(hdu, keywords, item);
+    }
+    return status;
 }
 
@@ -156 +195 @@
                 psString source = psMetadataLookupStr(&mdok, cell->config, nameSource); // The source
                 if (mdok && strlen(source) > 0) {
+                    psTrace(__func__, 8, "%s is %s\n", nameSource, source);
                     if (strcasecmp(source, "HEADER") == 0) {
                         if (cameraItem->type != PS_DATA_STRING) {
@@ -162 +202 @@
                             continue;
                         }
+                        psTrace(__func__, 8, "Writing %s to header %s\n", name, cameraItem->data.V);
                         writeHeader(hdu, cameraItem->data.V, formatted);
                         continue;
                     }
                     if (strcasecmp(source, "VALUE") == 0) {
+                        psTrace(__func__, 8, "Checking %s against camera format.\n", name);
                         if (! compareConcepts(cameraItem, formatted)) {
                             psLogMsg(__func__, PS_LOG_WARN, "Concept %s is specified by value in the camera "
-                                     "format, but the values don't match.\n");
+                                     "format, but the values don't match.\n", name);
                         }
                         continue;
@@ -179 +221 @@
                 if (! compareConcepts(cameraItem, formatted)) {
                     psLogMsg(__func__, PS_LOG_WARN, "Concept %s is specified by value in the camera "
-                             "format, but the values don't match.\n");
+                             "format, but the values don't match.\n", name);
                 }
             }