Runtime.cxx

Go to the documentation of this file.

// Copyright (C) 2006-2016  CEA/DEN, EDF R&D
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
//
// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
//

#include "Runtime.hxx"

#include<cassert>
#include "WhileLoop.hxx"
#include "ForLoop.hxx"
#include "ForEachLoop.hxx"
#include "OptimizerLoop.hxx"
#include "Switch.hxx"
#include "Bloc.hxx"
#include "Proc.hxx"
#include "InputDataStreamPort.hxx"
#include "OutputDataStreamPort.hxx"
#include "Catalog.hxx"
#include "TypeCode.hxx"
#include "Executor.hxx"

#include<iostream>
#include<cstdlib>

//#define _DEVDEBUG_
#include "YacsTrace.hxx"

using namespace YACS::ENGINE;
using namespace std;

Runtime* Runtime::_singleton = 0;
TypeCode* Runtime::_tc_double = 0;
TypeCode* Runtime::_tc_int = 0;
TypeCode* Runtime::_tc_bool = 0;
TypeCode* Runtime::_tc_string = 0;
TypeCode* Runtime::_tc_file = 0;
TypeCode* Runtime::_tc_stringpair = 0;
TypeCode* Runtime::_tc_propvec = 0;

// --- init typecodes for edInit with C++ Any


const char Runtime::RUNTIME_ENGINE_INTERACTION_IMPL_NAME[]="Neutral";

// singleton creation must be done before by a derived class

Runtime* YACS::ENGINE::getRuntime() throw(Exception)
{
  if ( !  Runtime::_singleton )
    throw Exception("Runtime is not yet initialized");
  return Runtime::_singleton;
}

Runtime::Runtime()
{
  DEBTRACE("Runtime::Runtime");
  Runtime::_tc_double = new TypeCode(Double);
  Runtime::_tc_int    = new TypeCode(Int);
  Runtime::_tc_bool   = new TypeCode(Bool);
  Runtime::_tc_string = new TypeCode(String);
  Runtime::_tc_file = new TypeCodeObjref("file", "file");
  TypeCodeStruct * stringpair = new TypeCodeStruct("stringpair", "stringpair");
  stringpair->addMember("name", Runtime::_tc_string);
  stringpair->addMember("value", Runtime::_tc_string);
  Runtime::_tc_stringpair = stringpair;
  Runtime::_tc_propvec = new TypeCodeSeq("propvec", "propvec", Runtime::_tc_stringpair);
  DEBTRACE( "_tc_double refcnt: " << Runtime::_tc_double->getRefCnt() );
  DEBTRACE( "_tc_int refcnt: " << Runtime::_tc_int->getRefCnt() );
  DEBTRACE( "_tc_bool refcnt: " << Runtime::_tc_bool->getRefCnt() );
  DEBTRACE( "_tc_string refcnt: " << Runtime::_tc_string->getRefCnt() );
  DEBTRACE( "_tc_file refcnt: " << Runtime::_tc_file->getRefCnt() );
  DEBTRACE( "_tc_stringpair refcnt: " << Runtime::_tc_stringpair->getRefCnt() );
  DEBTRACE( "_tc_propvec refcnt: " << Runtime::_tc_propvec->getRefCnt() );
  _builtinCatalog = new Catalog("builtins");
  std::map<std::string,TypeCode*>& typeMap=_builtinCatalog->_typeMap;
  /* All composed node creations are moved to RuntimeSALOME::initBuiltins.
     It is not safe to have all those calls to virtual functions (create*)
     in the constructor. */
  Runtime::_tc_double->incrRef();
  typeMap["double"]=Runtime::_tc_double;
  Runtime::_tc_int->incrRef();
  typeMap["int"]=Runtime::_tc_int;
  Runtime::_tc_bool->incrRef();
  typeMap["bool"]=Runtime::_tc_bool;
  Runtime::_tc_string->incrRef();
  typeMap["string"]=Runtime::_tc_string;
  Runtime::_tc_file->incrRef();
  typeMap["file"]=Runtime::_tc_file;
  Runtime::_tc_stringpair->incrRef();
  typeMap["stringpair"]=Runtime::_tc_stringpair;
  Runtime::_tc_propvec->incrRef();
  typeMap["propvec"]=Runtime::_tc_propvec;

  // Get dynamic trace level
  YACS::traceLevel=0;
  char* valenv=getenv("YACS_TRACELEVEL");
  if(valenv)
    {
      std::istringstream iss(valenv);
      int temp;
      if (iss >> temp)
        YACS::traceLevel=temp;
    }

  // Get max threads number
  char *maxThreadStr = getenv("YACS_MAX_THREADS");
  if (maxThreadStr != NULL)
    {
      int maxThreads = atoi(maxThreadStr);
      DEBTRACE("maxThreads = " << maxThreads);
      if (maxThreads > 0) Executor::_maxThreads = maxThreads;
    }

  // Get thread stack size
  char *threadStackSizeStr = getenv("YACS_THREADS_STACK_SIZE");
  if (threadStackSizeStr != NULL)
    {
      size_t threadStackSize = strtoul(threadStackSizeStr, NULL, 0);
      DEBTRACE("threadStackSize = " << threadStackSize);
      if (threadStackSize > 0) Executor::_threadStackSize = threadStackSize;
    }
}

void Runtime::removeRuntime()
{
  delete this;
}

Runtime::~Runtime()
{
  delete _builtinCatalog;
  DEBTRACE( "_tc_double refcnt: " << Runtime::_tc_double->getRefCnt() );
  DEBTRACE( "_tc_int refcnt: " << Runtime::_tc_int->getRefCnt() );
  DEBTRACE( "_tc_bool refcnt: " << Runtime::_tc_bool->getRefCnt() );
  DEBTRACE( "_tc_string refcnt: " << Runtime::_tc_string->getRefCnt() );
  DEBTRACE( "_tc_file refcnt: " << Runtime::_tc_file->getRefCnt() );
  Runtime::_tc_double->decrRef();
  Runtime::_tc_int->decrRef();
  Runtime::_tc_bool->decrRef();
  Runtime::_tc_string->decrRef();
  Runtime::_tc_file->decrRef();
  for(std::vector<Catalog *>::iterator it=_catalogs.begin();it !=_catalogs.end();it++)
    (*it)->decrRef();
  Runtime::_singleton=0;
  DEBTRACE( "Total YACS::ENGINE::Refcount: " << RefCounter::_totalCnt );
}

TypeCode * Runtime::createInterfaceTc(const std::string& id, const std::string& name,
                                      std::list<TypeCodeObjref *> ltc)
{
  return TypeCode::interfaceTc(id.c_str(),name.c_str(),ltc);
}

TypeCode * Runtime::createSequenceTc(const std::string& id,
                                     const std::string& name,
                                     TypeCode *content)
{
  return TypeCode::sequenceTc(id.c_str(),name.c_str(),content);
};

TypeCodeStruct * Runtime::createStructTc(const std::string& id, const std::string& name)
{
  return (TypeCodeStruct *)TypeCode::structTc(id.c_str(),name.c_str());
}

DataNode* Runtime::createInDataNode(const std::string& kind,const std::string& name)
{
  throw Exception("InDataNode factory not implemented");
}

DataNode* Runtime::createOutDataNode(const std::string& kind,const std::string& name)
{
  throw Exception("OutDataNode factory not implemented");
}

InlineFuncNode* Runtime::createFuncNode(const std::string& kind,const std::string& name)
{
  throw Exception("FuncNode factory not implemented");
}

InlineNode* Runtime::createScriptNode(const std::string& kind,const std::string& name)
{
  throw Exception("ScriptNode factory not implemented");
}

ServiceNode* Runtime::createRefNode(const std::string& kind,const std::string& name)
{
  throw Exception("RefNode factory not implemented");
}

ServiceNode* Runtime::createCompoNode(const std::string& kind,const std::string& name)
{
  throw Exception("CompoNode factory not implemented");
}

ServiceInlineNode *Runtime::createSInlineNode(const std::string& kind, const std::string& name)
{
  throw Exception("SInlineNode factory not implemented");
}

ComponentInstance* Runtime::createComponentInstance(const std::string& name,
                                                    const std::string& kind)
{
  throw Exception("ComponentInstance factory not implemented");
}

Container *Runtime::createContainer(const std::string& kind)
{
  throw Exception("Container factory not implemented");
}

Proc* Runtime::createProc(const std::string& name)
{
  return new Proc(name);
}

Bloc* Runtime::createBloc(const std::string& name)
{
  return new Bloc(name);
}

Switch* Runtime::createSwitch(const std::string& name)
{
  return new Switch(name);
}

WhileLoop* Runtime::createWhileLoop(const std::string& name)
{
  return new WhileLoop(name);
}

ForLoop* Runtime::createForLoop(const std::string& name)
{
  return new ForLoop(name);
}

ForEachLoop* Runtime::createForEachLoop(const std::string& name,TypeCode *type)
{
  ForEachLoop* ret = new ForEachLoop(name,type);
  ret->edGetNbOfBranchesPort()->edInit(1);
  return ret;
}

OptimizerLoop* Runtime::createOptimizerLoop(const std::string& name,const std::string& algLib,const std::string& factoryName,bool algInitOnFile,
                                            const std::string& kind, Proc * procForTypes)
{
  return new OptimizerLoop(name,algLib,factoryName,algInitOnFile, true, procForTypes);
}

InputDataStreamPort* Runtime::createInputDataStreamPort(const std::string& name,Node *node,TypeCode *type)
{
  return new InputDataStreamPort(name,node,type);
}

OutputDataStreamPort* Runtime::createOutputDataStreamPort(const std::string& name,Node *node,TypeCode *type)
{
  return new OutputDataStreamPort(name,node,type);
}


Catalog* Runtime::loadCatalog(const std::string& sourceKind,const std::string& path)
{
  if (_catalogLoaderFactoryMap.find(sourceKind) == _catalogLoaderFactoryMap.end())
    {
      throw Exception("This type of catalog loader does not exist: " + sourceKind);
    }
  else
    {
      Catalog* cata=new Catalog(path);
      CatalogLoader* proto=_catalogLoaderFactoryMap[sourceKind];
      proto->load(cata,path);
      return cata;
    }
}


void Runtime::setCatalogLoaderFactory(const std::string& name, CatalogLoader* factory)
{
  _catalogLoaderFactoryMap[name]=factory;
}


Catalog* Runtime::getBuiltinCatalog()
{
  return _builtinCatalog;
}


void Runtime::addCatalog(Catalog* catalog)
{
  _catalogs.push_back(catalog);
  catalog->incrRef();
}


TypeCode* Runtime::getTypeCode(const std::string& name)
{
  if (_builtinCatalog->_typeMap.count(name) != 0)
    return _builtinCatalog->_typeMap[name];
  for(std::vector<Catalog *>::const_iterator it=_catalogs.begin();it !=_catalogs.end();it++)
    {
      if ((*it)->_typeMap.count(name) != 0)
        return (*it)->_typeMap[name];
    }
  return 0;
}


void* Runtime::convertNeutral(TypeCode * type, Any *data)
{
  throw Exception("convertNeutral is not implemented by your runtime");
}


std::string Runtime::convertNeutralAsString(TypeCode * type, Any *data)
{
  throw Exception("convertNeutralAsString is not implemented by your runtime");
}