Changeset 5445 for trunk/Ohana/src/libdvo

Timestamp:

Oct 24, 2005, 8:47:45 PM (21 years ago)

Author:

eugene

Message:

fixes for SkyRegion implementation

File:

• trunk/Ohana/src/libdvo/src/skyregion_io.c (modified) (2 diffs)

trunk/Ohana/src/libdvo/src/skyregion_io.c

@@ -29 +29 @@
     return (NULL);
   }
-  if (!fits_fread_ftable (f, &ftable, "SKY_REGIONS")) {
+  if (!fits_fread_ftable (f, &ftable, "SKY_REGION")) {
     if (VERBOSE) fprintf (stderr, "can't read Sky Region table\n");
     fits_free_header (&header);
@@ -47 +47 @@
 }
 
-int SkyTableSave (SkyTable *table, char *filename) {
+int SkyTableSave (SkyTable *skytable, char *filename) {
 
-  fprintf (stderr, "not yet defined\n");
+  Header header;
+  Matrix matrix;
+  Header theader;
+  FTable ftable;
+  FILE *f;
 
+  /* make phu header (no matrix needed) */
+  ftable.header = &theader;
+  fits_init_header (&header);
+  header.extend = TRUE;
+  fits_create_header (&header);
+  fits_create_matrix (&header, &matrix);
+
+  fits_table_set_SkyRegion (&ftable, skytable[0].regions, skytable[0].Nregions);
+
+  f = fopen (filename, "w");
+  if (f == (FILE *) NULL) { 
+    fprintf (stderr, "cannot open %s for output\n", filename);
+    exit (1);
+  }
+  
+  fits_fwrite_header  (f, &header);
+  fits_fwrite_matrix  (f, &matrix);
+  fits_fwrite_Theader (f, &theader);
+  fits_fwrite_table  (f, &ftable);
+  fclose (f);
+
+  return (TRUE);
 }