Changeset 41375

Timestamp:

Jun 22, 2020, 10:41:29 AM (6 years ago)

Author:

eugene

Message:

add new function to insert raw FITS header line (e.g., copy from one header to another)

Location:

trunk/Ohana/src/libfits

Files:

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

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

@@ -143 +143 @@
 }
 
+int gfits_header_append_line_raw (Header *header, char *line) {
+
+  // line: input pointer to string of at least 80 chars
+
+  /* find the END of the header */
+  char *p = gfits_header_field (header, "END", 1);
+  if (p == NULL) return (FALSE); 
+
+  /* is there enough space for 1 more line? */
+  if (header[0].datasize - (p - (header[0].buffer)) < 2*FT_LINE_LENGTH) {
+    header[0].datasize += FT_RECORD_SIZE;
+    REALLOCATE (header[0].buffer, char, header[0].datasize);
+    /* re-find the "END" marker, in case new memory block is used */
+    p = gfits_header_field (header, "END", 1);
+    if (p == NULL) return (FALSE); 
+    // fill in the region after the END line with spaces
+    memset (p + FT_LINE_LENGTH, ' ', FT_RECORD_SIZE);
+  }
+
+  /* push END line back 1 */
+  memmove ((p + FT_LINE_LENGTH), p, FT_LINE_LENGTH);
+  memcpy (p, line, FT_LINE_LENGTH);
+  return TRUE;
+}
+

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

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