Changeset 1300 in Sophya for trunk/SophyaExt/FitsIOServer/fitsntuple.cc

Timestamp:

Nov 8, 2000, 11:02:58 AM (25 years ago)

Author:

ansari

Message:

classe FITS_AutoReader

File:

• trunk/SophyaExt/FitsIOServer/fitsntuple.cc (modified) (2 diffs)

trunk/SophyaExt/FitsIOServer/fitsntuple.cc

@@ -89 +89 @@
   for (k=0; k<nbcols;k++)
     {
-      char ss= is.ColTypeFromFits(k);
+      FitsFile::FitsDataType ss= is.ColTypeFromFits(k);
       string type;
-      if (ss != 'E') 
+      if (ss !=  FitsFile::FitsDataType_float) 
         {
-          if (ss == 'D') type= string("double");
+          if (ss == FitsFile::FitsDataType_double) type= string("double");
           else
-            if (ss == 'I') type= string("integer");
+            if (ss == FitsFile::FitsDataType_int) type= string("integer");
             else
-              if (ss == 'A') type = string("char*");
+              if (ss == FitsFile::FitsDataType_char) type = string("char*");
               else
                 type = string("unknown");
@@ -159 +159 @@
   // get names and values from the join DVList object
   DVList dvl= dobj_->Info();
+  dvl["Content"]= "NTuple";
+  dvl.SetComment("Content", "name of SOPHYA object");
   // extension name
   string extname("NTuple_Binary_tbl");