Changeset 2477 in Sophya for trunk/SophyaLib/BaseTools/ppersist.cc

Timestamp:

Dec 7, 2003, 12:56:36 AM (22 years ago)

Author:

ansari

Message:

Suite et presque fin de l'extension des fonctionalites de la persistence PPF - fonctionalite pour le swap en particulier - Reza 7 Dec 2003

File:

• trunk/SophyaLib/BaseTools/ppersist.cc (modified) (3 diffs)

trunk/SophyaLib/BaseTools/ppersist.cc

@@ -560 +560 @@
 //      ou PPersist::PPS_BIG_ENDIAN.
 //--
+POutPersist::POutPersist(RawInOutStream* os, bool ad, int endianness)
+  : PPFBinaryOutputStream(os, ad, endianness)
+{
+  pps_OId = 0;
+  wobj_level = 0;
+}
+
 POutPersist::POutPersist(string const& flnm, int endianness)
   : PPFBinaryOutputStream(flnm, endianness)
@@ -565 +572 @@
   // PPS (POutPersist stream) Object Id initialisation
   pps_OId = 0;
+  wobj_level = 0;
 }
 
@@ -599 +607 @@
   uint_8 oid = assignObjectId(obj);       // We assing a PPS Object Id 
   PutRawUByte(PPS_OBJECT);         // We write the Object Tag
+  wobj_level++;  // Niveau d'imbrication d'ecriture d'objets
   PutRawU8(getPPClassId(*obj));    // Writing the PPersist ClassId
   PutRawU8(oid);                   // Write the PPS Object Id 
   obj->WriteSelf(*this);
+  //  Comptage d'objets ecrits
+  _nbobjs++;
+  if (wobj_level == 1) _nbtlobjs++;
+  wobj_level--;  
   PutRawUByte(PPS_ENDOBJECT);      // We write the End-Of-Object Tag
   PutRawU8(oid);                   // and again its PPS Object Id