AC_CHECK_HEADER(mpi.h,WITHOPENMPI="yes",WITHOPENMPI="no")
CPPFLAGS="$CPPFLAGS_old"
+ LIBS_old="$LIBS"
+ LIBS="-L${OPENMPI_HOME}/lib $LIBS"
+ AC_CHECK_LIB(mpi,MPI_Publish_name,WITHMPI2="yes",WITHMPI2="no")
+ LIBS="$LIBS_old"
+
AC_MSG_CHECKING(for openmpi)
if test "$WITHOPENMPI" = "yes";then
mpi_ok=yes
+ CPPFLAGS="-DWITHOPENMPI $CPPFLAGS"
AC_MSG_RESULT(yes)
else
mpi_ok=no
* \param instanceName unique instance name for this object (see Container_i)
* \param interfaceName component class name
* \param notif use of notification
+ * \param regist (true or false) use of registry (default true)
*/
//=============================================================================
PortableServer::ObjectId * contId,
const char *instanceName,
const char *interfaceName,
- bool notif) :
+ bool notif,
+ bool regist ) :
_instanceName(instanceName),
_interfaceName(interfaceName),
_myConnexionToRegistry(0),
_CanceledThread(false)
{
MESSAGE("Component constructor with instanceName "<< _instanceName);
- //SCRUTE(pd_refCount);
_orb = CORBA::ORB::_duplicate(orb);
_poa = PortableServer::POA::_duplicate(poa);
_contId = contId ;
CORBA::Object_var o = _poa->id_to_reference(*contId); // container ior...
_container=Engines::Container::_narrow(o);
- const CORBA::String_var ior = _orb->object_to_string(o);
- _myConnexionToRegistry = new RegistryConnexion(0, 0, ior,"theSession",
- _instanceName.c_str());
+
+ if(regist){
+ const CORBA::String_var ior = _orb->object_to_string(o);
+ _myConnexionToRegistry = new RegistryConnexion(0, 0, ior,"theSession",
+ _instanceName.c_str());
+ }
_notifSupplier = new NOTIFICATION_Supplier(instanceName, notif);
- //SCRUTE(pd_refCount);
}
//=============================================================================
}
-//=============================================================================
-/*!
- * Standard constructor for parallel component
- * Connection Notification (no connection to Registry !)
- * \param orb Object Request broker given by Container
- * \param poa Portable Object Adapter from Container (normally root_poa)
- * \param contId container CORBA id inside the server
- * \param instanceName unique instance name for this object (see Container_i)
- * \param interfaceName component class name
- * \param flag not used...
- * \param notif use of notification
- */
-//=============================================================================
-
-Engines_Component_i::Engines_Component_i(CORBA::ORB_ptr orb,
- PortableServer::POA_ptr poa,
- PortableServer::ObjectId * contId,
- const char *instanceName,
- const char *interfaceName,
- int flag,
- bool notif ) :
- _instanceName(instanceName),
- _interfaceName(interfaceName),
- _myConnexionToRegistry(0),
- _notifSupplier(0),
- _ThreadId(0) ,
- _ThreadCpuUsed(0) ,
- _Executed(false) ,
- _graphName("") ,
- _nodeName(""),
- _studyId(-1),
- _CanceledThread(false)
-{
- _orb = CORBA::ORB::_duplicate(orb);
- _poa = PortableServer::POA::_duplicate(poa);
- _contId = contId ;
- CORBA::Object_var o = _poa->id_to_reference(*contId); // container ior...
- _container=Engines::Container::_narrow(o);
-
- _notifSupplier = new NOTIFICATION_Supplier(instanceName, notif);
-}
-
//=============================================================================
/*!
* Destructor: call Container for decrement of instances count.
//=============================================================================
Engines_Container_i::Engines_Container_i () :
-_numInstance(0)
+_numInstance(0),_id(0),_NS(0)
{
}
bool activAndRegist,
bool isServantAloneInProcess
) :
-_numInstance(0),_isServantAloneInProcess(isServantAloneInProcess)
+ _numInstance(0),_isServantAloneInProcess(isServantAloneInProcess),_id(0),_NS(0)
{
_pid = (long)getpid();
Engines_Container_i::~Engines_Container_i()
{
MESSAGE("Container_i::~Container_i()");
- delete _id;
+ if(_id)
+ delete _id;
if(_NS)
delete _NS;
}
// Author : Paul RASCLE, EDF - MARC TAJCHMAN, CEA
// Module : SALOME
// $Header$
-
+//
#ifndef _SALOME_COMPONENT_I_HXX_
#define _SALOME_COMPONENT_I_HXX_
PortableServer::ObjectId * contId,
const char *instanceName,
const char *interfaceName,
- bool notif = false);
+ bool notif = false,
+ bool regist = true);
//Constructor for standalone component
Engines_Component_i(CORBA::ORB_ptr orb,
PortableServer::POA_ptr poa,
const char *instanceName,
const char *interfaceName,
bool notif = false,
- bool regist=true);
- // Constructor for parallel component : don't call registry
- Engines_Component_i(CORBA::ORB_ptr orb,
- PortableServer::POA_ptr poa,
- PortableServer::ObjectId * contId,
- const char *instanceName,
- const char *interfaceName,
- int flag,
- bool notif = false);
+ bool regist = true);
virtual ~Engines_Component_i();
MESSAGE("constructor");
_NS = ns;
_ResManager = rm;
- _id=0;
PortableServer::POAManager_var pman = poa->the_POAManager();
_orb = CORBA::ORB::_duplicate(orb) ;
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 " <<
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 : " <<
return Engines::Container::_nil();
}
else if(theMachine==Kernel_Utils::GetHostname())
- command = BuildCommandToLaunchLocalContainer(params,id,container_exe);
+ command = BuildCommandToLaunchLocalContainer(params,container_exe);
else
- command = BuildCommandToLaunchRemoteContainer(theMachine,params,id,container_exe);
+ command = BuildCommandToLaunchRemoteContainer(theMachine,params,container_exe);
- // RmTmpFile(); Too early! May be this function has not been used for a long time...
+ // RmTmpFile(_TmpFileName); Too early! May be this function has not been used for a long time...
//check if an entry exists in Naming service
if(params.isMPI)
- {
- containerNameInNS = "/ContainerManager/id";
- sprintf(idc,"%ld",id);
- containerNameInNS += idc;
- }
+ // A parallel container register on zero node in NS
+ containerNameInNS = _NS->BuildContainerNameForNS(params,GetMPIZeroNode(theMachine).c_str());
else
containerNameInNS = _NS->BuildContainerNameForNS(params,theMachine.c_str());
if (status == -1){
MESSAGE("SALOME_LifeCycleCORBA::StartOrFindContainer rsh failed " <<
"(system command status -1)");
- RmTmpFile(); // command file can be removed here
+ RmTmpFile(_TmpFileName); // command file can be removed here
return Engines::Container::_nil();
}
else if (status == 217){
MESSAGE("SALOME_LifeCycleCORBA::StartOrFindContainer rsh failed " <<
"(system command status 217)");
- RmTmpFile(); // command file can be removed here
+ RmTmpFile(_TmpFileName); // command file can be removed here
return Engines::Container::_nil();
}
else{
ret->logfilename(logFilename.c_str());
}
- RmTmpFile(); // command file can be removed here
+ RmTmpFile(_TmpFileName); // command file can be removed here
return ret;
}
}
return obj;
}
-//=============================================================================
-/*!
- * 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
- */
-//=============================================================================
-
-
-long SALOME_ContainerManager::GetIdForContainer(void)
-{
- _id++;
- return _id;
-}
-
void SALOME_ContainerManager::fillBatchLaunchedContainers()
{
_batchLaunchedContainers.clear();
string
SALOME_ContainerManager::BuildCommandToLaunchRemoteContainer
(const string& machine,
- const Engines::MachineParameters& params, const long id,const std::string& container_exe)
+ const Engines::MachineParameters& params, const std::string& container_exe)
{
string command;
int nbproc;
- char idc[3*sizeof(long)];
if ( ! _isAppliSalomeDefined )
command = BuildTempFileToLaunchRemoteContainer(machine, params);
command += o.str();
#ifdef WITHLAM
command += "-x PATH,LD_LIBRARY_PATH,OMNIORB_CONFIG,SALOME_trace ";
+#elif defined(WITHOPENMPI)
+ if( getenv("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 += getenv("OMPI_URI_FILE");
+ }
#endif
command += " SALOME_MPIContainer ";
}
command += " " +container_exe+ " ";
command += _NS->ContainerName(params);
- command += " -id ";
- sprintf(idc,"%ld",id);
- command += idc;
command += " -";
AddOmninamesParams(command);
string
SALOME_ContainerManager::BuildCommandToLaunchLocalContainer
-(const Engines::MachineParameters& params, const long id,const std::string& container_exe)
+(const Engines::MachineParameters& params, const std::string& container_exe)
{
_TmpFileName = BuildTemporaryFileName();
string command;
int nbproc = 0;
- //char idc[3*sizeof(long)];
ofstream command_file( _TmpFileName.c_str() );
#ifdef WITHLAM
//command += "-x PATH,LD_LIBRARY_PATH,OMNIORB_CONFIG,SALOME_trace ";
command_file << "-x PATH,LD_LIBRARY_PATH,OMNIORB_CONFIG,SALOME_trace ";
+#elif defined(WITHOPENMPI)
+ //command += "-x PATH -x LD_LIBRARY_PATH -x OMNIORB_CONFIG -x SALOME_trace ";
+ if( getenv("OMPI_URI_FILE") == NULL )
+ command_file << "-x PATH -x LD_LIBRARY_PATH -x OMNIORB_CONFIG -x SALOME_trace";
+ else{
+ command_file << "-x PATH -x LD_LIBRARY_PATH -x OMNIORB_CONFIG -x SALOME_trace -ompi-server file:";
+ command_file << getenv("OMPI_URI_FILE");
+ }
#endif
if (isPythonContainer(params.container_name))
//command += "pyMPI SALOME_ContainerPy.py ";
- command_file << "pyMPI SALOME_ContainerPy.py ";
+ command_file << " pyMPI SALOME_ContainerPy.py ";
else
//command += "SALOME_MPIContainer ";
- command_file << "SALOME_MPIContainer ";
+ command_file << " SALOME_MPIContainer ";
}
else
}
-
- /*command += _NS->ContainerName(params);
- command += " -id ";
- sprintf(idc,"%ld",id);
- command += idc;
- command += " -";
- AddOmninamesParams(command);*/
-
command_file << _NS->ContainerName(params);
- command_file << " -id " << id << " -";
+ command_file << " -";
AddOmninamesParams(command_file);
command_file.close();
*/
//=============================================================================
-void SALOME_ContainerManager::RmTmpFile()
+void SALOME_ContainerManager::RmTmpFile(std::string& tmpFileName)
{
- int lenght = _TmpFileName.size();
+ int lenght = tmpFileName.size();
if ( lenght > 0)
{
#ifdef WIN32
string command = "rm ";
#endif
if ( lenght > 4 )
- command += _TmpFileName.substr(0, lenght - 3 );
+ command += tmpFileName.substr(0, lenght - 3 );
else
- command += _TmpFileName;
+ command += tmpFileName;
command += '*';
system(command.c_str());
//if dir is empty - remove it
- string tmp_dir = Kernel_Utils::GetDirByPath( _TmpFileName );
+ string tmp_dir = Kernel_Utils::GetDirByPath( tmpFileName );
if ( Kernel_Utils::IsEmptyDir( tmp_dir ) )
{
#ifdef WIN32
tempOutputFile << nbproc << " ";
#ifdef WITHLAM
tempOutputFile << "-x PATH,LD_LIBRARY_PATH,OMNIORB_CONFIG,SALOME_trace ";
+#elif defined(WITHOPENMPI)
+ if( getenv("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 << getenv("OMPI_URI_FILE");
+ }
#endif
}
if (params.isMPI)
{
if (isPythonContainer(params.container_name))
- tempOutputFile << "pyMPI SALOME_ContainerPy.py ";
+ tempOutputFile << " pyMPI SALOME_ContainerPy.py ";
else
- tempOutputFile << "SALOME_MPIContainer ";
+ tempOutputFile << " SALOME_MPIContainer ";
}
else
}
}
+string SALOME_ContainerManager::GetMPIZeroNode(string machine)
+{
+ int status;
+ string zeronode;
+ string cmd;
+ string tmpFile = BuildTemporaryFileName();
+
+ cmd = "ssh " + machine + " mpirun -np 1 hostname > " + tmpFile;
+
+ status = system(cmd.c_str());
+ if( status == 0 ){
+ ifstream fp(tmpFile.c_str(),ios::in);
+ fp >> zeronode;
+ }
+
+ RmTmpFile(tmpFile);
+
+ return zeronode;
+}
void fillBatchLaunchedContainers();
- long GetIdForContainer(void);
-
std::string BuildCommandToLaunchRemoteContainer(const std::string& machine,
- const Engines::MachineParameters& params, const long id,
- const std::string& container_exe="SALOME_Container");
+ const Engines::MachineParameters& params,
+ const std::string& container_exe="SALOME_Container");
- std::string BuildCommandToLaunchLocalContainer(const Engines::MachineParameters& params, const long id,
+ std::string BuildCommandToLaunchLocalContainer(const Engines::MachineParameters& params,
const std::string& container_exe="SALOME_Container");
std::string BuildTempFileToLaunchRemoteContainer(const std::string& machine,
const Engines::MachineParameters& params) throw(SALOME_Exception);
- void RmTmpFile();
+ void RmTmpFile(std::string& tmpFile);
void AddOmninamesParams(std::string& command) const;
std::string BuildTemporaryFileName() const;
+ std::string GetMPIZeroNode(std::string machine);
+
// Parallel extension
std::string BuildCommandToLaunchLocalParallelContainer(const std::string& exe_name,
const Engines::MachineParameters& params,
void startMPI();
bool _MpiStarted;
- long _id;
CORBA::ORB_var _orb;
PortableServer::POA_var _poa;
int argc, char *argv[])
: Engines_Container_i(orb,poa,containerName,argc,argv,false), MPIObject_i(nbproc,numproc)
{
- long id=0;
- string IdContainerinNS;
- char idc[3*sizeof(long)];
- MESSAGE("[" << numproc << "] activate object");
_id = _poa->activate_object(this);
-
- if(argc>1)
- {
- for(int i=0;i<argc;i++)
- {
- if(strcmp(argv[i],"-id")==NULL)
- {
- id = atoi(argv[i+1]);
- continue;
- }
- }
- }
- SCRUTE(id);
+ CORBA::Object_var obj=_poa->id_to_reference(*_id);
+ Engines::Container_var pCont = Engines::Container::_narrow(obj);
+ _remove_ref();
if(numproc==0){
_NS = new SALOME_NamingService();
_NS->init_orb( CORBA::ORB::_duplicate(_orb) ) ;
- CORBA::Object_var obj=_poa->id_to_reference(*_id);
- Engines::Container_var pCont = Engines::Container::_narrow(obj);
-
string hostname = Kernel_Utils::GetHostname();
_containerName = _NS->BuildContainerNameForNS(containerName,hostname.c_str());
SCRUTE(_containerName);
_NS->Register(pCont, _containerName.c_str());
- // 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
-
- IdContainerinNS = "/ContainerManager/id";
- sprintf(idc,"%ld",id);
- IdContainerinNS += idc;
- SCRUTE(IdContainerinNS);
- _NS->Register(pCont, IdContainerinNS.c_str());
-
}
// Root recupere les ior des container des autre process
for(ip= 1;ip<_nbproc;ip++)
(Engines::MPIContainer::_narrow((*_tior)[ip]))->Shutdown();
}
+
+ std::map<std::string, Engines::Component_var>::iterator itm;
+ for (itm = _listInstances_map.begin(); itm != _listInstances_map.end(); itm++)
+ {
+ try
+ {
+ itm->second->destroy();
+ }
+ catch(const CORBA::Exception& e)
+ {
+ // ignore this entry and continue
+ }
+ catch(...)
+ {
+ // ignore this entry and continue
+ }
+ }
+
_orb->shutdown(0);
}
// --- try dlopen C++ component
string impl_name = string ("lib") + aCompName + string("Engine.so");
- SCRUTE(impl_name);
_numInstanceMutex.lock(); // lock to be alone
// (see decInstanceCnt, finalize_removal))
{
_library_map[impl_name] = handle;
_numInstanceMutex.unlock();
+ MESSAGE("[" << _numproc << "] Library " << impl_name << " loaded");
+ MPI_Barrier(MPI_COMM_WORLD);
return true;
}
else
{
- INFOS("[" << _numproc << "] Can't load shared library : " << impl_name);
- INFOS("[" << _numproc << "] error dlopen: " << dlerror());
+ MESSAGE("[" << _numproc << "] Can't load shared library : " << impl_name);
+ MESSAGE("[" << _numproc << "] error dlopen: " << dlerror());
+ MPI_Barrier(MPI_COMM_WORLD);
}
_numInstanceMutex.unlock();
//--- try C++
string impl_name = string ("lib") + genericRegisterName +string("Engine.so");
- void* handle = _library_map[impl_name];
- if ( !handle ) {
- INFOS("shared library " << impl_name <<"must be loaded before instance");
- return Engines::Component::_nil() ;
- }
- else {
- iobject = createMPIInstance(genericRegisterName,
- handle,
- studyId);
- return iobject._retn();
- }
+ if (_library_map.count(impl_name) != 0) // C++ component
+ {
+ void* handle = _library_map[impl_name];
+ iobject = createMPIInstance(genericRegisterName,
+ handle,
+ studyId);
+ return iobject._retn();
+ }
+
}
Engines::Component_ptr
string aGenRegisterName = genericRegisterName;
string factory_name = aGenRegisterName + string("Engine_factory");
- SCRUTE(factory_name) ;
typedef PortableServer::ObjectId * (*MPIFACTORY_FUNCTION)
(int,int,
const char *,
const char *) ;
- MPIFACTORY_FUNCTION MPIComponent_factory
- = (MPIFACTORY_FUNCTION) dlsym(handle, factory_name.c_str());
+ dlerror();
+ MPIFACTORY_FUNCTION MPIComponent_factory = (MPIFACTORY_FUNCTION) dlsym(handle, factory_name.c_str());
- char *error ;
- if ( (error = dlerror() ) != NULL) {
- // Try to load a sequential component
- MESSAGE("[" << _numproc << "] Try to load a sequential component");
- _numInstanceMutex.unlock() ;
- iobject = Engines_Container_i::createInstance(genericRegisterName,handle,studyId);
- if( CORBA::is_nil(iobject) ) return Engines::Component::_duplicate(iobject);
- }
+ if ( !MPIComponent_factory )
+ {
+ INFOS( "[" << _numproc << "] Can't resolve symbol: " + factory_name );
+ SCRUTE( dlerror() );
+ pobj = Engines::MPIObject::_nil();
+ BCastIOR(_orb,pobj,false);
+ return Engines::Component::_nil();
+ }
// --- create instance
//SCRUTE(servant->pd_refCount);
_listInstances_map[instanceName] = iobject;
_cntInstances_map[aGenRegisterName] += 1;
- SCRUTE(aGenRegisterName);
- SCRUTE(_cntInstances_map[aGenRegisterName]);
//SCRUTE(servant->pd_refCount);
bool ret_studyId = servant->setStudyId(studyId);
ASSERT(ret_studyId);
BCastIOR(_orb,pobj,false);
}
- catch (...)
- {
- INFOS( "Container_i::createInstance exception catched" ) ;
- }
+ catch(const POException &ex){
+ INFOS( ex.msg << " on process number " << ex.numproc ) ;
+ return Engines::Component::_nil();
+ }
+ catch (...){
+ INFOS( "Container_i::createInstance exception catched" ) ;
+ return Engines::Component::_nil();
+ }
return iobject._retn();
}
string factory_name = _nameToRegister + string("Engine_factory");
MESSAGE("[" << _numproc << "] factory_name=" << factory_name) ;
+ dlerror();
PortableServer::ObjectId * (*MPIComponent_factory) (int,int,
CORBA::ORB_ptr,
PortableServer::POA_ptr,
// File : MPIObject_i.cxx
// Module : SALOME
//
-#include <mpi.h>
#include "MPIObject_i.hxx"
#include "utilities.h"
using namespace std;
+#define TIMEOUT 5
MPIObject_i::MPIObject_i()
{
}
void MPIObject_i::BCastIOR(CORBA::ORB_ptr orb, Engines::MPIObject_ptr pobj,
- bool amiCont)
+ bool amiCont) throw(POException)
{
int err, ip, n;
char *ior;
}
iort[ip] = orb->string_to_object(ior);
delete [] ior;
+ if(CORBA::is_nil(iort[ip]))
+ throw POException(ip,"MPI Component not loaded");
}
// On donne le tableau des ior a l'objet Corba du process 0
if( amiCont )
tior(*(iort._retn()));
else
pobj->tior(*(iort._retn()));
-
}
else{
// Conversion IOR vers string
}
+#ifdef HAVE_MPI2
+MPI_Comm MPIObject_i::remoteMPI2Connect(string service) throw(POException)
+{
+ int i;
+ MPI_Comm gcom;
+ char port_name_clt[MPI_MAX_PORT_NAME];
+
+ _srv = 0;
+ _service = service;
+
+ MPI_Barrier(MPI_COMM_WORLD);
+
+ MPI_Errhandler_set(MPI_COMM_WORLD, MPI_ERRORS_RETURN);
+ if( _numproc == 0 ){
+ /* rank 0 try to be a server. If service is already published, try to be a cient */
+ MPI_Open_port(MPI_INFO_NULL, _port_name);
+ if ( MPI_Publish_name((char*)_service.c_str(), MPI_INFO_NULL, _port_name) == MPI_SUCCESS ) {
+ _srv = 1;
+ MESSAGE("[" << _numproc << "] service " << _service << " available at " << _port_name << "\n");
+ }
+ else if ( MPI_Lookup_name((char*)_service.c_str(), MPI_INFO_NULL, port_name_clt) == MPI_SUCCESS ){
+ MESSAGE("[" << _numproc << "] I get the connection with " << _service << " at " << port_name_clt << "!\n");
+ MPI_Close_port( _port_name );
+ }
+ else{
+ /* Throw exception */
+ MESSAGE("[" << _numproc << "] Error on connection with " << _service << " at " << port_name_clt << "!\n");
+ throw POException(_numproc,"Error on connection with " + _service + " at " + port_name_clt);
+ }
+ }
+ else{
+ i=0;
+ /* Waiting rank 0 publish name and try to be a client */
+ while ( i != TIMEOUT ) {
+ sleep(1);
+ if ( MPI_Lookup_name((char*)_service.c_str(), MPI_INFO_NULL, port_name_clt) == MPI_SUCCESS ){
+ MESSAGE("[" << _numproc << "] I get the connection with " << _service << " at " << port_name_clt << "!\n");
+ break;
+ }
+ i++;
+ }
+ if(i==TIMEOUT){
+ /* Throw exception */
+ MESSAGE("[" << _numproc << "] Error on connection with " << _service << " at " << port_name_clt << "!\n");
+ throw POException(_numproc,"Error on connection with " + _service + " at " + port_name_clt);
+ }
+ }
+ MPI_Errhandler_set(MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL);
+
+ /* If rank 0 is server, all processes call MPI_Comm_accept */
+ /* If rank 0 is not server, all processes call MPI_Comm_connect */
+ MPI_Bcast(&_srv,1,MPI_INT,0,MPI_COMM_WORLD);
+ if ( _srv )
+ MPI_Comm_accept( _port_name, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &gcom );
+ else
+ MPI_Comm_connect(port_name_clt, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &gcom );
+
+ /* only rank 0 can be server for unpublish name */
+ if(_numproc != 0) _srv = 0;
+
+ return gcom;
+
+}
+
+void MPIObject_i::remoteMPI2Disconnect(MPI_Comm gcom)
+{
+ MPI_Comm_disconnect( &gcom );
+ if ( _srv ) {
+ MPI_Unpublish_name((char*)_service.c_str(), MPI_INFO_NULL, _port_name);
+ MESSAGE("[" << _numproc << "] " << _service << ": close port " << _port_name << "\n");
+ MPI_Close_port( _port_name );
+ }
+}
+#endif
+
#ifndef _SALOME_POBJECT_I_H_
#define _SALOME_POBJECT_I_H_
+#include <mpi.h>
+#include <string>
#include <SALOMEconfig.h>
#include CORBA_SERVER_HEADER(SALOME_MPIObject)
+#define defaultService "SERVER"
+
+class POException
+{
+public:
+ const std::string msg;
+ const int numproc;
+ POException(const int ip,const std::string m) : numproc(ip),msg(m) {}
+};
class MPIObject_i: public POA_Engines::MPIObject
{
// IOR des objets paralleles sur tous les process mpi
Engines::IORTab* _tior;
// Echange des IOR de l'objet entre process
- void BCastIOR(CORBA::ORB_ptr orb,Engines::MPIObject_ptr pobj,bool amiCont);
+ void BCastIOR(CORBA::ORB_ptr orb,Engines::MPIObject_ptr pobj,bool amiCont) throw(POException);
+#ifdef HAVE_MPI2
+ // MPI2 connection
+ MPI_Comm remoteMPI2Connect(std::string service=defaultService) throw(POException);
+ // MPI2 disconnection
+ void remoteMPI2Disconnect(MPI_Comm gcom);
+#endif
+
+private:
+ int _srv;
+ char _port_name[MPI_MAX_PORT_NAME];
+ std::string _service;
+
} ;
#endif
}
MESSAGE("[" << numproc << "] MPIContainer: load MPIContainer servant");
- myContainer = new Engines_MPIContainer_i(nbproc,numproc,orb,factory_poa, containerName,argc,argv);
+ new Engines_MPIContainer_i(nbproc,numproc,orb,factory_poa, containerName,argc,argv);
pman->activate();
INFOS("Caught unknown exception.");
}
- if(myContainer)
- delete myContainer;
+ MPI_Finalize();
END_OF("[" << numproc << "] " << argv[0]);
- // delete myThreadTrace;
- MPI_Finalize();
+ exit(0);
}
