15c47a2473
Refers to ticket #1548. Although this appears to fix the problem, the ticket will be held open pending further test prior to transition to the 1.3 branch. This commit was SVN r19674.
44 строки
815 B
C
44 строки
815 B
C
/*
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "orte_config.h"
|
|
|
|
#include "rml_oob.h"
|
|
|
|
#include "opal/util/argv.h"
|
|
|
|
#include "orte/mca/errmgr/errmgr.h"
|
|
|
|
#include "orte/mca/oob/oob.h"
|
|
#include "orte/mca/oob/base/base.h"
|
|
#include "orte/mca/rml/base/rml_contact.h"
|
|
|
|
int
|
|
orte_rml_oob_ping(const char* uri,
|
|
const struct timeval* tv)
|
|
{
|
|
orte_process_name_t name;
|
|
char** uris;
|
|
char** ptr;
|
|
int rc;
|
|
|
|
if (ORTE_SUCCESS != (rc = orte_rml_base_parse_uris(uri, &name, &uris))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
|
|
ptr = uris;
|
|
while(ptr && *ptr) {
|
|
if(ORTE_SUCCESS == (rc = orte_rml_oob_module.active_oob->oob_ping(&name, *ptr, tv)))
|
|
break;
|
|
ptr++;
|
|
}
|
|
opal_argv_free(uris);
|
|
return rc;
|
|
}
|