ba99409628
- After long discussions and ruminations on how we run components in
LAM/MPI, made the decision that, by default, all components included
in Open MPI will use the version number of their parent project
(i.e., OMPI or ORTE). They are certaint free to use a different
number, but this simplification makes the common cases easy:
- components are only released when the parent project is released
- it is easy (trivial?) to distinguish which version component goes
with with version of the parent project
- removed all autogen/configure code for templating the version .h
file in components
- made all ORTE components use ORTE_*_VERSION for version numbers
- made all OMPI components use OMPI_*_VERSION for version numbers
- removed all VERSION files from components
- configure now displays OPAL, ORTE, and OMPI version numbers
- ditto for ompi_info
- right now, faking it -- OPAL and ORTE and OMPI will always have the
same version number (i.e., they all come from the same top-level
VERSION file). But this paves the way for the Great Configure
Reorganization, where, among other things, each project will have
its own version number.
So all in all, we went from a boatload of version numbers to
[effectively] three. That's pretty good. :-)
This commit was SVN r6344.
157 строки
3.9 KiB
C
157 строки
3.9 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 "ompi_config.h"
|
|
#include "util/proc_info.h"
|
|
#include "opal/util/output.h"
|
|
#include "opal/runtime/opal_progress.h"
|
|
#include "mca/rml/rml.h"
|
|
#include "mca/base/base.h"
|
|
#include "mca/base/mca_base_param.h"
|
|
#include "mca/iof/base/base.h"
|
|
#include "mca/iof/base/iof_base_endpoint.h"
|
|
#include "iof_proxy.h"
|
|
#include "iof_proxy_svc.h"
|
|
|
|
/*
|
|
* Local functions
|
|
*/
|
|
static int orte_iof_proxy_open(void);
|
|
static int orte_iof_proxy_close(void);
|
|
static orte_iof_base_module_t* orte_iof_proxy_init(
|
|
int* priority,
|
|
bool *allow_multi_user_threads,
|
|
bool *have_hidden_threads);
|
|
|
|
|
|
/*
|
|
* Local variables
|
|
*/
|
|
static bool initialized = false;
|
|
|
|
|
|
orte_iof_proxy_component_t mca_iof_proxy_component = {
|
|
{
|
|
/* First, the mca_base_component_t struct containing meta
|
|
information about the component itself */
|
|
|
|
{
|
|
/* Indicate that we are a iof v1.0.0 component (which also
|
|
implies a specific MCA version) */
|
|
|
|
ORTE_IOF_BASE_VERSION_1_0_0,
|
|
|
|
"proxy", /* MCA component name */
|
|
ORTE_MAJOR_VERSION, /* MCA component major version */
|
|
ORTE_MINOR_VERSION, /* MCA component minor version */
|
|
ORTE_RELEASE_VERSION, /* MCA component release version */
|
|
orte_iof_proxy_open, /* component open */
|
|
orte_iof_proxy_close /* component close */
|
|
},
|
|
|
|
/* Next the MCA v1.0.0 component meta data */
|
|
{
|
|
/* Whether the component is checkpointable or not */
|
|
false
|
|
},
|
|
|
|
orte_iof_proxy_init
|
|
},
|
|
false,
|
|
{{NULL, 0}}
|
|
};
|
|
|
|
#if 0
|
|
static char* orte_iof_proxy_param_register_string(
|
|
const char* param_name,
|
|
const char* default_value)
|
|
{
|
|
char *param_value;
|
|
int id = mca_base_param_register_string("iof","proxy",param_name,NULL,default_value);
|
|
mca_base_param_lookup_string(id, ¶m_value);
|
|
return param_value;
|
|
}
|
|
#endif
|
|
|
|
static int orte_iof_proxy_param_register_int(
|
|
const char* param_name,
|
|
int default_value)
|
|
{
|
|
int id = mca_base_param_register_int("iof","proxy",param_name,NULL,default_value);
|
|
int param_value = default_value;
|
|
mca_base_param_lookup_int(id,¶m_value);
|
|
return param_value;
|
|
}
|
|
|
|
|
|
/**
|
|
* component open/close/init function
|
|
*/
|
|
static int orte_iof_proxy_open(void)
|
|
{
|
|
mca_iof_proxy_component.proxy_debug = orte_iof_proxy_param_register_int("debug",1);
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
|
|
static orte_iof_base_module_t*
|
|
orte_iof_proxy_init(int* priority, bool *allow_multi_user_threads, bool *have_hidden_threads)
|
|
{
|
|
int rc;
|
|
if(orte_process_info.seed == true)
|
|
return NULL;
|
|
|
|
*priority = 1;
|
|
*allow_multi_user_threads = true;
|
|
*have_hidden_threads = false;
|
|
|
|
/* post receive with oob */
|
|
mca_iof_proxy_component.proxy_iov[0].iov_base = NULL;
|
|
mca_iof_proxy_component.proxy_iov[0].iov_len = 0;
|
|
|
|
rc = orte_rml.recv_nb(
|
|
ORTE_RML_NAME_ANY,
|
|
mca_iof_proxy_component.proxy_iov,
|
|
1,
|
|
ORTE_RML_TAG_IOF_SVC,
|
|
ORTE_RML_ALLOC,
|
|
orte_iof_proxy_svc_recv,
|
|
NULL
|
|
);
|
|
if(rc < 0) {
|
|
opal_output(0, "orte_iof_proxy_init: unable to post non-blocking recv");
|
|
return NULL;
|
|
}
|
|
initialized = true;
|
|
return &orte_iof_proxy_module;
|
|
}
|
|
|
|
/**
|
|
*
|
|
*/
|
|
|
|
static int orte_iof_proxy_close(void)
|
|
{
|
|
int rc = ORTE_SUCCESS;
|
|
|
|
if (initialized) {
|
|
rc = orte_rml.recv_cancel(ORTE_RML_NAME_ANY, ORTE_RML_TAG_IOF_SVC);
|
|
}
|
|
return rc;
|
|
}
|
|
|
|
|