Changeset 802 in Sophya for trunk/SophyaLib/BaseTools/dvlist.cc

Timestamp:

Apr 3, 2000, 7:32:27 PM (25 years ago)

Author:

ansari

Message:

Mise au point du nouveau schema (Version=2) de PPersist - Mise en place

de tag complet pour toutes les donnees/objets ecrits - Gestion a peu
pres correct des objets references plusieurs fois, ecrit une seule fois.
Mecanisme d'enregistrement pour les DataObject associe et Methodes
(PutObject/GetObjet) facilitant l'ecriture/lecture de DataObject.
Separation du fichier de la classe FIO_NDataBlock<T>.

Reza03/04/2000

File:

• trunk/SophyaLib/BaseTools/dvlist.cc (modified) (6 diffs)

trunk/SophyaLib/BaseTools/dvlist.cc

@@ -270 +270 @@
 //  ostream&    operator << (ostream& s, DVList& dvl)
 //      sortie sur flot "s" (Appel a "Print(s)").
-//  void  Write(string const& fn)
-//      Ecriture d'un fichier PPersist de nom "fn"
-//  void  Read(string const& fn)
-//      Lecture d'un fichier PPersist de nom "fn"
 //--
 
@@ -350 +346 @@
 {
 char buf[512];
+string sfw;
 
 int lc = dobj->Comment().length();
-if (lc > 511) lc = 511;
 if (lc > 0) {
   sprintf(buf,"Comment: ( %6d ) ", lc); 
-  s.PutLine(buf);
-  s.PutBytes(dobj->Comment().c_str(), lc);
-  }
-s.PutLine("----Variable-List---------------");
+  sfw = buf;  s.PutStr(sfw);
+  s.PutStr(dobj->Comment());
+  }
+sfw = "----Variable-List---------------";  s.PutStr(sfw);
 DVList::ValList::const_iterator it;
 for(it = dobj->Begin(); it != dobj->End(); it++)  {
@@ -364 +360 @@
     case 'I' :
       sprintf(buf,"I %s %d", (*it).first.substr(0,64).c_str(), (*it).second.elval.mtv.iv );
-      s.PutLine(buf); 
+      sfw = buf;  s.PutStr(sfw);
       break;
     case 'D' : 
       sprintf(buf,"D %s %.20g", (*it).first.substr(0,64).c_str(), (*it).second.elval.mtv.dv );
-      s.PutLine(buf); 
+      sfw = buf;  s.PutStr(sfw);
       break;
     case 'S' : 
       sprintf(buf,"S %s %s", (*it).first.substr(0,64).c_str(), (*it).second.elval.mtv.strv );
-      s.PutLine(buf); 
+      sfw = buf;  s.PutStr(sfw);
       break;
     default :
@@ -380 +376 @@
   if ((*it).second.elcomm.length() > 0) {
     sprintf(buf,"# %s", (*it).second.elcomm.substr(0,256).c_str());
-    s.PutLine(buf); 
-  }
-}
-
-s.PutLine("ZZZZZ--End-of-Varible-List------");
+    sfw = buf;  s.PutStr(sfw);
+  }
+}
+
+sfw = "ZZZZZ--End-of-Varible-List------"; s.PutStr(sfw);
 }
 
@@ -391 +387 @@
 {
 char buf[512];
+string sfr;
 int_8 j,iv;
 r_8 dv;
@@ -397 +394 @@
 dobj->Clear();
 
-s.GetLine(buf, 511);  // Pour lire les "------- "
-if (buf[0] != '-') {  // Il y a un champ commentaire a lire 
-  buf[18] ='\0';
-  int lc = atoi(buf+11);
-  if (lc > 511)  { 
-    cerr << "DVList::ReadSelf() Pb/Bug ??  CommentLength= " << lc << endl;
-    lc = 511;
-    }
-  s.GetBytes(buf, lc);
-  buf[lc] ='\0';
-  dobj->Comment() = buf;
+s.GetStr(sfr);  // Pour lire les "------- "
+if (sfr[0] != '-') {  // Il y a un champ commentaire a lire 
+  s.GetStr(sfr);
+  dobj->Comment() = sfr;
   }
 
 string key="";
 while(ok) {
-  s.GetLine(buf, 511);
+  s.GetStr(sfr);
+  strncpy(buf, sfr.c_str(), 512);
   buf[511] = '\0';
   if (strncmp(buf,"ZZZZZ",5) == 0)  { ok=false; break; }