Changeset 4024 in Sophya for trunk/SophyaExt/FitsIOServer/fabtwriter.cc

Timestamp:

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

Author:

cmv

Message:

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

File:

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

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)