1
1
openmpi/orte/mca/sds/slurm/sds_slurm_component.c
Brian Barrett 3e8740e740 * mostly working SLURM component. Had to add a sds for the daemons so that
we could vector launch the daemons and still have the nodenames fixed 
  up in the end

This commit was SVN r7041.
2005-08-25 22:29:23 +00:00

101 строка
2.6 KiB
C

/*
* Copyright (c) 2004-2005 The Trustees of Indiana University.
* All rights reserved.
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
* All rights reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* 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 "orte_config.h"
#include "include/orte_constants.h"
#include "mca/sds/sds.h"
#include "mca/sds/slurm/sds_slurm.h"
#include "mca/base/mca_base_param.h"
extern orte_sds_base_module_t orte_sds_slurm_module;
/*
* Instantiate the public struct with all of our public information
* and pointers to our public functions in it
*/
orte_sds_base_component_t mca_sds_slurm_component = {
{
/* Indicate that we are a sds v1.0.0 component (which also
implies a specific MCA version) */
ORTE_SDS_BASE_VERSION_1_0_0,
/* Component name and version */
"slurm",
ORTE_MAJOR_VERSION,
ORTE_MINOR_VERSION,
ORTE_RELEASE_VERSION,
/* Component open and close functions */
orte_sds_slurm_component_open,
orte_sds_slurm_component_close
},
/* Next the MCA v1.0.0 component meta data */
{
/* Whether the component is checkpointable or not */
true
},
/* Initialization / querying functions */
orte_sds_slurm_component_init
};
int
orte_sds_slurm_component_open(void)
{
return ORTE_SUCCESS;
}
orte_sds_base_module_t *
orte_sds_slurm_component_init(int *priority)
{
int id;
char *slurm_nodeid, *mode;
/* okay, not seed/singleton - see if we're running under slurm */
slurm_nodeid = getenv("SLURM_NODEID");
if (NULL == slurm_nodeid) {
return NULL;
}
id = mca_base_param_register_string("ns", "nds", NULL, NULL, NULL);
mca_base_param_lookup_string(id, &mode);
if (NULL == mode || 0 != strcmp("slurm", mode)) {
return NULL;
}
*priority = 20;
return &orte_sds_slurm_module;
}
int
orte_sds_slurm_component_close(void)
{
return ORTE_SUCCESS;
}