0532d799d6
Some minor changes to help facilitate debugger support so that both mpirun and yod can operate with it. Still to be completed. This commit was SVN r18664.
67 строки
1.9 KiB
C
67 строки
1.9 KiB
C
/*
|
|
* Copyright (c) 2004-2007 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$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
|
|
#include "opal/mca/mca.h"
|
|
#include "opal/mca/base/base.h"
|
|
|
|
#include "orte/util/show_help.h"
|
|
#include "opal/mca/base/mca_base_param.h"
|
|
|
|
#include "orte/util/show_help.h"
|
|
|
|
#include "ompi/mca/pubsub/pubsub.h"
|
|
#include "ompi/mca/pubsub/base/base.h"
|
|
|
|
#include "ompi/mca/pubsub/base/static-components.h"
|
|
|
|
/*
|
|
* Globals
|
|
*/
|
|
OMPI_DECLSPEC int ompi_pubsub_base_output = -1;
|
|
OMPI_DECLSPEC ompi_pubsub_base_module_t ompi_pubsub={
|
|
NULL,
|
|
ompi_pubsub_base_null_publish,
|
|
ompi_pubsub_base_null_unpublish,
|
|
ompi_pubsub_base_null_lookup,
|
|
NULL
|
|
};
|
|
opal_list_t ompi_pubsub_base_components_available;
|
|
ompi_pubsub_base_component_t ompi_pubsub_base_selected_component;
|
|
|
|
/**
|
|
* Function for finding and opening either all MCA components,
|
|
* or the one that was specifically requested via a MCA parameter.
|
|
*/
|
|
int ompi_pubsub_base_open(void)
|
|
{
|
|
/* Debugging/Verbose output */
|
|
ompi_pubsub_base_output = opal_output_open(NULL);
|
|
|
|
/* Open up all available components */
|
|
if (OPAL_SUCCESS !=
|
|
mca_base_components_open("pubsub",
|
|
ompi_pubsub_base_output,
|
|
mca_pubsub_base_static_components,
|
|
&ompi_pubsub_base_components_available,
|
|
true)) {
|
|
return OMPI_ERROR;
|
|
}
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|