cd52ccdb68
The strtoul function returns the pointer to the first non-digit character, which is a '.' in this case. Calling strtoul at that point will always yield a zero - you have to move past it to get the remaining number Thanks to Greg Lee for the detailed analysis of the problem. Signed-off-by: Ralph Castain <rhc@open-mpi.org>
772 строки
23 KiB
C
772 строки
23 KiB
C
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
|
|
/*
|
|
* Copyright (c) 2007 The Trustees of Indiana University.
|
|
* All rights reserved.
|
|
* Copyright (c) 2011-2016 Cisco Systems, Inc. All rights reserved.
|
|
* Copyright (c) 2011-2017 Los Alamos National Security, LLC. All
|
|
* rights reserved.
|
|
* Copyright (c) 2013-2018 Intel, Inc. All rights reserved.
|
|
* Copyright (c) 2014-2016 Research Organization for Information Science
|
|
* and Technology (RIST). All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "opal_config.h"
|
|
#include "opal/constants.h"
|
|
#include "opal/types.h"
|
|
|
|
#include "opal_stdint.h"
|
|
#include "opal/mca/hwloc/base/base.h"
|
|
#include "opal/util/argv.h"
|
|
#include "opal/util/opal_environ.h"
|
|
#include "opal/util/output.h"
|
|
#include "opal/util/proc.h"
|
|
#include "opal/util/show_help.h"
|
|
|
|
#include "pmi2_pmap_parser.h"
|
|
|
|
#include <string.h>
|
|
#include <pmi2.h>
|
|
|
|
#include "opal/mca/pmix/base/base.h"
|
|
#include "opal/mca/pmix/base/pmix_base_hash.h"
|
|
#include "pmix_s2.h"
|
|
|
|
static int s2_init(opal_list_t *ilist);
|
|
static int s2_fini(void);
|
|
static int s2_initialized(void);
|
|
static int s2_abort(int flag, const char msg[],
|
|
opal_list_t *procs);
|
|
static int s2_commit(void);
|
|
static int s2_fencenb(opal_list_t *procs, int collect_data,
|
|
opal_pmix_op_cbfunc_t cbfunc, void *cbdata);
|
|
static int s2_fence(opal_list_t *procs, int collect_data);
|
|
static int s2_put(opal_pmix_scope_t scope,
|
|
opal_value_t *kv);
|
|
static int s2_get(const opal_process_name_t *id,
|
|
const char *key, opal_list_t *info,
|
|
opal_value_t **kv);
|
|
static int s2_publish(opal_list_t *info);
|
|
static int s2_lookup(opal_list_t *data, opal_list_t *info);
|
|
static int s2_unpublish(char **keys, opal_list_t *info);
|
|
static int s2_spawn(opal_list_t *jobinfo, opal_list_t *apps, opal_jobid_t *jobid);
|
|
static int s2_job_connect(opal_list_t *procs);
|
|
static int s2_job_disconnect(opal_list_t *procs);
|
|
static int s2_store_local(const opal_process_name_t *proc,
|
|
opal_value_t *val);
|
|
static const char *s2_get_nspace(opal_jobid_t jobid);
|
|
static void s2_register_jobid(opal_jobid_t jobid, const char *nspace);
|
|
|
|
const opal_pmix_base_module_t opal_pmix_s2_module = {
|
|
.init = s2_init,
|
|
.finalize = s2_fini,
|
|
.initialized = s2_initialized,
|
|
.abort = s2_abort,
|
|
.commit = s2_commit,
|
|
.fence_nb = s2_fencenb,
|
|
.fence = s2_fence,
|
|
.put = s2_put,
|
|
.get = s2_get,
|
|
.publish = s2_publish,
|
|
.lookup = s2_lookup,
|
|
.unpublish = s2_unpublish,
|
|
.spawn = s2_spawn,
|
|
.connect = s2_job_connect,
|
|
.disconnect = s2_job_disconnect,
|
|
.register_evhandler = opal_pmix_base_register_handler,
|
|
.deregister_evhandler = opal_pmix_base_deregister_handler,
|
|
.store_local = s2_store_local,
|
|
.get_nspace = s2_get_nspace,
|
|
.register_jobid = s2_register_jobid
|
|
};
|
|
|
|
// usage accounting
|
|
static int pmix_init_count = 0;
|
|
|
|
// local object
|
|
typedef struct {
|
|
opal_object_t super;
|
|
opal_event_t ev;
|
|
opal_pmix_op_cbfunc_t opcbfunc;
|
|
void *cbdata;
|
|
} pmi_opcaddy_t;
|
|
static OBJ_CLASS_INSTANCE(pmi_opcaddy_t,
|
|
opal_object_t,
|
|
NULL, NULL);
|
|
|
|
// PMI constant values:
|
|
static int pmix_kvslen_max = 0;
|
|
static int pmix_keylen_max = 0;
|
|
static int pmix_vallen_max = 0;
|
|
static int pmix_vallen_threshold = INT_MAX;
|
|
|
|
// Job environment description
|
|
static char *pmix_kvs_name = NULL;
|
|
|
|
static char* pmix_packed_data = NULL;
|
|
static int pmix_packed_data_offset = 0;
|
|
static char* pmix_packed_encoded_data = NULL;
|
|
static int pmix_packed_encoded_data_offset = 0;
|
|
static int pmix_pack_key = 0;
|
|
|
|
static int s2_rank;
|
|
static uint16_t s2_lrank;
|
|
static uint16_t s2_nrank;
|
|
static int s2_jsize;
|
|
static int s2_appnum;
|
|
static int s2_nlranks;
|
|
static int *s2_lranks=NULL;
|
|
static opal_process_name_t s2_pname;
|
|
|
|
static bool got_modex_data = false;
|
|
static char* pmix_error(int pmix_err);
|
|
#define OPAL_PMI_ERROR(pmi_err, pmi_func) \
|
|
do { \
|
|
opal_output(0, "%s [%s:%d:%s]: %s\n", \
|
|
pmi_func, __FILE__, __LINE__, __func__, \
|
|
pmix_error(pmi_err)); \
|
|
} while(0);
|
|
|
|
static int kvs_put(const char key[], const char value[])
|
|
{
|
|
int rc;
|
|
rc = PMI2_KVS_Put(key, value);
|
|
if( PMI2_SUCCESS != rc ){
|
|
OPAL_PMI_ERROR(rc, "PMI2_KVS_Put");
|
|
return OPAL_ERROR;
|
|
}
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
static int kvs_get(const char key[], char value [], int maxvalue)
|
|
{
|
|
int rc;
|
|
int len;
|
|
rc = PMI2_KVS_Get(pmix_kvs_name, PMI2_ID_NULL, key, value, maxvalue, &len);
|
|
/*
|
|
* turns out the KVS can be called for keys that haven't yet
|
|
* been inserted, so suppress warning message if this is the
|
|
* case
|
|
*/
|
|
if (PMI2_SUCCESS != rc) {
|
|
return OPAL_ERROR;
|
|
}
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
static int s2_init(opal_list_t *ilist)
|
|
{
|
|
int spawned, size, rank, appnum;
|
|
int rc, ret = OPAL_ERROR;
|
|
char buf[16];
|
|
int found;
|
|
int my_node;
|
|
uint32_t stepid;
|
|
int i;
|
|
opal_process_name_t ldr;
|
|
opal_value_t kv;
|
|
char **localranks;
|
|
char *str;
|
|
char nmtmp[64];
|
|
opal_process_name_t wildcard_rank;
|
|
|
|
if (0 < pmix_init_count) {
|
|
++pmix_init_count;
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
/* if we can't startup PMI, we can't be used */
|
|
if ( PMI2_Initialized () ) {
|
|
return OPAL_SUCCESS;
|
|
}
|
|
size = -1;
|
|
rank = -1;
|
|
appnum = -1;
|
|
// setup hash table so we always can finalize it
|
|
opal_pmix_base_hash_init();
|
|
|
|
if (PMI2_SUCCESS != (rc = PMI2_Init(&spawned, &size, &rank, &appnum))) {
|
|
opal_show_help("help-pmix-base.txt", "pmix2-init-failed", true, rc);
|
|
return OPAL_ERROR;
|
|
}
|
|
if( size < 0 || rank < 0 ){
|
|
opal_show_help("help-pmix-base.txt", "pmix2-init-returned-bad-values", true);
|
|
ret = OPAL_ERR_BAD_PARAM;
|
|
goto err_exit;
|
|
}
|
|
|
|
s2_jsize = size;
|
|
s2_rank = rank;
|
|
s2_appnum = appnum;
|
|
|
|
pmix_vallen_max = PMI2_MAX_VALLEN;
|
|
pmix_kvslen_max = PMI2_MAX_VALLEN; // FIX ME: What to put here for versatility?
|
|
pmix_keylen_max = PMI2_MAX_KEYLEN;
|
|
pmix_vallen_threshold = PMI2_MAX_VALLEN * 3;
|
|
pmix_vallen_threshold >>= 2;
|
|
|
|
pmix_kvs_name = (char*)malloc(pmix_kvslen_max);
|
|
if( pmix_kvs_name == NULL ){
|
|
PMI2_Finalize();
|
|
ret = OPAL_ERR_OUT_OF_RESOURCE;
|
|
goto err_exit;
|
|
}
|
|
rc = PMI2_Job_GetId(pmix_kvs_name, pmix_kvslen_max);
|
|
if( PMI2_SUCCESS != rc ) {
|
|
OPAL_PMI_ERROR(rc, "PMI2_Job_GetId");
|
|
free(pmix_kvs_name);
|
|
ret = OPAL_ERR_BAD_PARAM;
|
|
goto err_exit;
|
|
}
|
|
|
|
/* store our name in the opal_proc_t so that
|
|
* debug messages will make sense - an upper
|
|
* layer will eventually overwrite it, but that
|
|
* won't do any harm */
|
|
s2_pname.jobid = strtoul(pmix_kvs_name, &str, 10);
|
|
s2_pname.jobid = (s2_pname.jobid << 16) & 0xffff0000;
|
|
if (NULL != str) {
|
|
stepid = strtoul(str+1, NULL, 10);
|
|
s2_pname.jobid |= (stepid & 0x0000ffff);
|
|
}
|
|
s2_pname.vpid = s2_rank;
|
|
opal_proc_set_name(&s2_pname);
|
|
opal_output_verbose(2, opal_pmix_base_framework.framework_output,
|
|
"%s pmix:s2: assigned tmp name",
|
|
OPAL_NAME_PRINT(s2_pname));
|
|
|
|
/* setup wildcard rank*/
|
|
wildcard_rank = OPAL_PROC_MY_NAME;
|
|
wildcard_rank.vpid = OPAL_VPID_WILDCARD;
|
|
|
|
/* Slurm PMI provides the job id as an integer followed
|
|
* by a '.', followed by essentially a stepid. The first integer
|
|
* defines an overall job number. The second integer is the number of
|
|
* individual jobs we have run within that allocation.
|
|
*/
|
|
OBJ_CONSTRUCT(&kv, opal_value_t);
|
|
kv.key = strdup(OPAL_PMIX_JOBID);
|
|
kv.type = OPAL_UINT32;
|
|
kv.data.uint32 = s2_pname.jobid;
|
|
if (OPAL_SUCCESS != (ret = opal_pmix_base_store(&wildcard_rank, &kv))) {
|
|
OPAL_ERROR_LOG(ret);
|
|
OBJ_DESTRUCT(&kv);
|
|
goto err_exit;
|
|
}
|
|
OBJ_DESTRUCT(&kv); // frees pmix_kvs_name
|
|
|
|
/* save the job size */
|
|
OBJ_CONSTRUCT(&kv, opal_value_t);
|
|
kv.key = strdup(OPAL_PMIX_JOB_SIZE);
|
|
kv.type = OPAL_UINT32;
|
|
kv.data.uint32 = size;
|
|
if (OPAL_SUCCESS != (ret = opal_pmix_base_store(&wildcard_rank, &kv))) {
|
|
OPAL_ERROR_LOG(ret);
|
|
OBJ_DESTRUCT(&kv);
|
|
goto err_exit;
|
|
}
|
|
OBJ_DESTRUCT(&kv);
|
|
|
|
/* save the appnum */
|
|
OBJ_CONSTRUCT(&kv, opal_value_t);
|
|
kv.key = strdup(OPAL_PMIX_APPNUM);
|
|
kv.type = OPAL_UINT32;
|
|
kv.data.uint32 = appnum;
|
|
if (OPAL_SUCCESS != (ret = opal_pmix_base_store(&OPAL_PROC_MY_NAME, &kv))) {
|
|
OPAL_ERROR_LOG(ret);
|
|
OBJ_DESTRUCT(&kv);
|
|
goto err_exit;
|
|
}
|
|
OBJ_DESTRUCT(&kv);
|
|
|
|
rc = PMI2_Info_GetJobAttr("universeSize", buf, 16, &found);
|
|
if( PMI2_SUCCESS != rc ) {
|
|
OPAL_PMI_ERROR(rc, "PMI_Get_universe_size");
|
|
ret = OPAL_ERR_BAD_PARAM;
|
|
goto err_exit;
|
|
}
|
|
/* save it */
|
|
OBJ_CONSTRUCT(&kv, opal_value_t);
|
|
kv.key = strdup(OPAL_PMIX_UNIV_SIZE);
|
|
kv.type = OPAL_UINT32;
|
|
kv.data.uint32 = atoi(buf);
|
|
if (OPAL_SUCCESS != (ret = opal_pmix_base_store(&wildcard_rank, &kv))) {
|
|
OPAL_ERROR_LOG(ret);
|
|
OBJ_DESTRUCT(&kv);
|
|
goto err_exit;
|
|
}
|
|
OBJ_DESTRUCT(&kv);
|
|
/* push this into the dstore for subsequent fetches */
|
|
OBJ_CONSTRUCT(&kv, opal_value_t);
|
|
kv.key = strdup(OPAL_PMIX_MAX_PROCS);
|
|
kv.type = OPAL_UINT32;
|
|
kv.data.uint32 = atoi(buf);
|
|
if (OPAL_SUCCESS != (ret = opal_pmix_base_store(&wildcard_rank, &kv))) {
|
|
OPAL_ERROR_LOG(ret);
|
|
OBJ_DESTRUCT(&kv);
|
|
goto err_exit;
|
|
}
|
|
OBJ_DESTRUCT(&kv);
|
|
|
|
char *pmapping = (char*)malloc(PMI2_MAX_VALLEN);
|
|
if( pmapping == NULL ){
|
|
ret = OPAL_ERR_OUT_OF_RESOURCE;
|
|
OPAL_ERROR_LOG(ret);
|
|
goto err_exit;
|
|
}
|
|
|
|
rc = PMI2_Info_GetJobAttr("PMI_process_mapping", pmapping, PMI2_MAX_VALLEN, &found);
|
|
if( !found || PMI2_SUCCESS != rc ) {
|
|
OPAL_PMI_ERROR(rc,"PMI2_Info_GetJobAttr");
|
|
ret = OPAL_ERR_BAD_PARAM;
|
|
goto err_exit;
|
|
}
|
|
|
|
s2_lranks = mca_common_pmi2_parse_pmap(pmapping, s2_pname.vpid, &my_node, &s2_nlranks);
|
|
if (NULL == s2_lranks) {
|
|
ret = OPAL_ERR_OUT_OF_RESOURCE;
|
|
OPAL_ERROR_LOG(ret);
|
|
goto err_exit;
|
|
}
|
|
|
|
free(pmapping);
|
|
|
|
/* save the local size */
|
|
OBJ_CONSTRUCT(&kv, opal_value_t);
|
|
kv.key = strdup(OPAL_PMIX_LOCAL_SIZE);
|
|
kv.type = OPAL_UINT32;
|
|
kv.data.uint32 = s2_nlranks;
|
|
if (OPAL_SUCCESS != (ret = opal_pmix_base_store(&wildcard_rank, &kv))) {
|
|
OPAL_ERROR_LOG(ret);
|
|
OBJ_DESTRUCT(&kv);
|
|
goto err_exit;
|
|
}
|
|
OBJ_DESTRUCT(&kv);
|
|
|
|
s2_lrank = 0;
|
|
s2_nrank = 0;
|
|
ldr.vpid = rank;
|
|
localranks = NULL;
|
|
if (0 < s2_nlranks && NULL != s2_lranks) {
|
|
/* note the local ldr */
|
|
ldr.vpid = s2_lranks[0];
|
|
/* find ourselves */
|
|
ldr.jobid = s2_pname.jobid;
|
|
ldr.vpid = s2_pname.vpid;
|
|
memset(nmtmp, 0, 64);
|
|
for (i=0; i < s2_nlranks; i++) {
|
|
(void)snprintf(nmtmp, 64, "%d", s2_lranks[i]);
|
|
opal_argv_append_nosize(&localranks, nmtmp);
|
|
if (s2_rank == s2_lranks[i]) {
|
|
s2_lrank = i;
|
|
s2_nrank = i;
|
|
}
|
|
}
|
|
str = opal_argv_join(localranks, ',');
|
|
opal_argv_free(localranks);
|
|
OBJ_CONSTRUCT(&kv, opal_value_t);
|
|
kv.key = strdup(OPAL_PMIX_LOCAL_PEERS);
|
|
kv.type = OPAL_STRING;
|
|
kv.data.string = str;
|
|
if (OPAL_SUCCESS != (ret = opal_pmix_base_store(&wildcard_rank, &kv))) {
|
|
OPAL_ERROR_LOG(ret);
|
|
OBJ_DESTRUCT(&kv);
|
|
goto err_exit;
|
|
}
|
|
OBJ_DESTRUCT(&kv);
|
|
}
|
|
|
|
/* save the local leader */
|
|
OBJ_CONSTRUCT(&kv, opal_value_t);
|
|
kv.key = strdup(OPAL_PMIX_LOCALLDR);
|
|
kv.type = OPAL_UINT64;
|
|
kv.data.uint64 = *(uint64_t*)&ldr;
|
|
if (OPAL_SUCCESS != (ret = opal_pmix_base_store(&wildcard_rank, &kv))) {
|
|
OPAL_ERROR_LOG(ret);
|
|
OBJ_DESTRUCT(&kv);
|
|
goto err_exit;
|
|
}
|
|
OBJ_DESTRUCT(&kv);
|
|
/* save our local rank */
|
|
OBJ_CONSTRUCT(&kv, opal_value_t);
|
|
kv.key = strdup(OPAL_PMIX_LOCAL_RANK);
|
|
kv.type = OPAL_UINT16;
|
|
kv.data.uint16 = s2_lrank;
|
|
if (OPAL_SUCCESS != (ret = opal_pmix_base_store(&OPAL_PROC_MY_NAME, &kv))) {
|
|
OPAL_ERROR_LOG(ret);
|
|
OBJ_DESTRUCT(&kv);
|
|
goto err_exit;
|
|
}
|
|
OBJ_DESTRUCT(&kv);
|
|
/* and our node rank */
|
|
OBJ_CONSTRUCT(&kv, opal_value_t);
|
|
kv.key = strdup(OPAL_PMIX_NODE_RANK);
|
|
kv.type = OPAL_UINT16;
|
|
kv.data.uint16 = s2_nrank;
|
|
if (OPAL_SUCCESS != (ret = opal_pmix_base_store(&OPAL_PROC_MY_NAME, &kv))) {
|
|
OPAL_ERROR_LOG(ret);
|
|
OBJ_DESTRUCT(&kv);
|
|
goto err_exit;
|
|
}
|
|
OBJ_DESTRUCT(&kv);
|
|
|
|
/* increment the init count */
|
|
++pmix_init_count;
|
|
|
|
return OPAL_SUCCESS;
|
|
err_exit:
|
|
PMI2_Finalize();
|
|
return ret;
|
|
}
|
|
|
|
static int s2_fini(void) {
|
|
if (0 == pmix_init_count) {
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
if (0 == --pmix_init_count) {
|
|
PMI2_Finalize();
|
|
if (NULL != pmix_kvs_name) {
|
|
free(pmix_kvs_name);
|
|
pmix_kvs_name = NULL;
|
|
}
|
|
if (NULL != s2_lranks) {
|
|
free(s2_lranks);
|
|
}
|
|
}
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
static int s2_initialized(void)
|
|
{
|
|
if (0 < pmix_init_count) {
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int s2_abort(int flag, const char msg[],
|
|
opal_list_t *procs)
|
|
{
|
|
PMI2_Abort(flag, msg);
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
static int s2_spawn(opal_list_t *jobinfo, opal_list_t *apps, opal_jobid_t *jobid)
|
|
{
|
|
/*
|
|
int rc;
|
|
size_t preput_vector_size;
|
|
const int info_keyval_sizes[1];
|
|
info_keyval_sizes[0] = (int)opal_list_get_size(info_keyval_vector);
|
|
//FIXME what's the size of array of lists?
|
|
preput_vector_size = opal_list_get_size(preput_keyval_vector);
|
|
rc = PMI2_Job_Spawn(count, cmds, argcs, argvs, maxprocs, info_keyval_sizes, info_keyval_vector, (int)preput_vector_size, preput_keyval_vector, jobId, jobIdSize, errors);
|
|
if( PMI2_SUCCESS != rc ) {
|
|
OPAL_PMI_ERROR(rc, "PMI2_Job_Spawn");
|
|
return OPAL_ERROR;
|
|
}*/
|
|
return OPAL_ERR_NOT_IMPLEMENTED;
|
|
}
|
|
|
|
static int s2_job_connect(opal_list_t *procs)
|
|
{
|
|
int rc;
|
|
PMI2_Connect_comm_t conn;
|
|
opal_namelist_t *nm;
|
|
char *jobid;
|
|
|
|
if (NULL == procs || 1 < opal_list_get_size(procs)) {
|
|
return OPAL_ERR_NOT_SUPPORTED;
|
|
}
|
|
nm = (opal_namelist_t*)opal_list_get_first(procs);
|
|
(void)asprintf(&jobid, "%s", OPAL_JOBID_PRINT(nm->name.jobid));
|
|
|
|
/*FIXME should change function prototype to add void* conn */
|
|
rc = PMI2_Job_Connect(jobid, &conn);
|
|
if( PMI2_SUCCESS != rc ){
|
|
OPAL_PMI_ERROR(rc, "PMI2_Job_Connect");
|
|
free(jobid);
|
|
return OPAL_ERROR;
|
|
}
|
|
free(jobid);
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
static int s2_job_disconnect(opal_list_t *procs)
|
|
{
|
|
int rc;
|
|
opal_namelist_t *nm;
|
|
char *jobid;
|
|
|
|
if (NULL == procs || 1 < opal_list_get_size(procs)) {
|
|
return OPAL_ERR_NOT_SUPPORTED;
|
|
}
|
|
nm = (opal_namelist_t*)opal_list_get_first(procs);
|
|
(void)asprintf(&jobid, "%s", OPAL_JOBID_PRINT(nm->name.jobid));
|
|
|
|
rc = PMI2_Job_Disconnect(jobid);
|
|
if( PMI2_SUCCESS != rc ){
|
|
OPAL_PMI_ERROR(rc, "PMI2_Job_Disconnect");
|
|
free(jobid);
|
|
return OPAL_ERROR;
|
|
}
|
|
free(jobid);
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
static int s2_put(opal_pmix_scope_t scope,
|
|
opal_value_t *kv)
|
|
{
|
|
int rc;
|
|
|
|
opal_output_verbose(2, opal_pmix_base_framework.framework_output,
|
|
"%s pmix:s2 put for key %s",
|
|
OPAL_NAME_PRINT(OPAL_PROC_MY_NAME), kv->key);
|
|
|
|
if (OPAL_SUCCESS != (rc = opal_pmix_base_store_encoded (kv->key, (void*)&kv->data, kv->type, &pmix_packed_data, &pmix_packed_data_offset))) {
|
|
OPAL_ERROR_LOG(rc);
|
|
return rc;
|
|
}
|
|
|
|
if (pmix_packed_data_offset == 0) {
|
|
/* nothing to write */
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
if (((pmix_packed_data_offset/3)*4) + pmix_packed_encoded_data_offset < pmix_vallen_max) {
|
|
/* this meta-key is still being filled,
|
|
* nothing to put yet
|
|
*/
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
rc = opal_pmix_base_partial_commit_packed (&pmix_packed_data, &pmix_packed_data_offset,
|
|
&pmix_packed_encoded_data, &pmix_packed_encoded_data_offset,
|
|
pmix_vallen_max, &pmix_pack_key, kvs_put);
|
|
|
|
return rc;
|
|
}
|
|
|
|
static int s2_commit(void)
|
|
{
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
static void fencenb(int sd, short args, void *cbdata)
|
|
{
|
|
pmi_opcaddy_t *op = (pmi_opcaddy_t*)cbdata;
|
|
int rc = OPAL_SUCCESS;
|
|
int32_t i;
|
|
opal_value_t *kp, kvn;
|
|
opal_hwloc_locality_t locality;
|
|
opal_process_name_t pname;
|
|
|
|
opal_output_verbose(2, opal_pmix_base_framework.framework_output,
|
|
"%s pmix:s2 called fence",
|
|
OPAL_NAME_PRINT(OPAL_PROC_MY_NAME));
|
|
|
|
/* check if there is partially filled meta key and put them */
|
|
opal_pmix_base_commit_packed (&pmix_packed_data, &pmix_packed_data_offset,
|
|
&pmix_packed_encoded_data, &pmix_packed_encoded_data_offset,
|
|
pmix_vallen_max, &pmix_pack_key, kvs_put);
|
|
|
|
/* now call fence */
|
|
if (PMI2_SUCCESS != PMI2_KVS_Fence()) {
|
|
rc = OPAL_ERROR;
|
|
goto cleanup;
|
|
}
|
|
|
|
/* get the modex data from each local process and set the
|
|
* localities to avoid having the MPI layer fetch data
|
|
* for every process in the job */
|
|
pname.jobid = OPAL_PROC_MY_NAME.jobid;
|
|
if (!got_modex_data) {
|
|
got_modex_data = true;
|
|
/* we only need to set locality for each local rank as "not found"
|
|
* equates to "non-local" */
|
|
for (i=0; i < s2_nlranks; i++) {
|
|
pname.vpid = s2_lranks[i];
|
|
rc = opal_pmix_base_cache_keys_locally(&s2_pname, OPAL_PMIX_CPUSET,
|
|
&kp, pmix_kvs_name, pmix_vallen_max, kvs_get);
|
|
if (OPAL_SUCCESS != rc) {
|
|
OPAL_ERROR_LOG(rc);
|
|
goto cleanup;
|
|
}
|
|
if (NULL == kp || NULL == kp->data.string) {
|
|
/* if we share a node, but we don't know anything more, then
|
|
* mark us as on the node as this is all we know
|
|
*/
|
|
locality = OPAL_PROC_ON_CLUSTER | OPAL_PROC_ON_CU | OPAL_PROC_ON_NODE;
|
|
} else {
|
|
/* determine relative location on our node */
|
|
locality = opal_hwloc_base_get_relative_locality(opal_hwloc_topology,
|
|
opal_process_info.cpuset,
|
|
kp->data.string);
|
|
}
|
|
if (NULL != kp) {
|
|
OBJ_RELEASE(kp);
|
|
}
|
|
OPAL_OUTPUT_VERBOSE((1, opal_pmix_base_framework.framework_output,
|
|
"%s pmix:s2 proc %s locality %s",
|
|
OPAL_NAME_PRINT(OPAL_PROC_MY_NAME),
|
|
OPAL_NAME_PRINT(s2_pname),
|
|
opal_hwloc_base_print_locality(locality)));
|
|
|
|
OBJ_CONSTRUCT(&kvn, opal_value_t);
|
|
kvn.key = strdup(OPAL_PMIX_LOCALITY);
|
|
kvn.type = OPAL_UINT16;
|
|
kvn.data.uint16 = locality;
|
|
opal_pmix_base_store(&pname, &kvn);
|
|
OBJ_DESTRUCT(&kvn);
|
|
}
|
|
}
|
|
|
|
cleanup:
|
|
if (NULL != op->opcbfunc) {
|
|
op->opcbfunc(rc, op->cbdata);
|
|
}
|
|
OBJ_RELEASE(op);
|
|
return;
|
|
}
|
|
|
|
static int s2_fencenb(opal_list_t *procs, int collect_data,
|
|
opal_pmix_op_cbfunc_t cbfunc, void *cbdata)
|
|
{
|
|
pmi_opcaddy_t *op;
|
|
|
|
/* thread-shift this so we don't block in SLURM's barrier */
|
|
op = OBJ_NEW(pmi_opcaddy_t);
|
|
op->opcbfunc = cbfunc;
|
|
op->cbdata = cbdata;
|
|
event_assign(&op->ev, opal_pmix_base.evbase, -1,
|
|
EV_WRITE, fencenb, op);
|
|
event_active(&op->ev, EV_WRITE, 1);
|
|
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
#define S2_WAIT_FOR_COMPLETION(a) \
|
|
do { \
|
|
while ((a)) { \
|
|
usleep(10); \
|
|
} \
|
|
} while (0)
|
|
|
|
struct fence_result {
|
|
volatile int flag;
|
|
int status;
|
|
};
|
|
|
|
static void fence_release(int status, void *cbdata)
|
|
{
|
|
struct fence_result *res = (struct fence_result*)cbdata;
|
|
res->status = status;
|
|
opal_atomic_wmb();
|
|
res->flag = 0;
|
|
}
|
|
|
|
static int s2_fence(opal_list_t *procs, int collect_data)
|
|
{
|
|
struct fence_result result = { 1, OPAL_SUCCESS };
|
|
s2_fencenb(procs, collect_data, fence_release, (void*)&result);
|
|
S2_WAIT_FOR_COMPLETION(result.flag);
|
|
return result.status;
|
|
}
|
|
|
|
|
|
static int s2_get(const opal_process_name_t *id,
|
|
const char *key, opal_list_t *info,
|
|
opal_value_t **kv)
|
|
{
|
|
int rc;
|
|
rc = opal_pmix_base_cache_keys_locally(id, key, kv, pmix_kvs_name, pmix_vallen_max, kvs_get);
|
|
return rc;
|
|
}
|
|
|
|
static int s2_publish(opal_list_t *info)
|
|
{
|
|
#if 0
|
|
int rc;
|
|
|
|
if (PMI2_SUCCESS != (rc = PMI2_Nameserv_publish(service_name, NULL, port))) {
|
|
OPAL_PMI_ERROR(rc, "PMI2_Nameserv_publish");
|
|
return OPAL_ERROR;
|
|
}
|
|
#endif
|
|
return OPAL_ERR_NOT_IMPLEMENTED;
|
|
}
|
|
|
|
static int s2_lookup(opal_list_t *data, opal_list_t *info)
|
|
{
|
|
#if 0
|
|
int rc;
|
|
|
|
if (PMI2_SUCCESS != (rc = PMI2_Nameserv_lookup(service_name, NULL, port, portLen))) {
|
|
OPAL_PMI_ERROR(rc, "PMI2_Nameserv_lookup");
|
|
return OPAL_ERROR;
|
|
}
|
|
|
|
#endif
|
|
return OPAL_ERR_NOT_IMPLEMENTED;
|
|
}
|
|
|
|
static int s2_unpublish(char **keys, opal_list_t *info)
|
|
{
|
|
#if 0
|
|
int rc;
|
|
|
|
if (PMI2_SUCCESS != (rc = PMI2_Nameserv_unpublish(service_name, NULL))) {
|
|
OPAL_PMI_ERROR(rc, "PMI2_Nameserv_unpublish");
|
|
return OPAL_ERROR;
|
|
}
|
|
#endif
|
|
return OPAL_ERR_NOT_IMPLEMENTED;
|
|
}
|
|
|
|
static int s2_store_local(const opal_process_name_t *proc,
|
|
opal_value_t *val)
|
|
{
|
|
opal_pmix_base_store(proc, val);
|
|
|
|
return OPAL_SUCCESS;
|
|
}
|
|
|
|
static const char *s2_get_nspace(opal_jobid_t jobid)
|
|
{
|
|
return "N/A";
|
|
}
|
|
static void s2_register_jobid(opal_jobid_t jobid, const char *nspace)
|
|
{
|
|
return;
|
|
}
|
|
|
|
static char* pmix_error(int pmix_err)
|
|
{
|
|
char * err_msg;
|
|
|
|
switch(pmix_err) {
|
|
case PMI2_FAIL: err_msg = "Operation failed"; break;
|
|
case PMI2_ERR_INIT: err_msg = "PMI is not initialized"; break;
|
|
case PMI2_ERR_NOMEM: err_msg = "Input buffer not large enough"; break;
|
|
case PMI2_ERR_INVALID_ARG: err_msg = "Invalid argument"; break;
|
|
case PMI2_ERR_INVALID_KEY: err_msg = "Invalid key argument"; break;
|
|
case PMI2_ERR_INVALID_KEY_LENGTH: err_msg = "Invalid key length argument"; break;
|
|
case PMI2_ERR_INVALID_VAL: err_msg = "Invalid value argument"; break;
|
|
case PMI2_ERR_INVALID_VAL_LENGTH: err_msg = "Invalid value length argument"; break;
|
|
case PMI2_ERR_INVALID_LENGTH: err_msg = "Invalid length argument"; break;
|
|
case PMI2_ERR_INVALID_NUM_ARGS: err_msg = "Invalid number of arguments"; break;
|
|
case PMI2_ERR_INVALID_ARGS: err_msg = "Invalid args argument"; break;
|
|
case PMI2_ERR_INVALID_NUM_PARSED: err_msg = "Invalid num_parsed length argument"; break;
|
|
case PMI2_ERR_INVALID_KEYVALP: err_msg = "Invalid keyvalp argument"; break;
|
|
case PMI2_ERR_INVALID_SIZE: err_msg = "Invalid size argument"; break;
|
|
case PMI2_SUCCESS: err_msg = "Success"; break;
|
|
default: err_msg = "Unkown error";
|
|
}
|
|
return err_msg;
|
|
}
|