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

Timestamp:

Aug 2, 1999, 6:52:49 PM (26 years ago)

Author:

ercodmgr

Message:

1/ Extension de fonctionalites de gestion de repertoires (Lock, ...)
2/ Plus de NTupIntf_Adapter quand les objets heritent de NTupleInterface
3/ Support pour affichage info texte, ds PINtuple et PIStarList

File:

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

trunk/SophyaPI/PIext/basexecut.cc

@@ -155 +155 @@
 // Gestion des repertoires
 else if (kw == "mkdir" ) {
-  if (tokens.size() < 1) { cout << "Usage: mkdir dirname " << endl; return(0); }
-  mObjMgr->CreateDir(tokens[0]);  
+  if (tokens.size() < 1) { cout << "Usage: mkdir dirname [true]" << endl; return(0); }
+  bool crd = mObjMgr->CreateDir(tokens[0]);  
+  if ( crd && (tokens.size() > 1) && (tokens[1] == "true") )
+    mObjMgr->SetKeepOldDirAtt(tokens[0], true);
   }
 else if (kw == "rmdir" ) {
@@ -460 +462 @@
 else if (kw == "ntloop" ) {
   if (tokens.size() < 3) { 
-    cout << "Usage: ntloop nameobj fname funcname [ntname]" << endl;
+    cout << "Usage: ntloop nameobj fname funcname [ntname [N1 N2] ]" << endl;
     return(0);
     }
   if (tokens.size() < 4)  tokens.push_back("");
-  srvo->FillNTFrCFile(tokens[0],tokens[1], tokens[2], tokens[3]);
+  if (tokens[3] == "!") tokens[3] = "";
+  int nl1 = -1;
+  int nl2 = -1;
+  if (tokens.size() > 5) { 
+    nl1 = atoi(tokens[4].c_str()); 
+    nl2 = atoi(tokens[5].c_str());
+    }
+  srvo->FillNTFrCFile(tokens[0],tokens[1], tokens[2], tokens[3], nl1, nl2);
   }
 
@@ -626 +635 @@
 kw = "mkdir";
 usage = "Create a directory";
-usage += "\n Usage: mkdir dirname";
+usage += "\n Usage: mkdir dirname [true]";
+usage += "\n if second argument==true, the directory's KeepOld attribute is set to true";
 mpiac->RegisterCommand(kw, usage, this, "Object Managment");
 kw = "rmdir";
@@ -796 +806 @@
 usage = "Loops over an Object NTupleInterface calling a function from a C-file \n";
 usage += "and optionaly fills an NTuple(x,y,z,t) with (X=f(Object),Y=g(...),Z=h(...),T=k(...))";
-usage += "\n Usage: ntloop nameobj CFileName FuncName [NtupleName]";
+usage += "\n Usage: ntloop nameobj CFileName FuncName [NtupleName [N1 N2] ]";
+usage += "\n Or:    ntloop nameobj CFileName FuncName ! N1 N2 ";
 usage += "\n  Related commands: ntexpcfile fillnt";
 mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");