1
1
openmpi/ompi/mca/vprotocol/example/vprotocol_example_component.c
Ralph Castain 40a2bfa238 WARNING: Work on the temp branch being merged here encountered problems with bugs in subversion. Considerable effort has gone into validating the branch. However, not all conditions can be checked, so users are cautioned that it may be advisable to not update from the trunk for a few days to allow MTT to identify platform-specific issues.
This merges the branch containing the revamped build system based around converting autogen from a bash script to a Perl program. Jeff has provided emails explaining the features contained in the change.

Please note that configure requirements on components HAVE CHANGED. For example. a configure.params file is no longer required in each component directory. See Jeff's emails for an explanation.

This commit was SVN r23764.
2010-09-17 23:04:06 +00:00

122 строки
3.5 KiB
C

/*
* Copyright (c) 2004-2007 The Trustees of the University of Tennessee.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "ompi_config.h"
#include "opal/mca/mca.h"
#include "opal/mca/base/mca_base_param.h"
#include "../pml_v.h"
#include "../pml_v_protocol_base.h"
#include "vprotocol_example.h"
static inline int mca_param_register_int( const char* param_name, int default_value);
static int mca_vprotocol_example_component_open(void);
static int mca_vprotocol_example_component_close(void);
static mca_pml_v_protocol_base_module_t *mca_vprotocol_example_component_init( int* priority,
bool, bool);
static int mca_vprotocol_example_component_finalize(void);
static int _priority;
mca_pml_v_protocol_base_component_2_0_0_t mca_vprotocol_example_component =
{
/* First, the mca_base_component_t struct containing meta
* information about the component itself */
{
MCA_VPROTOCOL_BASE_VERSION_2_0_0,
"example", /* MCA component name */
OMPI_MAJOR_VERSION, /* MCA component major version */
OMPI_MINOR_VERSION, /* MCA component minor version */
OMPI_RELEASE_VERSION, /* MCA component release version */
mca_vprotocol_example_component_open, /* component open */
mca_vprotocol_example_component_close /* component close */
},
{
/* component is not checkpointable */
MCA_BASE_METADATA_PARAM_NONE
},
mca_vprotocol_example_component_init, /* component init */
mca_vprotocol_example_component_finalize /* component finalize */
};
/** MCA level functions
*/
int mca_vprotocol_example_component_open(void)
{
_priority = mca_param_register_int( "priority", -1);
V_OUTPUT_VERBOSE(10, "vprotocol_example_open, read priority %d", _priority);
return OMPI_SUCCESS;
}
int mca_vprotocol_example_component_close(void)
{
V_OUTPUT_VERBOSE(10, "vprotocol_example_close");
return OMPI_SUCCESS;
}
/** VPROTOCOL level functions (same as PML one)
*/
mca_pml_v_protocol_base_module_t *mca_vprotocol_example_component_init( int* priority,
bool enable_progress_threads,
bool enable_mpi_threads)
{
V_OUTPUT_VERBOSE(10, "vprotocol_example_init");
*priority = _priority;
/**
* Some protocols requires sanity check about thread support (those making piecewise deterministic assumption)
if(enable_mpi_threads)
{
OPAL_OUTPUT_VERBOSE( mca_pml_v_verbose, mca_pml_v_output, "vprotocol_example.init: threads are enabled, and not supported by vprotocol example fault tolerant layer, will not load"));
return NULL;
}
*/
/**
* Insert your own protocol initialization here
*/
return &mca_vprotocol_example.super;
}
int mca_vprotocol_example_component_finalize(void)
{
V_OUTPUT_VERBOSE(10, "vprotocol_example_finalize");
/**
* Insert your own garbage collecting here
*/
return OMPI_SUCCESS;
}
/**
* Helper function to set int type mca parameter
*/
static inline int mca_param_register_int( const char* param_name,
int default_value )
{
int id = mca_base_param_register_int("vprotocol", "example", param_name, NULL, default_value);
int param_value = default_value;
mca_base_param_lookup_int(id, &param_value);
return param_value;
}