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

Timestamp:

Aug 13, 2002, 12:43:33 PM (23 years ago)

Author:

cmv

Message:

command eval dans spiapp cmv 13/8/02

File:

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

trunk/SophyaPI/PIext/basexecut.cc

@@ -716 +716 @@
   }
 
+// >>>>>>>>>>>  Calcul d'expression arithmetique
+else if ( (kw == "eval") ) {
+  if(tokens.size()<2)
+    {cout<<"Usage: eval resultvarname arithmetic expression...."<<endl; return(0);}
+  string expval = "";
+  for(unsigned int i=1;i<tokens.size();i++) expval+=tokens[i];
+  string resultvarname = "";
+  if(isalpha(tokens[0][0])) resultvarname=tokens[0];
+  mObjMgr->GetServiceObj()->ExpVal(expval,resultvarname); 
+  }
 
 else  { 
@@ -1230 +1240 @@
 mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
 
+
+kw = "eval";
+usage = "Compute arithmetic expression\n";
+usage += "\n Usage: eval resultvarname arithmetic expression....";
+usage += "\n  resultvarname: store result in variable resultvarname";
+usage += "\n    - If first character is not alphabetic, just print result";
+usage += "\n  arithmetic expression:";
+usage += "\n      ex: x + sqrt(y)+z +3.14    (x,y,z are variables)";
+usage += "\n      ex: $x + sqrt($y)+$z +3.14 (x,y,z are variables)";
+usage += "\n      ex: 360 * M_PI / 180.";
+mpiac->RegisterCommand(kw, usage, this, "Expr. Arithmetic");
+
 }