063f5b2ff6
* Check for {{{dlfcn.h}}} in the self component's configure.m4 (also clean up the .m4 a bit.
* Adjust the priority of the BLCR component so that the self component has a higher priority (if the application went to the trouble of writing the routines, why not use them.) The 'self' component checks for the appropriate functions during query, so it know if it -can- be used during component selection.
* Adjust some copyrights that I missed before
* Fix a warning when casing the result of dlsym() into a function pointer. There is a bit of pointer magic to make this happen (thanks to the following website, and RedHat EL 4 man pages for illustrating it:
http://www.opengroup.org/onlinepubs/009695399/functions/dlsym.html
Passing to Jeff for a final review of the patch before moving to v1.3.
This commit was SVN r21768.
The following SVN revision numbers were found above:
r21766 --> open-mpi/ompi@91e52d062b
133 строки
4.4 KiB
C
133 строки
4.4 KiB
C
/*
|
|
* Copyright (c) 2004-2009 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 "opal_config.h"
|
|
|
|
#include "opal/util/output.h"
|
|
|
|
#include "opal/constants.h"
|
|
#include "opal/mca/crs/crs.h"
|
|
#include "opal/mca/crs/base/base.h"
|
|
#include "crs_blcr.h"
|
|
|
|
/*
|
|
* Local functionality
|
|
*/
|
|
static int crs_blcr_open(void);
|
|
static int crs_blcr_close(void);
|
|
|
|
bool opal_crs_blcr_dev_null = false;
|
|
|
|
/*
|
|
* Instantiate the public struct with all of our public information
|
|
* and pointer to our public functions in it
|
|
*/
|
|
opal_crs_blcr_component_t mca_crs_blcr_component = {
|
|
/* First do the base component stuff */
|
|
{
|
|
/* Handle the general mca_component_t struct containing
|
|
* meta information about the component itself
|
|
*/
|
|
{
|
|
OPAL_CRS_BASE_VERSION_2_0_0,
|
|
|
|
/* Component name and version */
|
|
"blcr",
|
|
OPAL_MAJOR_VERSION,
|
|
OPAL_MINOR_VERSION,
|
|
OPAL_RELEASE_VERSION,
|
|
|
|
/* Component open and close functions */
|
|
crs_blcr_open,
|
|
crs_blcr_close,
|
|
opal_crs_blcr_component_query
|
|
},
|
|
{
|
|
/* The component is checkpoint ready */
|
|
MCA_BASE_METADATA_PARAM_CHECKPOINT
|
|
},
|
|
|
|
/* Verbosity level */
|
|
0,
|
|
/* opal_output handler */
|
|
-1,
|
|
/* Default priority */
|
|
10
|
|
}
|
|
};
|
|
|
|
static int crs_blcr_open(void)
|
|
{
|
|
int value;
|
|
|
|
mca_base_param_reg_int(&mca_crs_blcr_component.super.base_version,
|
|
"priority",
|
|
"Priority of the CRS blcr component",
|
|
false, false,
|
|
mca_crs_blcr_component.super.priority,
|
|
&mca_crs_blcr_component.super.priority);
|
|
|
|
mca_base_param_reg_int(&mca_crs_blcr_component.super.base_version,
|
|
"verbose",
|
|
"Verbose level for the CRS blcr component",
|
|
false, false,
|
|
mca_crs_blcr_component.super.verbose,
|
|
&mca_crs_blcr_component.super.verbose);
|
|
/* If there is a custom verbose level for this component than use it
|
|
* otherwise take our parents level and output channel
|
|
*/
|
|
if ( 0 != mca_crs_blcr_component.super.verbose) {
|
|
mca_crs_blcr_component.super.output_handle = opal_output_open(NULL);
|
|
opal_output_set_verbosity(mca_crs_blcr_component.super.output_handle,
|
|
mca_crs_blcr_component.super.verbose);
|
|
} else {
|
|
mca_crs_blcr_component.super.output_handle = opal_crs_base_output;
|
|
}
|
|
|
|
mca_base_param_reg_int(&mca_crs_blcr_component.super.base_version,
|
|
"dev_null",
|
|
"Not for general use! For debugging only! Save checkpoint to /dev/null. [Default = disabled]",
|
|
false, false,
|
|
0,
|
|
&value);
|
|
opal_crs_blcr_dev_null = OPAL_INT_TO_BOOL(value);
|
|
|
|
/*
|
|
* Debug output
|
|
*/
|
|
opal_output_verbose(10, mca_crs_blcr_component.super.output_handle,
|
|
"crs:blcr: open()");
|
|
opal_output_verbose(20, mca_crs_blcr_component.super.output_handle,
|
|
"crs:blcr: open: priority = %d",
|
|
mca_crs_blcr_component.super.priority);
|
|
opal_output_verbose(20, mca_crs_blcr_component.super.output_handle,
|
|
"crs:blcr: open: verbosity = %d",
|
|
mca_crs_blcr_component.super.verbose);
|
|
opal_output_verbose(10, mca_crs_blcr_component.super.output_handle,
|
|
"crs:blcr: open: dev_null = %s",
|
|
(opal_crs_blcr_dev_null == true ? "True" : "False"));
|
|
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
static int crs_blcr_close(void)
|
|
{
|
|
opal_output_verbose(10, mca_crs_blcr_component.super.output_handle,
|
|
"crs:blcr: close()");
|
|
|
|
return OPAL_SUCCESS;
|
|
}
|