Changeset 2451 in Sophya for trunk/SophyaExt/FitsIOServer

Timestamp:

Oct 29, 2003, 6:51:36 PM (22 years ago)

Author:

cmv

Message:

lecture d'une clef fits string cmv 29/10/2003

Location:

trunk/SophyaExt/FitsIOServer

Files:

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

trunk/SophyaExt/FitsIOServer/fabtcolread.cc

@@ -407 +407 @@
 
 //////////////////////////////////////////////////////////////
+/*!
+  Read a fitsheader key into double
+  \param keyname : name of the key
+  \return value into double
+*/
 double FitsABTColRd::ReadKey(char *keyname)
 {
@@ -414 +419 @@
    printerror(sta);
  return val;
+}
+
+/*!
+  Read a fitsheader key into long
+  \param keyname : name of the key
+  \return value into long
+*/
+long FitsABTColRd::ReadKeyL(char *keyname)
+{
+ if(keyname==NULL) return 0;
+ int sta=0; long val=0;
+ if(fits_read_key(FitsPtr,TLONG,keyname,&val,NULL,&sta))
+   printerror(sta);
+ return val;
+}
+
+/*!
+  Read a fitsheader key into string
+  \param keyname : name of the key
+  \return value into string
+*/
+string FitsABTColRd::ReadKeyS(char *keyname)
+{
+ if(keyname==NULL) return 0;
+ int sta=0; char val[FLEN_VALUE];
+ if(fits_read_key(FitsPtr,TSTRING,keyname,val,NULL,&sta))
+   printerror(sta);
+ string sval = val;
+ return sval;
 }
 

trunk/SophyaExt/FitsIOServer/fabtcolread.h

@@ -53 +53 @@
 
   double ReadKey(char *keyname);
+  long   ReadKeyL(char *keyname);
+  string ReadKeyS(char *keyname);
 
   double Read(long n,bool usebuffer=true);