Changeset 2493 in Sophya for trunk/SophyaExt

Timestamp:

Jan 6, 2004, 6:06:28 PM (22 years ago)

Author:

cmv

Message:

add int_2 in writer cmv 6/1/04

Location:

trunk/SophyaExt/FitsIOServer

Files:

• fabtwriter.cc (modified) (4 diffs)
• fabtwriter.h (modified) (1 diff)

trunk/SophyaExt/FitsIOServer/fabtwriter.cc

@@ -375 +375 @@
   \param tunit : fits tunit definition (optional)
   \param datatype : TBYTE TSHORT TLONG (TINT32BIT) TLONGLONG TFLOAT TDOUBLE
-                    TUSHORT TULONG. That parameter is only use in case
+                    TUSHORT TULONG TSBYTE. That parameter is only use in case
                     of a BINARY_TBL table when tform is not defined).
   \return The number of the new added column in the table.
@@ -407 +407 @@
    else if(datatype==TUSHORT)   strcpy(str,"1U");
    else if(datatype==TULONG)    strcpy(str,"1V");
+#ifdef TSBYTE
+   else if(datatype==TSBYTE)    strcpy(str,"1S");
+#endif
    else
      throw ParmError("FitsABTWriter::addcol: datatype not allowed\n");
@@ -425 +428 @@
    else if(datatype==TUSHORT)   strcpy(str,"I7");
    else if(datatype==TULONG)    strcpy(str,"I11");
+#ifdef TSBYTE
+   else if(datatype==TSBYTE)    strcpy(str,"I5");
+#endif
    else
      throw ParmError("FitsABTWriter::addcol: datatype not allowed\n");
@@ -517 +523 @@
 */
 
+/*! Write signed char (1 Byte) data to FITS file (see below) */
+void FitsABTWriter::Write(int col,long row,int_1 val)
+{
+#ifdef TSBYTE
+  if(FirstTime) createtbl();
+  int sta=0;
+  if(fits_write_col(FitsPtr,TSBYTE,col+1,row+1,1,1,&val,&sta))
+    printerrorwrite("signed char",col,row,sta);
+#else
+  throw PException("FitsABTWriter::Write(..,int_2) Not in that cfitsio version");
+#endif
+}
+
 /*! Write unsigned char (1 Byte) data to FITS file (see below) */
 void FitsABTWriter::Write(int col,long row,uint_1 val)

trunk/SophyaExt/FitsIOServer/fabtwriter.h

@@ -93 +93 @@
      {return addcol(label,tform,tunit,datatype);}
 
+  void Write(int col,long row,int_1 val);
   void Write(int col,long row,uint_1 val);
   void Write(int col,long row,int_2 val);