Changeset 3423 in Sophya for trunk/SophyaPI/PIext/basexecut.cc

Timestamp:

Dec 8, 2007, 11:21:02 PM (18 years ago)

Author:

ansari

Message:

ajout possibilite lecture ppf sequentielle (sans nametag) avec openppf et amelioration texte de help piapp, Reza 08/12/2007

File:

• trunk/SophyaPI/PIext/basexecut.cc (modified) (3 diffs)

trunk/SophyaPI/PIext/basexecut.cc

@@ -129 +129 @@
 
 else if (kw == "openppf" ) {
-  if (tokens.size()<1) {cout<<"Usage: openppf file [objname1 objname2 ...]"<<endl; return(0); }
-  else if (tokens.size()==1) mObjMgr->ReadAll(tokens[0]);  
-  else mObjMgr->ReadObj(tokens); 
+  if (tokens.size()<1) { 
+    cout<<"Usage: openppf [-s] file [objname1 objname2 ...]"<<endl; 
+    return(0); 
+  }
+  else if (tokens.size()==1)   // read all objects at nametags
+    mObjMgr->ReadAll(tokens[0],true);  
+  else { 
+    if (tokens[0] == "-s")  // Read all objects sequentially
+      mObjMgr->ReadAll(tokens[1],false);  
+    else mObjMgr->ReadObj(tokens);   // read specified objects
+  }
 }
 else if ((kw == "saveobjs") || (kw == "saveppf"))  {
@@ -925 +933 @@
 
 kw = "openppf";
-usage = "Reads all or some objects from a PPF file \n Usage: openppf filename [objname1 objname2 ...]";
-usage += "\n  Related commands: saveall ";  
+usage = "Reads all or some objects from a PPF file";
+usage += "\n  Usage: (1) openppf filename ";
+usage += "\n     Or  (2) openppf -s filename (2)";
+usage += "\n     Or  (3) openppf filename objname1 [ objname2 ...]";
+usage += "\n  The first form reads all objects at NameTags,";
+usage += "\n    or all objects if the file has no NameTags.";     
+usage += "\n  The third reads only the objects with the specified nametags";
+usage += "\n  Related commands: saveppf saveall savelist";  
 mpiac->RegisterCommand(kw, usage, this, "FileIO");
 kw = "saveppf";
@@ -1007 +1021 @@
 kw = "listobjs";
 usage = "Prints the list of objects (Alias: ls)";
- usage += "\n Usage: listobjs [patt=*] \n patt : /*/x?y* ... ";
+usage += "\n Usage: listobjs [patt=*]  ";
+usage += "\n    Or  listobjs patt VarName ";
+ usage += "\n   Obj. name pattern patt in the form abc?x* or /*/x?y ... ";
 mpiac->RegisterCommand(kw, usage, this, "Object Management");
 kw = "rename";