1 // Copyright (C) 2006-2013 CEA/DEN, EDF R&D
3 // This library is free software; you can redistribute it and/or
4 // modify it under the terms of the GNU Lesser General Public
5 // License as published by the Free Software Foundation; either
6 // version 2.1 of the License.
8 // This library is distributed in the hope that it will be useful,
9 // but WITHOUT ANY WARRANTY; without even the implied warranty of
10 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 // Lesser General Public License for more details.
13 // You should have received a copy of the GNU Lesser General Public
14 // License along with this library; if not, write to the Free Software
15 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
20 #include "Runtime.hxx"
23 #include "WhileLoop.hxx"
24 #include "ForLoop.hxx"
25 #include "ForEachLoop.hxx"
26 #include "OptimizerLoop.hxx"
30 #include "InputDataStreamPort.hxx"
31 #include "OutputDataStreamPort.hxx"
32 #include "Catalog.hxx"
33 #include "TypeCode.hxx"
34 #include "Executor.hxx"
40 #include "YacsTrace.hxx"
42 using namespace YACS::ENGINE;
45 Runtime* Runtime::_singleton = 0;
46 TypeCode* Runtime::_tc_double = 0;
47 TypeCode* Runtime::_tc_int = 0;
48 TypeCode* Runtime::_tc_bool = 0;
49 TypeCode* Runtime::_tc_string = 0;
50 TypeCode* Runtime::_tc_file = 0;
51 TypeCode* Runtime::_tc_stringpair = 0;
52 TypeCode* Runtime::_tc_propvec = 0;
54 // --- init typecodes for edInit with C++ Any
57 const char Runtime::RUNTIME_ENGINE_INTERACTION_IMPL_NAME[]="Neutral";
59 // singleton creation must be done before by a derived class
61 Runtime* YACS::ENGINE::getRuntime() throw(Exception)
63 if ( ! Runtime::_singleton )
64 throw Exception("Runtime is not yet initialized");
65 return Runtime::_singleton;
70 DEBTRACE("Runtime::Runtime");
71 Runtime::_tc_double = new TypeCode(Double);
72 Runtime::_tc_int = new TypeCode(Int);
73 Runtime::_tc_bool = new TypeCode(Bool);
74 Runtime::_tc_string = new TypeCode(String);
75 Runtime::_tc_file = new TypeCodeObjref("file", "file");
76 TypeCodeStruct * stringpair = new TypeCodeStruct("stringpair", "stringpair");
77 stringpair->addMember("name", Runtime::_tc_string);
78 stringpair->addMember("value", Runtime::_tc_string);
79 Runtime::_tc_stringpair = stringpair;
80 Runtime::_tc_propvec = new TypeCodeSeq("propvec", "propvec", Runtime::_tc_stringpair);
81 DEBTRACE( "_tc_double refcnt: " << Runtime::_tc_double->getRefCnt() );
82 DEBTRACE( "_tc_int refcnt: " << Runtime::_tc_int->getRefCnt() );
83 DEBTRACE( "_tc_bool refcnt: " << Runtime::_tc_bool->getRefCnt() );
84 DEBTRACE( "_tc_string refcnt: " << Runtime::_tc_string->getRefCnt() );
85 DEBTRACE( "_tc_file refcnt: " << Runtime::_tc_file->getRefCnt() );
86 DEBTRACE( "_tc_stringpair refcnt: " << Runtime::_tc_stringpair->getRefCnt() );
87 DEBTRACE( "_tc_propvec refcnt: " << Runtime::_tc_propvec->getRefCnt() );
88 _builtinCatalog = new Catalog("builtins");
89 _builtinCatalog->_composednodeMap["Bloc"]=createBloc("Bloc");
90 _builtinCatalog->_composednodeMap["Switch"]=createSwitch("Switch");
91 _builtinCatalog->_composednodeMap["WhileLoop"]=createWhileLoop("WhileLoop");
92 _builtinCatalog->_composednodeMap["ForLoop"]=createForLoop("ForLoop");
93 _builtinCatalog->_composednodeMap["ForEachLoop_double"]=createForEachLoop("ForEachLoop_double",Runtime::_tc_double);
94 _builtinCatalog->_composednodeMap["ForEachLoop_string"]=createForEachLoop("ForEachLoop_string",Runtime::_tc_string);
95 _builtinCatalog->_composednodeMap["ForEachLoop_int"]=createForEachLoop("ForEachLoop_int",Runtime::_tc_int);
96 _builtinCatalog->_composednodeMap["ForEachLoop_bool"]=createForEachLoop("ForEachLoop_bool",Runtime::_tc_bool);
97 std::map<std::string,TypeCode*>& typeMap=_builtinCatalog->_typeMap;
98 Runtime::_tc_double->incrRef();
99 typeMap["double"]=Runtime::_tc_double;
100 Runtime::_tc_int->incrRef();
101 typeMap["int"]=Runtime::_tc_int;
102 Runtime::_tc_bool->incrRef();
103 typeMap["bool"]=Runtime::_tc_bool;
104 Runtime::_tc_string->incrRef();
105 typeMap["string"]=Runtime::_tc_string;
106 Runtime::_tc_file->incrRef();
107 typeMap["file"]=Runtime::_tc_file;
108 Runtime::_tc_stringpair->incrRef();
109 typeMap["stringpair"]=Runtime::_tc_stringpair;
110 Runtime::_tc_propvec->incrRef();
111 typeMap["propvec"]=Runtime::_tc_propvec;
113 // Get dynamic trace level
115 char* valenv=getenv("YACS_TRACELEVEL");
118 std::istringstream iss(valenv);
121 YACS::traceLevel=temp;
124 // Get max threads number
125 char *maxThreadStr = getenv("YACS_MAX_THREADS");
126 if (maxThreadStr != NULL)
128 int maxThreads = atoi(maxThreadStr);
129 DEBTRACE("maxThreads = " << maxThreads);
130 if (maxThreads > 0) Executor::_maxThreads = maxThreads;
133 // Get thread stack size
134 char *threadStackSizeStr = getenv("YACS_THREADS_STACK_SIZE");
135 if (threadStackSizeStr != NULL)
137 size_t threadStackSize = strtoul(threadStackSizeStr, NULL, 0);
138 DEBTRACE("threadStackSize = " << threadStackSize);
139 if (threadStackSize > 0) Executor::_threadStackSize = threadStackSize;
143 void Runtime::removeRuntime()
150 delete _builtinCatalog;
151 DEBTRACE( "_tc_double refcnt: " << Runtime::_tc_double->getRefCnt() );
152 DEBTRACE( "_tc_int refcnt: " << Runtime::_tc_int->getRefCnt() );
153 DEBTRACE( "_tc_bool refcnt: " << Runtime::_tc_bool->getRefCnt() );
154 DEBTRACE( "_tc_string refcnt: " << Runtime::_tc_string->getRefCnt() );
155 DEBTRACE( "_tc_file refcnt: " << Runtime::_tc_file->getRefCnt() );
156 Runtime::_tc_double->decrRef();
157 Runtime::_tc_int->decrRef();
158 Runtime::_tc_bool->decrRef();
159 Runtime::_tc_string->decrRef();
160 Runtime::_tc_file->decrRef();
161 for(std::vector<Catalog *>::iterator it=_catalogs.begin();it !=_catalogs.end();it++)
163 Runtime::_singleton=0;
164 DEBTRACE( "Total YACS::ENGINE::Refcount: " << RefCounter::_totalCnt );
167 TypeCode * Runtime::createInterfaceTc(const std::string& id, const std::string& name,
168 std::list<TypeCodeObjref *> ltc)
170 return TypeCode::interfaceTc(id.c_str(),name.c_str(),ltc);
173 TypeCode * Runtime::createSequenceTc(const std::string& id,
174 const std::string& name,
177 return TypeCode::sequenceTc(id.c_str(),name.c_str(),content);
180 TypeCodeStruct * Runtime::createStructTc(const std::string& id, const std::string& name)
182 return (TypeCodeStruct *)TypeCode::structTc(id.c_str(),name.c_str());
185 DataNode* Runtime::createInDataNode(const std::string& kind,const std::string& name)
187 throw Exception("InDataNode factory not implemented");
190 DataNode* Runtime::createOutDataNode(const std::string& kind,const std::string& name)
192 throw Exception("OutDataNode factory not implemented");
195 InlineFuncNode* Runtime::createFuncNode(const std::string& kind,const std::string& name)
197 throw Exception("FuncNode factory not implemented");
200 InlineNode* Runtime::createScriptNode(const std::string& kind,const std::string& name)
202 throw Exception("ScriptNode factory not implemented");
205 ServiceNode* Runtime::createRefNode(const std::string& kind,const std::string& name)
207 throw Exception("RefNode factory not implemented");
210 ServiceNode* Runtime::createCompoNode(const std::string& kind,const std::string& name)
212 throw Exception("CompoNode factory not implemented");
215 ServiceInlineNode *Runtime::createSInlineNode(const std::string& kind, const std::string& name)
217 throw Exception("SInlineNode factory not implemented");
220 ComponentInstance* Runtime::createComponentInstance(const std::string& name,
221 const std::string& kind)
223 throw Exception("ComponentInstance factory not implemented");
226 Container *Runtime::createContainer(const std::string& kind)
228 throw Exception("Container factory not implemented");
231 Proc* Runtime::createProc(const std::string& name)
233 return new Proc(name);
236 Bloc* Runtime::createBloc(const std::string& name)
238 return new Bloc(name);
241 Switch* Runtime::createSwitch(const std::string& name)
243 return new Switch(name);
246 WhileLoop* Runtime::createWhileLoop(const std::string& name)
248 return new WhileLoop(name);
251 ForLoop* Runtime::createForLoop(const std::string& name)
253 return new ForLoop(name);
256 ForEachLoop* Runtime::createForEachLoop(const std::string& name,TypeCode *type)
258 return new ForEachLoop(name,type);
261 OptimizerLoop* Runtime::createOptimizerLoop(const std::string& name,const std::string& algLib,const std::string& factoryName,bool algInitOnFile,
262 const std::string& kind, Proc * procForTypes)
264 return new OptimizerLoop(name,algLib,factoryName,algInitOnFile, true, procForTypes);
267 InputDataStreamPort* Runtime::createInputDataStreamPort(const std::string& name,Node *node,TypeCode *type)
269 return new InputDataStreamPort(name,node,type);
272 OutputDataStreamPort* Runtime::createOutputDataStreamPort(const std::string& name,Node *node,TypeCode *type)
274 return new OutputDataStreamPort(name,node,type);
277 //! Load a catalog of calculation to use as factory
279 * \param sourceKind: the kind of catalog source. It depends on runtime. It could be a file, a server, a directory
280 * \param path: the path to the catalog.
281 * \return the loaded Catalog
283 Catalog* Runtime::loadCatalog(const std::string& sourceKind,const std::string& path)
285 if (_catalogLoaderFactoryMap.find(sourceKind) == _catalogLoaderFactoryMap.end())
287 throw Exception("This type of catalog loader does not exist: " + sourceKind);
291 Catalog* cata=new Catalog(path);
292 CatalogLoader* proto=_catalogLoaderFactoryMap[sourceKind];
293 proto->load(cata,path);
298 //! Add a catalog loader factory to the map _catalogLoaderFactoryMap under the name name
300 * \param name: name under which the factory is registered
301 * \param factory: the factory
303 void Runtime::setCatalogLoaderFactory(const std::string& name, CatalogLoader* factory)
305 _catalogLoaderFactoryMap[name]=factory;
308 //! Get the catalog of base nodes (elementary and composed)
310 * \return the builtin Catalog
312 Catalog* Runtime::getBuiltinCatalog()
314 return _builtinCatalog;
317 //! Add a catalog of types and nodes to the runtime
319 * These catalogs are searched when calling getTypeCode method
321 void Runtime::addCatalog(Catalog* catalog)
323 _catalogs.push_back(catalog);
327 //! Get a typecode by its name from runtime catalogs
329 * \return the typecode if it exists or NULL
331 TypeCode* Runtime::getTypeCode(const std::string& name)
333 if (_builtinCatalog->_typeMap.count(name) != 0)
334 return _builtinCatalog->_typeMap[name];
335 for(std::vector<Catalog *>::const_iterator it=_catalogs.begin();it !=_catalogs.end();it++)
337 if ((*it)->_typeMap.count(name) != 0)
338 return (*it)->_typeMap[name];
343 //! Convert a YACS::ENGINE::Any object to an external object with type type
345 * This method is used to convert Neutral objects to script languages. For example
346 * Python language. The runtime has one external script language.
347 * The object is returned as a void * because engine knows nothing about external script language.
349 * \param type: the type of the converted object if the conversion is possible
350 * \param data: the object to convert
351 * \return the converted object
353 void* Runtime::convertNeutral(TypeCode * type, Any *data)
355 throw Exception("convertNeutral is not implemented by your runtime");
358 //! Convert a YACS::ENGINE::Any object to a string to be used in GUI for example
360 * engine package does not provide a conversion to string. It has to be implemented in the
363 * \param type: the type of the object to convert
364 * \param data: the object to convert
365 * \return the string representation of the object
367 std::string Runtime::convertNeutralAsString(TypeCode * type, Any *data)
369 throw Exception("convertNeutralAsString is not implemented by your runtime");