Changeset 16996

Timestamp:

Mar 14, 2008, 3:51:15 PM (18 years ago)

Author:

eugene

Message:

add delete option

File:

• trunk/Ohana/src/tools/src/fits_insert.c (modified) (4 diffs)

trunk/Ohana/src/tools/src/fits_insert.c

@@ -7 +7 @@
 int main (int argc, char **argv) {
 
-  int i, N, status, EXTNUM, Nbytes, skip;
+  int i, N, status, EXTNUM, Nbytes, skip, Delete, DeleteStart, DeleteStop;
   int Nreserved, start_size;
   char *p, keyword[16], line[256];
@@ -26 +26 @@
   }
 
+  /* check for delete options */
+  Delete = FALSE;
+  if ((N = get_argument (argc, argv, "-delete"))) {
+    Delete = TRUE;
+    remove_argument (N, &argc, argv);
+    DeleteStart = atoi (argv[N]);
+    remove_argument (N, &argc, argv);
+    DeleteStop = atoi (argv[N]);
+    remove_argument (N, &argc, argv);
+  }
+
   /* check for command line options */
   EXTNUM = -1; /* -1 is primary header */
@@ -35 +46 @@
 
   if (argc != 3) {
-    fprintf (stderr, "USAGE: gfits_insert (image.fits) (header.hdx) [-X N] [-comment N line]\n");
+    fprintf (stderr, "USAGE: gfits_insert (image.fits) (header.hdx) [-X N] [-comment N line] [-delete N]\n");
     exit (2);
   }
@@ -70 +81 @@
     if (p != (char *) NULL) {
       strncpy (p, line, 80);
+    }
+  }
+
+  /* wipe out lines from DeleteStart to < DeleteStop */ 
+  if (Delete) {
+    for (i = DeleteStart; i < DeleteStop; i++) {
+      p = gfits_header_lineno (&header, i);
+      if (p != (char *) NULL) {
+        memset (p, ' ', 80);
+      }
     }
   }