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

Timestamp:

May 3, 2006, 12:01:09 PM (20 years ago)

Author:

eugene

Message:

converted fits_ to gfits_

File:

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

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

@@ -2 +2 @@
 # include <gfitsio.h>
 
-char *fits_keyword_start (char *line);
-char *fits_keyword_end (char *line);
+char *gfits_keyword_start (char *line);
+char *gfits_keyword_end (char *line);
 void pad_ending (char *line, char value, int Nbyte);
 
-int fits_modify (Header *header, char *field, char *mode, int N,...) {
+int gfits_modify (Header *header, char *field, char *mode, int N,...) {
   
   /* this function expects one more argument, the value to be written */
-  /* this function is extremely similar to fits_print, except it allows for changing an existing field. */
+  /* this function is extremely similar to gfits_print, except it allows for changing an existing field. */
 
   char comment[82], string[82], data[82];
@@ -21 +21 @@
 
   if (mode[0] != '%') {
-    fprintf (stderr, "fits_print: weird mode:  %s\n", mode);
+    fprintf (stderr, "gfits_print: weird mode:  %s\n", mode);
     return (FALSE);
   }
 
   /* find location of desired entry */
-  p = fits_header_field (header, field, N);
+  p = gfits_header_field (header, field, N);
   if (p == NULL)  {
     /* new entry, find the END of the header */
-    p = fits_header_field (header, "END", 1);
+    p = gfits_header_field (header, "END", 1);
     if (p == NULL) return (FALSE); 
     
@@ -36 +36 @@
       header[0].size += FT_RECORD_SIZE;
       REALLOCATE (header[0].buffer, char, header[0].size);
-      p = fits_header_field (header, "END", 1);
+      p = gfits_header_field (header, "END", 1);
       if (p == NULL) return (FALSE); 
       memset (p + FT_LINE_LENGTH, ' ', FT_RECORD_SIZE);
@@ -46 +46 @@
   } else {
     /* old entry, save the comment region (is this skipping a character for non-strings?) */
-    qe = fits_keyword_end (p);
+    qe = gfits_keyword_end (p);
     qe += 3;
     qe = MIN (p + 80, qe);
@@ -87 +87 @@
   /* just a comment associated with a value.  this is assumes a fixed format position for the comment */
   if (!strcmp (mode, "%C")) { 
-    qe = fits_keyword_end (p);
-    qs = fits_keyword_start (p);
+    qe = gfits_keyword_end (p);
+    qs = gfits_keyword_start (p);
 
     /* keep ' on ends, if there */
@@ -108 +108 @@
 
 /* given a FITS card line, return pointer to the start of the data area */
-char *fits_keyword_start (char *line) {
+char *gfits_keyword_start (char *line) {
 
   char *c;
@@ -127 +127 @@
 
 /* given a FITS card line, return pointer to the end of the data area */
-char *fits_keyword_end (char *line) {
+char *gfits_keyword_end (char *line) {
 
   int done;