Changeset 7054 for trunk/Ohana/src/libfits/header/F_scan.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_scan.c (modified) (8 diffs)

trunk/Ohana/src/libfits/header/F_scan.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);
 
-int fits_scan (Header *header, char *field, char *mode, int N,...) {
+int gfits_scan (Header *header, char *field, char *mode, int N,...) {
 
   int status;
@@ -11 +11 @@
   
   va_start (argp, N);
-  status = fits_vscan (header, field, mode, N, argp);
+  status = gfits_vscan (header, field, mode, N, argp);
   va_end (argp);
   return (status);
 }
   
-int fits_vscan (Header *header, char *field, char *mode, int N, va_list argp) {
+int gfits_vscan (Header *header, char *field, char *mode, int N, va_list argp) {
 
   char *p, *q, *s, tmp[81];
@@ -23 +23 @@
   
   /* find the correct line with field */
-  p = fits_header_field (header, field, N);
+  p = gfits_header_field (header, field, N);
   if (p == NULL) return (FALSE);
 
@@ -37 +37 @@
   /* comment from data line */
   if (!strcmp (mode, "%C")) {
-    q = fits_keyword_end (p) + 3;
+    q = gfits_keyword_end (p) + 3;
     q = MIN (p + 80, q);
     bzero (tmp, 81);
     Nchar = MIN (80, p + 80 - q);
     memcpy (tmp, q, Nchar);
-    fits_stripwhite (tmp);
+    gfits_stripwhite (tmp);
     strcpy (va_arg (argp, char *), tmp);
     return (TRUE);
@@ -49 +49 @@
   /* extract data into char array (exclude containing ' chars) */
   if (!strcmp (mode, "%s")) {
-    s = fits_keyword_start (p); /* points at first char (not ') */
-    q = fits_keyword_end (p); /* points at following space or ' */
+    s = gfits_keyword_start (p); /* points at first char (not ') */
+    q = gfits_keyword_end (p); /* points at following space or ' */
 
     Nchar = MAX (0, (q - s));
     bzero (tmp, 81);
     memcpy (tmp, s, Nchar);
-    fits_stripwhite (tmp);
+    gfits_stripwhite (tmp);
     strcpy (va_arg (argp, char *), tmp);
     return (TRUE);
@@ -62 +62 @@
   /* boolean data, requires int target */
   if (!strcmp (mode, "%t")) {
-    s = fits_keyword_start (p);
+    s = gfits_keyword_start (p);
     if (*s == 'T') {
       *va_arg (argp, int *) = TRUE;
@@ -75 +75 @@
   /* remaining options are numerical data */
   /* need to interpret 1.0d5 as 1.0e5 */
-  s = fits_keyword_start (p); /* points at first char (not ') */
-  q = fits_keyword_end (p); /* points at following space or ' */
+  s = gfits_keyword_start (p); /* points at first char (not ') */
+  q = gfits_keyword_end (p); /* points at following space or ' */
   value = strtod (s, &q);
   if ((*q == 'd') || (*q == 'D')) 
@@ -100 +100 @@
 
 /* Strip whitespace from the start and end of STRING. */
-int fits_stripwhite (char *string) {
+int gfits_stripwhite (char *string) {
 
   int i;