Changeset 1262 in Sophya for trunk/SophyaPI/PIext/cxxexecutor.cc

Timestamp:

Oct 27, 2000, 6:30:28 PM (25 years ago)

Author:

ercodmgr

Message:

Reorganisation classe PIACmd (interpreteur de piapp) - Utilisation des services de NameObjMgr pour les variables de l'interpreteur - Reza 27/10/2000

File:

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

trunk/SophyaPI/PIext/cxxexecutor.cc

@@ -96 +96 @@
 mpiac->RegisterCommand(kw, usage, this, hgrp);
 
-
-
-//// A VIRER quand variable de objmanager OK  --> Pour Reza
-kw = "c++setvar";
-usage = "c++setvar: Setting test variable \n";
-usage+= "Usage: c++setvar varname varcontent ";
-mpiac->RegisterCommand(kw, usage, this, hgrp);
-
-kw = "c++getvar";
-usage = "c++getvar: Getting test variable content\n";
-usage+= "Usage: c++getvar varname ";
-mpiac->RegisterCommand(kw, usage, this, hgrp);
-
-kw = "c++varlist";
-usage = "c++getvar: Printing test variable list\n";
-usage+= "Usage: c++varlist  ";
-mpiac->RegisterCommand(kw, usage, this, hgrp);
-//// A VIRER quand variable de objmanager OK  --> Pour Reza
 
 }
@@ -222 +204 @@
 
 /* --Methode-- */
+int CxxExecutor::ExecuteCxx(string const & code)
+{
+  int rc;
+
+  mUserCodeFn = "";
+  mUserCodeFn = "cxx_spiapp.h";
+  ofstream os(mUserCodeFn.c_str(),ios::out);
+  if(!os) {cout<<"CxxExecutor::ExecuteCxx(): unable to open "
+               <<mUserCodeFn<<endl;  mUserCodeFn = ""; return 1;}
+  
+  os << code ;
+  os << endl ;
+
+  cout<<"CxxExecutor: User code filled from standard input into "
+      <<mUserCodeFn<<endl;
+  
+  rc = CrFile();   if(rc) return(1);
+  rc = Compile();  if(rc) return(1);
+  rc = Link();     if(rc) return(1);
+  rc = Call();     if(rc) return(1);
+  return(rc);
+}
+
+/* --Methode-- */
 int CxxExecutor::CrFile(string cfilename,string func)
 {
@@ -362 +368 @@
 for(it=varlist.Begin(); it!=varlist.End(); it++) {
   string key = (*it).first;
-  os<<"___nomobj = \""<<key<<"\";"<<endl;
-  os<<"MuTyV & $"<<key<<" = omg.GetVarList().Get(___nomobj);"<<endl;
+  if (isalpha(key[0]) ) {
+    os<<"___nomobj = \""<<key<<"\";"<<endl;
+    os<<"MuTyV & $"<<key<<" = omg.GetVarList().Get(___nomobj);"<<endl;
+  }
 }