Changeset 39270

Timestamp:

Dec 14, 2015, 6:12:37 PM (11 years ago)

Author:

eugene

Message:

add some alloc functions

Location:

trunk/Ohana/src/libfits

Files:

• header/F_init_H.c (modified) (1 diff)
• include/gfitsio.h (modified) (4 diffs)
• matrix/F_create_M.c (modified) (1 diff)

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

@@ -35 +35 @@
   return (FT_UNSIGN_MODE);
 }
+
+Header *gfits_alloc_header (void) {
+
+  Header *header;
+  ALLOCATE (header, Header, 1);
+  gfits_init_header (header);
+  return header;
+}

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

@@ -123 +123 @@
 /******************************* Header functions *************/
 
+Header *gfits_alloc_header             PROTO((void));
+int     gfits_init_header              PROTO((Header *header));
+void    gfits_free_header              PROTO((Header *header)); 
 char   *gfits_header_field             PROTO((Header *header, char *field, int N)); 
 char   *gfits_header_lineno            PROTO((Header *header, off_t N)); 
@@ -132 +135 @@
 int     gfits_fread_Xheader            PROTO((FILE *f, Header *header, int N));
 int     gfits_fread_header             PROTO((FILE *f, Header *header));
-void    gfits_free_header              PROTO((Header *header)); 
 int     gfits_fwrite_header            PROTO((FILE *f, Header *header)); 
 int     gfits_get_unsign_mode          PROTO((void));
-int     gfits_init_header              PROTO((Header *header));
 int     gfits_load_header              PROTO((FILE *f, Header *header));
 int     gfits_modify                   PROTO((Header *header, char *field, char *mode, int N,...)) OHANA_FORMAT(printf, 3, 5); 
@@ -170 +171 @@
 
 int     gfits_init_matrix              PROTO((Matrix *matrix));
+Matrix *gfits_alloc_matrix             PROTO((void));
+void    gfits_free_matrix              PROTO((Matrix *matrix)); 
 off_t   gfits_npix_matrix              PROTO((Matrix *matrix));
 void    gfits_add_matrix_value         PROTO((Matrix *matrix, off_t x, off_t y, double value)); 
@@ -178 +181 @@
 int     gfits_fread_matrix             PROTO((FILE *f, Matrix *matrix, Header *header));
 int     gfits_fread_matrix_segment     PROTO((FILE *f, Matrix *matrix, Header *header, char *region));
-void    gfits_free_matrix              PROTO((Matrix *matrix)); 
 int     gfits_fwrite_matrix            PROTO((FILE *f, Matrix *matrix));      
 double  gfits_get_matrix_value         PROTO((Matrix *matrix, off_t x, off_t y)); 

trunk/Ohana/src/libfits/matrix/F_create_M.c

@@ -43 +43 @@
 }
 
+/*********************** fits create matrix *******************************/
+Matrix *gfits_alloc_matrix (void) {
+
+  Matrix *matrix = NULL;
+  ALLOCATE (matrix, Matrix, 1);
+  gfits_init_matrix (matrix);
+  return matrix;
+}
+
 /*********************** return number of valid pixels *******************************/
 off_t gfits_npix_matrix (Matrix *matrix) {