-// Copyright (C) 2005 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
+// Copyright (C) 2007-2017 CEA/DEN, EDF R&D, OPEN CASCADE
+//
+// Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
-//
+//
// 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.
-//
-// 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
+// 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
+// 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 "SALOME_ContainerManager.hxx"
+#include "SALOME_ResourcesManager.hxx"
+#include "SALOME_LoadRateManager.hxx"
#include "SALOME_NamingService.hxx"
-#include "OpUtil.hxx"
+#include "SALOME_ResourcesManager_Client.hxx"
+#include "SALOME_ModuleCatalog.hh"
+#include "Basics_Utils.hxx"
+#include "Basics_DirUtils.hxx"
#include <sys/types.h>
-#ifndef WNT
+#include <sys/stat.h>
+#include <signal.h>
+#ifndef WIN32
#include <unistd.h>
#endif
#include <vector>
#include "Utils_CorbaException.hxx"
-#include "Batch_Date.hxx"
+#include <sstream>
+#include <string>
+
+#include <SALOMEconfig.h>
+#include CORBA_CLIENT_HEADER(SALOME_Session)
+
+#ifdef HAVE_MPI2
+#include <mpi.h>
+#endif
+
+#ifdef WIN32
+#include <process.h>
+#define getpid _getpid
+#endif
#ifdef WITH_PACO_PARALLEL
-#include "PaCO++.h"
+#include "PaCOPP.hxx"
#endif
-#define TIME_OUT_TO_LAUNCH_CONT 21
+const int SALOME_ContainerManager::TIME_OUT_TO_LAUNCH_CONT=60;
-using namespace std;
+const char *SALOME_ContainerManager::_ContainerManagerNameInNS =
+ "/ContainerManager";
-vector<Engines::Container_ptr> SALOME_ContainerManager::_batchLaunchedContainers;
+omni_mutex SALOME_ContainerManager::_numInstanceMutex;
-vector<Engines::Container_ptr>::iterator SALOME_ContainerManager::_batchLaunchedContainersIter;
+Utils_Mutex SALOME_ContainerManager::_getenvMutex;
-const char *SALOME_ContainerManager::_ContainerManagerNameInNS =
- "/ContainerManager";
+Utils_Mutex SALOME_ContainerManager::_systemMutex;
//=============================================================================
-/*!
+/*!
* Constructor
* \param orb
* Define a CORBA single thread policy for the server, which avoid to deal
*/
//=============================================================================
-SALOME_ContainerManager::SALOME_ContainerManager(CORBA::ORB_ptr orb, PortableServer::POA_var poa, SALOME_ResourcesManager *rm, SALOME_NamingService *ns)
+SALOME_ContainerManager::SALOME_ContainerManager(CORBA::ORB_ptr orb, PortableServer::POA_var poa, SALOME_NamingService *ns)
+ : _nbprocUsed(1)
{
MESSAGE("constructor");
_NS = ns;
- _ResManager = rm;
- _id=0;
+ _resManager = new SALOME_ResourcesManager_Client(ns);
PortableServer::POAManager_var pman = poa->the_POAManager();
_orb = CORBA::ORB::_duplicate(orb) ;
CORBA::PolicyList policies;
policies.length(1);
- PortableServer::ThreadPolicy_var threadPol =
- poa->create_thread_policy(PortableServer::SINGLE_THREAD_MODEL);
+ PortableServer::ThreadPolicy_var threadPol(poa->create_thread_policy(PortableServer::ORB_CTRL_MODEL));
policies[0] = PortableServer::ThreadPolicy::_duplicate(threadPol);
- _poa = poa->create_POA("SThreadPOA",pman,policies);
+ _poa = poa->create_POA("MThreadPOA",pman,policies);
threadPol->destroy();
PortableServer::ObjectId_var id = _poa->activate_object(this);
CORBA::Object_var obj = _poa->id_to_reference(id);
Engines::ContainerManager::_narrow(obj);
_NS->Register(refContMan,_ContainerManagerNameInNS);
+ _isAppliSalomeDefined = (GetenvThreadSafe("APPLI") != 0);
+
+#ifdef HAVE_MPI2
+#ifdef OPEN_MPI
+ _pid_mpiServer = -1;
+ // the urifile name depends on pid of the process
+ std::stringstream urifile;
+ urifile << GetenvThreadSafeAsString("HOME") << "/.urifile_" << getpid();
+ setenv("OMPI_URI_FILE",urifile.str().c_str(),1);
+ if( GetenvThreadSafe("OMPI_URI_FILE") != NULL ){
+ // get the pid of all ompi-server
+ std::set<pid_t> thepids1 = getpidofprogram("ompi-server");
+ // launch a new ompi-server
+ std::string command;
+ command = "ompi-server -r ";
+ command += GetenvThreadSafeAsString("OMPI_URI_FILE");
+ int status=SystemThreadSafe(command.c_str());
+ if(status!=0)
+ throw SALOME_Exception("Error when launching ompi-server");
+ // get the pid of all ompi-server
+ std::set<pid_t> thepids2 = getpidofprogram("ompi-server");
+ // my ompi-server is the new one
+ std::set<pid_t>::const_iterator it;
+ for(it=thepids2.begin();it!=thepids2.end();it++)
+ if(thepids1.find(*it) == thepids1.end())
+ _pid_mpiServer = *it;
+ if(_pid_mpiServer < 0)
+ throw SALOME_Exception("Error when getting ompi-server id");
+ }
+#elif defined(MPICH)
+ _pid_mpiServer = -1;
+ // get the pid of all hydra_nameserver
+ std::set<pid_t> thepids1 = getpidofprogram("hydra_nameserver");
+ // launch a new hydra_nameserver
+ std::string command;
+ command = "hydra_nameserver &";
+ SystemThreadSafe(command.c_str());
+ // get the pid of all hydra_nameserver
+ std::set<pid_t> thepids2 = getpidofprogram("hydra_nameserver");
+ // my hydra_nameserver is the new one
+ std::set<pid_t>::const_iterator it;
+ for(it=thepids2.begin();it!=thepids2.end();it++)
+ if(thepids1.find(*it) == thepids1.end())
+ _pid_mpiServer = *it;
+#endif
+#endif
+
MESSAGE("constructor end");
}
//=============================================================================
-/*!
+/*!
* destructor
*/
//=============================================================================
SALOME_ContainerManager::~SALOME_ContainerManager()
{
MESSAGE("destructor");
+ delete _resManager;
+#ifdef HAVE_MPI2
+#ifdef OPEN_MPI
+ if( GetenvThreadSafe("OMPI_URI_FILE") != NULL ){
+ // kill my ompi-server
+ if( kill(_pid_mpiServer,SIGTERM) != 0 )
+ throw SALOME_Exception("Error when killing ompi-server");
+ // delete my urifile
+ int status=SystemThreadSafe("rm -f ${OMPI_URI_FILE}");
+ if(status!=0)
+ throw SALOME_Exception("Error when removing urifile");
+ }
+#elif defined(MPICH)
+ // kill my hydra_nameserver
+ if(_pid_mpiServer > -1)
+ if( kill(_pid_mpiServer,SIGTERM) != 0 )
+ throw SALOME_Exception("Error when killing hydra_nameserver");
+#endif
+#endif
}
//=============================================================================
+//! shutdown all the containers, then the ContainerManager servant
/*! CORBA method:
- * shutdown all the containers, then the ContainerManager servant
*/
//=============================================================================
_NS->Destroy_Name(_ContainerManagerNameInNS);
PortableServer::ObjectId_var oid = _poa->servant_to_id(this);
_poa->deactivate_object(oid);
- //_remove_ref() has already been done at creation
- //_remove_ref();
}
//=============================================================================
+//! Loop on all the containers listed in naming service, ask shutdown on each
/*! CORBA Method:
- * Loop on all the containers listed in naming service, ask shutdown on each
*/
//=============================================================================
void SALOME_ContainerManager::ShutdownContainers()
{
MESSAGE("ShutdownContainers");
+
+ SALOME::Session_var session = SALOME::Session::_nil();
+ CORBA::Long pid = 0;
+ CORBA::Object_var objS = _NS->Resolve("/Kernel/Session");
+ if (!CORBA::is_nil(objS))
+ {
+ session = SALOME::Session::_narrow(objS);
+ if (!CORBA::is_nil(session))
+ pid = session->getPID();
+ }
+
bool isOK;
isOK = _NS->Change_Directory("/Containers");
if( isOK ){
- vector<string> vec = _NS->list_directory_recurs();
- list<string> lstCont;
- for(vector<string>::iterator iter = vec.begin();iter!=vec.end();iter++){
- SCRUTE((*iter));
- CORBA::Object_var obj=_NS->Resolve((*iter).c_str());
- Engines::Container_var cont=Engines::Container::_narrow(obj);
- if(!CORBA::is_nil(cont)){
- lstCont.push_back((*iter));
+ std::vector<std::string> vec = _NS->list_directory_recurs();
+ std::list<std::string> lstCont;
+ for(std::vector<std::string>::iterator iter = vec.begin();iter!=vec.end();iter++)
+ {
+ SCRUTE((*iter));
+ CORBA::Object_var obj=_NS->Resolve((*iter).c_str());
+ try
+ {
+ Engines::Container_var cont=Engines::Container::_narrow(obj);
+ if(!CORBA::is_nil(cont) && pid != cont->getPID())
+ lstCont.push_back((*iter));
+ }
+ catch(const CORBA::Exception& e)
+ {
+ // ignore this entry and continue
+ }
}
- }
MESSAGE("Container list: ");
- for(list<string>::iterator iter=lstCont.begin();iter!=lstCont.end();iter++){
+ for(std::list<std::string>::iterator iter=lstCont.begin();iter!=lstCont.end();iter++){
SCRUTE((*iter));
}
- for(list<string>::iterator iter=lstCont.begin();iter!=lstCont.end();iter++){
- SCRUTE((*iter));
- CORBA::Object_var obj=_NS->Resolve((*iter).c_str());
- Engines::Container_var cont=Engines::Container::_narrow(obj);
- if(!CORBA::is_nil(cont))
+ for(std::list<std::string>::iterator iter=lstCont.begin();iter!=lstCont.end();iter++)
+ {
+ try
+ {
+ SCRUTE((*iter));
+ CORBA::Object_var obj=_NS->Resolve((*iter).c_str());
+ Engines::Container_var cont=Engines::Container::_narrow(obj);
+ if(!CORBA::is_nil(cont))
{
- MESSAGE("ShutdownContainers: " << (*iter));
- try
- {
- cont->Shutdown();
- }
- catch(CORBA::SystemException& e)
- {
- INFOS("CORBA::SystemException ignored : " << e);
- }
- catch(CORBA::Exception&)
- {
- INFOS("CORBA::Exception ignored.");
- }
- catch(...)
- {
- INFOS("Unknown exception ignored.");
- }
+ MESSAGE("ShutdownContainers: " << (*iter));
+ cont->Shutdown();
}
- else
- MESSAGE("ShutdownContainers: no container ref for " << (*iter));
+ else
+ MESSAGE("ShutdownContainers: no container ref for " << (*iter));
+ }
+ catch(CORBA::SystemException& e)
+ {
+ INFOS("CORBA::SystemException ignored : " << e);
+ }
+ catch(CORBA::Exception&)
+ {
+ INFOS("CORBA::Exception ignored.");
+ }
+ catch(...)
+ {
+ INFOS("Unknown exception ignored.");
+ }
}
}
}
//=============================================================================
+//! Give a suitable Container given constraints
/*! CORBA Method:
- * Find a suitable Container in a list of machines, or start one
- * \param params Machine Parameters required for the container
- * \param possibleComputers list of machines usable for find or start
- */
-//=============================================================================
-
-Engines::Container_ptr
-SALOME_ContainerManager::
-FindOrStartContainer(const Engines::MachineParameters& params,
- const Engines::MachineList& possibleComputers)
-{
- Engines::Container_ptr ret = FindContainer(params,possibleComputers);
- if(!CORBA::is_nil(ret))
- return ret;
- MESSAGE("Container doesn't exist try to launch it ...");
-
- return StartContainer(params,possibleComputers,Engines::P_FIRST);
-
-}
-
-//=============================================================================
-/*! CORBA Method:
- * Start a suitable Container in a list of machines
- * \param params Machine Parameters required for the container
- * \param possibleComputers list of machines usable for start
+ * \param params Container Parameters required for the container
+ * \return the container or nil
*/
//=============================================================================
-
-Engines::Container_ptr
-SALOME_ContainerManager::
-StartContainer(const Engines::MachineParameters& params,
- const Engines::MachineList& possibleComputers,
- Engines::ResPolicy policy)
+Engines::Container_ptr SALOME_ContainerManager::GiveContainer(const Engines::ContainerParameters& params)
{
-#ifdef WITH_PACO_PARALLEL
- std::string parallelLib(params.parallelLib);
- if (parallelLib != "")
- return FindOrStartParallelContainer(params, possibleComputers);
-#endif
- long id;
- string containerNameInNS;
- char idc[3*sizeof(long)];
- Engines::Container_ptr ret = Engines::Container::_nil();
-
- MESSAGE("SALOME_ContainerManager::StartContainer " <<
- possibleComputers.length());
-
- string theMachine;
- try{
- switch(policy){
- case Engines::P_FIRST:
- theMachine=_ResManager->FindFirst(possibleComputers);
- break;
- case Engines::P_CYCL:
- theMachine=_ResManager->FindNext(possibleComputers);
- break;
- case Engines::P_BEST:
- theMachine=_ResManager->FindBest(possibleComputers);
- break;
- }
- }
- catch( const SALOME_Exception &ex ){
- MESSAGE(ex.what());
- return Engines::Container::_nil();
- }
-
- //If the machine name is localhost use the real name
- if(theMachine == "localhost")
- theMachine=GetHostname();
-
- MESSAGE("try to launch it on " << theMachine);
-
- // Get Id for container: a parallel container registers in Naming Service
- // on the machine where is process 0. ContainerManager does'nt know the name
- // of this machine before the launch of the parallel container. So to get
- // the IOR of the parallel container in Naming Service, ContainerManager
- // gives a unique Id. The parallel container registers his name under
- // /ContainerManager/Id directory in NamingService
-
- id = GetIdForContainer();
-
- string command;
- if(theMachine==""){
- MESSAGE("SALOME_ContainerManager::StartContainer : " <<
- "no possible computer");
- return Engines::Container::_nil();
+ std::string machFile;
+ Engines::Container_ptr ret(Engines::Container::_nil());
+
+ // Step 0: Default mode is start
+ Engines::ContainerParameters local_params(params);
+ if (std::string(local_params.mode.in()) == "")
+ local_params.mode = CORBA::string_dup("start");
+ std::string mode = local_params.mode.in();
+ MESSAGE("[GiveContainer] starting with mode: " << mode);
+
+ // Step 1: Find Container for find and findorstart mode
+ if (mode == "find" || mode == "findorstart")
+ {
+ ret = FindContainer(params, params.resource_params.resList);
+ if(!CORBA::is_nil(ret))
+ return ret;
+ else
+ {
+ if (mode == "find")
+ {
+ MESSAGE("[GiveContainer] no container found");
+ return ret;
+ }
+ else
+ {
+ mode = "start";
+ }
+ }
}
- else if(theMachine==GetHostname())
- command=_ResManager->BuildCommandToLaunchLocalContainer(params,id);
- else
- command = _ResManager->BuildCommandToLaunchRemoteContainer(theMachine,params,id);
-
- _ResManager->RmTmpFile();
- //check if an entry exists in Naming service
- if(params.isMPI)
+ // Step 2: Get all possibleResources from the parameters
+ // Consider only resources that can run containers
+ resourceParams resource_params = resourceParameters_CORBAtoCPP(local_params.resource_params);
+ resource_params.can_run_containers = true;
+ std::vector<std::string> possibleResources = _resManager->GetFittingResources(resource_params);
+ MESSAGE("[GiveContainer] - length of possible resources " << possibleResources.size());
+ std::vector<std::string> local_resources;
+
+ // Step 3: if mode is "get" keep only machines with existing containers
+ if(mode == "get")
+ {
+ for(unsigned int i=0; i < possibleResources.size(); i++)
{
- containerNameInNS = "/ContainerManager/id";
- sprintf(idc,"%ld",id);
- containerNameInNS += idc;
+ Engines::Container_ptr cont = FindContainer(params, possibleResources[i]);
+ try
+ {
+ if(!cont->_non_existent())
+ local_resources.push_back(possibleResources[i]);
+ }
+ catch(CORBA::Exception&) {}
}
- else
- containerNameInNS = _NS->BuildContainerNameForNS(params,theMachine.c_str());
- SCRUTE(containerNameInNS);
- CORBA::Object_var obj = _NS->Resolve(containerNameInNS.c_str());
- if ( !CORBA::is_nil(obj) )
+ // if local_resources is empty, we cannot give a container
+ if (local_resources.size() == 0)
{
- // unregister the registered container if it exists
- _NS->Destroy_Name(containerNameInNS.c_str());
- // unregister component instances ???
- //Engines::Container_var cont=Engines::Container::_narrow(obj);
+ MESSAGE("[GiveContainer] cannot find a container for mode get");
+ return ret;
}
-
- //redirect stdout and stderr in a file
- string logFilename="/tmp/"+_NS->ContainerName(params)+"_"+GetHostname()+"_"+getenv( "USER" )+".log" ;
- command += " > " + logFilename + " 2>&1 &";
-
- // launch container with a system call
- int status=system(command.c_str());
- if (status == -1){
- MESSAGE("SALOME_LifeCycleCORBA::StartOrFindContainer rsh failed " <<
- "(system command status -1)");
- return Engines::Container::_nil();
- }
- else if (status == 217){
- MESSAGE("SALOME_LifeCycleCORBA::StartOrFindContainer rsh failed " <<
- "(system command status 217)");
- return Engines::Container::_nil();
}
- else{
- int count=TIME_OUT_TO_LAUNCH_CONT;
- MESSAGE("count = "<<count);
- while ( CORBA::is_nil(ret) && count ){
-#ifndef WNT
- sleep( 1 ) ;
-#else
- Sleep(1000);
-#endif
- count-- ;
- if ( count != 10 )
- MESSAGE( count << ". Waiting for container on " << theMachine);
-
- CORBA::Object_var obj = _NS->Resolve(containerNameInNS.c_str());
- ret=Engines::Container::_narrow(obj);
- }
-
- if ( CORBA::is_nil(ret) )
+ else
+ local_resources = possibleResources;
+
+ // Step 4: select the resource where to get/start the container
+ bool resource_available = true;
+ std::string resource_selected;
+ std::vector<std::string> resources = local_resources;
+ while (resource_available)
+ {
+ if (resources.size() == 0)
+ resource_available = false;
+ else
+ {
+ try
{
- MESSAGE("SALOME_LifeCycleCORBA::StartOrFindContainer rsh failed");
+ resource_selected = _resManager->Find(params.resource_params.policy.in(), resources);
+ // Remove resource_selected from vector
+ std::vector<std::string>::iterator it;
+ for (it=resources.begin() ; it < resources.end(); it++ )
+ if (*it == resource_selected)
+ {
+ resources.erase(it);
+ break;
+ }
}
- else
+ catch(const SALOME_Exception &ex)
{
- logFilename=":"+logFilename;
- logFilename="@"+GetHostname()+logFilename;
- logFilename=getenv( "USER" )+logFilename;
- ret->logfilename(logFilename.c_str());
+ MESSAGE("[GiveContainer] Exception in ResourceManager find !: " << ex.what());
+ return ret;
}
-
- return ret;
+ MESSAGE("[GiveContainer] Resource selected is: " << resource_selected);
+
+ // Step 5: Create container name
+ ParserResourcesType resource_definition = _resManager->GetResourceDefinition(resource_selected);
+ std::string hostname(resource_definition.HostName);
+ std::string containerNameInNS;
+ if(params.isMPI){
+ int nbproc;
+ if ( params.nb_proc <= 0 )
+ nbproc = 1;
+ else
+ nbproc = params.nb_proc;
+ try
+ {
+ if( GetenvThreadSafe("LIBBATCH_NODEFILE") != NULL )
+ machFile = machinesFile(nbproc);
+ }
+ catch(const SALOME_Exception & ex)
+ {
+ std::string err_msg = ex.what();
+ err_msg += params.container_name;
+ INFOS(err_msg.c_str());
+ return ret;
+ }
+ // A mpi parallel container register on zero node in NS
+ std::string mpiZeroNode = GetMPIZeroNode(resource_selected,machFile).c_str();
+ containerNameInNS = _NS->BuildContainerNameForNS(params, mpiZeroNode.c_str());
+ }
+ else
+ containerNameInNS = _NS->BuildContainerNameForNS(params, hostname.c_str());
+ MESSAGE("[GiveContainer] Container name in the naming service: " << containerNameInNS);
+
+ // Step 6: check if the name exists in naming service
+ //if params.mode == "getorstart" or "get" use the existing container
+ //if params.mode == "start" shutdown the existing container before launching a new one with that name
+
+ { // critical section
+ Utils_Locker lock (&_giveContainerMutex1);
+ CORBA::Object_var obj = _NS->Resolve(containerNameInNS.c_str());
+ if (!CORBA::is_nil(obj))
+ {
+ try
+ {
+ Engines::Container_var cont=Engines::Container::_narrow(obj);
+ if(!cont->_non_existent())
+ {
+ if(std::string(params.mode.in())=="getorstart" || std::string(params.mode.in())=="get"){
+ return cont._retn(); /* the container exists and params.mode is getorstart or get use it*/
+ }
+ else
+ {
+ INFOS("[GiveContainer] A container is already registered with the name: " << containerNameInNS << ", shutdown the existing container");
+ cont->Shutdown(); // shutdown the registered container if it exists
+ }
+ }
+ }
+ catch(CORBA::Exception&)
+ {
+ INFOS("[GiveContainer] CORBA::Exception ignored when trying to get the container - we start a new one");
+ }
+ }
+ } // end critical section
+ Engines::Container_var cont = LaunchContainer(params, resource_selected, hostname, machFile, containerNameInNS);
+ if (!CORBA::is_nil(cont))
+ {
+ INFOS("[GiveContainer] container " << containerNameInNS << " launched");
+ return cont._retn();
+ }
+ else
+ {
+ INFOS("[GiveContainer] Failed to launch container on resource " << resource_selected);
+ }
+ }
}
-}
-
-//=============================================================================
-/*! CORBA Method:
- * Start a suitable Container in a list of machines
- * \param params Machine Parameters required for the container
- * \param possibleComputers list of machines usable for start
- */
-//=============================================================================
-Engines::Container_ptr
-SALOME_ContainerManager::
-StartContainer(const Engines::MachineParameters& params,
- Engines::ResPolicy policy,
- const Engines::CompoList& componentList)
-{
- Engines::MachineList_var possibleComputers = _ResManager->GetFittingResources(params,componentList);
- return StartContainer(params,possibleComputers,policy);
+ // We were not able to launch the container
+ INFOS("[GiveContainer] Cannot launch the container on the following selected resources:")
+ std::vector<std::string>::iterator it;
+ for (it=local_resources.begin() ; it < local_resources.end(); it++ )
+ INFOS("[GiveContainer] " << *it)
+ return ret;
}
-#ifdef WITH_PACO_PARALLEL
-//=============================================================================
-/*! CORBA Method:
- * Find or Start a suitable PaCO++ Parallel Container in a list of machines.
- * \param params Machine Parameters required for the container
- * \param possibleComputers list of machines usable for find or start
- *
- * \return CORBA container reference.
- */
-//=============================================================================
Engines::Container_ptr
-SALOME_ContainerManager::
-FindOrStartParallelContainer(const Engines::MachineParameters& params_const,
- const Engines::MachineList& possibleComputers)
+SALOME_ContainerManager::LaunchContainer(const Engines::ContainerParameters& params,
+ const std::string & resource_selected,
+ const std::string & hostname,
+ const std::string & machFile,
+ const std::string & containerNameInNS)
{
- CORBA::Object_var obj;
- PaCO::InterfaceManager_var proxy;
- Engines::Container_ptr ret = Engines::Container::_nil();
- Engines::MachineParameters params(params_const);
-
- // Step 1 : Try to find a suitable container
- // Currently not as good as could be since
- // we have to verified the number of nodes of the container
- // if a user tell that.
- ret = FindContainer(params, possibleComputers);
-
- if(CORBA::is_nil(ret)) {
- // Step 2 : Starting a new parallel container
- INFOS("[FindOrStartParallelContainer] Starting a parallel container");
-
- // Step 2.1 : Choose a computer
- string theMachine = _ResManager->FindFirst(possibleComputers);
- if(theMachine == "") {
- INFOS("[FindOrStartParallelContainer] !!!!!!!!!!!!!!!!!!!!!!!!!!");
- INFOS("[FindOrStartParallelContainer] No possible computer found");
- INFOS("[FindOrStartParallelContainer] !!!!!!!!!!!!!!!!!!!!!!!!!!");
- }
- else {
- INFOS("[FindOrStartParallelContainer] on machine : " << theMachine);
- string command;
- if(theMachine == GetHostname()) {
- // Step 3 : starting parallel container proxy
- params.hostname = CORBA::string_dup(theMachine.c_str());
- Engines::MachineParameters params_proxy(params);
- try {
- command = _ResManager->BuildCommandToLaunchLocalParallelContainer("SALOME_ParallelContainerProxy", params_proxy, "xterm");
- }
- catch(const SALOME_Exception & ex){
- MESSAGE(ex.what());
- return Engines::Container::_nil();
- }
- // LaunchParallelContainer uses this value to know if it launches the proxy or the nodes
- params_proxy.nb_component_nodes = 0;
- obj = LaunchParallelContainer(command, params_proxy, _NS->ContainerName(params));
- ret = Engines::Container::_narrow(obj);
- proxy = PaCO::InterfaceManager::_narrow(obj);
-
- // Step 4 : starting parallel container nodes
- command = _ResManager->BuildCommandToLaunchLocalParallelContainer("SALOME_ParallelContainerNode", params, "xterm");
- string name = _NS->ContainerName(params) + "Node";
- LaunchParallelContainer(command, params, name);
- // Step 5 : connecting nodes and the proxy to actually create a parallel container
- try {
- for (int i = 0; i < params.nb_component_nodes; i++) {
-
- char buffer [5];
-#ifndef WNT
- snprintf(buffer,5,"%d",i);
-#else
- _snprintf(buffer,5,"%d",i);
-#endif
- string name_cont = name + string(buffer);
-
- string theNodeMachine(CORBA::string_dup(params.hostname));
- string containerNameInNS = _NS->BuildContainerNameForNS(name_cont.c_str(),theNodeMachine.c_str());
- int count = TIME_OUT_TO_LAUNCH_CONT;
- obj = _NS->Resolve(containerNameInNS.c_str());
- while (CORBA::is_nil(obj) && count) {
- INFOS("[FindOrStartParallelContainer] CONNECTION FAILED !!!!!!!!!!!!!!!!!!!!!!!!");
-#ifndef WNT
- sleep(1) ;
-#else
- Sleep(1000);
+ std::string user,command,logFilename,tmpFileName;
+ int status;
+ Engines::Container_ptr ret(Engines::Container::_nil());
+ {//start of critical section
+ Utils_Locker lock (&_giveContainerMutex1);
+ // Step 1: type of container: PaCO, Exe, Mpi or Classic
+ // Mpi already tested in step 5, specific code on BuildCommandToLaunch Local/Remote Container methods
+ // TODO -> separates Mpi from Classic/Exe
+ // Classic or Exe ?
+ std::string container_exe = "SALOME_Container"; // Classic container
+ Engines::ContainerParameters local_params(params);
+ int found=0;
+ try
+ {
+ CORBA::String_var container_exe_tmp;
+ CORBA::Object_var obj = _NS->Resolve("/Kernel/ModulCatalog");
+ SALOME_ModuleCatalog::ModuleCatalog_var Catalog = SALOME_ModuleCatalog::ModuleCatalog::_narrow(obj) ;
+ if (CORBA::is_nil (Catalog))
+ {
+ INFOS("[GiveContainer] Module Catalog is not found -> cannot launch a container");
+ return ret;
+ }
+ // Loop through component list
+ for(unsigned int i=0; i < local_params.resource_params.componentList.length(); i++)
+ {
+ const char* compoi = local_params.resource_params.componentList[i];
+ SALOME_ModuleCatalog::Acomponent_var compoInfo = Catalog->GetComponent(compoi);
+ if (CORBA::is_nil (compoInfo))
+ {
+ continue;
+ }
+ SALOME_ModuleCatalog::ImplType impl=compoInfo->implementation_type();
+ container_exe_tmp=compoInfo->implementation_name();
+ if(impl==SALOME_ModuleCatalog::CEXE)
+ {
+ if(found)
+ {
+ INFOS("ContainerManager Error: you can't have 2 CEXE component in the same container" );
+ return Engines::Container::_nil();
+ }
+ MESSAGE("[GiveContainer] Exe container found !: " << container_exe_tmp);
+ container_exe = container_exe_tmp.in();
+ found=1;
+ }
+ }
+ }
+ catch (ServiceUnreachable&)
+ {
+ INFOS("Caught exception: Naming Service Unreachable");
+ return ret;
+ }
+ catch (...)
+ {
+ INFOS("Caught unknown exception.");
+ return ret;
+ }
+
+ // Step 2: test resource
+ // Only if an application directory is set
+ if(hostname != Kernel_Utils::GetHostname() && _isAppliSalomeDefined)
+ {
+ // Preparing remote command
+ std::string command = "";
+ const ParserResourcesType resInfo(_resManager->GetResourceDefinition(resource_selected));
+ command = getCommandToRunRemoteProcess(resInfo.Protocol, resInfo.HostName, resInfo.UserName);
+ if (resInfo.AppliPath != "")
+ command += resInfo.AppliPath;
+ else
+ {
+ ASSERT(GetenvThreadSafe("APPLI"));
+ command += GetenvThreadSafeAsString("APPLI");
+ }
+ command += "/runRemote.sh ";
+ ASSERT(GetenvThreadSafe("NSHOST"));
+ command += GetenvThreadSafeAsString("NSHOST"); // hostname of CORBA name server
+ command += " ";
+ ASSERT(GetenvThreadSafe("NSPORT"));
+ command += GetenvThreadSafeAsString("NSPORT"); // port of CORBA name server
+ command += " \"ls /tmp >/dev/null 2>&1\"";
+
+ // Launch remote command
+ int status = SystemThreadSafe(command.c_str());
+ if (status != 0)
+ {
+ // Error on resource - cannot launch commands
+ INFOS("[LaunchContainer] Cannot launch commands on machine " << hostname);
+ INFOS("[LaunchContainer] Command was " << command);
+#ifndef WIN32
+ INFOS("[LaunchContainer] Command status is " << WEXITSTATUS(status));
#endif
- count-- ;
- obj = _NS->Resolve(containerNameInNS.c_str());
- }
-
- PaCO::InterfaceParallel_var node = PaCO::InterfaceParallel::_narrow(obj);
- MESSAGE("[FindOrStartParallelContainer] Deploying node : " << name);
- node->deploy();
- }
- proxy->start();
- }
- catch(CORBA::SystemException& e)
- {
- INFOS("Caught CORBA::SystemException. : " << e);
- }
- catch(PortableServer::POA::ServantAlreadyActive&)
- {
- INFOS("Caught CORBA::ServantAlreadyActiveException");
- }
- catch(CORBA::Exception&)
- {
- INFOS("Caught CORBA::Exception.");
- }
- catch(std::exception& exc)
- {
- INFOS("Caught std::exception - "<<exc.what());
- }
- catch(...)
- {
- INFOS("Caught unknown exception.");
- }
- INFOS("[FindOrStartParallelContainer] node " << name << " deployed");
+ return Engines::Container::_nil();
+ }
}
- else {
- INFOS("[FindOrStartParallelContainer] Currently parallel containers are launched only on the local host");
+
+ // Step 3: start a new container
+ // Check if a PaCO container
+ // PaCO++
+ if (std::string(local_params.parallelLib.in()) != "")
+ {
+ ret = StartPaCOPPContainer(params, resource_selected);
+ return ret;
}
- }
-}
-return ret;
-}
+ // Other type of containers...
+ MESSAGE("[GiveContainer] Try to launch a new container on " << resource_selected);
+ // if a parallel container is launched in batch job, command is: "mpirun -np nbproc -machinefile nodesfile SALOME_MPIContainer"
+ if( GetenvThreadSafe("LIBBATCH_NODEFILE") != NULL && params.isMPI )
+ command = BuildCommandToLaunchLocalContainer(params, machFile, container_exe, tmpFileName);
+ // if a container is launched on localhost, command is "SALOME_Container" or "mpirun -np nbproc SALOME_MPIContainer"
+ else if(hostname == Kernel_Utils::GetHostname())
+ command = BuildCommandToLaunchLocalContainer(params, machFile, container_exe, tmpFileName);
+ // if a container is launched in remote mode, command is "ssh resource_selected SALOME_Container" or "ssh resource_selected mpirun -np nbproc SALOME_MPIContainer"
+ else
+ command = BuildCommandToLaunchRemoteContainer(resource_selected, params, container_exe);
+
+ //redirect stdout and stderr in a file
+#ifdef WIN32
+ logFilename=GetenvThreadSafeAsString("TEMP");
+ logFilename += "\\";
+ user = GetenvThreadSafeAsString( "USERNAME" );
#else
-//=============================================================================
-/*! CORBA Method:
- * Find or Start a suitable PaCO++ Parallel Container in a list of machines.
- * \param params Machine Parameters required for the container
- * \param possibleComputers list of machines usable for find or start
- *
- * \return CORBA container reference.
- */
-//=============================================================================
-Engines::Container_ptr
-SALOME_ContainerManager::
-FindOrStartParallelContainer(const Engines::MachineParameters& params,
- const Engines::MachineList& possibleComputers)
-{
- Engines::Container_ptr ret = Engines::Container::_nil();
- INFOS("[FindOrStartParallelContainer] is disabled !");
- INFOS("[FindOrStartParallelContainer] recompile SALOME Kernel to enable parallel extension");
+ user = GetenvThreadSafeAsString( "USER" );
+ if (user.empty())
+ user = GetenvThreadSafeAsString( "LOGNAME" );
+ logFilename="/tmp";
+ char* val = GetenvThreadSafe("SALOME_TMP_DIR");
+ if(val)
+ {
+ struct stat file_info;
+ stat(val, &file_info);
+ bool is_dir = S_ISDIR(file_info.st_mode);
+ if (is_dir)logFilename=val;
+ else std::cerr << "SALOME_TMP_DIR environment variable is not a directory use /tmp instead" << std::endl;
+ }
+ logFilename += "/";
+#endif
+ logFilename += _NS->ContainerName(params)+"_"+ resource_selected +"_"+user;
+ std::ostringstream tmp;
+ tmp << "_" << getpid();
+ logFilename += tmp.str();
+ logFilename += ".log" ;
+ command += " > " + logFilename + " 2>&1";
+ MakeTheCommandToBeLaunchedASync(command);
+
+ // launch container with a system call
+ status=SystemThreadSafe(command.c_str());
+ }//end of critical of section
+
+ if (status == -1)
+ {
+ INFOS("[LaunchContainer] command failed (system command status -1): " << command);
+ RmTmpFile(tmpFileName); // command file can be removed here
+ return Engines::Container::_nil();
+ }
+ else if (status == 217)
+ {
+ INFOS("[LaunchContainer] command failed (system command status 217): " << command);
+ RmTmpFile(tmpFileName); // command file can be removed here
+ return Engines::Container::_nil();
+ }
+ else
+ {
+ // Step 4: Wait for the container
+ int count(GetTimeOutToLoaunchServer());
+ INFOS("[GiveContainer] waiting " << count << " second steps container " << containerNameInNS);
+ while (CORBA::is_nil(ret) && count)
+ {
+ SleepInSecond(1);
+ count--;
+ MESSAGE("[GiveContainer] step " << count << " Waiting for container on " << resource_selected);
+ CORBA::Object_var obj(_NS->Resolve(containerNameInNS.c_str()));
+ ret=Engines::Container::_narrow(obj);
+ }
+ if (CORBA::is_nil(ret))
+ {
+ INFOS("[GiveContainer] was not able to launch container " << containerNameInNS);
+ }
+ else
+ {
+ // Setting log file name
+ logFilename=":"+logFilename;
+ logFilename="@"+Kernel_Utils::GetHostname()+logFilename;//threadsafe
+ logFilename=user+logFilename;
+ ret->logfilename(logFilename.c_str());
+ RmTmpFile(tmpFileName); // command file can be removed here
+ }
+ }
return ret;
}
-#endif
//=============================================================================
-/*! CORBA Method:
- * Give a suitable Container in a list of machines
- * \param params Machine Parameters required for the container
- * \param possibleComputers list of machines usable for start
+//! Find a container given constraints (params) on a list of machines (possibleComputers)
+//! agy : this method is ThreadSafe
+/*!
+ *
*/
//=============================================================================
-Engines::Container_ptr
-SALOME_ContainerManager::
-GiveContainer(const Engines::MachineParameters& params,
- Engines::ResPolicy policy,
- const Engines::CompoList& componentList)
-{
- char *valenv=getenv("SALOME_BATCH");
- if(valenv)
- if (strcmp(valenv,"1")==0)
- {
- if(_batchLaunchedContainers.empty())
- fillBatchLaunchedContainers();
- return *(_batchLaunchedContainersIter++);
- }
- return StartContainer(params,policy,componentList);
+Engines::Container_ptr SALOME_ContainerManager::FindContainer(const Engines::ContainerParameters& params, const Engines::ResourceList& possibleResources)
+{
+ MESSAGE("[FindContainer] FindContainer on " << possibleResources.length() << " resources");
+ for(unsigned int i=0; i < possibleResources.length();i++)
+ {
+ Engines::Container_ptr cont = FindContainer(params, possibleResources[i].in());
+ if(!CORBA::is_nil(cont))
+ return cont;
+ }
+ MESSAGE("[FindContainer] no container found");
+ return Engines::Container::_nil();
}
//=============================================================================
-/*!
- *
+//! Find a container given constraints (params) on a machine (theMachine)
+//! agy : this method is ThreadSafe
+/*!
+ *
*/
//=============================================================================
Engines::Container_ptr
-SALOME_ContainerManager::
-FindContainer(const Engines::MachineParameters& params,
- const char *theMachine)
+SALOME_ContainerManager::FindContainer(const Engines::ContainerParameters& params, const std::string& resource)
{
- string containerNameInNS(_NS->BuildContainerNameForNS(params,theMachine));
+ ParserResourcesType resource_definition = _resManager->GetResourceDefinition(resource);
+ std::string hostname(resource_definition.HostName);
+ std::string containerNameInNS(_NS->BuildContainerNameForNS(params, hostname.c_str()));
+ MESSAGE("[FindContainer] Try to find a container " << containerNameInNS << " on resource " << resource);
CORBA::Object_var obj = _NS->Resolve(containerNameInNS.c_str());
- if( !CORBA::is_nil(obj) )
- return Engines::Container::_narrow(obj);
- else
+ try
+ {
+ if(obj->_non_existent())
+ return Engines::Container::_nil();
+ else
+ return Engines::Container::_narrow(obj);
+ }
+ catch(const CORBA::Exception& e)
+ {
return Engines::Container::_nil();
+ }
}
+
+bool isPythonContainer(const char* ContainerName);
+
//=============================================================================
-/*!
- *
+/*!
+ * This is no longer valid (C++ container are also python containers)
*/
//=============================================================================
-
-Engines::Container_ptr
-SALOME_ContainerManager::
-FindContainer(const Engines::MachineParameters& params,
- const Engines::MachineList& possibleComputers)
+bool isPythonContainer(const char* ContainerName)
{
- MESSAGE("FindContainer "<<possibleComputers.length());
- for(unsigned int i=0;i<possibleComputers.length();i++)
- {
- MESSAGE("FindContainer possible " << possibleComputers[i]);
- Engines::Container_ptr cont = FindContainer(params,possibleComputers[i]);
- if( !CORBA::is_nil(cont) )
- return cont;
- }
- MESSAGE("FindContainer: not found");
- return Engines::Container::_nil();
+ return false; // VSR 02/08/2013: Python containers are no more supported
+ bool ret = false;
+ int len = strlen(ContainerName);
+
+ if (len >= 2)
+ if (strcmp(ContainerName + len - 2, "Py") == 0)
+ ret = true;
+
+ return ret;
}
//=============================================================================
-/*! This method launches the parallel container.
- * It will may be placed on the ressources manager.
+/*!
+ * Builds the script to be launched
*
- * \param command to launch
- * \param container's parameters
- * \param name of the container
+ * If SALOME Application not defined ($APPLI),
+ * see BuildTempFileToLaunchRemoteContainer()
*
- * \return CORBA container reference
+ * Else rely on distant configuration. Command is under the form (example):
+ * ssh user@machine distantPath/runRemote.sh hostNS portNS WORKINGDIR workingdir \
+ * SALOME_Container containerName &"
+
+ * - where user is omitted if not specified in CatalogResources,
+ * - where distant path is always relative to user@machine $HOME, and
+ * equal to $APPLI if not specified in CatalogResources,
+ * - where hostNS is the hostname of CORBA naming server (set by scripts to
+ * use to launch SALOME and servers in $APPLI: runAppli.sh, runRemote.sh)
+ * - where portNS is the port used by CORBA naming server (set by scripts to
+ * use to launch SALOME and servers in $APPLI: runAppli.sh, runRemote.sh)
+ * - where workingdir is the requested working directory for the container.
+ * If WORKINGDIR (and workingdir) is not present the working dir will be $HOME
*/
//=============================================================================
-CORBA::Object_ptr
-SALOME_ContainerManager::LaunchParallelContainer(const std::string& command,
- const Engines::MachineParameters& params,
- const std::string& name)
+
+std::string
+SALOME_ContainerManager::BuildCommandToLaunchRemoteContainer(const std::string& resource_name, const Engines::ContainerParameters& params, const std::string& container_exe) const
{
- CORBA::Object_ptr obj = CORBA::Object::_nil();
- string containerNameInNS;
- MESSAGE("[LaunchParallelContainer] : command to launch...");
- MESSAGE(command);
- if (params.nb_component_nodes == 0) {
- INFOS("[LaunchParallelContainer] launching the proxy of the parallel container");
- int status = system(command.c_str());
- if (status == -1) {
- INFOS("[LaunchParallelContainer] failed : system command status -1");
- }
- else if (status == 217) {
- INFOS("[LaunchParallelContainer] failed : system command status 217");
+ std::string command,tmpFileName;
+ if (!_isAppliSalomeDefined)
+ command = BuildTempFileToLaunchRemoteContainer(resource_name, params, tmpFileName);
+ else
+ {
+ int nbproc;
+ const ParserResourcesType resInfo(_resManager->GetResourceDefinition(resource_name));
+
+ if (params.isMPI)
+ {
+ if ( params.nb_proc <= 0 )
+ nbproc = 1;
+ else
+ nbproc = params.nb_proc;
}
- int count = TIME_OUT_TO_LAUNCH_CONT;
- string theMachine(CORBA::string_dup(params.hostname));
- containerNameInNS = _NS->BuildContainerNameForNS((char*) name.c_str(),theMachine.c_str());
+ // "ssh -l user machine distantPath/runRemote.sh hostNS portNS WORKINGDIR workingdir
+ // SALOME_Container containerName &"
+ command = getCommandToRunRemoteProcess(resInfo.Protocol, resInfo.HostName, resInfo.UserName);
- INFOS("[LaunchParallelContainer] Waiting for Parallel Container proxy on " << theMachine);
- while (CORBA::is_nil(obj) && count) {
-#ifndef WNT
- sleep(1) ;
-#else
- Sleep(1000);
-#endif
- count-- ;
- obj = _NS->Resolve(containerNameInNS.c_str());
- }
- }
- else {
- INFOS("[LaunchParallelContainer] launching the nodes of the parallel container");
- int status = system(command.c_str());
- if (status == -1) {
- INFOS("[LaunchParallelContainer] failed : system command status -1");
- }
- else if (status == 217) {
- INFOS("[LaunchParallelContainer] failed : system command status 217");
+ if (resInfo.AppliPath != "")
+ command += resInfo.AppliPath; // path relative to user@machine $HOME
+ else
+ {
+ ASSERT(GetenvThreadSafe("APPLI"));
+ command += GetenvThreadSafeAsString("APPLI"); // path relative to user@machine $HOME
}
- // We are waiting all the nodes
- for (int i = 0; i < params.nb_component_nodes; i++) {
- obj = CORBA::Object::_nil();
- int count = TIME_OUT_TO_LAUNCH_CONT;
- // Name of the node
- char buffer [5];
-#ifndef WNT
- snprintf(buffer,5,"%d",i);
-#else
- _snprintf(buffer,5,"%d",i);
-#endif
+ command += "/runRemote.sh ";
- string name_cont = name + string(buffer);
+ ASSERT(GetenvThreadSafe("NSHOST"));
+ command += GetenvThreadSafeAsString("NSHOST"); // hostname of CORBA name server
- // I don't like this...
- string theMachine(CORBA::string_dup(params.hostname));
- containerNameInNS = _NS->BuildContainerNameForNS((char*) name_cont.c_str(),theMachine.c_str());
- cerr << "[LaunchContainer] Waiting for Parllel Container node " << containerNameInNS << " on " << theMachine << endl;
- while (CORBA::is_nil(obj) && count) {
-#ifndef WNT
- sleep(1) ;
-#else
- Sleep(1000);
-#endif
- count-- ;
- obj = _NS->Resolve(containerNameInNS.c_str());
+ command += " ";
+ ASSERT(GetenvThreadSafe("NSPORT"));
+ command += GetenvThreadSafeAsString("NSPORT"); // port of CORBA name server
+
+ std::string wdir = params.workingdir.in();
+ if(wdir != "")
+ {
+ command += " WORKINGDIR ";
+ command += " '";
+ if(wdir == "$TEMPDIR")
+ wdir="\\$TEMPDIR";
+ command += wdir; // requested working directory
+ command += "'";
+ }
+
+ if(params.isMPI)
+ {
+ command += " mpirun -np ";
+ std::ostringstream o;
+ o << nbproc << " ";
+ command += o.str();
+#ifdef LAM_MPI
+ command += "-x PATH,LD_LIBRARY_PATH,OMNIORB_CONFIG,SALOME_trace ";
+#elif defined(OPEN_MPI)
+ if( GetenvThreadSafe("OMPI_URI_FILE") == NULL )
+ command += "-x PATH -x LD_LIBRARY_PATH -x OMNIORB_CONFIG -x SALOME_trace";
+ else{
+ command += "-x PATH -x LD_LIBRARY_PATH -x OMNIORB_CONFIG -x SALOME_trace -ompi-server file:";
+ command += GetenvThreadSafeAsString("OMPI_URI_FILE");
}
+#elif defined(MPICH)
+ command += "-nameserver " + Kernel_Utils::GetHostname();
+#endif
+ command += " SALOME_MPIContainer ";
}
- }
+ else
+ command += " " +container_exe+ " ";
- if ( CORBA::is_nil(obj) ) {
- INFOS("[LaunchParallelContainer] failed");
+ command += _NS->ContainerName(params);
+ command += " -";
+ AddOmninamesParams(command);
+
+ MESSAGE("command =" << command);
}
- return obj;
+
+ return command;
}
//=============================================================================
-/*!
- * Get Id for container: a parallel container registers in Naming Service
- * on the machine where is process 0. ContainerManager does'nt know the name
- * of this machine before the launch of the parallel container. So to get
- * the IOR of the parallel container in Naming Service, ContainerManager
- * gives a unique Id. The parallel container registers his name under
- * /ContainerManager/Id directory in NamingService
+/*!
+ * builds the command to be launched.
*/
//=============================================================================
+std::string SALOME_ContainerManager::BuildCommandToLaunchLocalContainer(const Engines::ContainerParameters& params, const std::string& machinesFile, const std::string& container_exe, std::string& tmpFileName) const
+{
+ tmpFileName = BuildTemporaryFileName();
+ std::string command;
+ int nbproc = 0;
+ std::ostringstream o;
-long SALOME_ContainerManager::GetIdForContainer(void)
-{
- _id++;
- return _id;
-}
+ if (params.isMPI)
+ {
+ o << "mpirun -np ";
-void SALOME_ContainerManager::fillBatchLaunchedContainers()
-{
- _batchLaunchedContainers.clear();
- _NS->Change_Directory("/Containers");
- vector<string> vec = _NS->list_directory_recurs();
- for(vector<string>::iterator iter = vec.begin();iter!=vec.end();iter++){
- CORBA::Object_var obj=_NS->Resolve((*iter).c_str());
- Engines::Container_ptr cont=Engines::Container::_narrow(obj);
- if(!CORBA::is_nil(cont)){
- _batchLaunchedContainers.push_back(cont);
+ if ( params.nb_proc <= 0 )
+ nbproc = 1;
+ else
+ nbproc = params.nb_proc;
+
+ o << nbproc << " ";
+
+ if( GetenvThreadSafe("LIBBATCH_NODEFILE") != NULL )
+ o << "-machinefile " << machinesFile << " ";
+
+#ifdef LAM_MPI
+ o << "-x PATH,LD_LIBRARY_PATH,OMNIORB_CONFIG,SALOME_trace ";
+#elif defined(OPEN_MPI)
+ if( GetenvThreadSafe("OMPI_URI_FILE") == NULL )
+ o << "-x PATH -x LD_LIBRARY_PATH -x OMNIORB_CONFIG -x SALOME_trace";
+ else
+ {
+ o << "-x PATH -x LD_LIBRARY_PATH -x OMNIORB_CONFIG -x SALOME_trace -ompi-server file:";
+ o << GetenvThreadSafeAsString("OMPI_URI_FILE");
+ }
+#elif defined(MPICH)
+ o << "-nameserver " + Kernel_Utils::GetHostname();
+#endif
+
+ if (isPythonContainer(params.container_name))
+ o << " pyMPI SALOME_ContainerPy.py ";
+ else
+ o << " SALOME_MPIContainer ";
}
- }
- _batchLaunchedContainersIter=_batchLaunchedContainers.begin();
-}
+
+ else
+ {
+ std::string wdir=params.workingdir.in();
+ if(wdir != "")
+ {
+ // a working directory is requested
+ if(wdir == "$TEMPDIR")
+ {
+ // a new temporary directory is requested
+ std::string dir = Kernel_Utils::GetTmpDir();
+#ifdef WIN32
+ o << "cd /d " << dir << std::endl;
+#else
+ o << "cd " << dir << ";";
+#endif
+
+ }
+ else
+ {
+ // a permanent directory is requested use it or create it
+#ifdef WIN32
+ o << "mkdir " + wdir << std::endl;
+ o << "cd /D " + wdir << std::endl;
+#else
+ o << "mkdir -p " << wdir << " && cd " << wdir + ";";
+#endif
+ }
+ }
+
+ if (isPythonContainer(params.container_name))
+ o << "SALOME_ContainerPy.py ";
+ else
+ o << container_exe + " ";
+
+ }
+
+ o << _NS->ContainerName(params);
+ o << " -";
+ AddOmninamesParams(o);
+
+ std::ofstream command_file( tmpFileName.c_str() );
+ command_file << o.str();
+ command_file.close();
+
+#ifndef WIN32
+ chmod(tmpFileName.c_str(), 0x1ED);
+#endif
+ command = tmpFileName;
+
+ MESSAGE("Command is file ... " << command);
+ MESSAGE("Command is ... " << o.str());
+ return command;
+}
+
+
+//=============================================================================
+/*!
+ * removes the generated temporary file in case of a remote launch.
+ * This method is thread safe
+ */
+//=============================================================================
+
+void SALOME_ContainerManager::RmTmpFile(std::string& tmpFileName)
+{
+ int lenght = tmpFileName.size();
+ if ( lenght > 0)
+ {
+#ifdef WIN32
+ std::string command = "del /F ";
+#else
+ std::string command = "rm ";
+#endif
+ if ( lenght > 4 )
+ command += tmpFileName.substr(0, lenght - 3 );
+ else
+ command += tmpFileName;
+ command += '*';
+ SystemThreadSafe(command.c_str());
+ //if dir is empty - remove it
+ std::string tmp_dir = Kernel_Utils::GetDirByPath( tmpFileName );
+ if ( Kernel_Utils::IsEmptyDir( tmp_dir ) )
+ {
+#ifdef WIN32
+ command = "del /F " + tmp_dir;
+#else
+ command = "rmdir " + tmp_dir;
+#endif
+ SystemThreadSafe(command.c_str());
+ }
+ }
+}
+
+//=============================================================================
+/*!
+ * add to command all options relative to naming service.
+ */
+//=============================================================================
+
+void SALOME_ContainerManager::AddOmninamesParams(std::string& command) const
+{
+ std::ostringstream oss;
+ AddOmninamesParams(oss);
+ command+=oss.str();
+}
+
+//=============================================================================
+/*!
+ * add to command all options relative to naming service.
+ */
+//=============================================================================
+
+void SALOME_ContainerManager::AddOmninamesParams(std::ostream& fileStream) const
+{
+ AddOmninamesParams(fileStream,_NS);
+}
+
+//=============================================================================
+/*!
+ * add to command all options relative to naming service.
+ */
+//=============================================================================
+
+void SALOME_ContainerManager::AddOmninamesParams(std::ostream& fileStream, SALOME_NamingService *ns)
+{
+ CORBA::String_var iorstr(ns->getIORaddr());
+ fileStream << "ORBInitRef NameService=";
+ fileStream << iorstr;
+}
+
+void SALOME_ContainerManager::MakeTheCommandToBeLaunchedASync(std::string& command)
+{
+#ifdef WIN32
+ command = "%PYTHONBIN% -c \"import subprocess ; subprocess.Popen(r'" + command + "').pid\"";
+#else
+ command += " &";
+#endif
+}
+
+int SALOME_ContainerManager::GetTimeOutToLoaunchServer()
+{
+ int count(TIME_OUT_TO_LAUNCH_CONT);
+ if (GetenvThreadSafe("TIMEOUT_TO_LAUNCH_CONTAINER") != 0)
+ {
+ std::string new_count_str(GetenvThreadSafeAsString("TIMEOUT_TO_LAUNCH_CONTAINER"));
+ int new_count;
+ std::istringstream ss(new_count_str);
+ if (!(ss >> new_count))
+ {
+ INFOS("[LaunchContainer] TIMEOUT_TO_LAUNCH_CONTAINER should be an int");
+ }
+ else
+ count = new_count;
+ }
+ return count;
+}
+
+void SALOME_ContainerManager::SleepInSecond(int ellapseTimeInSecond)
+{
+#ifndef WIN32
+ sleep( ellapseTimeInSecond ) ;
+#else
+ int timeInMS(1000*ellapseTimeInSecond);
+ Sleep(timeInMS);
+#endif
+}
+
+//=============================================================================
+/*!
+ * generate a file name in /tmp directory
+ */
+//=============================================================================
+
+std::string SALOME_ContainerManager::BuildTemporaryFileName()
+{
+ //build more complex file name to support multiple salome session
+ std::string aFileName = Kernel_Utils::GetTmpFileName();
+ std::ostringstream str_pid;
+ str_pid << ::getpid();
+ aFileName = aFileName + "-" + str_pid.str();
+#ifndef WIN32
+ aFileName += ".sh";
+#else
+ aFileName += ".bat";
+#endif
+ return aFileName;
+}
+
+//=============================================================================
+/*!
+ * Builds in a temporary file the script to be launched.
+ *
+ * Used if SALOME Application ($APPLI) is not defined.
+ * The command is build with data from CatalogResources, in which every path
+ * used on remote computer must be defined.
+ */
+//=============================================================================
+
+std::string SALOME_ContainerManager::BuildTempFileToLaunchRemoteContainer (const std::string& resource_name, const Engines::ContainerParameters& params, std::string& tmpFileName) const
+{
+ int status;
+
+ tmpFileName = BuildTemporaryFileName();
+ std::ofstream tempOutputFile;
+ tempOutputFile.open(tmpFileName.c_str(), std::ofstream::out );
+ const ParserResourcesType resInfo(_resManager->GetResourceDefinition(resource_name));
+ tempOutputFile << "#! /bin/sh" << std::endl;
+
+ // --- set env vars
+
+ tempOutputFile << "export SALOME_trace=local" << std::endl; // mkr : 27.11.2006 : PAL13967 - Distributed supervision graphs - Problem with "SALOME_trace"
+ //tempOutputFile << "source " << resInfo.PreReqFilePath << endl;
+
+ // ! env vars
+
+ if (params.isMPI)
+ {
+ tempOutputFile << "mpirun -np ";
+ int nbproc;
+
+ if ( params.nb_proc <= 0 )
+ nbproc = 1;
+ else
+ nbproc = params.nb_proc;
+
+ std::ostringstream o;
+
+ tempOutputFile << nbproc << " ";
+#ifdef LAM_MPI
+ tempOutputFile << "-x PATH,LD_LIBRARY_PATH,OMNIORB_CONFIG,SALOME_trace ";
+#elif defined(OPEN_MPI)
+ if( GetenvThreadSafe("OMPI_URI_FILE") == NULL )
+ tempOutputFile << "-x PATH -x LD_LIBRARY_PATH -x OMNIORB_CONFIG -x SALOME_trace";
+ else{
+ tempOutputFile << "-x PATH -x LD_LIBRARY_PATH -x OMNIORB_CONFIG -x SALOME_trace -ompi-server file:";
+ tempOutputFile << GetenvThreadSafeAsString("OMPI_URI_FILE");
+ }
+#elif defined(MPICH)
+ tempOutputFile << "-nameserver " + Kernel_Utils::GetHostname();
+#endif
+ }
+
+ tempOutputFile << GetenvThreadSafeAsString("KERNEL_ROOT_DIR") << "/bin/salome/";
+
+ if (params.isMPI)
+ {
+ if (isPythonContainer(params.container_name))
+ tempOutputFile << " pyMPI SALOME_ContainerPy.py ";
+ else
+ tempOutputFile << " SALOME_MPIContainer ";
+ }
+
+ else
+ {
+ if (isPythonContainer(params.container_name))
+ tempOutputFile << "SALOME_ContainerPy.py ";
+ else
+ tempOutputFile << "SALOME_Container ";
+ }
+
+ tempOutputFile << _NS->ContainerName(params) << " -";
+ AddOmninamesParams(tempOutputFile);
+ tempOutputFile << " &" << std::endl;
+ tempOutputFile.flush();
+ tempOutputFile.close();
+#ifndef WIN32
+ chmod(tmpFileName.c_str(), 0x1ED);
+#endif
+
+ // --- Build command
+
+ std::string command;
+
+ if (resInfo.Protocol == rsh)
+ {
+ command = "rsh ";
+ std::string commandRcp = "rcp ";
+ commandRcp += tmpFileName;
+ commandRcp += " ";
+ commandRcp += resInfo.HostName;
+ commandRcp += ":";
+ commandRcp += tmpFileName;
+ status = SystemThreadSafe(commandRcp.c_str());
+ }
+
+ else if (resInfo.Protocol == ssh)
+ {
+ command = "ssh ";
+ std::string commandRcp = "scp ";
+ commandRcp += tmpFileName;
+ commandRcp += " ";
+ commandRcp += resInfo.HostName;
+ commandRcp += ":";
+ commandRcp += tmpFileName;
+ status = SystemThreadSafe(commandRcp.c_str());
+ }
+
+ else if (resInfo.Protocol == srun)
+ {
+ command = "srun -n 1 -N 1 --share --nodelist=";
+ std::string commandRcp = "rcp ";
+ commandRcp += tmpFileName;
+ commandRcp += " ";
+ commandRcp += resInfo.HostName;
+ commandRcp += ":";
+ commandRcp += tmpFileName;
+ status = SystemThreadSafe(commandRcp.c_str());
+ }
+ else
+ throw SALOME_Exception("Unknown protocol");
+
+ if(status)
+ throw SALOME_Exception("Error of connection on remote host");
+
+ command += resInfo.HostName;
+ command += " ";
+ command += tmpFileName;
+
+ SCRUTE(command);
+
+ return command;
+
+}
+
+std::string SALOME_ContainerManager::GetMPIZeroNode(const std::string machine, const std::string machinesFile) const
+{
+ int status;
+ std::string zeronode;
+ std::string command;
+ std::string tmpFile = BuildTemporaryFileName();
+ const ParserResourcesType resInfo(_resManager->GetResourceDefinition(machine));
+
+ if(resInfo.Protocol == sh)
+ {
+ return resInfo.HostName;
+ }
+
+ if( GetenvThreadSafe("LIBBATCH_NODEFILE") == NULL )
+ {
+ if (_isAppliSalomeDefined)
+ {
+
+ if (resInfo.Protocol == rsh)
+ command = "rsh ";
+ else if (resInfo.Protocol == ssh)
+ command = "ssh ";
+ else if (resInfo.Protocol == srun)
+ command = "srun -n 1 -N 1 --share --nodelist=";
+ else
+ throw SALOME_Exception("Unknown protocol");
+
+ if (resInfo.UserName != "")
+ {
+ command += "-l ";
+ command += resInfo.UserName;
+ command += " ";
+ }
+
+ command += resInfo.HostName;
+ command += " ";
+
+ if (resInfo.AppliPath != "")
+ command += resInfo.AppliPath; // path relative to user@machine $HOME
+ else
+ {
+ ASSERT(GetenvThreadSafe("APPLI"));
+ command += GetenvThreadSafeAsString("APPLI"); // path relative to user@machine $HOME
+ }
+
+ command += "/runRemote.sh ";
+
+ ASSERT(GetenvThreadSafe("NSHOST"));
+ command += GetenvThreadSafeAsString("NSHOST"); // hostname of CORBA name server
+
+ command += " ";
+ ASSERT(GetenvThreadSafe("NSPORT"));
+ command += GetenvThreadSafeAsString("NSPORT"); // port of CORBA name server
+
+ command += " mpirun -np 1 hostname -s > " + tmpFile;
+ }
+ else
+ command = "mpirun -np 1 hostname -s > " + tmpFile;
+ }
+ else
+ command = "mpirun -np 1 -machinefile " + machinesFile + " hostname -s > " + tmpFile;
+
+ status = SystemThreadSafe(command.c_str());
+ if( status == 0 ){
+ std::ifstream fp(tmpFile.c_str(),std::ios::in);
+ while(fp >> zeronode);
+ }
+
+ RmTmpFile(tmpFile);
+
+ return zeronode;
+}
+
+std::string SALOME_ContainerManager::machinesFile(const int nbproc)
+{
+ std::string tmp;
+ std::string nodesFile = GetenvThreadSafeAsString("LIBBATCH_NODEFILE");
+ std::string machinesFile = Kernel_Utils::GetTmpFileName();
+ std::ifstream fpi(nodesFile.c_str(),std::ios::in);
+ std::ofstream fpo(machinesFile.c_str(),std::ios::out);
+
+ _numInstanceMutex.lock();
+
+ for(int i=0;i<_nbprocUsed;i++)
+ fpi >> tmp;
+
+ for(int i=0;i<nbproc;i++)
+ if( fpi >> tmp )
+ fpo << tmp << std::endl;
+ else
+ throw SALOME_Exception("You need more processors than batch session have allocated for you! Unable to launch the mpi container: ");
+
+ _nbprocUsed += nbproc;
+ fpi.close();
+ fpo.close();
+
+ _numInstanceMutex.unlock();
+
+ return machinesFile;
+
+}
+
+std::set<pid_t> SALOME_ContainerManager::getpidofprogram(const std::string program)
+{
+ std::set<pid_t> thepids;
+ std::string tmpFile = Kernel_Utils::GetTmpFileName();
+ std::string cmd;
+ std::string thepid;
+ cmd = "pidof " + program + " > " + tmpFile;
+ SystemThreadSafe(cmd.c_str());
+ std::ifstream fpi(tmpFile.c_str(),std::ios::in);
+ while(fpi >> thepid){
+ thepids.insert(atoi(thepid.c_str()));
+ }
+ return thepids;
+}
+
+std::string SALOME_ContainerManager::getCommandToRunRemoteProcess(AccessProtocolType protocol,
+ const std::string & hostname,
+ const std::string & username)
+{
+ std::ostringstream command;
+ switch (protocol)
+ {
+ case rsh:
+ command << "rsh ";
+ if (username != "")
+ {
+ command << "-l " << username << " ";
+ }
+ command << hostname << " ";
+ break;
+ case ssh:
+ command << "ssh ";
+ if (username != "")
+ {
+ command << "-l " << username << " ";
+ }
+ command << hostname << " ";
+ break;
+ case srun:
+ // no need to redefine the user with srun, the job user is taken by default
+ // (note: for srun, user id can be specified with " --uid=<user>")
+ command << "srun -n 1 -N 1 --share --nodelist=" << hostname << " ";
+ break;
+ case pbsdsh:
+ command << "pbsdsh -o -h " << hostname << " ";
+ break;
+ case blaunch:
+ command << "blaunch -no-shell " << hostname << " ";
+ break;
+ default:
+ throw SALOME_Exception("Unknown protocol");
+ }
+
+ return command.str();
+}
+
+bool
+SALOME_ContainerManager::checkPaCOParameters(Engines::ContainerParameters & params, std::string resource_selected)
+{
+ bool result = true;
+
+ // Step 1 : check ContainerParameters
+ // Check container_name, has to be defined
+ if (std::string(params.container_name.in()) == "")
+ {
+ INFOS("[checkPaCOParameters] You must define a container_name to launch a PaCO++ container");
+ result = false;
+ }
+ // Check parallelLib
+ std::string parallelLib = params.parallelLib.in();
+ if (parallelLib != "Mpi" && parallelLib != "Dummy")
+ {
+ INFOS("[checkPaCOParameters] parallelLib is not correctly defined");
+ INFOS("[checkPaCOParameters] you can chosse between: Mpi and Dummy");
+ INFOS("[checkPaCOParameters] you entered: " << parallelLib);
+ result = false;
+ }
+ // Check nb_proc
+ if (params.nb_proc <= 0)
+ {
+ INFOS("[checkPaCOParameters] You must define a nb_proc > 0");
+ result = false;
+ }
+
+ // Step 2 : check resource_selected
+ const ParserResourcesType resource_definition = _resManager->GetResourceDefinition(resource_selected);
+ //std::string protocol = resource_definition->protocol.in();
+ std::string username = resource_definition.UserName;
+ std::string applipath = resource_definition.AppliPath;
+
+ //if (protocol == "" || username == "" || applipath == "")
+ if (username == "" || applipath == "")
+ {
+ INFOS("[checkPaCOParameters] resource selected is not well defined");
+ INFOS("[checkPaCOParameters] resource name: " << resource_definition.Name);
+ INFOS("[checkPaCOParameters] resource hostname: " << resource_definition.HostName);
+ INFOS("[checkPaCOParameters] resource protocol: " << resource_definition.getAccessProtocolTypeStr());
+ INFOS("[checkPaCOParameters] resource username: " << username);
+ INFOS("[checkPaCOParameters] resource applipath: " << applipath);
+ result = false;
+ }
+
+ return result;
+}
+
+/*
+ * :WARNING: Do not directly convert returned value to std::string
+ * This function may return NULL if env variable is not defined.
+ * And std::string(NULL) causes undefined behavior.
+ * Use GetenvThreadSafeAsString to properly get a std::string.
+*/
+char *SALOME_ContainerManager::GetenvThreadSafe(const char *name)
+{// getenv is not thread safe. See man 7 pthread.
+ Utils_Locker lock (&_getenvMutex);
+ return getenv(name);
+}
+
+/*
+ * Return env variable as a std::string.
+ * Return empty string if env variable is not set.
+ */
+std::string SALOME_ContainerManager::GetenvThreadSafeAsString(const char *name)
+{
+ char* var = GetenvThreadSafe(name);
+ return var ? std::string(var) : std::string();
+}
+
+int SALOME_ContainerManager::SystemThreadSafe(const char *command)
+{
+ Utils_Locker lock (&_systemMutex);
+ return system(command);
+}
+
+#ifdef WITH_PACO_PARALLEL
+
+//=============================================================================
+/*! CORBA Method:
+ * Start a suitable PaCO++ Parallel Container in a list of machines.
+ * \param params Container Parameters required for the container
+ * \return CORBA container reference.
+ */
+//=============================================================================
+Engines::Container_ptr
+SALOME_ContainerManager::StartPaCOPPContainer(const Engines::ContainerParameters& params_const,
+ std::string resource_selected)
+{
+ CORBA::Object_var obj;
+ PaCO::InterfaceManager_var container_proxy;
+ Engines::Container_ptr ret = Engines::Container::_nil();
+ Engines::ContainerParameters params(params_const);
+ params.resource_params.name = CORBA::string_dup(resource_selected.c_str());
+
+ // Step 0 : Check parameters
+ if (!checkPaCOParameters(params, resource_selected))
+ {
+ INFOS("[StartPaCOPPContainer] check parameters failed ! see logs...");
+ return ret;
+ }
+
+ // Step 1 : Starting a new parallel container !
+ INFOS("[StartPaCOPPContainer] Starting a PaCO++ parallel container");
+ INFOS("[StartPaCOPPContainer] on resource : " << resource_selected);
+
+ // Step 2 : Get a MachineFile for the parallel container
+ std::string machine_file_name = _resManager->getMachineFile(resource_selected,
+ params.nb_proc,
+ params.parallelLib.in());
+
+ if (machine_file_name == "")
+ {
+ INFOS("[StartPaCOPPContainer] Machine file generation failed");
+ return ret;
+ }
+
+ // Step 3 : starting parallel container proxy
+ std::string command_proxy("");
+ std::string proxy_machine;
+ try
+ {
+ command_proxy = BuildCommandToLaunchPaCOProxyContainer(params, machine_file_name, proxy_machine);
+ }
+ catch(const SALOME_Exception & ex)
+ {
+ INFOS("[StartPaCOPPContainer] Exception in BuildCommandToLaunchPaCOContainer");
+ INFOS(ex.what());
+ return ret;
+ }
+ obj = LaunchPaCOProxyContainer(command_proxy, params, proxy_machine);
+ if (CORBA::is_nil(obj))
+ {
+ INFOS("[StartPaCOPPContainer] LaunchPaCOContainer for proxy returns NIL !");
+ return ret;
+ }
+ container_proxy = PaCO::InterfaceManager::_narrow(obj);
+ MESSAGE("[StartPaCOPPContainer] PaCO container proxy is launched");
+
+ // Step 4 : starting parallel container nodes
+ std::string command_nodes("");
+ SALOME_ContainerManager::actual_launch_machine_t nodes_machines;
+ try
+ {
+ command_nodes = BuildCommandToLaunchPaCONodeContainer(params, machine_file_name, nodes_machines, proxy_machine);
+ }
+ catch(const SALOME_Exception & ex)
+ {
+ INFOS("[StarPaCOPPContainer] Exception in BuildCommandToLaunchPaCONodeContainer");
+ INFOS(ex.what());
+ return ret;
+ }
+
+ std::string container_generic_node_name = std::string(params.container_name.in()) + std::string("Node");
+ bool result = LaunchPaCONodeContainer(command_nodes, params, container_generic_node_name, nodes_machines);
+ if (!result)
+ {
+ INFOS("[StarPaCOPPContainer] LaunchPaCONodeContainer failed !");
+ // Il faut tuer le proxy
+ try
+ {
+ Engines::Container_var proxy = Engines::Container::_narrow(container_proxy);
+ proxy->Shutdown();
+ }
+ catch (...)
+ {
+ INFOS("[StarPaCOPPContainer] Exception caught from proxy Shutdown...");
+ }
+ return ret;
+ }
+
+ // Step 4 : connecting nodes and the proxy to actually create a parallel container
+ for (int i = 0; i < params.nb_proc; i++)
+ {
+ std::ostringstream tmp;
+ tmp << i;
+ std::string proc_number = tmp.str();
+ std::string container_node_name = container_generic_node_name + proc_number;
+
+ std::string theNodeMachine(nodes_machines[i]);
+ std::string containerNameInNS = _NS->BuildContainerNameForNS(container_node_name.c_str(), theNodeMachine.c_str());
+ obj = _NS->Resolve(containerNameInNS.c_str());
+ if (CORBA::is_nil(obj))
+ {
+ INFOS("[StarPaCOPPContainer] CONNECTION FAILED From Naming Service !");
+ INFOS("[StarPaCOPPContainer] Container name is " << containerNameInNS);
+ return ret;
+ }
+ try
+ {
+ MESSAGE("[StarPaCOPPContainer] Deploying node : " << container_node_name);
+ PaCO::InterfaceParallel_var node = PaCO::InterfaceParallel::_narrow(obj);
+ node->deploy();
+ MESSAGE("[StarPaCOPPContainer] node " << container_node_name << " is deployed");
+ }
+ catch(CORBA::SystemException& e)
+ {
+ INFOS("[StarPaCOPPContainer] Exception in deploying node : " << containerNameInNS);
+ INFOS("CORBA::SystemException : " << e);
+ return ret;
+ }
+ catch(CORBA::Exception& e)
+ {
+ INFOS("[StarPaCOPPContainer] Exception in deploying node : " << containerNameInNS);
+ INFOS("CORBA::Exception" << e);
+ return ret;
+ }
+ catch(...)
+ {
+ INFOS("[StarPaCOPPContainer] Exception in deploying node : " << containerNameInNS);
+ INFOS("Unknown exception !");
+ return ret;
+ }
+ }
+
+ // Step 5 : starting parallel container
+ try
+ {
+ MESSAGE ("[StarPaCOPPContainer] Starting parallel object");
+ container_proxy->start();
+ MESSAGE ("[StarPaCOPPContainer] Parallel object is started");
+ ret = Engines::Container::_narrow(container_proxy);
+ }
+ catch(CORBA::SystemException& e)
+ {
+ INFOS("Caught CORBA::SystemException. : " << e);
+ }
+ catch(PortableServer::POA::ServantAlreadyActive&)
+ {
+ INFOS("Caught CORBA::ServantAlreadyActiveException");
+ }
+ catch(CORBA::Exception&)
+ {
+ INFOS("Caught CORBA::Exception.");
+ }
+ catch(std::exception& exc)
+ {
+ INFOS("Caught std::exception - "<<exc.what());
+ }
+ catch(...)
+ {
+ INFOS("Caught unknown exception.");
+ }
+ return ret;
+}
+
+std::string
+SALOME_ContainerManager::BuildCommandToLaunchPaCOProxyContainer(const Engines::ContainerParameters& params,
+ std::string machine_file_name,
+ std::string & proxy_hostname)
+{
+ // In the proxy case, we always launch a Dummy Proxy
+ std::string exe_name = "SALOME_ParallelContainerProxyDummy";
+ std::string container_name = params.container_name.in();
+
+ // Convert nb_proc in string
+ std::ostringstream tmp_string;
+ tmp_string << params.nb_proc;
+ std::string nb_proc_str = tmp_string.str();
+
+ // Get resource definition
+ ParserResourcesType resource_definition =
+ _resManager->GetResourceDefinition(params.resource_params.name.in());
+
+ // Choose hostname
+ std::string hostname;
+ std::ifstream machine_file(machine_file_name.c_str());
+ std::getline(machine_file, hostname, ' ');
+ size_t found = hostname.find('\n');
+ if (found!=std::string::npos)
+ hostname.erase(found, 1); // Remove \n
+ proxy_hostname = hostname;
+ MESSAGE("[BuildCommandToLaunchPaCOProxyContainer] machine file name extracted is " << hostname);
+
+ // Remote execution
+ bool remote_execution = false;
+ if (hostname != std::string(Kernel_Utils::GetHostname()))
+ {
+ MESSAGE("[BuildCommandToLaunchPaCOProxyContainer] remote machine case detected !");
+ remote_execution = true;
+ }
+
+ // Log environnement
+ std::string log_type("");
+ char * get_val = GetenvThreadSafe("PARALLEL_LOG");
+ if (get_val)
+ log_type = get_val;
+
+ // Generating the command
+ std::string command_begin("");
+ std::string command_end("");
+ std::ostringstream command;
+
+ LogConfiguration(log_type, "proxy", container_name, hostname, command_begin, command_end);
+ command << command_begin;
+
+ // Adding connection command
+ // We can only have a remote execution with
+ // a SALOME application
+ if (remote_execution)
+ {
+ ASSERT(GetenvThreadSafe("NSHOST"));
+ ASSERT(GetenvThreadSafe("NSPORT"));
+
+ command << resource_definition.getAccessProtocolTypeStr();
+ command << " -l ";
+ command << resource_definition.UserName;
+ command << " " << hostname;
+ command << " " << resource_definition.AppliPath;
+ command << "/runRemote.sh ";
+ command << GetenvThreadSafeAsString("NSHOST") << " "; // hostname of CORBA name server
+ command << GetenvThreadSafeAsString("NSPORT") << " "; // port of CORBA name server
+ }
+
+ command << exe_name;
+ command << " " << container_name;
+ command << " Dummy";
+ command << " " << hostname;
+ command << " " << nb_proc_str;
+ command << " -";
+ AddOmninamesParams(command);
+
+ // Final command
+ command << command_end;
+ MESSAGE("[BuildCommandToLaunchPaCOProxyContainer] Command is: " << command.str());
+
+ return command.str();
+}
+
+std::string
+SALOME_ContainerManager::BuildCommandToLaunchPaCONodeContainer(const Engines::ContainerParameters& params,
+ const std::string & machine_file_name,
+ SALOME_ContainerManager::actual_launch_machine_t & vect_machine,
+ const std::string & proxy_hostname)
+{
+ // Name of exe
+ std::string exe_name = "SALOME_ParallelContainerNode";
+ exe_name += params.parallelLib.in();
+ std::string container_name = params.container_name.in();
+
+ // Convert nb_proc in string
+ std::ostringstream nb_proc_stream;
+ nb_proc_stream << params.nb_proc;
+
+ // Get resource definition
+ ParserResourcesType resource_definition =
+ _resManager->GetResourceDefinition(params.resource_params.name.in());
+
+ // Log environnement
+ std::string log_type("");
+ char * get_val = GetenvThreadSafe("PARALLEL_LOG");
+ if (get_val)
+ log_type = get_val;
+
+ // Now the command is different according to paralleLib
+ std::ostringstream command_nodes;
+ std::ifstream machine_file(machine_file_name.c_str());
+ if (std::string(params.parallelLib.in()) == "Dummy")
+ {
+ for (int i= 0; i < params.nb_proc; i++)
+ {
+ // Choose hostname
+ std::string hostname;
+ std::getline(machine_file, hostname);
+ MESSAGE("[BuildCommandToLaunchPaCONodeContainer] machine file name extracted is " << hostname);
+
+ // Remote execution
+ bool remote_execution = false;
+ if (hostname != std::string(Kernel_Utils::GetHostname()))
+ {
+ MESSAGE("[BuildCommandToLaunchPaCONodeContainer] remote machine case detected !");
+ remote_execution = true;
+ }
+
+ // For each node we have a new command
+ // Generating the command
+ std::ostringstream command_node_stream;
+ std::string command_node_begin("");
+ std::string command_node_end("");
+ std::ostringstream node_number;
+ node_number << i;
+ std::string container_node_name = container_name + node_number.str();
+ LogConfiguration(log_type, "node", container_node_name, hostname, command_node_begin, command_node_end);
+
+ // Adding connection command
+ // We can only have a remote execution with
+ // a SALOME application
+ if (remote_execution)
+ {
+ ASSERT(GetenvThreadSafe("NSHOST"));
+ ASSERT(GetenvThreadSafe("NSPORT"));
+
+ command_node_stream << resource_definition.getAccessProtocolTypeStr();
+ command_node_stream << " -l ";
+ command_node_stream << resource_definition.UserName;
+ command_node_stream << " " << hostname;
+ command_node_stream << " " << resource_definition.AppliPath;
+ command_node_stream << "/runRemote.sh ";
+ command_node_stream << GetenvThreadSafeAsString("NSHOST") << " "; // hostname of CORBA name server
+ command_node_stream << GetenvThreadSafeAsString("NSPORT") << " "; // port of CORBA name server
+ }
+
+ command_node_stream << exe_name;
+ command_node_stream << " " << container_name;
+ command_node_stream << " " << params.parallelLib.in();
+ command_node_stream << " " << proxy_hostname;
+ command_node_stream << " " << node_number.str();
+ command_node_stream << " -";
+ AddOmninamesParams(command_node_stream);
+
+ command_nodes << command_node_begin << command_node_stream.str() << command_node_end;
+ vect_machine.push_back(hostname);
+ }
+ }
+
+ else if (std::string(params.parallelLib.in()) == "Mpi")
+ {
+ // Choose hostname
+ std::string hostname;
+ std::getline(machine_file, hostname, ' ');
+ MESSAGE("[BuildCommandToLaunchPaCONodeContainer] machine file name extracted is " << hostname);
+
+ // Remote execution
+ bool remote_execution = false;
+ if (hostname != std::string(Kernel_Utils::GetHostname()))
+ {
+ MESSAGE("[BuildCommandToLaunchPaCONodeContainer] remote machine case detected !");
+ remote_execution = true;
+ }
+
+ // In case of Mpi and Remote, we copy machine_file in the applipath
+ // scp mpi_machine_file user@machine:Path
+ std::ostringstream command_remote_stream;
+ std::string::size_type last = machine_file_name.find_last_of("/");
+ if (last == std::string::npos)
+ last = -1;
+
+ if (resource_definition.Protocol == rsh)
+ command_remote_stream << "rcp ";
+ else
+ command_remote_stream << "scp ";
+ command_remote_stream << machine_file_name << " ";
+ command_remote_stream << resource_definition.UserName << "@";
+ command_remote_stream << hostname << ":" << resource_definition.AppliPath;
+ command_remote_stream << "/" << machine_file_name.substr(last+1);
+
+ int status = SystemThreadSafe(command_remote_stream.str().c_str());
+ if (status == -1)
+ {
+ INFOS("copy of the MPI machine file failed ! - sorry !");
+ return "";
+ }
+
+ // Generating the command
+ std::string command_begin("");
+ std::string command_end("");
+
+ LogConfiguration(log_type, "nodes", container_name, hostname, command_begin, command_end);
+ command_nodes << command_begin;
+
+ // Adding connection command
+ // We can only have a remote execution with
+ // a SALOME application
+ if (remote_execution)
+ {
+ ASSERT(GetenvThreadSafe("NSHOST"));
+ ASSERT(GetenvThreadSafe("NSPORT"));
+
+ command_nodes << resource_definition.getAccessProtocolTypeStr();
+ command_nodes << " -l ";
+ command_nodes << resource_definition.UserName;
+ command_nodes << " " << hostname;
+ command_nodes << " " << resource_definition.AppliPath;
+ command_nodes << "/runRemote.sh ";
+ command_nodes << GetenvThreadSafeAsString("NSHOST") << " "; // hostname of CORBA name server
+ command_nodes << GetenvThreadSafeAsString("NSPORT") << " "; // port of CORBA name server
+ }
+
+ if (resource_definition.mpi == lam)
+ {
+ command_nodes << "mpiexec -ssi boot ";
+ command_nodes << "-machinefile " << machine_file_name << " ";
+ command_nodes << "-n " << params.nb_proc;
+ }
+ else
+ {
+ command_nodes << "mpirun -np " << params.nb_proc;
+ }
+ command_nodes << " " << exe_name;
+ command_nodes << " " << container_name;
+ command_nodes << " " << params.parallelLib.in();
+ command_nodes << " " << proxy_hostname;
+ command_nodes << " -";
+ AddOmninamesParams(command_nodes);
+
+ // We don't put hostname, because nodes are registered in the resource of the proxy
+ for (int i= 0; i < params.nb_proc; i++)
+ vect_machine.push_back(proxy_hostname);
+
+ command_nodes << command_end;
+ }
+ return command_nodes.str();
+}
+
+void
+SALOME_ContainerManager::LogConfiguration(const std::string & log_type,
+ const std::string & exe_type,
+ const std::string & container_name,
+ const std::string & hostname,
+ std::string & begin,
+ std::string & end)
+{
+ if(log_type == "xterm")
+ {
+ begin = "xterm -e \"export LD_LIBRARY_PATH=$LD_LIBRARY_PATH; export PATH=$PATH;";
+ end = "\"&";
+ }
+ else if(log_type == "xterm_debug")
+ {
+ begin = "xterm -e \"export LD_LIBRARY_PATH=$LD_LIBRARY_PATH; export PATH=$PATH;";
+ end = "; cat \" &";
+ }
+ else
+ {
+ // default into a file...
+ std::string logFilename = "/tmp/" + container_name + "_" + hostname + "_" + exe_type + "_";
+ std::string user = GetenvThreadSafeAsString("USER");
+ if (user.empty())
+ user = GetenvThreadSafeAsString("LOGNAME");
+ logFilename += user + ".log";
+ end = " > " + logFilename + " 2>&1 & ";
+ }
+}
+
+CORBA::Object_ptr
+SALOME_ContainerManager::LaunchPaCOProxyContainer(const std::string& command,
+ const Engines::ContainerParameters& params,
+ const std::string & hostname)
+{
+ PaCO::InterfaceManager_ptr container_proxy = PaCO::InterfaceManager::_nil();
+
+ MESSAGE("[LaunchPaCOProxyContainer] Launch command");
+ int status = SystemThreadSafe(command.c_str());
+ if (status == -1) {
+ INFOS("[LaunchPaCOProxyContainer] failed : system command status -1");
+ return container_proxy;
+ }
+ else if (status == 217) {
+ INFOS("[LaunchPaCOProxyContainer] failed : system command status 217");
+ return container_proxy;
+ }
+
+ int count(GetTimeOutToLoaunchServer());
+ CORBA::Object_var obj = CORBA::Object::_nil();
+ std::string containerNameInNS = _NS->BuildContainerNameForNS(params.container_name.in(),
+ hostname.c_str());
+ MESSAGE("[LaunchParallelContainer] Waiting for Parallel Container proxy : " << containerNameInNS);
+
+ while (CORBA::is_nil(obj) && count)
+ {
+ sleep(1);
+ count--;
+ obj = _NS->Resolve(containerNameInNS.c_str());
+ }
+
+ try
+ {
+ container_proxy = PaCO::InterfaceManager::_narrow(obj);
+ }
+ catch(CORBA::SystemException& e)
+ {
+ INFOS("[StarPaCOPPContainer] Exception in _narrow after LaunchParallelContainer for proxy !");
+ INFOS("CORBA::SystemException : " << e);
+ return container_proxy;
+ }
+ catch(CORBA::Exception& e)
+ {
+ INFOS("[StarPaCOPPContainer] Exception in _narrow after LaunchParallelContainer for proxy !");
+ INFOS("CORBA::Exception" << e);
+ return container_proxy;
+ }
+ catch(...)
+ {
+ INFOS("[StarPaCOPPContainer] Exception in _narrow after LaunchParallelContainer for proxy !");
+ INFOS("Unknown exception !");
+ return container_proxy;
+ }
+ if (CORBA::is_nil(container_proxy))
+ {
+ INFOS("[StarPaCOPPContainer] PaCO::InterfaceManager::_narrow returns NIL !");
+ return container_proxy;
+ }
+ return obj._retn();
+}
+
+//=============================================================================
+/*! This method launches the parallel container.
+ * It will may be placed on the ressources manager.
+ *
+ * \param command to launch
+ * \param container's parameters
+ * \param name of the container
+ *
+ * \return CORBA container reference
+ */
+//=============================================================================
+bool
+SALOME_ContainerManager::LaunchPaCONodeContainer(const std::string& command,
+ const Engines::ContainerParameters& params,
+ const std::string& name,
+ SALOME_ContainerManager::actual_launch_machine_t & vect_machine)
+{
+ INFOS("[LaunchPaCONodeContainer] Launch command");
+ int status = SystemThreadSafe(command.c_str());
+ if (status == -1) {
+ INFOS("[LaunchPaCONodeContainer] failed : system command status -1");
+ return false;
+ }
+ else if (status == 217) {
+ INFOS("[LaunchPaCONodeContainer] failed : system command status 217");
+ return false;
+ }
+
+ INFOS("[LaunchPaCONodeContainer] Waiting for the nodes of the parallel container");
+ // We are waiting all the nodes
+ for (int i = 0; i < params.nb_proc; i++)
+ {
+ CORBA::Object_var obj = CORBA::Object::_nil();
+ std::string theMachine(vect_machine[i]);
+ // Name of the node
+ std::ostringstream tmp;
+ tmp << i;
+ std::string proc_number = tmp.str();
+ std::string container_node_name = name + proc_number;
+ std::string containerNameInNS = _NS->BuildContainerNameForNS((char*) container_node_name.c_str(), theMachine.c_str());
+ INFOS("[LaunchPaCONodeContainer] Waiting for Parallel Container node " << containerNameInNS << " on " << theMachine);
+ int count(GetTimeOutToLoaunchServer());
+ while (CORBA::is_nil(obj) && count) {
+ SleepInSecond(1);
+ count-- ;
+ obj = _NS->Resolve(containerNameInNS.c_str());
+ }
+ if (CORBA::is_nil(obj))
+ {
+ INFOS("[LaunchPaCONodeContainer] Launch of node failed (or not found) !");
+ return false;
+ }
+ }
+ return true;
+}
+
+#else
+
+Engines::Container_ptr
+SALOME_ContainerManager::StartPaCOPPContainer(const Engines::ContainerParameters& params,
+ std::string resource_selected)
+{
+ Engines::Container_ptr ret = Engines::Container::_nil();
+ INFOS("[StarPaCOPPContainer] is disabled !");
+ INFOS("[StarPaCOPPContainer] recompile SALOME Kernel to enable PaCO++ parallel extension");
+ return ret;
+}
+
+std::string
+SALOME_ContainerManager::BuildCommandToLaunchPaCOProxyContainer(const Engines::ContainerParameters& params,
+ std::string machine_file_name,
+ std::string & proxy_hostname)
+{
+ return "";
+}
+
+std::string
+SALOME_ContainerManager::BuildCommandToLaunchPaCONodeContainer(const Engines::ContainerParameters& params,
+ const std::string & machine_file_name,
+ SALOME_ContainerManager::actual_launch_machine_t & vect_machine,
+ const std::string & proxy_hostname)
+{
+ return "";
+}
+void
+SALOME_ContainerManager::LogConfiguration(const std::string & log_type,
+ const std::string & exe_type,
+ const std::string & container_name,
+ const std::string & hostname,
+ std::string & begin,
+ std::string & end)
+{
+}
+
+CORBA::Object_ptr
+SALOME_ContainerManager::LaunchPaCOProxyContainer(const std::string& command,
+ const Engines::ContainerParameters& params,
+ const std::string& hostname)
+{
+ CORBA::Object_ptr ret = CORBA::Object::_nil();
+ return ret;
+}
+
+bool
+SALOME_ContainerManager::LaunchPaCONodeContainer(const std::string& command,
+ const Engines::ContainerParameters& params,
+ const std::string& name,
+ SALOME_ContainerManager::actual_launch_machine_t & vect_machine)
+{
+ return false;
+}
+#endif
