ka-ching
This commit was SVN r2836.
Этот коммит содержится в:
Ralph Castain
родитель
876971b58b
Коммит
7df355bf9a
@ -30,21 +30,21 @@
|
||||
* Struct of function pointers that need to be initialized
|
||||
*/
|
||||
mca_gpr_base_component_t mca_gpr_proxy_component = {
|
||||
{
|
||||
MCA_GPR_BASE_VERSION_1_0_0,
|
||||
{
|
||||
MCA_GPR_BASE_VERSION_1_0_0,
|
||||
|
||||
"proxy", /* MCA module name */
|
||||
1, /* MCA module major version */
|
||||
0, /* MCA module minor version */
|
||||
0, /* MCA module release version */
|
||||
mca_gpr_proxy_open, /* module open */
|
||||
mca_gpr_proxy_close /* module close */
|
||||
},
|
||||
{
|
||||
false /* checkpoint / restart */
|
||||
},
|
||||
mca_gpr_proxy_init, /* module init */
|
||||
mca_gpr_proxy_finalize /* module shutdown */
|
||||
"proxy", /* MCA module name */
|
||||
1, /* MCA module major version */
|
||||
0, /* MCA module minor version */
|
||||
0, /* MCA module release version */
|
||||
mca_gpr_proxy_open, /* module open */
|
||||
mca_gpr_proxy_close /* module close */
|
||||
},
|
||||
{
|
||||
false /* checkpoint / restart */
|
||||
},
|
||||
mca_gpr_proxy_init, /* module init */
|
||||
mca_gpr_proxy_finalize /* module shutdown */
|
||||
};
|
||||
|
||||
/*
|
||||
@ -60,7 +60,9 @@ static mca_gpr_base_module_t mca_gpr_proxy = {
|
||||
gpr_proxy_cancel_synchro,
|
||||
gpr_proxy_delete_object,
|
||||
gpr_proxy_index,
|
||||
gpr_proxy_test_internals
|
||||
gpr_proxy_test_internals,
|
||||
gpr_proxy_rte_register,
|
||||
gpr_proxy_rte_unregister
|
||||
};
|
||||
|
||||
|
||||
@ -118,44 +120,44 @@ mca_gpr_base_module_t* mca_gpr_proxy_init(bool *allow_multi_user_threads, bool *
|
||||
ompi_output(0, "gpr_proxy_init: proxy selected");
|
||||
}
|
||||
|
||||
/* Return a module (choose an arbitrary, positive priority --
|
||||
it's only relevant compared to other ns components). If
|
||||
we're not the seed, then we don't want to be selected, so
|
||||
return NULL. */
|
||||
/* Return a module (choose an arbitrary, positive priority --
|
||||
it's only relevant compared to other ns components). If
|
||||
we're not the seed, then we don't want to be selected, so
|
||||
return NULL. */
|
||||
|
||||
*priority = 10;
|
||||
*priority = 10;
|
||||
|
||||
/* We allow multi user threads but don't have any hidden threads */
|
||||
/* We allow multi user threads but don't have any hidden threads */
|
||||
|
||||
*allow_multi_user_threads = true;
|
||||
*have_hidden_threads = false;
|
||||
*allow_multi_user_threads = true;
|
||||
*have_hidden_threads = false;
|
||||
|
||||
/* setup thread lock */
|
||||
OBJ_CONSTRUCT(&mca_gpr_proxy_mutex, ompi_mutex_t);
|
||||
/* setup thread lock */
|
||||
OBJ_CONSTRUCT(&mca_gpr_proxy_mutex, ompi_mutex_t);
|
||||
|
||||
/* define the replica for us to use - get it from process_info */
|
||||
mca_gpr_my_replica = ompi_name_server.copy_process_name(ompi_process_info.gpr_replica);
|
||||
if (NULL == mca_gpr_my_replica) { /* can't function */
|
||||
return NULL;
|
||||
}
|
||||
/* define the replica for us to use - get it from process_info */
|
||||
mca_gpr_my_replica = ompi_name_server.copy_process_name(ompi_process_info.gpr_replica);
|
||||
if (NULL == mca_gpr_my_replica) { /* can't function */
|
||||
return NULL;
|
||||
}
|
||||
|
||||
/* initialize the notify list */
|
||||
OBJ_CONSTRUCT(&mca_gpr_proxy_notify_request_tracker, ompi_list_t);
|
||||
mca_gpr_proxy_last_notify_id_tag = 0;
|
||||
OBJ_CONSTRUCT(&mca_gpr_proxy_free_notify_id_tags, ompi_list_t);
|
||||
/* initialize the notify list */
|
||||
OBJ_CONSTRUCT(&mca_gpr_proxy_notify_request_tracker, ompi_list_t);
|
||||
mca_gpr_proxy_last_notify_id_tag = 0;
|
||||
OBJ_CONSTRUCT(&mca_gpr_proxy_free_notify_id_tags, ompi_list_t);
|
||||
|
||||
/* issue the non-blocking receive */
|
||||
rc = mca_oob_recv_packed_nb(MCA_OOB_NAME_ANY, MCA_OOB_TAG_GPR_NOTIFY, 0, mca_gpr_proxy_notify_recv, NULL);
|
||||
if(rc != OMPI_SUCCESS && rc != OMPI_ERR_NOT_IMPLEMENTED) {
|
||||
return NULL;
|
||||
}
|
||||
/* issue the non-blocking receive */
|
||||
rc = mca_oob_recv_packed_nb(MCA_OOB_NAME_ANY, MCA_OOB_TAG_GPR_NOTIFY, 0, mca_gpr_proxy_notify_recv, NULL);
|
||||
if(rc != OMPI_SUCCESS && rc != OMPI_ERR_NOT_IMPLEMENTED) {
|
||||
return NULL;
|
||||
}
|
||||
|
||||
/* Return the module */
|
||||
/* Return the module */
|
||||
|
||||
initialized = true;
|
||||
return &mca_gpr_proxy;
|
||||
initialized = true;
|
||||
return &mca_gpr_proxy;
|
||||
} else {
|
||||
return NULL;
|
||||
return NULL;
|
||||
}
|
||||
}
|
||||
|
||||
@ -169,13 +171,13 @@ int mca_gpr_proxy_finalize(void)
|
||||
ompi_output(0, "finalizing gpr proxy");
|
||||
}
|
||||
|
||||
if (initialized) {
|
||||
initialized = false;
|
||||
}
|
||||
if (initialized) {
|
||||
initialized = false;
|
||||
}
|
||||
|
||||
/* All done */
|
||||
/* All done */
|
||||
|
||||
return OMPI_SUCCESS;
|
||||
return OMPI_SUCCESS;
|
||||
}
|
||||
|
||||
/*
|
||||
@ -183,8 +185,8 @@ int mca_gpr_proxy_finalize(void)
|
||||
*/
|
||||
|
||||
void mca_gpr_proxy_notify_recv(int status, ompi_process_name_t* sender,
|
||||
ompi_buffer_t buffer, int tag,
|
||||
void* cbdata)
|
||||
ompi_buffer_t buffer, int tag,
|
||||
void* cbdata)
|
||||
{
|
||||
char **tokptr;
|
||||
mca_gpr_cmd_flag_t command;
|
||||
@ -201,12 +203,12 @@ void mca_gpr_proxy_notify_recv(int status, ompi_process_name_t* sender,
|
||||
message = OBJ_NEW(ompi_registry_notify_message_t);
|
||||
|
||||
if ((OMPI_SUCCESS != ompi_unpack(buffer, &command, 1, MCA_GPR_OOB_PACK_CMD)) ||
|
||||
(MCA_GPR_NOTIFY_CMD != command)) {
|
||||
goto RETURN_ERROR;
|
||||
(MCA_GPR_NOTIFY_CMD != command)) {
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
|
||||
if (OMPI_SUCCESS != ompi_unpack(buffer, &id_tag, 1, OMPI_INT32)) {
|
||||
goto RETURN_ERROR;
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
|
||||
if (OMPI_SUCCESS != ompi_unpack(buffer, &message->trig_action, 1, MCA_GPR_OOB_PACK_ACTION)) {
|
||||
@ -218,36 +220,36 @@ void mca_gpr_proxy_notify_recv(int status, ompi_process_name_t* sender,
|
||||
}
|
||||
|
||||
if (OMPI_SUCCESS != ompi_unpack(buffer, &num_items, 1, OMPI_INT32)) {
|
||||
goto RETURN_ERROR;
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
|
||||
for (i=0; i < num_items; i++) {
|
||||
regval = OBJ_NEW(ompi_registry_value_t);
|
||||
if (OMPI_SUCCESS != ompi_unpack(buffer, ®val->object_size, 1, MCA_GPR_OOB_PACK_OBJECT_SIZE)) {
|
||||
OBJ_RELEASE(regval);
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
if((regval->object = malloc(regval->object_size)) == NULL) {
|
||||
OBJ_RELEASE(regval);
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
if (OMPI_SUCCESS != ompi_unpack(buffer, regval->object, regval->object_size, OMPI_BYTE)) {
|
||||
OBJ_RELEASE(regval);
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
ompi_list_append(&message->data, ®val->item);
|
||||
regval = OBJ_NEW(ompi_registry_value_t);
|
||||
if (OMPI_SUCCESS != ompi_unpack(buffer, ®val->object_size, 1, MCA_GPR_OOB_PACK_OBJECT_SIZE)) {
|
||||
OBJ_RELEASE(regval);
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
if((regval->object = malloc(regval->object_size)) == NULL) {
|
||||
OBJ_RELEASE(regval);
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
if (OMPI_SUCCESS != ompi_unpack(buffer, regval->object, regval->object_size, OMPI_BYTE)) {
|
||||
OBJ_RELEASE(regval);
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
ompi_list_append(&message->data, ®val->item);
|
||||
}
|
||||
|
||||
if (OMPI_SUCCESS != ompi_unpack(buffer, &message->num_tokens, 1, OMPI_INT32)) {
|
||||
goto RETURN_ERROR;
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
|
||||
if(message->num_tokens > 0) {
|
||||
message->tokens = (char**)malloc(message->num_tokens*sizeof(char*));
|
||||
for (i=0, tokptr=message->tokens; i < message->num_tokens; i++, tokptr++) {
|
||||
if (ompi_unpack_string(buffer, tokptr) < 0) {
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
if (ompi_unpack_string(buffer, tokptr) < 0) {
|
||||
goto RETURN_ERROR;
|
||||
}
|
||||
}
|
||||
} else {
|
||||
message->tokens = NULL;
|
||||
@ -260,28 +262,28 @@ void mca_gpr_proxy_notify_recv(int status, ompi_process_name_t* sender,
|
||||
for (trackptr = (mca_gpr_notify_request_tracker_t*)ompi_list_get_first(&mca_gpr_proxy_notify_request_tracker);
|
||||
trackptr != (mca_gpr_notify_request_tracker_t*)ompi_list_get_end(&mca_gpr_proxy_notify_request_tracker);
|
||||
trackptr = (mca_gpr_notify_request_tracker_t*)ompi_list_get_next(trackptr)) {
|
||||
if (trackptr->id_tag == id_tag) {
|
||||
found = true;
|
||||
break;
|
||||
}
|
||||
if (trackptr->id_tag == id_tag) {
|
||||
found = true;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if (!found) { /* didn't find request */
|
||||
ompi_output(0, "Proxy notification error - received request not found");
|
||||
OMPI_THREAD_UNLOCK(&mca_gpr_proxy_mutex);
|
||||
return;
|
||||
ompi_output(0, "Proxy notification error - received request not found");
|
||||
OMPI_THREAD_UNLOCK(&mca_gpr_proxy_mutex);
|
||||
return;
|
||||
}
|
||||
|
||||
/* process request */
|
||||
trackptr->callback(message, trackptr->user_tag);
|
||||
|
||||
OMPI_THREAD_UNLOCK(&mca_gpr_proxy_mutex);
|
||||
|
||||
/* dismantle message and free memory */
|
||||
|
||||
RETURN_ERROR:
|
||||
OBJ_RELEASE(message);
|
||||
|
||||
OMPI_THREAD_UNLOCK(&mca_gpr_proxy_mutex);
|
||||
|
||||
/* reissue non-blocking receive */
|
||||
mca_oob_recv_packed_nb(MCA_OOB_NAME_ANY, MCA_OOB_TAG_GPR_NOTIFY, 0, mca_gpr_proxy_notify_recv, NULL);
|
||||
|
||||
|
||||
Загрузка…
Ссылка в новой задаче
Block a user