Changeset 41379 for trunk/Ohana/src/opihi/cmd.data/list_header.c

Timestamp:

Jun 22, 2020, 11:00:22 AM (6 years ago)

Author:

eugene

Message:

add -copy option to coords; add mjdtolst; add option to control major tick spacing; add -copy option to header; add usage info to avperiodomatch

File:

• trunk/Ohana/src/opihi/cmd.data/list_header.c (modified) (2 diffs)

trunk/Ohana/src/opihi/cmd.data/list_header.c

@@ -1 +1 @@
 # include "data.h"
+
+# define SKIP_HEADER(NAME) { if (!strncmp(line, NAME, strlen(NAME))) continue; }
 
 int header (int argc, char **argv) {
@@ -16 +18 @@
     LOADHEAD = TRUE;
   }
+  if ((N = get_argument (argc, argv, "-file"))) {
+    remove_argument (N, &argc, argv);
+    strcpy (filename, argv[N]);
+    remove_argument (N, &argc, argv);
+    LOADHEAD = TRUE;
+  }
+
+  char *COPYHEAD = NULL;
+  if ((N = get_argument (argc, argv, "-copy"))) {
+    if (LOADHEAD) {
+      gprint (GP_ERR, "-copy and -w are incompatible\n");
+      return (FALSE);
+    }
+    remove_argument (N, &argc, argv);
+    COPYHEAD = strcreate (argv[N]);
+    remove_argument (N, &argc, argv);
+  }
 
   if (argc != 2) {
-    gprint (GP_ERR, "USAGE: header <buffer> [-w filename]\n");
+    gprint (GP_ERR, "USAGE: header <buffer> [-w filename] [-file filename] [-copy buffer]\n");
+    gprint (GP_ERR, "  -file / -w : replace buffer header with contents from file (PHU only)\n");
+    gprint (GP_ERR, "  -copy : replace buffer header with contents of buffer\n");
     return (FALSE);
   }
 
   if ((buf = SelectBuffer (argv[1], OLDBUFFER, TRUE)) == NULL) return (FALSE);
+
+  if (COPYHEAD) {
+    Buffer *src = NULL;
+    if ((src = SelectBuffer (COPYHEAD, OLDBUFFER, TRUE)) == NULL) return (FALSE);
+
+    // loop over all lines in the header and copy one-by-one
+    // skip the special words:
+    
+    for (int i = 0; TRUE; i++) {
+      char *line = gfits_header_lineno (&src[0].header, i);
+      if (!line) break;
+
+      // skip special keywords
+      SKIP_HEADER ("SIMPLE");
+      SKIP_HEADER ("SIMPLE");
+      SKIP_HEADER ("BITPIX");
+      SKIP_HEADER ("NAXIS");
+      SKIP_HEADER ("EXTEND");
+      SKIP_HEADER ("UNSIGN");
+      SKIP_HEADER ("BSCALE");
+      SKIP_HEADER ("BZERO");
+      SKIP_HEADER ("NAXIS1");
+      SKIP_HEADER ("NAXIS2");
+      SKIP_HEADER ("NAXIS3");
+      SKIP_HEADER ("NAXIS4");
+      SKIP_HEADER ("NAXIS5");
+      SKIP_HEADER ("NAXIS6");
+      SKIP_HEADER ("NAXIS7");
+      SKIP_HEADER ("NAXIS8");
+      SKIP_HEADER ("NAXIS9");
+      SKIP_HEADER ("NAXIS10");
+      SKIP_HEADER ("PCOUNT");
+      SKIP_HEADER ("GCOUNT");
+
+      gfits_header_append_line_raw (&buf[0].header, line);
+    }
+    return TRUE;
+
+  }
 
   if (LOADHEAD) {