1
1
openmpi/opal/mca/pmix/pmix120/pmix_pmix120_component.c
Ralph Castain 011403c04a Fix a number of issues, some of which have lingered for a long time:
* provide a more reliable way of determining that a process is a singleton by leveraging the schizo framework. Add new components for slurm, alps, and orte to detect when we are in a managed environment, and if we have been launched by mpirun or a native launcher. Set the correct envars to control ess and pmix selection in each case.

* change the relative priority of the pmix120 and pmix112 components to make pmix120 the default

* fix singleton comm-spawn by correctly setting the num_apps field of the orte_job_t created by the daemon - this fixes a segfault in register_nspace on newly created daemons

* ensure orterun doesn't propagate any ess or pmix directives in its environment

* Cleanup a few valgrind issues and memory leaks

* Fix a race condition that prevented the client from completing notification registrations (missing thread shift)

* Ensure the shizo/alps component detects launch by mpirun
2016-03-01 06:53:00 -08:00

110 строки
3.2 KiB
C

/*
* Copyright (c) 2014-2016 Intel, Inc. All rights reserved.
* Copyright (c) 2014 Research Organization for Information Science
* and Technology (RIST). All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*
* These symbols are in a file by themselves to provide nice linker
* semantics. Since linkers generally pull in symbols by object
* files, keeping these symbols as the only symbols in this file
* prevents utility programs such as "ompi_info" from having to import
* entire components just to query their version and parameters.
*/
#include "opal_config.h"
#include "opal/constants.h"
#include "opal/class/opal_list.h"
#include "opal/util/proc.h"
#include "opal/mca/pmix/pmix.h"
#include "pmix120.h"
/*
* Public string showing the pmix pmix120 component version number
*/
const char *opal_pmix_pmix120_component_version_string =
"OPAL pmix120 pmix MCA component version " OPAL_VERSION;
/*
* Local function
*/
static int pmix120_open(void);
static int pmix120_close(void);
static int pmix120_component_query(mca_base_module_t **module, int *priority);
/*
* Instantiate the public struct with all of our public information
* and pointers to our public functions in it
*/
mca_pmix_pmix120_component_t mca_pmix_pmix120_component = {
{
/* First, the mca_component_t struct containing meta information
about the component itself */
.base_version = {
/* Indicate that we are a pmix v1.1.0 component (which also
implies a specific MCA version) */
OPAL_PMIX_BASE_VERSION_2_0_0,
/* Component name and version */
.mca_component_name = "pmix120",
MCA_BASE_MAKE_VERSION(component, OPAL_MAJOR_VERSION, OPAL_MINOR_VERSION,
OPAL_RELEASE_VERSION),
/* Component open and close functions */
.mca_open_component = pmix120_open,
.mca_close_component = pmix120_close,
.mca_query_component = pmix120_component_query,
},
/* Next the MCA v1.0.0 component meta data */
.base_data = {
/* The component is checkpoint ready */
MCA_BASE_METADATA_PARAM_CHECKPOINT
}
},
.native_launch = false
};
static int pmix120_open(void)
{
OBJ_CONSTRUCT(&mca_pmix_pmix120_component.jobids, opal_list_t);
OBJ_CONSTRUCT(&mca_pmix_pmix120_component.errhandlers, opal_list_t);
return OPAL_SUCCESS;
}
static int pmix120_close(void)
{
OPAL_LIST_DESTRUCT(&mca_pmix_pmix120_component.jobids);
OPAL_LIST_DESTRUCT(&mca_pmix_pmix120_component.errhandlers);
return OPAL_SUCCESS;
}
static int pmix120_component_query(mca_base_module_t **module, int *priority)
{
char *t, *id;
/* see if a PMIx server is present */
if (NULL != (t = getenv("PMIX_SERVER_URI")) ||
NULL != (id = getenv("PMIX_ID"))) {
/* if PMIx is present, then we are a client and need to use it,
* and we are now the default */
*priority = 100;
} else {
/* we could be a server, so we still need to be considered,
* and we are now the default */
*priority = 15;
}
*module = (mca_base_module_t *)&opal_pmix_pmix120_module;
return OPAL_SUCCESS;
}