Changeset 3369 for trunk/Ohana/src/libfits/header/F_modify.c

Timestamp:

Mar 2, 2005, 6:02:44 PM (21 years ago)

Author:

eugene

Message:

cleaned handling of single quotes

File:

• trunk/Ohana/src/libfits/header/F_modify.c (modified) (5 diffs)

trunk/Ohana/src/libfits/header/F_modify.c

@@ -1 +1 @@
 # include "fits.h"
 
+char *fits_keyword_start (char *line);
 char *fits_keyword_end (char *line);
 void pad_ending (char *line, char value, int Nbyte);
@@ -98 +99 @@
 }
 
+/* given a FITS card line, return pointer to the start of the data area */
+char *fits_keyword_start (char *line) {
+
+  int done;
+  char *c;
+
+  /* find the end of the existing data region */
+  c = line + 8;
+  if (*c != '=') return (c);  /* no data in COMMENT field */
+  
+  c += 2;
+  /* advance pointer over whitespace */
+  while ((*c == ' ') && (c < line + 80)) { c++; }
+  
+  /* skip one quote mark */
+  if ((*c == 0x27) && (c < line + 80)) { c++; }
+
+  return (c);
+}
+
 /* given a FITS card line, return pointer to the end of the data area */
 char *fits_keyword_end (char *line) {
@@ -105 +126 @@
 
   /* find the end of the existing data region */
-  c2 = line + 8;
-  if (*c2 != '=') return (c2);  /* no data in COMMENT field */
+  c1 = line + 8;
+  if (*c1 != '=') return (c1);  /* no data in COMMENT field */
+  c1 += 2;
+
+  /* advance pointer over whitespace */
+  while ((*c1 == ' ') && (c1 < line + 80)) { c1++; }
   
-  c1 = c2 + 2;
   if (c1[0] == 0x27) { /* entry a string, skip over 'fred' */
     for (done = FALSE, c2 = c1 + 1; !done && (c2 < line + 80); c2++) {
@@ -116 +140 @@
       }
       if (c2[0] == 0x27) {
-        c1 = c2 + 1;
+        c1 = c2;
         done = TRUE;
       }
@@ -124 +148 @@
     }
   } else {
-    while ((*c1 == ' ') && (c1 < line + 80)) c1++;
     while ((*c1 != ' ') && (c1 < line + 80)) c1++;
   }