5818a32245
Adjust the RMAPS mapped_node object to propagate the required launch_id info now included in the ras_node object. This provides support for those few systems that don't use nodename to launch, but instead want some id (typically an index into the array of allocated nodes). This value gets set for each node in the RAS - the RMAPS just propagates it for easy launch. This commit was SVN r13581.
117 строки
3.2 KiB
C
117 строки
3.2 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
* of Tennessee Research Foundation. 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 "orte_config.h"
|
|
|
|
#include "opal/mca/base/base.h"
|
|
#include "opal/mca/base/mca_base_param.h"
|
|
#include "opal/util/output.h"
|
|
#include "orte/orte_constants.h"
|
|
#include "orte/util/proc_info.h"
|
|
#include "ras_tm.h"
|
|
|
|
|
|
/*
|
|
* Local variables
|
|
*/
|
|
static int param_priority;
|
|
|
|
|
|
/*
|
|
* Local functions
|
|
*/
|
|
static int ras_tm_open(void);
|
|
static orte_ras_base_module_t *ras_tm_init(int*);
|
|
|
|
|
|
orte_ras_tm_component_t mca_ras_tm_component = {
|
|
{
|
|
/* First, the mca_base_component_t struct containing meta
|
|
information about the component itself */
|
|
|
|
{
|
|
/* Indicate that we are a ras v1.3.0 component (which also
|
|
implies a specific MCA version) */
|
|
|
|
ORTE_RAS_BASE_VERSION_1_3_0,
|
|
|
|
/* Component name and version */
|
|
|
|
"tm",
|
|
ORTE_MAJOR_VERSION,
|
|
ORTE_MINOR_VERSION,
|
|
ORTE_RELEASE_VERSION,
|
|
|
|
/* Component open and close functions */
|
|
|
|
ras_tm_open,
|
|
NULL
|
|
},
|
|
|
|
/* Next the MCA v1.0.0 component meta data */
|
|
{
|
|
/* Whether the component is checkpointable or not */
|
|
false
|
|
},
|
|
|
|
ras_tm_init
|
|
}
|
|
};
|
|
|
|
|
|
static int ras_tm_open(void)
|
|
{
|
|
mca_base_component_t *c = &mca_ras_tm_component.super.ras_version;
|
|
|
|
param_priority =
|
|
mca_base_param_reg_int(c,
|
|
"priority",
|
|
"Priority of the tm ras component",
|
|
false, false, 100, NULL);
|
|
|
|
mca_base_param_reg_string(c, "nodefile_dir",
|
|
"The directory where the PBS nodefile can be found",
|
|
false, false, "/var/torque/aux",
|
|
&mca_ras_tm_component.nodefile_dir);
|
|
|
|
return ORTE_SUCCESS;
|
|
}
|
|
|
|
|
|
static orte_ras_base_module_t *ras_tm_init(int* priority)
|
|
{
|
|
/* if we are not an HNP, then we must not be selected */
|
|
if (!orte_process_info.seed) {
|
|
return NULL;
|
|
}
|
|
|
|
/* Are we running under a TM job? */
|
|
if (NULL != getenv("PBS_ENVIRONMENT") &&
|
|
NULL != getenv("PBS_JOBID")) {
|
|
mca_base_param_lookup_int(param_priority, priority);
|
|
opal_output(orte_ras_base.ras_output,
|
|
"ras:tm: available for selection");
|
|
return &orte_ras_tm_module;
|
|
}
|
|
|
|
/* Sadly, no */
|
|
opal_output(orte_ras_base.ras_output,
|
|
"ras:tm: NOT available for selection");
|
|
return NULL;
|
|
}
|