Changeset 4024 in Sophya

Timestamp:

Oct 2, 2011, 10:46:06 PM (13 years ago)

Author:

cmv

Message:

write chat strign into bintable, cmv 02/10/2011

Location:

trunk/SophyaExt/FitsIOServer

Files:

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

trunk/SophyaExt/FitsIOServer/fabtwriter.cc

@@ -398 +398 @@
   \param tform : fits tform definition ("1I","1J","1E","1J",...)
          (can be automatically set as "datatype"
-          if BINARY_TBL and tform="" or tform=NULL)
+          if BINARY_TBL and tform="" or tform=NULL).
+         character string can be written using the tform=":nA" with "n" the number of characters
   \param tunit : fits tunit definition (optional)
   \param datatype : TBYTE TSHORT TLONG (TINT32BIT) TLONGLONG TFLOAT TDOUBLE
@@ -549 +550 @@
 */
 
+/*! Write a character string to FITS file */
+void FitsABTWriter::Write(int col,LONGLONG row,const char* val)
+{
+  if(FirstTime) createtbl();
+  int sta=0;
+  if(fits_write_col(FitsPtr,TSTRING,col+1,row+1,1,1,&val,&sta))
+    printerrorwrite("char*",col,row,sta);
+}
+
 /*! Write signed char (1 Byte) data to FITS file (see below) */
 void FitsABTWriter::Write(int col,LONGLONG row,long nfirstel,int_1 val)

trunk/SophyaExt/FitsIOServer/fabtwriter.h

@@ -104 +104 @@
      {return addcol(label,tform,tunit,datatype);}
 
+  void Write(int col,LONGLONG row,const char* val);
+  inline void Write(int col,LONGLONG row,string val)
+              {Write(col,row,val.c_str());}
+
   void Write(int col,LONGLONG row,long nfirstel,int_1 val);
   void Write(int col,LONGLONG row,long nfirstel,uint_1 val);