Changeset 38341 for branches/eam_branches/ohana.20150429/src/opihi/lib.shell/VectorIO.c

Timestamp:

May 31, 2015, 8:36:04 AM (11 years ago)

Author:

eugene

Message:

fix up compressed fits table I/O; add lrand, mrand, drand functions

File:

• branches/eam_branches/ohana.20150429/src/opihi/lib.shell/VectorIO.c (modified) (2 diffs)

branches/eam_branches/ohana.20150429/src/opihi/lib.shell/VectorIO.c

@@ -71 +71 @@
 }
   
+# define VERBOSE 0
+int dump_raw_table (FTable *table, char *message) {
+# if (VERBOSE)
+  int i;
+  fprintf (stderr, "%s data: ", message);
+  for (i = 0; i < table->header->Naxis[0]*table->header->Naxis[1]; i++) {
+    fprintf (stderr, "0x%02hhx ", table->buffer[i]);
+  }
+  fprintf (stderr, "\n");
+# endif
+  return TRUE;
+}
+
+int dump_cmp_table (FTable *table, char *message) {
+# if (VERBOSE)
+  int i;
+  fprintf (stderr, "%s pntr: ", message);
+  for (i = 0; i < table->header->Naxis[0]*table->header->Naxis[1]; i++) {
+    fprintf (stderr, "0x%02hhx ", table->buffer[i]);
+  }
+  fprintf (stderr, "\n");
+
+  fprintf (stderr, "%s data: ", message);
+  for (i = 0; i < table->header->pcount; i++) {
+    fprintf (stderr, "0x%02hhx ", table->buffer[table->heap_start + i]);
+  }
+  fprintf (stderr, "\n");
+# endif
+  return TRUE;
+}
+
 // write a set of vectors to a FITS file (vectors names become fits column names)
 int WriteVectorTableFITS (char *filename, char *extname, Vector **vec, int Nvec, int append, char *compress, char *format) {
@@ -106 +137 @@
   if (compress) {
     cmptable.header = &cmpheader;
+
+    dump_raw_table (&rawtable, "wd raw");
     if (!gfits_compress_table (&rawtable, &cmptable, 10, compress)) goto escape;
+    dump_cmp_table (&cmptable, "wd cmp");
+
     outtable = &cmptable;
     outheader = &cmpheader;