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

Timestamp:

Dec 5, 2002, 12:16:52 PM (23 years ago)

Author:

ansari

Message:

modifs cxxexecutor avec options declarevars + echo2file - Reza 5/12/02

File:

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

trunk/SophyaPI/PIext/cxxexecutor.cc

@@ -15 +15 @@
   : mUserCodeFn(""), mUserFctFn("")
   , mCompOpt(""), mLinkOpt(""), mMyLibs("")
-  , mDefRoot("cxx_spiapp"), mDefFunc("usercxx"), mPrtLevel(2)
+  , mDefRoot("cxx_spiapp"), mDefFunc("usercxx"), mPrtLevel(2), mFgPutVar(false)
 {
 mIncList.resize(0);
@@ -121 +121 @@
 usage+= "       c++import -?? : list of available modules for executor\n";
 usage+= "Warning: to be used before c++create c++compile c++exec ...";
+mpiac->RegisterCommand(kw, usage, this, hgrp);
+
+kw = "c++declareomgvar";
+usage = "c++declareomgvar: Activate/Deactivate ObjectManager variables declaration \n";
+usage+= "Usage: c++declareomgvar [false/true] \n";
+usage+= "   if true, the ObjectManager variables are declared as $varname \n";
+usage+= "   no arguments: display the current status of the flag (default=false\n";
 mpiac->RegisterCommand(kw, usage, this, hgrp);
 
@@ -234 +241 @@
   }
   FillModuleImport(tokens);
-
+} else if(kw == "c++declareomgvar") {
+  if (tokens.size() <1) {
+    string fgstat = (mFgPutVar) ? "TRUE" : "FALSE" ; 
+    cout << " c++declareomgvar: Current flag status: " <<  fgstat << endl;
+  }
+  else {
+    if (tokens[0] == "true") DeclareObjMgrVar(true);
+    else  if (tokens[0] == "false") DeclareObjMgrVar(false);
+  }
 } else if(kw == "c++prtlevel") {
   if(tokens.size()==1) if(tokens[0]=="-?")
@@ -300 +315 @@
 os<<endl;
 
-PutVar(os);
+if (mFgPutVar) PutVar(os);
 os<<endl;
 
@@ -388 +403 @@
   <<"  om.DisplayObj(name, opt); \n"
   <<"} \n" << endl;
-
-os<<"//---- Objects and variables saving"<<endl
-  <<"#define KeepObj(obj) Keep_Object(obj, #obj);"<<endl
-  <<"#define KeepVar(var) ___nomobj = #var; omg.GetVarList().Get(___nomobj) = var ;"<<endl
+os<<"//---- function for getting and setting ObjectManager variables  " << endl;
+os<<"void Set_ObjMgrVar(MuTyV v, string const & nom) \n{ \n" 
+  <<"  NamedObjMgr om; \n"
+  <<"  om.SetVar(nom, (string)v); \n"
+  <<"} \n" << endl;
+os<<"MuTyV Get_ObjMgrVar(const char * nom) \n{ \n" 
+  <<"  string name = nom; NamedObjMgr om; \n"
+  <<"  MuTyV v = om.GetVar(name); \n"
+  <<"  return v; \n"
+  <<"} \n" << endl;
+
+os<<"//---- Macro for Objects and variables saving"<<endl
+  <<"#define KeepObj(obj) Keep_Object(obj, #obj)"<<endl
+  <<"#define GetOMVar(var) Get_ObjMgrVar( #var )"<<endl
+  <<"#define SetOMVar(var) Set_ObjMgrVar(var, #var )"<<endl
   <<endl;
 
-os<<"//---- Displaying objects and command execution"<<endl;
+os<<"//---- Macro Displaying objects and command execution"<<endl;
 os<<"#define DisplayObj(obj, att) Display_Object(obj, att, #obj); \n" << endl;
 os<<"#define ExecuteCommand(cmd) srvo.ExecuteCommand(cmd); \n" << endl;