1
1
openmpi/orte/mca/routed/direct/routed_direct_component.c
2015-02-05 17:34:25 -08:00

70 строки
2.1 KiB
C

/*
* Copyright (c) 2007 Los Alamos National Security, LLC.
* All rights reserved.
* Copyright (c) 2004-2008 The Trustees of Indiana University.
* All rights reserved.
* Copyright (c) 2015 Intel, Inc. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "orte_config.h"
#include "orte/constants.h"
#include "opal/mca/base/base.h"
#include "orte/runtime/orte_globals.h"
#include "orte/util/proc_info.h"
#include "orte/mca/routed/base/base.h"
#include "routed_direct.h"
static int orte_routed_direct_component_query(mca_base_module_t **module, int *priority);
/**
* component definition
*/
orte_routed_component_t mca_routed_direct_component = {
/* First, the mca_base_component_t struct containing meta
information about the component itself */
{
ORTE_ROUTED_BASE_VERSION_2_0_0,
"direct", /* MCA component name */
ORTE_MAJOR_VERSION, /* MCA component major version */
ORTE_MINOR_VERSION, /* MCA component minor version */
ORTE_RELEASE_VERSION, /* MCA component release version */
NULL,
NULL,
orte_routed_direct_component_query
},
{
/* This component can be checkpointed */
MCA_BASE_METADATA_PARAM_CHECKPOINT
}
};
static int orte_routed_direct_component_query(mca_base_module_t **module, int *priority)
{
/* if we are an app and no daemon URI has been provided, or
* we are a singleton, then we must be chosen */
if (ORTE_PROC_IS_APP && NULL == orte_process_info.my_daemon_uri) {
/* we are direct launched, so set some arbitrary value
* for the daemon name */
ORTE_PROC_MY_DAEMON->jobid = 0;
ORTE_PROC_MY_DAEMON->vpid = 0;
*priority = 100;
} else if (ORTE_PROC_IS_SINGLETON) {
*priority = 100;
} else {
/* allow selection only when specifically requested */
*priority = 0;
}
*module = (mca_base_module_t *) &orte_routed_direct_module;
return ORTE_SUCCESS;
}