This source file includes following definitions.
- orte_ess_alps_component_open
- orte_ess_alps_component_query
- orte_ess_alps_component_close
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 #include "orte_config.h"
29 #include "orte/constants.h"
30 #include "orte/runtime/orte_globals.h"
31 #include "orte/util/proc_info.h"
32 #include "orte/mca/common/alps/common_alps.h"
33 #include "orte/mca/ess/ess.h"
34 #include "orte/mca/ess/base/base.h"
35 #include "orte/mca/ess/alps/ess_alps.h"
36
37 #include <sys/syscall.h>
38
39
40
41
42
43
44 orte_ess_base_component_t mca_ess_alps_component = {
45
46
47 .base_version = {
48 ORTE_ESS_BASE_VERSION_3_0_0,
49
50
51 .mca_component_name = "alps",
52 MCA_BASE_MAKE_VERSION(component, ORTE_MAJOR_VERSION, ORTE_MINOR_VERSION,
53 ORTE_RELEASE_VERSION),
54
55
56 .mca_open_component = orte_ess_alps_component_open,
57 .mca_close_component = orte_ess_alps_component_close,
58 .mca_query_component = orte_ess_alps_component_query,
59 },
60 .base_data = {
61
62 MCA_BASE_METADATA_PARAM_NONE
63 },
64 };
65
66 int
67 orte_ess_alps_component_open(void)
68 {
69 return ORTE_SUCCESS;
70 }
71
72 int orte_ess_alps_component_query(mca_base_module_t **module, int *priority)
73 {
74 int rc = ORTE_SUCCESS;
75 bool flag;
76
77
78
79
80
81 if (ORTE_PROC_IS_APP) {
82 *priority = 0;
83 *module = NULL;
84 return ORTE_ERROR;
85 }
86
87
88
89
90
91
92
93 rc = orte_common_alps_proc_in_pagg(&flag);
94 if ((ORTE_SUCCESS == rc) && flag) {
95 *priority = 35;
96 *module = (mca_base_module_t *) &orte_ess_alps_module;
97 }
98
99 return rc;
100 }
101
102 int
103 orte_ess_alps_component_close(void)
104 {
105 return ORTE_SUCCESS;
106 }
107