40a2bfa238
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.
122 строки
3.5 KiB
C
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, ¶m_value);
|
|
return param_value;
|
|
}
|
|
|