Changeset 10073 for trunk/Ohana/src/libfits/header/F_scan.c

Timestamp:

Nov 17, 2006, 5:04:25 PM (20 years ago)

Author:

eugene

Message:

added additional chars to whitespace checks

File:

• trunk/Ohana/src/libfits/header/F_scan.c (modified) (3 diffs)

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

@@ -42 +42 @@
     Nchar = MIN (80, p + 80 - q);
     memcpy (tmp, q, Nchar);
-    gfits_stripwhite (tmp);
+    stripwhite (tmp);
     strcpy (va_arg (argp, char *), tmp);
     return (TRUE);
@@ -55 +55 @@
     bzero (tmp, 81);
     memcpy (tmp, s, Nchar);
-    gfits_stripwhite (tmp);
+    stripwhite (tmp);
     strcpy (va_arg (argp, char *), tmp);
     return (TRUE);
@@ -94 +94 @@
 /* if the variable argument stuff breaks on another system, look 
 at F_modify.c as it has the old code */
-
-#ifndef whitespace
-#define whitespace(c) (((c) == ' ') || ((c) == '\t'))
-#endif
-
-/* Strip whitespace from the start and end of STRING. */
-int gfits_stripwhite (char *string) {
-
-  int i;
-
-  if (string == (char *) NULL)
-    return (FALSE);
-
-  for (i = 0; whitespace (string[i]); i++);
-  if (i) memmove (string, string + i, strlen(string+i)+1);
-  for (i = strlen (string) - 1; (i > 0) && whitespace (string[i]); i--);
-  string[++i] = 0;
-
-  return (i);
-
-}
-
-# if (0)
-    one_quote = FALSE;
-    tmp[0] = *(p + 10);
-    if (tmp[0] == 0x27)
-      one_quote = TRUE;
-    /* end the string if we hit: a -- end of line (80 chars) b -- NEWLINE c -- '(0x27: single quote) (end of string) */
-    for (i = 1; (i < 70) && (p[i + 10] != NEWLINE) && ((p[i + 10] != 0x27) || !one_quote); i++) {
-      tmp[i] = *(p + 10 + i);
-      if ((tmp[i] == 0x27) && !one_quote)
-        one_quote = TRUE;
-      if ((tmp[i] == 0x2f) && !one_quote)
-        break;
-    }
-    tmp[i] = 0;
-    if ((c = strchr (tmp, 0x27)) != NULL)
-      *c = ' ';
-# endif