Changeset 589 in Sophya for trunk/SophyaProg/Tests

Timestamp:

Nov 17, 1999, 4:58:23 PM (26 years ago)

Author:

ansari

Message:

ajoute possibilite lecture sequentielle meme si tags

File:

• trunk/SophyaProg/Tests/scanppf.cc (modified) (3 diffs)

trunk/SophyaProg/Tests/scanppf.cc

@@ -14 +14 @@
 
 if (narg < 2) {
-  cerr << " Usage: scanppf filename \n " <<  endl;
+  cerr << " Usage: scanppf filename [s]\n " <<  endl;
   exit(0);
   }
@@ -20 +20 @@
 try {
   string flnm = arg[1];
+  bool seq=false;
+  if (narg > 2) seq=true;
   PPersist* op = NULL;
   cout << " Opening PPF file " << flnm << endl; 
@@ -30 +32 @@
     if (op) delete op;
   }
-  else for(int i=0; i<nt; i++) {
-    cout << ">>> TagNum= " << i << " TagName= " << s.GetTagName(i) << endl;
-    s.GotoTagNum(i);
-    op = s.ReadObject();
-    cout << " Object Type " << typeid(*op).name() << endl;
-    if (op) delete op;
+  else if (!seq) {
+    for(int i=0; i<nt; i++) {
+      cout << ">>> TagNum= " << i << " TagName= " << s.GetTagName(i) << endl;
+      s.GotoTagNum(i);
+      op = s.ReadObject();
+      cout << " Object Type " << typeid(*op).name() << endl;
+      if (op) delete op;
+    }
+  } else {
+    while (1) {
+      op = s.ReadObject();
+      cout << " Object Type " << typeid(*op).name() << endl;
+      if (op) delete op;
+    }
   }
 }