79 строки
3.1 KiB
C
79 строки
3.1 KiB
C
/*
|
|
* Copyright (c) 2004-2010 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2011 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 (c) 2006-2013 Los Alamos National Security, LLC.
|
|
* All rights reserved.
|
|
* Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
|
* Copyright (c) 2011 Oak Ridge National Labs. All rights reserved.
|
|
* Copyright (c) 2013-2016 Intel, Inc. All rights reserved.
|
|
* Copyright (c) 2015 Mellanox Technologies, Inc. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <time.h>
|
|
|
|
#include <pmix_tool.h>
|
|
|
|
int main(int argc, char **argv)
|
|
{
|
|
pmix_status_t rc;
|
|
pmix_proc_t myproc;
|
|
pmix_info_t *info;
|
|
size_t ninfo;
|
|
|
|
/* init us */
|
|
if (PMIX_SUCCESS != (rc = PMIx_tool_init(&myproc, NULL, 0))) {
|
|
fprintf(stderr, "PMIx_tool_init failed: %s\n", PMIx_Error_string(rc));
|
|
exit(rc);
|
|
}
|
|
fprintf(stderr, "Tool ns %s rank %d: Running\n", myproc.nspace, myproc.rank);
|
|
|
|
/* query something */
|
|
ninfo = 1;
|
|
PMIX_INFO_CREATE(info, ninfo);
|
|
(void)strncpy(info[0].key, PMIX_QUERY_NAMESPACES, PMIX_MAX_KEYLEN);
|
|
if (PMIX_SUCCESS != (rc = PMIx_Query_info(info, ninfo))) {
|
|
fprintf(stderr, "Tool ns %s rank %d: PMIx_Query_info failed: %d\n", myproc.nspace, myproc.rank, rc);
|
|
goto done;
|
|
}
|
|
if (0 != strncmp(info[0].key, PMIX_QUERY_NAMESPACES, PMIX_MAX_KEYLEN)) {
|
|
fprintf(stderr, "tool ns %s rank %d: PMIx_Query_info key[0] wrong: %s vs %s\n",
|
|
myproc.nspace, myproc.rank, info[0].key, PMIX_QUERY_NAMESPACES);
|
|
}
|
|
if (PMIX_STRING != info[0].value.type) {
|
|
fprintf(stderr, "Tool ns %s rank %d: PMIx_Query_info key[0] wrong type: %d vs %d\n",
|
|
myproc.nspace, myproc.rank, info[0].value.type, PMIX_STRING);
|
|
}
|
|
fprintf(stderr, "Tool ns %s rank %d: PMIx_Query_info key[0] returned %s\n",
|
|
myproc.nspace, myproc.rank,
|
|
(NULL == info[0].value.data.string) ? "NULL" : info[0].value.data.string);
|
|
PMIX_INFO_FREE(info, ninfo);
|
|
|
|
done:
|
|
/* finalize us */
|
|
fprintf(stderr, "Tool ns %s rank %d: Finalizing\n", myproc.nspace, myproc.rank);
|
|
if (PMIX_SUCCESS != (rc = PMIx_tool_finalize())) {
|
|
fprintf(stderr, "Tool ns %s rank %d:PMIx_tool_finalize failed: %d\n", myproc.nspace, myproc.rank, rc);
|
|
} else {
|
|
fprintf(stderr, "Tool ns %s rank %d:PMIx_tool_finalize successfully completed\n", myproc.nspace, myproc.rank);
|
|
}
|
|
fflush(stderr);
|
|
return(rc);
|
|
}
|