Changeset 16995

Timestamp:

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

Author:

eugene

Message:

add api to get header line

Location:

trunk/Ohana/src/libfits

Files:

• header/F_H_field.c (modified) (2 diffs)
• include/gfitsio.h (modified) (1 diff)

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

@@ -52 +52 @@
   return ((char *) NULL);
 
-}
-
 /* 
 
@@ -60 +58 @@
 
 */
+}
+
+/*********************** fits header field ****************************/
+char *gfits_header_lineno (Header *header, int N) {
+
+  char *buf;
+
+  if (N*80 >= header[0].size) return NULL;
+
+  buf = &header[0].buffer[N*80];
+
+  return (buf);
+}
+

trunk/Ohana/src/libfits/include/gfitsio.h

@@ -106 +106 @@
 
 char   *gfits_header_field             PROTO((Header *header, char *field, int N)); 
+char   *gfits_header_lineno            PROTO((Header *header, int N)); 
 char   *gfits_keyword_end              PROTO((char *line));
 int     gfits_copy_header              PROTO((Header *in, Header *out));