95 строки
2.9 KiB
C
95 строки
2.9 KiB
C
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
|
|
/*
|
|
* Copyright (c) 2015 Intel, Inc. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
|
|
#include "orte_config.h"
|
|
#include "orte/constants.h"
|
|
|
|
#include "opal/class/opal_list.h"
|
|
#include "orte/mca/schizo/base/base.h"
|
|
|
|
int orte_schizo_base_parse_cli(char *personality,
|
|
int argc, int start, char **argv)
|
|
{
|
|
int rc;
|
|
orte_schizo_base_active_module_t *mod;
|
|
|
|
if (NULL == personality) {
|
|
opal_output(0, "NULL PERSONALITY");
|
|
return ORTE_ERR_NOT_SUPPORTED;
|
|
}
|
|
|
|
OPAL_LIST_FOREACH(mod, &orte_schizo_base.active_modules, orte_schizo_base_active_module_t) {
|
|
if (0 == strcmp(personality, mod->component->mca_component_name)) {
|
|
if (NULL != mod->module->parse_cli) {
|
|
rc = mod->module->parse_cli(personality, argc, start, argv);
|
|
return rc;
|
|
}
|
|
}
|
|
}
|
|
return ORTE_ERR_NOT_SUPPORTED;
|
|
}
|
|
|
|
int orte_schizo_base_parse_env(char *personality,
|
|
char *path,
|
|
opal_cmd_line_t *cmd_line,
|
|
char *server,
|
|
char **srcenv,
|
|
char ***dstenv)
|
|
{
|
|
int rc;
|
|
orte_schizo_base_active_module_t *mod;
|
|
|
|
OPAL_LIST_FOREACH(mod, &orte_schizo_base.active_modules, orte_schizo_base_active_module_t) {
|
|
if (0 == strcmp(personality, mod->component->mca_component_name)) {
|
|
if (NULL != mod->module->parse_env) {
|
|
rc = mod->module->parse_env(personality, path, cmd_line, server, srcenv, dstenv);
|
|
return rc;
|
|
}
|
|
}
|
|
}
|
|
return ORTE_ERR_NOT_SUPPORTED;
|
|
}
|
|
|
|
int orte_schizo_base_setup_fork(orte_job_t *jdata,
|
|
orte_app_context_t *context)
|
|
{
|
|
int rc;
|
|
orte_schizo_base_active_module_t *mod;
|
|
|
|
OPAL_LIST_FOREACH(mod, &orte_schizo_base.active_modules, orte_schizo_base_active_module_t) {
|
|
if (0 == strcmp(jdata->personality, mod->component->mca_component_name)) {
|
|
if (NULL != mod->module->setup_fork) {
|
|
rc = mod->module->setup_fork(jdata, context);
|
|
return rc;
|
|
}
|
|
}
|
|
}
|
|
return ORTE_ERR_NOT_SUPPORTED;
|
|
}
|
|
|
|
int orte_schizo_base_setup_child(orte_job_t *jdata,
|
|
orte_proc_t *child,
|
|
orte_app_context_t *app)
|
|
{
|
|
int rc;
|
|
orte_schizo_base_active_module_t *mod;
|
|
|
|
OPAL_LIST_FOREACH(mod, &orte_schizo_base.active_modules, orte_schizo_base_active_module_t) {
|
|
if (0 == strcmp(jdata->personality, mod->component->mca_component_name)) {
|
|
if (NULL != mod->module->setup_child) {
|
|
rc = mod->module->setup_child(jdata, child, app);
|
|
return rc;
|
|
}
|
|
}
|
|
}
|
|
return ORTE_ERR_NOT_SUPPORTED;
|
|
}
|