bd8b4f7f1e
Roll in the ORTE state machine. Remove last traces of opal_sos. Remove UTK epoch code. Please see the various emails about the state machine change for details. I'll send something out later with more info on the new arch. This commit was SVN r26242.
63 строки
1.8 KiB
C
63 строки
1.8 KiB
C
/*
|
|
* Copyright (c) 2004-2008 The Trustees of Indiana University.
|
|
* All rights reserved.
|
|
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
|
|
* All rights reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* Copyright (c) 2012 Los Alamos National Security, LLC. All rights
|
|
* reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
|
|
#include "opal/mca/mca.h"
|
|
#include "opal/mca/base/base.h"
|
|
|
|
#include "opal/mca/base/mca_base_param.h"
|
|
#include "opal/mca/base/mca_base_component_repository.h"
|
|
|
|
#include "ompi/mca/dpm/dpm.h"
|
|
#include "ompi/mca/dpm/base/base.h"
|
|
|
|
|
|
int ompi_dpm_base_select(void)
|
|
{
|
|
int ret;
|
|
ompi_dpm_base_component_t *best_component = NULL;
|
|
ompi_dpm_base_module_t *best_module = NULL;
|
|
|
|
/*
|
|
* Select the best component
|
|
*/
|
|
if( OPAL_SUCCESS != (ret = mca_base_select("dpm", ompi_dpm_base_output,
|
|
&ompi_dpm_base_components_available,
|
|
(mca_base_module_t **) &best_module,
|
|
(mca_base_component_t **) &best_component))) {
|
|
/* it is okay not to find any executable components */
|
|
if (OMPI_ERR_NOT_FOUND == ret) {
|
|
ret = OPAL_SUCCESS;
|
|
}
|
|
goto cleanup;
|
|
}
|
|
|
|
/* Save the winner */
|
|
ompi_dpm = *best_module;
|
|
ompi_dpm_base_selected_component = *best_component;
|
|
|
|
/* init the selected module */
|
|
if (NULL != ompi_dpm.init) {
|
|
ret = ompi_dpm.init();
|
|
}
|
|
|
|
cleanup:
|
|
return ret;
|
|
}
|