22c7f2b3e0
ns_replica.c
- Removed the error logging since I use this function in orte_init_stage1 to
check if we have created a cellid yet or not.
ras_types.h & rase_base_node.h
- This was an empty file. moved the orte_ras_node_t from base/ras_base_node.h
to this file.
- Changed the name of orte_ras_base_node_t to orte_ras_node_t to match the
naming mechanisms in place.
ras.h
- Exposed 2 functions:
- node_insert:
This takes a list of orte_ras_base_node_t's and places them in the Node
Segment of the GPR. This is to be used in orte_init_stage1 for singleton
processes, and the hostfile parsing (see rds_hostfile.c). This just puts
in the appropriate API interface to keep from calling the
orte_ras_base_node_insert function directly.
- node_query:
This is used in hostfile parsing. This just puts in the appropriate API
interface to keep from calling the orte_ras_base_node_query function
directly.
- Touched all of the implemented components to add reference to these new
function pointers
ras_base_select.c & ras_base_open.c
- Add and set the global module reference
rds.h
- Exposed 1 function:
- store_resource:
This stores a list of rds_cell_desc_t's to the Resource Segment.
This is used in conjunction with the orte_ras.node_insert function in
both the orte_init_stage1 for singleton processes and rds_hostfile.c
rds_base_select.c & rds_base_open.c
- Add and set the global module reference
rds_hostfile.c
- Added functionality to create a new cellid for each hostfile, placing
each entry in the hostfile into the same cellid. Currently this is
commented out with the cellid hard coded to 0, with the intention of
taking this out once ORTE is able to handle multiple cellid's
- Instead of just adding hosts to the Node Segment via a direct call to
the ras_base_node_insert() function. First add the hosts to the Resource
Segment of the GPR using the orte_rds.store_resource() function then use
the API version of orte_ras.node_insert() to store the hosts on the Node
Segment.
- Add 1 new function pointer to module as required by the API.
rds_hostfile_component.c
- Converted this to use the new MCA parameter registration
orte_init_stage1.c
- It is possible that a cellid was not created yet for the current environment.
So I put in some logic to test if the cellid 0 existed. If it does then
continue, otherwise create the cellid so we can properly interact with the
GPR via the RDS.
- For the singleton case we insert some 'dummy' data into the GPR. The RAS
matches this logic, so I took out the duplicate GPR put logic, and
replaced it with a call to the orte_ras.node_insert() function.
- Further before calling orte_ras.node_insert() in the singleton case,
we also call orte_rds.store_resource() to add the singleton node to the
Resource Segment.
Console:
- Added a bunch of new functions. Still experimenting with many aspects of the
implementation. This is a checkpoint, and has very limited functionality.
- Should not be considered stable at the moment.
This commit was SVN r6813.
103 строки
3.0 KiB
C
103 строки
3.0 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$
|
|
*/
|
|
|
|
#include "orte_config.h"
|
|
|
|
#include "include/orte_constants.h"
|
|
|
|
#include "mca/mca.h"
|
|
#include "mca/base/base.h"
|
|
#include "opal/util/output.h"
|
|
#include "mca/ras/base/base.h"
|
|
|
|
|
|
/*
|
|
* Local functions
|
|
*/
|
|
static orte_ras_base_module_t *select_preferred(const char *name);
|
|
static orte_ras_base_module_t *select_any(void);
|
|
|
|
/*
|
|
* Function for selecting one component from all those that are
|
|
* available.
|
|
*/
|
|
orte_ras_base_module_t* orte_ras_base_select(const char *preferred)
|
|
{
|
|
orte_ras_base_module_t *module;
|
|
if (NULL != preferred) {
|
|
module = select_preferred(preferred);
|
|
} else {
|
|
module = select_any();
|
|
}
|
|
orte_ras = *module;
|
|
return module;
|
|
}
|
|
|
|
static orte_ras_base_module_t *select_preferred(const char *name)
|
|
{
|
|
opal_list_item_t *item;
|
|
orte_ras_base_cmp_t *cmp;
|
|
|
|
/* Look for a matching selected name */
|
|
|
|
opal_output(orte_ras_base.ras_output,
|
|
"orte:base:select: looking for component %s", name);
|
|
for (item = opal_list_get_first(&orte_ras_base.ras_available);
|
|
item != opal_list_get_end(&orte_ras_base.ras_available);
|
|
item = opal_list_get_next(item)) {
|
|
cmp = (orte_ras_base_cmp_t *) item;
|
|
|
|
if (0 == strcmp(name,
|
|
cmp->component->ras_version.mca_component_name)) {
|
|
opal_output(orte_ras_base.ras_output,
|
|
"orte:base:select: found module for compoent %s", name);
|
|
return cmp->module;
|
|
}
|
|
}
|
|
|
|
/* Didn't find a matching name */
|
|
|
|
opal_output(orte_ras_base.ras_output,
|
|
"orte:base:select: did not find module for compoent %s", name);
|
|
return NULL;
|
|
}
|
|
|
|
|
|
static orte_ras_base_module_t *select_any(void)
|
|
{
|
|
opal_list_item_t *item;
|
|
orte_ras_base_cmp_t *cmp;
|
|
|
|
/* If the list is empty, return NULL */
|
|
|
|
if (opal_list_is_empty(&orte_ras_base.ras_available)) {
|
|
opal_output(orte_ras_base.ras_output,
|
|
"orte:base:select: no components available!");
|
|
return NULL;
|
|
}
|
|
|
|
/* Otherwise, return the first item (it's already sorted in
|
|
priority order) */
|
|
|
|
item = opal_list_get_first(&orte_ras_base.ras_available);
|
|
cmp = (orte_ras_base_cmp_t *) item;
|
|
opal_output(orte_ras_base.ras_output,
|
|
"orte:base:select: highest priority component: %s",
|
|
cmp->component->ras_version.mca_component_name);
|
|
return cmp->module;
|
|
}
|
|
|