5dfd54c778
Clean up the remainder of the size_t references in the runtime itself. Convert to orte_std_cntr_t wherever it makes sense (only avoid those places where the actual memory size is referenced). Remove the obsolete oob barrier function (we actually obsoleted it a long time ago - just never bothered to clean it up). I have done my best to go through all the components and catch everything, even if I couldn't test compile them since I wasn't on that type of system. Still, I cannot guarantee that problems won't show up when you test this on specific systems. Usually, these will just show as "warning: comparison between signed and unsigned" notes which are easily fixed (just change a size_t to orte_std_cntr_t). In some places, people didn't use size_t, but instead used some other variant (e.g., I found several places with uint32_t). I tried to catch all of them, but... Once we get all the instances caught and fixed, this should once and for all resolve many of the heterogeneity problems. This commit was SVN r11204.
583 строки
15 KiB
C
583 строки
15 KiB
C
/*
|
|
* Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
* of Tennessee Research Foundation. All rights
|
|
* reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
#include "orte_config.h"
|
|
#include <errno.h>
|
|
#ifdef HAVE_UNISTD_H
|
|
#include <unistd.h>
|
|
#endif /* HAVE_UNISTD_H */
|
|
#ifdef HAVE_STRING_H
|
|
#include <string.h>
|
|
#endif /* HAVE_STRING_H */
|
|
|
|
#include "orte/orte_constants.h"
|
|
#include "opal/util/output.h"
|
|
#include "opal/util/trace.h"
|
|
|
|
#include "orte/mca/errmgr/errmgr.h"
|
|
#include "orte/mca/rmgr/base/base.h"
|
|
#include "orte/mca/rml/rml.h"
|
|
#include "orte/mca/iof/iof.h"
|
|
|
|
#include "orte/mca/rmgr/proxy/rmgr_proxy.h"
|
|
|
|
|
|
static int orte_rmgr_proxy_query(void);
|
|
|
|
static int orte_rmgr_proxy_create(
|
|
orte_app_context_t** app_context,
|
|
orte_std_cntr_t num_context,
|
|
orte_jobid_t* jobid);
|
|
|
|
static int orte_rmgr_proxy_allocate(
|
|
orte_jobid_t jobid);
|
|
|
|
static int orte_rmgr_proxy_deallocate(
|
|
orte_jobid_t jobid);
|
|
|
|
static int orte_rmgr_proxy_map(
|
|
orte_jobid_t jobid);
|
|
|
|
static int orte_rmgr_proxy_launch(
|
|
orte_jobid_t jobid);
|
|
|
|
static int orte_rmgr_proxy_terminate_job(
|
|
orte_jobid_t jobid);
|
|
|
|
static int orte_rmgr_proxy_terminate_proc(
|
|
const orte_process_name_t* proc_name);
|
|
|
|
static int orte_rmgr_proxy_signal_job(
|
|
orte_jobid_t jobid, int32_t signal);
|
|
|
|
static int orte_rmgr_proxy_signal_proc(
|
|
const orte_process_name_t* proc_name,
|
|
int32_t signal);
|
|
|
|
static int orte_rmgr_proxy_spawn(
|
|
orte_app_context_t** app_context,
|
|
orte_std_cntr_t num_context,
|
|
orte_jobid_t* jobid,
|
|
orte_rmgr_cb_fn_t cbfn,
|
|
orte_proc_state_t cb_conditions);
|
|
|
|
orte_rmgr_base_module_t orte_rmgr_proxy_module = {
|
|
orte_rmgr_proxy_query,
|
|
orte_rmgr_proxy_create,
|
|
orte_rmgr_proxy_allocate,
|
|
orte_rmgr_proxy_deallocate,
|
|
orte_rmgr_proxy_map,
|
|
orte_rmgr_proxy_launch,
|
|
orte_rmgr_proxy_terminate_job,
|
|
orte_rmgr_proxy_terminate_proc,
|
|
orte_rmgr_proxy_signal_job,
|
|
orte_rmgr_proxy_signal_proc,
|
|
orte_rmgr_proxy_spawn,
|
|
orte_rmgr_base_proc_stage_gate_init,
|
|
orte_rmgr_base_proc_stage_gate_mgr,
|
|
NULL, /* finalize */
|
|
};
|
|
|
|
|
|
/*
|
|
* Create the job segment and initialize the application context. Could
|
|
* do this in the proxy - but allowing the seed to do this moves responsibility
|
|
* for the stage gates to the seed. This allows the client to disconnect.
|
|
*/
|
|
|
|
static int orte_rmgr_proxy_create(
|
|
orte_app_context_t** app_context,
|
|
orte_std_cntr_t num_context,
|
|
orte_jobid_t* jobid)
|
|
{
|
|
orte_buffer_t cmd;
|
|
orte_buffer_t rsp;
|
|
int rc;
|
|
|
|
OPAL_TRACE(1);
|
|
|
|
/* construct command */
|
|
OBJ_CONSTRUCT(&cmd, orte_buffer_t);
|
|
rc = orte_rmgr_base_pack_create_cmd(&cmd, app_context, num_context);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&cmd);
|
|
return rc;
|
|
}
|
|
|
|
if(0 > (rc = orte_rml.send_buffer(ORTE_RML_NAME_SEED, &cmd, ORTE_RML_TAG_RMGR_SVC, 0))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&cmd);
|
|
return rc;
|
|
}
|
|
OBJ_DESTRUCT(&cmd);
|
|
|
|
/* wait for response */
|
|
OBJ_CONSTRUCT(&rsp, orte_buffer_t);
|
|
if(0 > (rc = orte_rml.recv_buffer(ORTE_RML_NAME_SEED, &rsp, ORTE_RML_TAG_RMGR_CLNT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
|
|
rc = orte_rmgr_base_unpack_create_rsp(&rsp, jobid);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
|
|
static int orte_rmgr_proxy_cmd(orte_rmgr_cmd_t cmd_id, orte_jobid_t jobid)
|
|
{
|
|
orte_buffer_t cmd;
|
|
orte_buffer_t rsp;
|
|
int rc;
|
|
|
|
OPAL_TRACE(2);
|
|
|
|
/* construct command */
|
|
OBJ_CONSTRUCT(&cmd, orte_buffer_t);
|
|
rc = orte_rmgr_base_pack_cmd(&cmd, cmd_id, jobid);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&cmd);
|
|
return rc;
|
|
}
|
|
|
|
if(0 > (rc = orte_rml.send_buffer(ORTE_RML_NAME_SEED, &cmd, ORTE_RML_TAG_RMGR_SVC, 0))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&cmd);
|
|
return rc;
|
|
}
|
|
OBJ_DESTRUCT(&cmd);
|
|
|
|
/* wait for response */
|
|
OBJ_CONSTRUCT(&rsp, orte_buffer_t);
|
|
if(0 > (rc = orte_rml.recv_buffer(ORTE_RML_NAME_SEED, &rsp, ORTE_RML_TAG_RMGR_CLNT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
|
|
rc = orte_rmgr_base_unpack_rsp(&rsp);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
|
|
|
|
static int orte_rmgr_proxy_query(void)
|
|
{
|
|
OPAL_TRACE(1);
|
|
|
|
return orte_rmgr_proxy_cmd(ORTE_RMGR_CMD_QUERY, 0);
|
|
}
|
|
|
|
static int orte_rmgr_proxy_allocate(orte_jobid_t jobid)
|
|
{
|
|
OPAL_TRACE(1);
|
|
|
|
return orte_rmgr_proxy_cmd(ORTE_RMGR_CMD_ALLOCATE, jobid);
|
|
}
|
|
|
|
static int orte_rmgr_proxy_deallocate(orte_jobid_t jobid)
|
|
{
|
|
OPAL_TRACE(1);
|
|
|
|
return orte_rmgr_proxy_cmd(ORTE_RMGR_CMD_DEALLOCATE, jobid);
|
|
}
|
|
|
|
static int orte_rmgr_proxy_map(orte_jobid_t jobid)
|
|
{
|
|
OPAL_TRACE(1);
|
|
|
|
return orte_rmgr_proxy_cmd(ORTE_RMGR_CMD_MAP, jobid);
|
|
}
|
|
|
|
static int orte_rmgr_proxy_launch(orte_jobid_t jobid)
|
|
{
|
|
OPAL_TRACE(1);
|
|
|
|
return orte_rmgr_proxy_cmd(ORTE_RMGR_CMD_LAUNCH, jobid);
|
|
}
|
|
|
|
static int orte_rmgr_proxy_terminate_job(orte_jobid_t jobid)
|
|
{
|
|
OPAL_TRACE(1);
|
|
|
|
return orte_rmgr_proxy_cmd(ORTE_RMGR_CMD_TERM_JOB, jobid);
|
|
}
|
|
|
|
static int orte_rmgr_proxy_terminate_proc(const orte_process_name_t* proc_name)
|
|
{
|
|
orte_buffer_t cmd;
|
|
orte_buffer_t rsp;
|
|
int rc;
|
|
|
|
OPAL_TRACE(1);
|
|
|
|
/* construct command */
|
|
OBJ_CONSTRUCT(&cmd, orte_buffer_t);
|
|
rc = orte_rmgr_base_pack_terminate_proc_cmd(&cmd, proc_name);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&cmd);
|
|
return rc;
|
|
}
|
|
|
|
if(0 > (rc = orte_rml.send_buffer(ORTE_RML_NAME_SEED, &cmd, ORTE_RML_TAG_RMGR_SVC, 0))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&cmd);
|
|
return rc;
|
|
}
|
|
OBJ_DESTRUCT(&cmd);
|
|
|
|
/* wait for response */
|
|
OBJ_CONSTRUCT(&rsp, orte_buffer_t);
|
|
if(0 > (rc = orte_rml.recv_buffer(ORTE_RML_NAME_SEED, &rsp, ORTE_RML_TAG_RMGR_CLNT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
|
|
rc = orte_rmgr_base_unpack_rsp(&rsp);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
OBJ_DESTRUCT(&rsp);
|
|
return ORTE_SUCCESS;
|
|
}
|
|
|
|
static int orte_rmgr_proxy_signal_job(orte_jobid_t jobid, int32_t signal)
|
|
{
|
|
orte_buffer_t cmd;
|
|
orte_buffer_t rsp;
|
|
int rc;
|
|
|
|
OPAL_TRACE(1);
|
|
|
|
/* construct command */
|
|
OBJ_CONSTRUCT(&cmd, orte_buffer_t);
|
|
rc = orte_rmgr_base_pack_signal_job_cmd(&cmd, jobid, signal);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&cmd);
|
|
return rc;
|
|
}
|
|
|
|
if(0 > (rc = orte_rml.send_buffer(ORTE_RML_NAME_SEED, &cmd, ORTE_RML_TAG_RMGR_SVC, 0))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&cmd);
|
|
return rc;
|
|
}
|
|
OBJ_DESTRUCT(&cmd);
|
|
|
|
/* wait for response */
|
|
OBJ_CONSTRUCT(&rsp, orte_buffer_t);
|
|
if(0 > (rc = orte_rml.recv_buffer(ORTE_RML_NAME_SEED, &rsp, ORTE_RML_TAG_RMGR_CLNT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
|
|
rc = orte_rmgr_base_unpack_rsp(&rsp);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
OBJ_DESTRUCT(&rsp);
|
|
return ORTE_SUCCESS;
|
|
}
|
|
|
|
static int orte_rmgr_proxy_signal_proc(const orte_process_name_t* proc_name, int32_t signal)
|
|
{
|
|
orte_buffer_t cmd;
|
|
orte_buffer_t rsp;
|
|
int rc;
|
|
|
|
OPAL_TRACE(1);
|
|
|
|
/* construct command */
|
|
OBJ_CONSTRUCT(&cmd, orte_buffer_t);
|
|
rc = orte_rmgr_base_pack_signal_proc_cmd(&cmd, proc_name, signal);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&cmd);
|
|
return rc;
|
|
}
|
|
|
|
if(0 > (rc = orte_rml.send_buffer(ORTE_RML_NAME_SEED, &cmd, ORTE_RML_TAG_RMGR_SVC, 0))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&cmd);
|
|
return rc;
|
|
}
|
|
OBJ_DESTRUCT(&cmd);
|
|
|
|
/* wait for response */
|
|
OBJ_CONSTRUCT(&rsp, orte_buffer_t);
|
|
if(0 > (rc = orte_rml.recv_buffer(ORTE_RML_NAME_SEED, &rsp, ORTE_RML_TAG_RMGR_CLNT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
|
|
rc = orte_rmgr_base_unpack_rsp(&rsp);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(&rsp);
|
|
return rc;
|
|
}
|
|
OBJ_DESTRUCT(&rsp);
|
|
return ORTE_SUCCESS;
|
|
}
|
|
|
|
static void orte_rmgr_proxy_wireup_stdin(orte_jobid_t jobid)
|
|
{
|
|
int rc;
|
|
orte_process_name_t* name;
|
|
|
|
OPAL_TRACE(1);
|
|
|
|
if (ORTE_SUCCESS != (rc = orte_ns.create_process_name(&name, 0, jobid, 0))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
if (ORTE_SUCCESS != (rc = orte_iof.iof_push(name, ORTE_NS_CMP_JOBID, ORTE_IOF_STDIN, 0))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
}
|
|
}
|
|
|
|
|
|
static void orte_rmgr_proxy_callback(orte_gpr_notify_data_t *data, void *cbdata)
|
|
{
|
|
orte_rmgr_cb_fn_t cbfunc;
|
|
union {
|
|
orte_rmgr_cb_fn_t func;
|
|
void * ptr;
|
|
} cbfunc_union;
|
|
orte_gpr_value_t **values, *value;
|
|
orte_gpr_keyval_t** keyvals;
|
|
orte_jobid_t jobid;
|
|
orte_std_cntr_t i, j, k;
|
|
int rc;
|
|
|
|
OPAL_TRACE(1);
|
|
|
|
/* stupid ISO C forbids conversion of object pointer to function
|
|
pointer. So we do this, which is the same thing, but without
|
|
the warning from GCC */
|
|
cbfunc_union.ptr = cbdata;
|
|
cbfunc = cbfunc_union.func;
|
|
|
|
/* we made sure in the subscriptions that at least one
|
|
* value is always returned
|
|
* get the jobid from the segment name in the first value
|
|
*/
|
|
values = (orte_gpr_value_t**)(data->values)->addr;
|
|
if (ORTE_SUCCESS != (rc =
|
|
orte_schema.extract_jobid_from_segment_name(&jobid,
|
|
values[0]->segment))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
|
|
for(i = 0, k=0; k < data->cnt &&
|
|
i < (data->values)->size; i++) {
|
|
if (NULL != values[i]) {
|
|
k++;
|
|
value = values[i];
|
|
/* determine the state change */
|
|
keyvals = value->keyvals;
|
|
for(j=0; j<value->cnt; j++) {
|
|
orte_gpr_keyval_t* keyval = keyvals[j];
|
|
if(strcmp(keyval->key, ORTE_PROC_NUM_AT_INIT) == 0) {
|
|
(*cbfunc)(jobid,ORTE_PROC_STATE_INIT);
|
|
continue;
|
|
}
|
|
if(strcmp(keyval->key, ORTE_PROC_NUM_LAUNCHED) == 0) {
|
|
(*cbfunc)(jobid,ORTE_PROC_STATE_LAUNCHED);
|
|
continue;
|
|
}
|
|
if(strcmp(keyval->key, ORTE_PROC_NUM_RUNNING) == 0) {
|
|
(*cbfunc)(jobid,ORTE_PROC_STATE_RUNNING);
|
|
continue;
|
|
}
|
|
if(strcmp(keyval->key, ORTE_PROC_NUM_AT_STG1) == 0) {
|
|
(*cbfunc)(jobid,ORTE_PROC_STATE_AT_STG1);
|
|
continue;
|
|
}
|
|
if(strcmp(keyval->key, ORTE_PROC_NUM_AT_STG2) == 0) {
|
|
(*cbfunc)(jobid,ORTE_PROC_STATE_AT_STG2);
|
|
continue;
|
|
}
|
|
if(strcmp(keyval->key, ORTE_PROC_NUM_AT_STG3) == 0) {
|
|
(*cbfunc)(jobid,ORTE_PROC_STATE_AT_STG3);
|
|
continue;
|
|
}
|
|
if(strcmp(keyval->key, ORTE_PROC_NUM_FINALIZED) == 0) {
|
|
(*cbfunc)(jobid,ORTE_PROC_STATE_FINALIZED);
|
|
continue;
|
|
}
|
|
if(strcmp(keyval->key, ORTE_PROC_NUM_TERMINATED) == 0) {
|
|
(*cbfunc)(jobid,ORTE_PROC_STATE_TERMINATED);
|
|
continue;
|
|
}
|
|
if(strcmp(keyval->key, ORTE_PROC_NUM_ABORTED) == 0) {
|
|
(*cbfunc)(jobid,ORTE_PROC_STATE_ABORTED);
|
|
continue;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/**
|
|
* define a callback point for completing the wireup of the stdin for io forwarding
|
|
*/
|
|
static void orte_rmgr_proxy_wireup_callback(orte_gpr_notify_data_t *data, void *cbdata)
|
|
{
|
|
orte_gpr_value_t **values;
|
|
orte_jobid_t jobid;
|
|
int rc;
|
|
|
|
OPAL_TRACE(1);
|
|
|
|
/* we made sure in the subscriptions that at least one
|
|
* value is always returned
|
|
* get the jobid from the segment name in the first value
|
|
*/
|
|
values = (orte_gpr_value_t**)(data->values)->addr;
|
|
if (ORTE_SUCCESS != (rc = orte_schema.extract_jobid_from_segment_name(&jobid, values[0]->segment))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
orte_rmgr_proxy_wireup_stdin(jobid);
|
|
}
|
|
|
|
/*
|
|
* Shortcut for the multiple steps involved in spawning a new job.
|
|
*/
|
|
|
|
|
|
static int orte_rmgr_proxy_spawn(
|
|
orte_app_context_t** app_context,
|
|
orte_std_cntr_t num_context,
|
|
orte_jobid_t* jobid,
|
|
orte_rmgr_cb_fn_t cbfunc,
|
|
orte_proc_state_t cb_conditions)
|
|
{
|
|
int rc;
|
|
orte_process_name_t* name;
|
|
|
|
OPAL_TRACE(1);
|
|
|
|
/*
|
|
* Perform resource discovery.
|
|
*/
|
|
if (ORTE_SUCCESS != (rc = orte_rmgr_proxy_query())) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
|
|
/*
|
|
* Initialize job segment and allocate resources
|
|
*/
|
|
if (ORTE_SUCCESS !=
|
|
(rc = orte_rmgr_proxy_create(app_context,num_context,jobid))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
if (ORTE_SUCCESS != (rc = orte_rmgr_proxy_allocate(*jobid))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
if (ORTE_SUCCESS != (rc = orte_rmgr_proxy_map(*jobid))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
|
|
/*
|
|
* setup I/O forwarding
|
|
*/
|
|
|
|
if (ORTE_SUCCESS != (rc = orte_ns.create_process_name(&name, 0, *jobid, 0))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
if (ORTE_SUCCESS != (rc = orte_iof.iof_pull(name, ORTE_NS_CMP_JOBID, ORTE_IOF_STDOUT, 1))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
if (ORTE_SUCCESS != (rc = orte_iof.iof_pull(name, ORTE_NS_CMP_JOBID, ORTE_IOF_STDERR, 2))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
|
|
/** setup the subscription so we can complete the wireup when all processes reach LAUNCHED */
|
|
rc = orte_rmgr_base_proc_stage_gate_subscribe(*jobid, orte_rmgr_proxy_wireup_callback, NULL, ORTE_PROC_STATE_LAUNCHED);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
|
|
/*
|
|
* setup callback
|
|
*/
|
|
|
|
if(NULL != cbfunc) {
|
|
union {
|
|
orte_rmgr_cb_fn_t func;
|
|
void * ptr;
|
|
} cbfunc_union;
|
|
void *cbdata;
|
|
|
|
/* stupid ISO C forbids conversion of object pointer to function
|
|
pointer. So we do this, which is the same thing, but without
|
|
the warning from GCC */
|
|
cbfunc_union.func = cbfunc;
|
|
cbdata = cbfunc_union.ptr;
|
|
|
|
rc = orte_rmgr_base_proc_stage_gate_subscribe(*jobid, orte_rmgr_proxy_callback, cbdata, cb_conditions);
|
|
if(ORTE_SUCCESS != rc) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* launch the job
|
|
*/
|
|
if (ORTE_SUCCESS != (rc = orte_rmgr_proxy_launch(*jobid))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
|
|
orte_ns.free_name(&name);
|
|
return ORTE_SUCCESS;
|
|
}
|
|
|
|
|
|
|