e96b5f486f
All interface APIs for accessing the info remain unchanged in opal/util/if.c. This has been tested on Mac, Linux, and NetBSD. Nobody else seemed interested in testing it, so there may be some future problems revealed as people try it on other OSs. This commit was SVN r23743.
105 строки
2.8 KiB
C
105 строки
2.8 KiB
C
/*
|
|
* Copyright (c) 2010 Cisco Systems, Inc. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*
|
|
*/
|
|
|
|
#include "opal_config.h"
|
|
|
|
#include "opal/constants.h"
|
|
#include "opal/mca/mca.h"
|
|
#include "opal/mca/if/if.h"
|
|
#include "opal/mca/if/base/base.h"
|
|
#include "opal/mca/if/base/static-components.h"
|
|
|
|
int opal_if_base_output;
|
|
opal_list_t opal_if_components;
|
|
static bool already_done = false;
|
|
|
|
/* instantiate the global list of interfaces */
|
|
opal_list_t opal_if_list;
|
|
bool opal_if_do_not_resolve;
|
|
bool opal_if_retain_loopback;
|
|
|
|
/* instance the opal_if_t object */
|
|
OBJ_CLASS_INSTANCE(opal_if_t, opal_list_item_t, NULL, NULL);
|
|
|
|
int opal_if_base_open(void)
|
|
{
|
|
int i, ret;
|
|
mca_base_component_list_item_t *cli;
|
|
|
|
if (already_done) {
|
|
return OPAL_SUCCESS;
|
|
}
|
|
already_done = true;
|
|
|
|
/* setup the global list */
|
|
OBJ_CONSTRUCT(&opal_if_list, opal_list_t);
|
|
|
|
mca_base_param_reg_int_name("opal", "if_do_not_resolve",
|
|
"If nonzero, do not attempt to resolve interfaces",
|
|
false, false, (int)false, &ret);
|
|
opal_if_do_not_resolve = OPAL_INT_TO_BOOL(ret);
|
|
|
|
mca_base_param_reg_int_name("opal", "if_retain_loopback",
|
|
"If nonzero, retain loopback interfaces",
|
|
false, false, (int)false, &ret);
|
|
opal_if_retain_loopback = OPAL_INT_TO_BOOL(ret);
|
|
|
|
OBJ_CONSTRUCT(&opal_if_components, opal_list_t);
|
|
for (i = 0 ; mca_if_base_static_components[i] != NULL ; ++i) {
|
|
opal_if_base_component_t *component =
|
|
(opal_if_base_component_t*)
|
|
mca_if_base_static_components[i];
|
|
|
|
/* Save it in a global list for ompi_info */
|
|
cli = OBJ_NEW(mca_base_component_list_item_t);
|
|
cli->cli_component = mca_if_base_static_components[i];
|
|
opal_list_append(&opal_if_components, &cli->super);
|
|
|
|
if (NULL != component->component.mca_open_component) {
|
|
ret = component->component.mca_open_component();
|
|
if (OPAL_SUCCESS != ret) continue;
|
|
}
|
|
|
|
if (NULL != mca_if_base_static_components[i]->mca_close_component) {
|
|
mca_if_base_static_components[i]->mca_close_component();
|
|
}
|
|
}
|
|
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
|
|
int opal_if_base_close(void)
|
|
{
|
|
opal_list_item_t *item;
|
|
|
|
if (!already_done) {
|
|
return OPAL_SUCCESS;
|
|
}
|
|
already_done = false;
|
|
|
|
for (item = opal_list_remove_first(&opal_if_list);
|
|
NULL != item;
|
|
item = opal_list_remove_first(&opal_if_list)) {
|
|
OBJ_RELEASE(item);
|
|
}
|
|
OBJ_DESTRUCT(&opal_if_list);
|
|
|
|
for (item = opal_list_remove_first(&opal_if_components);
|
|
NULL != item;
|
|
item = opal_list_remove_first(&opal_if_components)) {
|
|
OBJ_RELEASE(item);
|
|
}
|
|
OBJ_DESTRUCT(&opal_if_components);
|
|
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|