Changeset 846 in Sophya

Timestamp:

Apr 10, 2000, 10:36:28 AM (25 years ago)

Author:

ansari

Message:

ajout SetVal pour I/O fichiers fits

Location:

trunk/SophyaLib/HiStats

Files:

• ntuple.cc (modified) (3 diffs)
• ntuple.h (modified) (3 diffs)
• xntuple.cc (modified) (1 diff)
• xntuple.h (modified) (3 diffs)

trunk/SophyaLib/HiStats/ntuple.cc

@@ -207 +207 @@
 }
 
+/* --Methode-- */
+//++
+void NTuple::SetVal(int n, int k, float value)  
+//
+//      initialise la valeur de la variable `k' de l'evenement `n'.
+//--
+{
+if (n >= mNEnt)   return;
+if ( (k < 0) || (k >= mNVar) )    return;
+int numb = n/mBlk;
+int offb = n-numb*mBlk;
+*(mPtr[numb]+offb*mNVar+k) = value;
+}
 
 /* --Methode-- */
@@ -538 +551 @@
 
 
-/* --Methode-- */
+/* --Methode-- */ 
 //++
 void   ObjFileIO<NTuple>::WriteSelf(POutPersist& s)  const
@@ -602 +615 @@
 }
 
+
 #ifdef __CXX_PRAGMA_TEMPLATES__
 #pragma define_template ObjFileIO<NTuple>

trunk/SophyaLib/HiStats/ntuple.h

@@ -16 +16 @@
 #include "ppersist.h"
 #include "dvlist.h"
+#include "fitsfile.h" 
 
 namespace SOPHYA {
 
 class NTuple : public AnyDataObj , public NTupleInterface {
+
+  friend class FITS_NTuple;
 public:
 //  enum {classId = ClassId_NTuple };
@@ -77 +80 @@
 private:
   void  Clean();
+  void SetVal(int n, int k, float value)   ;
 
   int_4 mNVar, mNEnt, mBlk, mNBlk;
@@ -100 +104 @@
 // ObjFileIO<NTuple>
 
+
+
 #ifdef __MWERKS__
 __MSL_FIX_ITERATORS__(r_4*);

trunk/SophyaLib/HiStats/xntuple.cc

@@ -927 +927 @@
   } 
 }
+////////////// methodes supplementaires pour leserveur de fichiers fits//////
+//
+// (protected)
+//
+void XNTuple::SetDVal(int i, int k, double v)  
+{
+    if( i<0 || i>=mNEnt || k<0 || k>=mD ) 
+        THROW(rangeCheckErr) ; 
+    
+    // Bloc ? 
+    int blk = (int)(i/mBlkSz) ; 
+    int off = i%mBlkSz ; 
+    
+    // bloc swappe ? 
+    if( ptr[blk]->sw ) { get_blk(blk) ; swap() ; } 
+    ptr[blk]->ddata[off*mD+k]=v ; 
+}
+void XNTuple::SetFVal(int i, int k, float v) 
+{
+    if( i<0 || i>=mNEnt || k<mD || k>=(mD+mF) ) 
+        THROW(rangeCheckErr) ; 
+    k -= mD ; 
+    
+    // Bloc ? 
+    int blk = (int)(i/mBlkSz) ; 
+    int off = i%mBlkSz ; 
+    
+    // bloc swappe ? 
+    if( ptr[blk]->sw ) { get_blk(blk) ; swap() ; } 
+    ptr[blk]->fdata[off*mF+k]=v ; 
+}
+void  XNTuple::SetIVal(int i, int k, int v)  
+{
+    if( i<0 || i>=mNEnt || k<(mD+mF) || k>=(mD+mF+mI) )
+        THROW(rangeCheckErr) ; 
+    k -= (mD+mF) ;  
+
+    // Bloc ? 
+    int blk = (int)(i/mBlkSz) ; 
+    int off = i%mBlkSz ; 
+    
+    // bloc swappe ? 
+    if( ptr[blk]->sw ) { get_blk(blk) ; swap() ; } 
+
+    ptr[blk]->idata[off*mI+k]=v ; 
+}
+void  XNTuple::SetSVal(int i, int k, char* v)  
+{
+    if( i<0 || i>=mNEnt || k<(mD+mF+mI) || k>=(mD+mF+mI+mS) )
+        THROW(rangeCheckErr) ; 
+    k -= (mD+mF+mI) ; 
+    
+    // Bloc ? 
+    int blk = (int)(i/mBlkSz) ; 
+    int off = i%mBlkSz ; 
+    
+    // bloc swappe ? 
+    if( ptr[blk]->sw ) { get_blk(blk) ; swap() ; } 
+    
+    // copie de la chaine 
+        strncpy(ptr[blk]->sdata + (off*mS+k)*(mStrSz+1),v, mStrSz+1) ;   
+}
+
+
+
+
+
 
 #ifdef __CXX_PRAGMA_TEMPLATES__

trunk/SophyaLib/HiStats/xntuple.h

@@ -20 +20 @@
 #include "ppersist.h"
 #include "dvlist.h"
-
+#include "fitsfile.h"
 
 
@@ -105 +105 @@
 //  Pour la gestion de persistance
     friend class ObjFileIO<XNTuple> ;
-   
+    friend class FITS_XNTuple;
+
+
 private:
+
+  // pour la persistance sur fichiers fits
+    void    SetDVal(int i, int k, double v);  
+    void    SetFVal(int i, int k, float v); 
+    void    SetIVal(int i, int k, int v);  
+    void    SetSVal(int i, int k, char* v);  
+
+
     void    clean();    // remet tout a zero 
     void    swap() const ;    // swappe le + ancien blk en memoire 
@@ -160 +170 @@
 // Classe pour la gestion de persistance
 // ObjFileIO<XNTuple>
-        
 } // namespace SOPHYA