414 строки
16 KiB
C
414 строки
16 KiB
C
/*
|
|
* Copyright (c) 2004-2005 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 (c) 2004-2005 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
|
|
#include <string.h>
|
|
|
|
#include "opal/class/opal_list.h"
|
|
#include "opal/util/argv.h"
|
|
#include "opal/mca/mca.h"
|
|
#include "opal/mca/base/base.h"
|
|
#include "ompi/mca/topo/topo.h"
|
|
#include "ompi/mca/topo/base/base.h"
|
|
#include "opal/util/output.h"
|
|
#include "ompi/communicator/communicator.h"
|
|
|
|
|
|
/*
|
|
* Local functions
|
|
*/
|
|
static void fill_null_pointers(mca_topo_base_module_t *module);
|
|
|
|
|
|
/*
|
|
* This structure is needed so that we can close the modules
|
|
* which are not selected but were opened. mca_base_modules_close
|
|
* which does this job for us requires a opal_list_t which contains
|
|
* these modules
|
|
*/
|
|
struct queried_module_t {
|
|
opal_list_item_t super;
|
|
mca_topo_base_component_t *om_component;
|
|
mca_topo_base_module_t *om_module;
|
|
};
|
|
typedef struct queried_module_t queried_module_t;
|
|
static OBJ_CLASS_INSTANCE(queried_module_t, opal_list_item_t, NULL, NULL);
|
|
|
|
|
|
/*
|
|
* Only one topo module can be attached to each communicator.
|
|
*
|
|
* This module calls the query funtion on all the components that were
|
|
* detected by topo_base_open. This function is called on a
|
|
* per-communicator basis. This function has the following function.
|
|
*
|
|
* 1. Iterate over the list of available_components
|
|
* 2. Call the query function on each of these components.
|
|
* 3. query function returns the structure containing pointers
|
|
* to its module and its priority
|
|
* 4. Select the module with the highest priority
|
|
* 5. Call the init function on the selected module so that it does the
|
|
* right setup for the communicator
|
|
* 6. Call finalize on all the other modules which returned
|
|
* their module but were unfortunate to not get selected
|
|
*/
|
|
|
|
int mca_topo_base_comm_select (struct ompi_communicator_t *comm,
|
|
struct mca_base_component_t *preferred)
|
|
{
|
|
int priority;
|
|
int best_priority;
|
|
char name[MPI_MAX_OBJECT_NAME+32];
|
|
opal_list_item_t *item;
|
|
opal_list_item_t *next_item;
|
|
mca_base_component_priority_list_item_t *selectable_item;
|
|
char *names, **name_array;
|
|
int num_names;
|
|
mca_base_component_priority_list_item_t *cpli;
|
|
mca_topo_base_component_t *component;
|
|
mca_topo_base_component_t *best_component;
|
|
mca_topo_base_module_t *module;
|
|
opal_list_t queried;
|
|
queried_module_t *om;
|
|
opal_list_t *selectable;
|
|
char *str;
|
|
int err = MPI_SUCCESS;
|
|
int i;
|
|
bool was_selectable_constructed = false;
|
|
|
|
/* Announce */
|
|
|
|
/* ANJU:
|
|
* check for names array .... mca_base_param_ */
|
|
|
|
snprintf(name, sizeof(name), "%s (cid %d)", comm->c_name,
|
|
comm->c_contextid);
|
|
name[sizeof(name) - 1] = '\0';
|
|
opal_output_verbose(10, mca_topo_base_output,
|
|
"topo:base:comm_select: new communicator: %s",
|
|
name);
|
|
|
|
|
|
/* Check and see if a preferred component was provided. If it was
|
|
provided then it should be used (if possible) */
|
|
|
|
if (NULL != preferred) {
|
|
|
|
/* We have a preferred component. Check if it is available
|
|
and if so, whether it wants to run */
|
|
|
|
str = &(preferred->mca_component_name[0]);
|
|
|
|
opal_output_verbose(10, mca_topo_base_output,
|
|
"topo:base:comm_select: Checking preferred component: %s",
|
|
str);
|
|
|
|
/* query the component for its priority and get its module
|
|
structure. This is necessary to proceed */
|
|
|
|
component = (mca_topo_base_component_t *)preferred;
|
|
module = component->topom_comm_query (&priority);
|
|
if (NULL != module &&
|
|
NULL != module->topo_module_init &&
|
|
NULL != module->topo_graph_map &&
|
|
NULL != module->topo_cart_map) {
|
|
|
|
/* this query seems to have returned something legitimate
|
|
* and we can now go ahead and initialize the
|
|
* communicator with it * but first, the functions which
|
|
* are null need to be filled in */
|
|
|
|
fill_null_pointers (module);
|
|
comm->c_topo = module;
|
|
comm->c_topo_component = preferred;
|
|
|
|
return module->topo_module_init(comm);
|
|
}
|
|
/* His preferred component is present, but is unable to
|
|
* run. This is not a good sign. We should try selecting
|
|
* some other component We let it fall through and select
|
|
* from the list of available components
|
|
*/
|
|
} /*end of selection for preferred component */
|
|
|
|
/*
|
|
* We fall till here if one of the two things happened:
|
|
* 1. The preferred component was provided but for some reason was
|
|
* not able to be selected
|
|
* 2. No preferred component was provided
|
|
*
|
|
* All we need to do is to go through the list of available
|
|
* components and find the one which has the highest priority and
|
|
* use that for this communicator
|
|
*/
|
|
|
|
/* Check if anything was requested by means on the name parameters */
|
|
names = NULL;
|
|
mca_base_param_lookup_string (mca_topo_base_param, &names);
|
|
|
|
if (NULL != names && 0 < strlen(names)) {
|
|
name_array = opal_argv_split (names, ',');
|
|
num_names = opal_argv_count (name_array);
|
|
|
|
opal_output_verbose(10, mca_topo_base_output,
|
|
"topo:base:comm_Select: Checking all available module");
|
|
|
|
/* since there are somethings which the mca requested through the
|
|
if the intersection is NULL, then we barf saying that the requested
|
|
modules are not being available */
|
|
|
|
selectable = OBJ_NEW(opal_list_t);
|
|
was_selectable_constructed = true;
|
|
|
|
/* go through the compoents_available list and check against the names
|
|
* to see whether this can be added or not */
|
|
|
|
for (item = opal_list_get_first(&mca_topo_base_components_available);
|
|
item != opal_list_get_end(&mca_topo_base_components_available);
|
|
item = opal_list_get_next(item)) {
|
|
/* convert the opal_list_item_t returned into the proper type */
|
|
cpli = (mca_base_component_priority_list_item_t *) item;
|
|
component = (mca_topo_base_component_t *) cpli->super.cli_component;
|
|
opal_output_verbose(10, mca_topo_base_output,
|
|
"select: initialising %s component %s",
|
|
component->topom_version.mca_type_name,
|
|
component->topom_version.mca_component_name);
|
|
|
|
/* check if this name is present in the mca_base_params */
|
|
for (i=0; i < num_names; i++) {
|
|
if (0 == strcmp(name_array[i], component->topom_version.mca_component_name)) {
|
|
/* this is present, and should be added o the selectable list */
|
|
|
|
/* We need to create a seperate object to initialise this list with
|
|
* since we cannot have the same item in 2 lists */
|
|
|
|
selectable_item = OBJ_NEW (mca_base_component_priority_list_item_t);
|
|
*selectable_item = *cpli;
|
|
opal_list_append (selectable, (opal_list_item_t *)selectable_item);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
/* check for a NULL intersection between the available list and the
|
|
* list which was asked for */
|
|
|
|
if (0 == opal_list_get_size(selectable)) {
|
|
was_selectable_constructed = true;
|
|
OBJ_RELEASE (selectable);
|
|
opal_output_verbose (10, mca_topo_base_output,
|
|
"topo:base:comm_select: preferred modules were not available");
|
|
return OMPI_ERROR;
|
|
}
|
|
} else { /* if there was no name_array, then we need to simply initialize
|
|
selectable to mca_topo_base_components_available */
|
|
selectable = &mca_topo_base_components_available;
|
|
}
|
|
|
|
best_component = NULL;
|
|
best_priority = -1;
|
|
OBJ_CONSTRUCT(&queried, opal_list_t);
|
|
|
|
for (item = opal_list_get_first(selectable);
|
|
item != opal_list_get_end(selectable);
|
|
item = opal_list_get_next(item)) {
|
|
/*
|
|
* convert the opal_list_item_t returned into the proper type
|
|
*/
|
|
cpli = (mca_base_component_priority_list_item_t *) item;
|
|
component = (mca_topo_base_component_t *) cpli->super.cli_component;
|
|
opal_output_verbose(10, mca_topo_base_output,
|
|
"select: initialising %s component %s",
|
|
component->topom_version.mca_type_name,
|
|
component->topom_version.mca_component_name);
|
|
|
|
/*
|
|
* we can call the query function only if there is a function :-)
|
|
*/
|
|
if (NULL == component->topom_comm_query) {
|
|
opal_output_verbose(10, mca_topo_base_output,
|
|
"select: no query, ignoring the component");
|
|
} else {
|
|
/*
|
|
* call the query function and see what it returns
|
|
*/
|
|
module = component->topom_comm_query (&priority);
|
|
|
|
if (NULL == module ||
|
|
NULL == module->topo_module_init ||
|
|
NULL == module->topo_graph_map ||
|
|
NULL == module->topo_cart_map) {
|
|
/*
|
|
* query did not return any action which can be used
|
|
*/
|
|
opal_output_verbose(10, mca_topo_base_output,
|
|
"select: query returned failure");
|
|
} else {
|
|
opal_output_verbose(10, mca_topo_base_output,
|
|
"select: query returned priority %d",
|
|
priority);
|
|
/*
|
|
* is this the best component we have found till now?
|
|
*/
|
|
if (priority > best_priority) {
|
|
best_priority = priority;
|
|
best_component = component;
|
|
}
|
|
|
|
om = OBJ_NEW(queried_module_t);
|
|
/*
|
|
* check if we have run out of space
|
|
*/
|
|
if (NULL == om) {
|
|
OBJ_DESTRUCT(&queried);
|
|
return OMPI_ERR_OUT_OF_RESOURCE;
|
|
}
|
|
om->om_component = component;
|
|
om->om_module = module;
|
|
opal_list_append(&queried, (opal_list_item_t *)om);
|
|
} /* end else of if (NULL == module) */
|
|
} /* end else of if (NULL == component->topom_init) */
|
|
} /* end for ... end of traversal */
|
|
|
|
/* We have to remove empty out the selectable list if the selectable
|
|
* list was constructed as a duplicate and not as a pointer to the
|
|
* mca_base_components_available list. So, check and destroy */
|
|
|
|
if (was_selectable_constructed) {
|
|
|
|
/* remove all the items first */
|
|
for (item = opal_list_get_first(&mca_topo_base_components_available);
|
|
item != opal_list_get_end(&mca_topo_base_components_available);
|
|
item = next_item) {
|
|
next_item = opal_list_get_next(item);
|
|
OBJ_RELEASE (item);
|
|
}
|
|
|
|
/* release the list itself */
|
|
OBJ_RELEASE (selectable);
|
|
was_selectable_constructed = false;
|
|
}
|
|
|
|
/*
|
|
* Now we have alist of components which successfully returned
|
|
* their module struct. One of these components has the best
|
|
* priority. The rest have to be comm_unqueried to counter the
|
|
* effects of comm_query'ing them. Finalize happens only on
|
|
* components which should are initialized.
|
|
*/
|
|
if (NULL == best_component) {
|
|
/*
|
|
* This typically means that there was no component which was
|
|
* able to run properly this time. So, we need to abort
|
|
* JMS replace with show_help
|
|
*/
|
|
OBJ_DESTRUCT(&queried);
|
|
return OMPI_ERROR;
|
|
}
|
|
|
|
/*
|
|
* We now have a list of components which have successfully
|
|
* returned their priorities from the query. We now have to
|
|
* unquery() those components which have not been selected and
|
|
* init() the component which was selected
|
|
*/
|
|
for (item = opal_list_remove_first(&queried);
|
|
NULL != item;
|
|
item = opal_list_remove_first(&queried)) {
|
|
om = (queried_module_t *) item;
|
|
if (om->om_component == best_component) {
|
|
/*
|
|
* this is the chosen component, we have to initialise the
|
|
* module of this component.
|
|
*
|
|
* ANJU: a component might not have all the functions
|
|
* defined. Whereever a function pointer is null in the
|
|
* module structure we need to fill it in with the base
|
|
* structure function pointers. This is yet to be done
|
|
*/
|
|
|
|
/*
|
|
* We don return here coz we still need to go through and
|
|
* elease the other objects
|
|
*/
|
|
|
|
fill_null_pointers (om->om_module);
|
|
comm->c_topo = om->om_module;
|
|
err = om->om_module->topo_module_init(comm);
|
|
comm->c_topo_component = (mca_base_component_t *)best_component;
|
|
|
|
} else {
|
|
/*
|
|
* this is not the "choosen one", finalize
|
|
*/
|
|
if (NULL != om->om_component->topom_comm_unquery) {
|
|
/* unquery the component only if they have some clean
|
|
* up job to do. Components which are queried but do
|
|
* not actually do anything typically do not have a
|
|
* unquery. Hence this check is necessary
|
|
*/
|
|
(void) om->om_component->topom_comm_unquery(comm);
|
|
opal_output_verbose(10, mca_topo_base_output,
|
|
"select: component %s is not selected",
|
|
om->om_component->topom_version.mca_component_name);
|
|
} /* end if */
|
|
} /* if not best component */
|
|
OBJ_RELEASE(om);
|
|
} /* traversing through the entire list */
|
|
|
|
opal_output_verbose(10, mca_topo_base_output,
|
|
"select: component %s selected",
|
|
best_component->topom_version.mca_component_name);
|
|
|
|
OBJ_DESTRUCT(&queried);
|
|
|
|
return err;
|
|
}
|
|
|
|
|
|
/*
|
|
* This function fills in the null function pointers, in other words,
|
|
* those functions which are not implemented by the module with the
|
|
* pointers from the base function. Somewhere, I need to incoroporate
|
|
* a check for the common minimum funtions being implemented by the
|
|
* module atleast. If not, this module cannot be considered.
|
|
*/
|
|
static void fill_null_pointers(mca_topo_base_module_t *module)
|
|
{
|
|
#define CHECK_FOR_NULL_FUNCTION_POINTER(name) \
|
|
if (NULL == module->topo_##name) { \
|
|
module->topo_##name = mca_topo_base_##name; \
|
|
}
|
|
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(cart_coords);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(cart_create);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(cart_get);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(cartdim_get);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(cart_rank);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(cart_shift);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(cart_sub);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(graph_create);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(graph_get);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(graphdims_get);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(graph_neighbors);
|
|
CHECK_FOR_NULL_FUNCTION_POINTER(graph_neighbors_count);
|
|
|
|
#undef CHECK_FOR_NULL_FUNCTION_POINTER
|
|
}
|