Changeset 278 in Sophya for trunk/SophyaLib/NTools/dvlist.cc

Timestamp:

Apr 28, 1999, 3:36:50 PM (26 years ago)

Author:

ansari

Message:

Implementation PPersist par deleguation pour DVList Reza 28/04/99

File:

• trunk/SophyaLib/NTools/dvlist.cc (modified) (4 diffs)

trunk/SophyaLib/NTools/dvlist.cc

@@ -39 +39 @@
 
 
+using namespace PlanckDPC;
+
 char MuTyV::myStrBuf[64];   // Declare static ds le .h 
 
@@ -74 +76 @@
 {
 PInPersist s(flnm);
-Read(s);
+ObjFileIO<DVList> fiodvl(this);
+fiodvl.Read(s);
 }
 
@@ -279 +282 @@
 }
 
-
-/* --Methode-- */
-void        DVList::WriteSelf(POutPersist& s) const
-{
-char buf[320];
-
-int lc = comment.length();
-if (lc > 319) lc = 319;
-if (lc > 0) {
-  sprintf(buf,"Comment: ( %6d ) ", lc); 
-  s.PutLine(buf);
-  s.PutBytes(comment.c_str(), lc);
-  }
-s.PutLine("----Variable-List---------------");
-ValList::const_iterator it;
-for(it = mvlist.begin(); it != mvlist.end(); it++)  {
-  switch ((*it).second.typ) 
-    {
-    case 'I' :
-      sprintf(buf,"I %s %d", (*it).first.substr(0,64).c_str(), (*it).second.mtv.iv );
-      s.PutLine(buf); 
-      break;
-    case 'D' : 
-      sprintf(buf,"D %s %.20g", (*it).first.substr(0,64).c_str(), (*it).second.mtv.dv );
-      s.PutLine(buf); 
-      break;
-    case 'S' : 
-      sprintf(buf,"S %s %s", (*it).first.substr(0,64).c_str(), (*it).second.mtv.strv );
-      s.PutLine(buf); 
-      break;
-    default :
-      break;
-    }
-  }
-
-s.PutLine("ZZZZZ--End-of-Varible-List------");
-}
-
-/* --Methode-- */
-void        DVList::ReadSelf(PInPersist& s)
-{
-char buf[320];
-int_4 j,iv;
-double dv;
-bool ok=true;
-buf[0] = '\0';
-Clear();
-
-s.GetLine(buf, 319);  // Pour lire les "------- "
-if (buf[0] != '-') {  // Il y a un champ commentaire a lire 
-  buf[18] ='\0';
-  int lc = atoi(buf+11);
-  if (lc > 319)  { 
-    cerr << "DVList::ReadSelf() Pb/Bug ??  CommentLength= " << lc << endl;
-    lc = 319;
-    }
-  s.GetBytes(buf, lc);
-  buf[lc] ='\0';
-  comment = buf;
-  }
-
-while(ok) {
-  s.GetLine(buf, 319);
-  buf[319] = '\0';
-  if (strncmp(buf,"ZZZZZ",5) == 0)  { ok=false; break; }
-  j = posc(buf+2, ' ')+2;
-  buf[j] = '\0';
-  switch (buf[0])
-    {
-    case 'I' :
-      iv = (int_4)atol(buf+j+1);
-      SetI(buf+2, iv);
-      break;
-    case 'D' :
-      dv = atof(buf+j+1);
-      SetD(buf+2, dv);
-      break;
-    case 'S' :
-      SetS(buf+2, buf+j+1);
-      break;
-    default :
-      break;
-    }
-  } 
-
-}
+// Classe pour la gestion de persistance
+// ObjFileIO<DVList>
+
 
 //++
@@ -397 +317 @@
 //|     int m =  dvlr["hello"] ;   //  m = 88
 //--
+
+
+
+/* --Methode-- */
+void        ObjFileIO<DVList>::WriteSelf(POutPersist& s) const
+{
+char buf[320];
+
+int lc = dobj->Comment().length();
+if (lc > 319) lc = 319;
+if (lc > 0) {
+  sprintf(buf,"Comment: ( %6d ) ", lc); 
+  s.PutLine(buf);
+  s.PutBytes(dobj->Comment().c_str(), lc);
+  }
+s.PutLine("----Variable-List---------------");
+DVList::ValList::const_iterator it;
+for(it = dobj->Begin(); it != dobj->End(); it++)  {
+  switch ((*it).second.typ) 
+    {
+    case 'I' :
+      sprintf(buf,"I %s %d", (*it).first.substr(0,64).c_str(), (*it).second.mtv.iv );
+      s.PutLine(buf); 
+      break;
+    case 'D' : 
+      sprintf(buf,"D %s %.20g", (*it).first.substr(0,64).c_str(), (*it).second.mtv.dv );
+      s.PutLine(buf); 
+      break;
+    case 'S' : 
+      sprintf(buf,"S %s %s", (*it).first.substr(0,64).c_str(), (*it).second.mtv.strv );
+      s.PutLine(buf); 
+      break;
+    default :
+      break;
+    }
+  }
+
+s.PutLine("ZZZZZ--End-of-Varible-List------");
+}
+
+/* --Methode-- */
+void        ObjFileIO<DVList>::ReadSelf(PInPersist& s)
+{
+char buf[320];
+int_4 j,iv;
+double dv;
+bool ok=true;
+buf[0] = '\0';
+dobj->Clear();
+
+s.GetLine(buf, 319);  // Pour lire les "------- "
+if (buf[0] != '-') {  // Il y a un champ commentaire a lire 
+  buf[18] ='\0';
+  int lc = atoi(buf+11);
+  if (lc > 319)  { 
+    cerr << "DVList::ReadSelf() Pb/Bug ??  CommentLength= " << lc << endl;
+    lc = 319;
+    }
+  s.GetBytes(buf, lc);
+  buf[lc] ='\0';
+  dobj->Comment() = buf;
+  }
+
+while(ok) {
+  s.GetLine(buf, 319);
+  buf[319] = '\0';
+  if (strncmp(buf,"ZZZZZ",5) == 0)  { ok=false; break; }
+  j = posc(buf+2, ' ')+2;
+  buf[j] = '\0';
+  switch (buf[0])
+    {
+    case 'I' :
+      iv = (int_4)atol(buf+j+1);
+      dobj->SetI(buf+2, iv);
+      break;
+    case 'D' :
+      dv = atof(buf+j+1);
+      dobj->SetD(buf+2, dv);
+      break;
+    case 'S' :
+      dobj->SetS(buf+2, buf+j+1);
+      break;
+    default :
+      break;
+    }
+  } 
+}
+
+#ifdef __CXX_PRAGMA_TEMPLATES__
+#pragma define_template ObjFileIO<DVList>
+#endif
+
+#if defined(ANSI_TEMPLATES) || defined(GNU_TEMPLATES)
+template class ObjFileIO<DVList>;
+#endif