Changeset 2699 in Sophya for trunk/SophyaLib/HiStats/datatable.cc

Timestamp:

Apr 27, 2005, 1:48:19 PM (20 years ago)

Author:

ansari

Message:

1/ Corrections diverses ds BaseDataTable, en particulier GetSegment() -> GetCstSegment(), et ameliorations/debug divers
2/ Classe SWPPFDataTable debugge, rendu +/- operationnelle
3/ Gestionnaire PPersist de DataTable et SWPPFDataTable fusionnee en une seule
classe ObjFileIO<BaseDataTable> - mis ds fio_dtable.cc
4/ mis a jour histats.h avec swppfdtable.h, objlist.list et histinit.cc

Reza, 27 Avril 2005

File:

• trunk/SophyaLib/HiStats/datatable.cc (modified) (1 diff)

trunk/SophyaLib/HiStats/datatable.cc

@@ -217 +217 @@
 }
 
-/*!
-   \class SOPHYA::ObjFileIO<DataTable>
-   \ingroup HiStats
-   Persistence (serialisation) handler for class DataTable
-*/
-/* --Methode-- */ 
-DECL_TEMP_SPEC  /* equivalent a template <> , pour SGI-CC en particulier */
-void   ObjFileIO<DataTable>::WriteSelf(POutPersist& s)  const
-//      Serialisation en ecriture du DataTable sur stream PPF
-{
-  if (dobj == NULL)   
-    throw NullPtrError("ObjFileIO<DataTable>::WriteSelf() NULL dobj pointer ");
-  //-------  On ecrit 3 uint_4 .... 
-  //  [0]: Numero de version ;
-  //  [1] : bit1 non nul -> has info  
-  //  [2] : reserve
-  uint_4 itab[3];
-  itab[0] = 1;  // Numero de version a 1
-  itab[1] = itab[2] = 0;
-  if (dobj->mInfo)  itab[1] = 1;
-  s.Put(itab, 3);
-
-  //-------- Ecriture de segment size, nb de colonnes, nb de lignes ...  
-  // [0] : SegmentSize()        [1] : NVar()
-  // [2] : NEntry()             [3] : NbSegments()
-  uint_8 ltab[5];
-  ltab[0] = dobj->SegmentSize();
-  ltab[1] = dobj->NVar();
-  ltab[2] = dobj->NEntry();
-  ltab[3] = dobj->NbSegments();
-  ltab[4] = 0;
-  s.Put(ltab, 5);
-
-  //------ Ecriture du nom et type des colonnes
-  for(sa_size_t k=0; k<dobj->NVar(); k++) { 
-    uint_2 typ = dobj->mNames[k].type;
-    s.Put(typ);
-    s.Put(dobj->mNames[k].nom);
-  }
-  // ------- Ecriture des tableaux min,max et n_minmax
-  for(uint_8 k=0; k<ltab[1]; k++) { 
-    s.Put(dobj->mMin[k]);
-    s.Put(dobj->mMax[k]);
-    s.Put(dobj->mMinMaxNEnt[k]);
-  }  
-  //------- Ecriture du DVList Info() associe, si existant
-  if (dobj->mInfo)  s << (*(dobj->mInfo));
-
-  //------- Ecriture des SegDataBlock<T> 
-  for (size_t kk=0; kk<dobj->mNames.size(); kk++) {
-    sa_size_t sk = dobj->mNames[kk].ser;
-    switch (dobj->mNames[kk].type) {
-    case BaseDataTable::IntegerField :
-      s << dobj->mICols[sk]; 
-    break;
-    case BaseDataTable::LongField :
-      s << dobj->mLCols[sk]; 
-      break;
-    case BaseDataTable::FloatField :
-      s << dobj->mFCols[sk]; 
-      break;
-    case BaseDataTable::DoubleField :
-      s << dobj->mDCols[sk]; 
-      break;
-    case BaseDataTable::StringField :
-      s << dobj->mSCols[sk]; 
-      break;
-    default:
-      throw ForbiddenError("ObjFileIO<DataTable>::WriteSelf() : unknown column type ");
-    break;
-    }
-  }    
-  return;
-}
-
-/* --Methode-- */
-DECL_TEMP_SPEC  /* equivalent a template <> , pour SGI-CC en particulier */
-void  ObjFileIO<DataTable>::ReadSelf(PInPersist& s)
-//      Serialisation en lecture du DataTable sur stream PPF
-{
-  // ------- On lit les 3 premiers uint_4
-  //  [0]: Numero de version ;
-  //  [1] : bit1 non nul -> has info  
-  //  [2] : reserve
-  uint_4 itab[3] = {0,0,0};
-  s.Get(itab, 3);
-  bool hadinfo = false;
-  if ((itab[1]&1) == 1)  hadinfo = true;
-
-  // -------- Lecture de segment size, nb de colonnes, nb de lignes ...  
-  // [0] : SegmentSize()        [1] : NVar()
-  // [2] : NEntry()             [3] : NbSegments()
-  uint_8 ltab[5] = {0,0,0,0,0};
-  s.Get(ltab, 5);
-  if (dobj == NULL) dobj = new DataTable(ltab[0]);
-  else { dobj->Clear();  dobj->mSegSz = ltab[0]; }
-  // -------- Lecture nom/type colonnes et allocation des colonnes
-  uint_2 typ; 
-  string cnom;
-  for(uint_8 k=0; k<ltab[1]; k++) { 
-    s.Get(typ);
-    s.Get(cnom);
-    BaseDataTable::FieldType ft = (BaseDataTable::FieldType)typ;
-    dobj->AddColumn(ft, cnom);
-  }
-  // ------- Lecture des tableaux min,max et n_minmax
-  for(uint_8 k=0; k<ltab[1]; k++) { 
-    s.Get(dobj->mMin[k]);
-    s.Get(dobj->mMax[k]);
-    s.Get(dobj->mMinMaxNEnt[k]);
-  }  
-  // ------- Lecture du DVList Info() associe, si necessaire
-  if (hadinfo) {    // Lecture eventuelle du DVList Info
-    if (dobj->mInfo == NULL)  dobj->mInfo = new DVList;
-    s >> (*(dobj->mInfo));
-  }
-  // ------- Mise a jour des champs Nb d'entrees, nb segments ...
-  dobj->mNEnt = ltab[2];
-  dobj->mNSeg = ltab[3];
-  // ------- Lecture des SegDataBlock<T> 
-  for (size_t kk=0; kk<dobj->mNames.size(); kk++) {
-    sa_size_t sk = dobj->mNames[kk].ser;
-    switch (dobj->mNames[kk].type) {
-    case BaseDataTable::IntegerField :
-      s >> dobj->mICols[sk]; 
-    break;
-    case BaseDataTable::LongField :
-      s >> dobj->mLCols[sk]; 
-      break;
-    case BaseDataTable::FloatField :
-      s >> dobj->mFCols[sk]; 
-      break;
-    case BaseDataTable::DoubleField :
-      s >> dobj->mDCols[sk]; 
-      break;
-    case BaseDataTable::StringField :
-      s >> dobj->mSCols[sk]; 
-      break;
-    default:
-      throw ForbiddenError("ObjFileIO<DataTable>::ReadSelf() : unknown column type ");
-    break;
-    }
-  }    
-return;
-}
-
-#ifdef __CXX_PRAGMA_TEMPLATES__
-#pragma define_template ObjFileIO<DataTable>
-#endif
-
-#if defined(ANSI_TEMPLATES) || defined(GNU_TEMPLATES)
-template class ObjFileIO<DataTable>;
-#endif