68 строки
1.6 KiB
C
68 строки
1.6 KiB
C
/* -*- C -*-
|
|
*
|
|
* $HEADER$
|
|
*
|
|
* The most basic of applications
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include "orte/constants.h"
|
|
|
|
#include <sys/sysctl.h>
|
|
|
|
#include "opal/mca/sysinfo/sysinfo.h"
|
|
#include "opal/mca/sysinfo/base/base.h"
|
|
|
|
#include "orte/runtime/runtime.h"
|
|
|
|
int main(int argc, char* argv[])
|
|
{
|
|
char *keys[] = {
|
|
OPAL_SYSINFO_CPU_TYPE,
|
|
OPAL_SYSINFO_CPU_MODEL,
|
|
OPAL_SYSINFO_NUM_CPUS,
|
|
OPAL_SYSINFO_MEM_SIZE,
|
|
NULL
|
|
};
|
|
opal_list_t values;
|
|
opal_sysinfo_value_t *info;
|
|
opal_list_item_t *item;
|
|
char *model;
|
|
|
|
if (ORTE_SUCCESS != orte_init(&argc, &argv, ORTE_PROC_NON_MPI)) {
|
|
fprintf(stderr, "Failed orte_init\n");
|
|
exit(1);
|
|
}
|
|
|
|
OBJ_CONSTRUCT(&values, opal_list_t);
|
|
|
|
opal_sysinfo_base_open();
|
|
opal_sysinfo_base_select();
|
|
|
|
opal_sysinfo.query(keys, &values);
|
|
|
|
while (NULL != (item = opal_list_remove_first(&values))) {
|
|
info = (opal_sysinfo_value_t*)item;
|
|
fprintf(stderr, "Key: %s Value: ", info->key);
|
|
if (OPAL_INT64 == info->type) {
|
|
fprintf(stderr, "%ld\n", (long int)info->data.i64);
|
|
} else if (OPAL_STRING == info->type) {
|
|
fprintf(stderr, "%s\n", info->data.str);
|
|
}
|
|
OBJ_RELEASE(info);
|
|
}
|
|
|
|
OBJ_DESTRUCT(&values);
|
|
|
|
opal_sysinfo_base_close();
|
|
|
|
model = getenv("OMPI_MCA_cpu_model");
|
|
fprintf(stderr, "Envar cpu_model: %s\n", (NULL == model) ? "NULL" : model);
|
|
|
|
if (ORTE_SUCCESS != orte_finalize()) {
|
|
fprintf(stderr, "Failed orte_finalize\n");
|
|
exit(1);
|
|
}
|
|
return 0;
|
|
}
|