1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
/*
* Copyright (c) 2004-2007 The Trustees of the University of Tennessee.
* All rights reserved.
* Copyright (c) 2009 Cisco Systems, Inc. All rights reserved.
* Copyright (c) 2012-2013 Los Alamos National Security, Inc. All rights reserved.
* Copyright (c) 2015 Research Organization for Information Science
* and Technology (RIST). All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "ompi_config.h"
#include "base.h"
#include "ompi/mca/mca.h"
#include "opal/mca/base/base.h"
#include "ompi/mca/vprotocol/base/static-components.h"
char *mca_vprotocol_base_include_list = NULL;
mca_pml_v_t mca_pml_v = {-1, 0, 0};
/* Load any vprotocol MCA component and call open function of all those
* components.
*
* Also fill the mca_vprotocol_base_include_list with components that exists
*/
static int mca_vprotocol_base_open(mca_base_open_flag_t flags)
{
if (NULL == mca_vprotocol_base_include_list) {
return OMPI_SUCCESS;
}
return mca_base_framework_components_open(&ompi_vprotocol_base_framework, 0);
}
void mca_vprotocol_base_set_include_list(char *vprotocol_include_list)
{
mca_vprotocol_base_include_list = NULL;
if (NULL != vprotocol_include_list && vprotocol_include_list[0] != '\0') {
mca_vprotocol_base_include_list = strdup (vprotocol_include_list);
}
}
/* Close and unload any vprotocol MCA component loaded.
*/
static int mca_vprotocol_base_close(void)
{
if (NULL != mca_vprotocol_base_include_list) {
free(mca_vprotocol_base_include_list);
}
return mca_base_framework_components_close(&ompi_vprotocol_base_framework, NULL);;
}
MCA_BASE_FRAMEWORK_DECLARE(ompi, vprotocol, "OMPI Vprotocol", NULL,
mca_vprotocol_base_open, mca_vprotocol_base_close,
mca_vprotocol_base_static_components, 0);
|
