Add a new example program, update cisco platform file
This commit was SVN r23262.
Этот коммит содержится в:
родитель
2fb7c344fc
Коммит
bb602694e6
@ -1,6 +1,6 @@
|
||||
enable_heartbeat=no
|
||||
enable_multicast=yes
|
||||
enable_sensors=no
|
||||
enable_sensors=yes
|
||||
enable_opal_multi_threads=yes
|
||||
enable_ft_thread=no
|
||||
enable_mem_debug=yes
|
||||
|
@ -1,4 +1,4 @@
|
||||
PROGS = no_op sigusr_trap spin orte_nodename orte_spawn orte_loop_spawn orte_loop_child orte_abort get_limits orte_ring spawn_child orte_tool orte_no_op binom oob_stress iof_stress iof_delay radix orte_barrier orte_mcast opal_interface mcast mcast_recv orte_spin segfault sysinfo orte_exit orte_db
|
||||
PROGS = no_op sigusr_trap spin orte_nodename orte_spawn orte_loop_spawn orte_loop_child orte_abort get_limits orte_ring spawn_child orte_tool orte_no_op binom oob_stress iof_stress iof_delay radix orte_barrier orte_mcast opal_interface mcast mcast_recv orte_spin segfault sysinfo orte_exit orte_db orte_sensor
|
||||
|
||||
all: $(PROGS)
|
||||
|
||||
|
@ -44,5 +44,7 @@ EXTRA_DIST += \
|
||||
test/system/orte_spawn.c \
|
||||
test/system/sigusr_trap.c \
|
||||
test/system/spawn_child.c \
|
||||
test/system/spin.c
|
||||
test/system/spin.c \
|
||||
test/system/orte_sensor.c
|
||||
|
||||
|
||||
|
47
orte/test/system/orte_sensor.c
Обычный файл
47
orte/test/system/orte_sensor.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/* -*- C -*-
|
||||
*
|
||||
* $HEADER$
|
||||
*
|
||||
*/
|
||||
#include <stdio.h>
|
||||
#include <unistd.h>
|
||||
|
||||
#include "opal/util/output.h"
|
||||
|
||||
#include "orte/runtime/orte_globals.h"
|
||||
#include "orte/runtime/runtime.h"
|
||||
#include "orte/mca/sensor/sensor.h"
|
||||
|
||||
int main(int argc, char* argv[])
|
||||
{
|
||||
int rc;
|
||||
char hostname[512];
|
||||
pid_t pid;
|
||||
|
||||
if (0 > (rc = orte_init(&argc, &argv, ORTE_PROC_NON_MPI))) {
|
||||
fprintf(stderr, "orte_mcast: couldn't init orte - error code %d\n", rc);
|
||||
return rc;
|
||||
}
|
||||
|
||||
gethostname(hostname, 512);
|
||||
pid = getpid();
|
||||
|
||||
printf("orte_sensor: Node %s Name %s Pid %ld\n",
|
||||
hostname, ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), (long)pid);
|
||||
|
||||
/* open and select the sensor modules */
|
||||
orte_sensor_base_open();
|
||||
orte_sensor_base_select();
|
||||
|
||||
/* start the sensors - note that we cannot monitor other
|
||||
* jobs as we are an application. So pass the invalid
|
||||
* jobid so the sensor modules can know
|
||||
*/
|
||||
orte_sensor.start(ORTE_JOBID_INVALID);
|
||||
|
||||
/* just sit here, letting the sensors run */
|
||||
opal_event_dispatch();
|
||||
|
||||
orte_finalize();
|
||||
return 0;
|
||||
}
|
Загрузка…
Ссылка в новой задаче
Block a user