462adee81a
from: svn merge -r5440:5448 https://svn.open-mpi.org/svn/ompi/tmp/hetero . This commit was SVN r5549. The following SVN revisions from the original message are invalid or inconsistent and therefore were not cross-referenced: r5440 r5448
283 строки
7.7 KiB
C
283 строки
7.7 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 "include/constants.h"
|
|
|
|
#include "util/output.h"
|
|
|
|
#include "mca/gpr/base/base.h"
|
|
|
|
|
|
|
|
/*
|
|
* The following file was created by configure. It contains extern
|
|
* statements and the definition of an array of pointers to each
|
|
* component's public mca_base_module_t struct.
|
|
*/
|
|
|
|
#include "mca/gpr/base/static-components.h"
|
|
|
|
/*
|
|
* globals
|
|
*/
|
|
|
|
/** KEYVAL **/
|
|
/* constructor - used to initialize state of keyval instance */
|
|
static void orte_gpr_keyval_construct(orte_gpr_keyval_t* keyval)
|
|
{
|
|
keyval->key = NULL;
|
|
keyval->type = 0;
|
|
keyval->value.i32 = 0;
|
|
}
|
|
|
|
/* destructor - used to free any resources held by instance */
|
|
static void orte_gpr_keyval_destructor(orte_gpr_keyval_t* keyval)
|
|
{
|
|
orte_byte_object_t *byteptr;
|
|
|
|
if (NULL != keyval->key) {
|
|
free(keyval->key);
|
|
}
|
|
if (ORTE_BYTE_OBJECT == keyval->type) {
|
|
byteptr = &(keyval->value.byteobject);
|
|
if (NULL != byteptr->bytes) {
|
|
free(byteptr->bytes);
|
|
}
|
|
} else if (ORTE_STRING == keyval->type) {
|
|
if (NULL != keyval->value.strptr)
|
|
free(keyval->value.strptr);
|
|
} else if (ORTE_APP_CONTEXT == keyval->type) {
|
|
if (NULL != keyval->value.app_context)
|
|
OBJ_RELEASE(keyval->value.app_context);
|
|
}
|
|
}
|
|
|
|
/* define instance of ompi_class_t */
|
|
OBJ_CLASS_INSTANCE(
|
|
orte_gpr_keyval_t, /* type name */
|
|
ompi_object_t, /* parent "class" name */
|
|
orte_gpr_keyval_construct, /* constructor */
|
|
orte_gpr_keyval_destructor); /* destructor */
|
|
|
|
|
|
|
|
/** VALUE **/
|
|
/* constructor - used to initialize state of registry value instance */
|
|
static void orte_gpr_value_construct(orte_gpr_value_t* reg_val)
|
|
{
|
|
reg_val->addr_mode = 0;
|
|
reg_val->segment = NULL;
|
|
reg_val->cnt = 0;
|
|
reg_val->keyvals = NULL;
|
|
reg_val->num_tokens = 0;
|
|
reg_val->tokens = 0;
|
|
}
|
|
|
|
/* destructor - used to free any resources held by instance */
|
|
static void orte_gpr_value_destructor(orte_gpr_value_t* reg_val)
|
|
{
|
|
char **tokens;
|
|
size_t i;
|
|
|
|
if (NULL != reg_val->segment) free(reg_val->segment);
|
|
|
|
if (0 < reg_val->cnt && NULL != reg_val->keyvals) {
|
|
for (i=0; i < reg_val->cnt; i++) {
|
|
if (NULL != reg_val->keyvals[i])
|
|
OBJ_RELEASE(reg_val->keyvals[i]);
|
|
}
|
|
free(reg_val->keyvals);
|
|
}
|
|
|
|
if (0 < reg_val->num_tokens && NULL != reg_val->tokens) {
|
|
tokens = reg_val->tokens;
|
|
for (i=0; i < reg_val->num_tokens; i++) {
|
|
if(NULL != tokens[i])
|
|
free(tokens[i]);
|
|
}
|
|
free(tokens);
|
|
}
|
|
}
|
|
|
|
/* define instance of ompi_class_t */
|
|
OBJ_CLASS_INSTANCE(
|
|
orte_gpr_value_t, /* type name */
|
|
ompi_object_t, /* parent "class" name */
|
|
orte_gpr_value_construct, /* constructor */
|
|
orte_gpr_value_destructor); /* destructor */
|
|
|
|
|
|
/** NOTIFY DATA **/
|
|
/* constructor - used to initialize state of registry value instance */
|
|
static void orte_gpr_notify_data_construct(orte_gpr_notify_data_t* ptr)
|
|
{
|
|
ptr->cb_num = 0;
|
|
ptr->addr_mode = 0;
|
|
ptr->segment = NULL;
|
|
ptr->cnt = 0;
|
|
ptr->values = NULL;
|
|
}
|
|
|
|
/* destructor - used to free any resources held by instance */
|
|
static void orte_gpr_notify_data_destructor(orte_gpr_notify_data_t* ptr)
|
|
{
|
|
size_t i;
|
|
|
|
if (NULL != ptr->segment) free(ptr->segment);
|
|
|
|
if (0 < ptr->cnt && NULL != ptr->values) {
|
|
for (i=0; i < ptr->cnt; i++) {
|
|
if (NULL != ptr->values[i])
|
|
OBJ_RELEASE(ptr->values[i]);
|
|
}
|
|
free(ptr->values);
|
|
}
|
|
}
|
|
|
|
/* define instance of ompi_class_t */
|
|
OBJ_CLASS_INSTANCE(
|
|
orte_gpr_notify_data_t, /* type name */
|
|
ompi_object_t, /* parent "class" name */
|
|
orte_gpr_notify_data_construct, /* constructor */
|
|
orte_gpr_notify_data_destructor); /* destructor */
|
|
|
|
|
|
/** SUBSCRIPTION **/
|
|
/* constructor - used to initialize state of registry subscription instance */
|
|
static void orte_gpr_subscription_construct(orte_gpr_subscription_t* sub)
|
|
{
|
|
sub->addr_mode = 0;
|
|
sub->segment = NULL;
|
|
sub->num_tokens = 0;
|
|
sub->tokens = NULL;
|
|
sub->num_keys = 0;
|
|
sub->keys = NULL;
|
|
sub->cbfunc = NULL;
|
|
sub->user_tag = NULL;
|
|
}
|
|
|
|
/* destructor - used to free any resources held by instance */
|
|
static void orte_gpr_subscription_destructor(orte_gpr_subscription_t* sub)
|
|
{
|
|
char **tokens;
|
|
size_t i;
|
|
|
|
if (NULL != sub->segment) free(sub->segment);
|
|
|
|
if (0 < sub->num_tokens && NULL != sub->tokens) {
|
|
tokens = sub->tokens;
|
|
for (i=0; i < sub->num_tokens; i++) {
|
|
if(NULL != tokens[i])
|
|
free(tokens[i]);
|
|
}
|
|
free(sub->tokens);
|
|
}
|
|
|
|
if (0 < sub->num_keys && NULL != sub->keys) {
|
|
tokens = sub->keys;
|
|
for (i=0; i < sub->num_keys; i++) {
|
|
if(NULL != tokens[i])
|
|
free(tokens[i]);
|
|
}
|
|
free(sub->keys);
|
|
}
|
|
|
|
}
|
|
|
|
/* define instance of ompi_class_t */
|
|
OBJ_CLASS_INSTANCE(
|
|
orte_gpr_subscription_t, /* type name */
|
|
ompi_object_t, /* parent "class" name */
|
|
orte_gpr_subscription_construct, /* constructor */
|
|
orte_gpr_subscription_destructor); /* destructor */
|
|
|
|
|
|
/** NOTIFY MESSAGE */
|
|
/* constructor - used to initialize notify message instance */
|
|
static void orte_gpr_notify_message_construct(orte_gpr_notify_message_t* msg)
|
|
{
|
|
msg->idtag = 0;
|
|
msg->cnt = 0;
|
|
msg->data = NULL;
|
|
}
|
|
|
|
/* destructor - used to free any resources held by instance */
|
|
static void orte_gpr_notify_message_destructor(orte_gpr_notify_message_t* msg)
|
|
{
|
|
size_t i;
|
|
|
|
if (0 < msg->cnt && NULL != msg->data) {
|
|
for (i=0; i < msg->cnt; i++) {
|
|
if (NULL != msg->data[i]) OBJ_RELEASE(msg->data[i]);
|
|
}
|
|
free(msg->data);
|
|
}
|
|
|
|
}
|
|
|
|
/* define instance of ompi_class_t */
|
|
OBJ_CLASS_INSTANCE(
|
|
orte_gpr_notify_message_t, /* type name */
|
|
ompi_object_t, /* parent "class" name */
|
|
orte_gpr_notify_message_construct, /* constructor */
|
|
orte_gpr_notify_message_destructor); /* destructor */
|
|
|
|
|
|
/*
|
|
* Global variables
|
|
*/
|
|
int orte_gpr_base_output = -1;
|
|
orte_gpr_base_module_t orte_gpr;
|
|
bool orte_gpr_base_selected = false;
|
|
ompi_list_t orte_gpr_base_components_available;
|
|
mca_gpr_base_component_t orte_gpr_base_selected_component;
|
|
ompi_mutex_t orte_gpr_mutex;
|
|
|
|
|
|
/**
|
|
* Function for finding and opening either all MCA components, or the one
|
|
* that was specifically requested via a MCA parameter.
|
|
*/
|
|
int orte_gpr_base_open(void)
|
|
{
|
|
int param, value;
|
|
|
|
/* Debugging / verbose output */
|
|
|
|
param = mca_base_param_register_int("gpr", "base", "verbose",
|
|
NULL, 0);
|
|
mca_base_param_lookup_int(param, &value);
|
|
if (value != 0) {
|
|
orte_gpr_base_output = ompi_output_open(NULL);
|
|
} else {
|
|
orte_gpr_base_output = -1;
|
|
}
|
|
|
|
/* Open up all available components */
|
|
|
|
if (OMPI_SUCCESS !=
|
|
mca_base_components_open("gpr", 0, mca_gpr_base_static_components,
|
|
&orte_gpr_base_components_available, true)) {
|
|
return ORTE_ERROR;
|
|
}
|
|
|
|
/* All done */
|
|
|
|
return ORTE_SUCCESS;
|
|
}
|