2005-10-02 18:57:44 +04:00
|
|
|
/* -*- C -*-
|
2006-06-08 22:27:17 +04:00
|
|
|
*
|
2007-03-17 02:11:45 +03:00
|
|
|
* Copyright (c) 2004-2007 The Trustees of Indiana University and Indiana
|
2005-11-05 22:57:48 +03:00
|
|
|
* University Research and Technology
|
|
|
|
* Corporation. All rights reserved.
|
2006-08-23 07:32:36 +04:00
|
|
|
* Copyright (c) 2004-2006 The University of Tennessee and The University
|
2005-11-05 22:57:48 +03:00
|
|
|
* of Tennessee Research Foundation. All rights
|
|
|
|
* reserved.
|
2006-06-08 22:27:17 +04:00
|
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
2005-10-02 18:57:44 +04:00
|
|
|
* University of Stuttgart. All rights reserved.
|
|
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
|
|
* All rights reserved.
|
|
|
|
* $COPYRIGHT$
|
2006-06-08 22:27:17 +04:00
|
|
|
*
|
2005-10-02 18:57:44 +04:00
|
|
|
* Additional copyrights may follow
|
2006-06-08 22:27:17 +04:00
|
|
|
*
|
2005-10-02 18:57:44 +04:00
|
|
|
* $HEADER$
|
|
|
|
*
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
/**
|
|
|
|
* @file:
|
|
|
|
* Header file for the bproc launcher. This launcher is actually split into 2
|
|
|
|
* modules: pls_bproc & pls_bproc_orted. The general idea behind this launcher is:
|
2006-06-08 22:27:17 +04:00
|
|
|
* -# pls_bproc is called by orterun. It figures out the process mapping and
|
2005-10-02 18:57:44 +04:00
|
|
|
* launches orted's on the nodes
|
|
|
|
* -# pls_bproc_orted is called by orted. This module intializes either a pty or
|
|
|
|
* pipes, places symlinks to them in well know points of the filesystem, and
|
|
|
|
* sets up the io forwarding. It then sends an ack back to orterun.
|
|
|
|
* -# pls_bproc waits for an ack to come back from the orteds, then does several
|
2006-06-08 22:27:17 +04:00
|
|
|
* parallel launches of the application processes. The number of launches is
|
2005-10-02 18:57:44 +04:00
|
|
|
* equal to the maximum number of processes on a node. For example, if there
|
|
|
|
* were 2 processes assigned to node 1, and 1 process asigned to node 2, we
|
2006-06-08 22:27:17 +04:00
|
|
|
* would do a parallel launch that launches on process on each node, then
|
2005-10-02 18:57:44 +04:00
|
|
|
* another which launches another process on node 1.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#ifndef ORTE_PLS_BPROC_H_
|
|
|
|
#define ORTE_PLS_BPROC_H_
|
|
|
|
|
|
|
|
#include "orte_config.h"
|
2006-02-12 04:33:29 +03:00
|
|
|
#include "orte/orte_constants.h"
|
2006-09-15 01:29:51 +04:00
|
|
|
|
2005-10-02 18:57:44 +04:00
|
|
|
#include <sys/bproc.h>
|
2007-01-25 17:17:44 +03:00
|
|
|
#ifdef HAVE_SYS_TIME_H
|
|
|
|
#include <sys/time.h>
|
|
|
|
#endif
|
2005-10-02 18:57:44 +04:00
|
|
|
|
2006-09-15 01:29:51 +04:00
|
|
|
#include "opal/threads/condition.h"
|
|
|
|
|
|
|
|
#include "orte/class/orte_pointer_array.h"
|
|
|
|
#include "orte/util/proc_info.h"
|
|
|
|
|
|
|
|
#include "orte/mca/rml/rml_types.h"
|
|
|
|
|
|
|
|
#include "orte/mca/pls/base/base.h"
|
|
|
|
|
2005-10-02 18:57:44 +04:00
|
|
|
#if defined(c_plusplus) || defined(__cplusplus)
|
|
|
|
extern "C" {
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Module open / close
|
|
|
|
*/
|
|
|
|
int orte_pls_bproc_component_open(void);
|
|
|
|
int orte_pls_bproc_component_close(void);
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Startup / Shutdown
|
|
|
|
*/
|
|
|
|
orte_pls_base_module_t* orte_pls_bproc_init(int *priority);
|
|
|
|
int orte_pls_bproc_finalize(void);
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Interface
|
|
|
|
*/
|
|
|
|
int orte_pls_bproc_launch(orte_jobid_t);
|
2007-01-25 17:17:44 +03:00
|
|
|
int orte_pls_bproc_terminate_job(orte_jobid_t, struct timeval *timeout, opal_list_t*);
|
2005-10-02 18:57:44 +04:00
|
|
|
int orte_pls_bproc_terminate_proc(const orte_process_name_t* proc_name);
|
2007-01-25 17:17:44 +03:00
|
|
|
int orte_pls_bproc_terminate_orteds(orte_jobid_t jobid, struct timeval *timeout, opal_list_t*);
|
Bring over the update to terminate orteds that are generated by a dynamic spawn such as comm_spawn. This introduces the concept of a job "family" - i.e., jobs that have a parent/child relationship. Comm_spawn'ed jobs have a parent (the one that spawned them). We track that relationship throughout the lineage - i.e., if a comm_spawned job in turn calls comm_spawn, then it has a parent (the one that spawned it) and a "root" job (the original job that started things).
Accordingly, there are new APIs to the name service to support the ability to get a job's parent, root, immediate children, and all its descendants. In addition, the terminate_job, terminate_orted, and signal_job APIs for the PLS have been modified to accept attributes that define the extent of their actions. For example, doing a "terminate_job" with an attribute of ORTE_NS_INCLUDE_DESCENDANTS will terminate the given jobid AND all jobs that descended from it.
I have tested this capability on a MacBook under rsh, Odin under SLURM, and LANL's Flash (bproc). It worked successfully on non-MPI jobs (both simple and including a spawn), and MPI jobs (again, both simple and with a spawn).
This commit was SVN r12597.
2006-11-14 22:34:59 +03:00
|
|
|
int orte_pls_bproc_signal_job(orte_jobid_t, int32_t, opal_list_t*);
|
2006-06-08 22:27:17 +04:00
|
|
|
int orte_pls_bproc_signal_proc(const orte_process_name_t* proc_name, int32_t);
|
2007-01-25 17:17:44 +03:00
|
|
|
int orte_pls_bproc_cancel_operation(void);
|
2005-10-02 18:57:44 +04:00
|
|
|
|
2006-09-15 01:29:51 +04:00
|
|
|
/* Utility routine to get/set process pid */
|
2006-11-11 07:03:45 +03:00
|
|
|
ORTE_DECLSPEC int orte_pls_bproc_set_proc_pid(const orte_process_name_t*, pid_t, int);
|
2006-09-15 01:29:51 +04:00
|
|
|
/**
|
|
|
|
* Utility routine to retreive all process pids w/in a specified job.
|
|
|
|
*/
|
Bring over the update to terminate orteds that are generated by a dynamic spawn such as comm_spawn. This introduces the concept of a job "family" - i.e., jobs that have a parent/child relationship. Comm_spawn'ed jobs have a parent (the one that spawned them). We track that relationship throughout the lineage - i.e., if a comm_spawned job in turn calls comm_spawn, then it has a parent (the one that spawned it) and a "root" job (the original job that started things).
Accordingly, there are new APIs to the name service to support the ability to get a job's parent, root, immediate children, and all its descendants. In addition, the terminate_job, terminate_orted, and signal_job APIs for the PLS have been modified to accept attributes that define the extent of their actions. For example, doing a "terminate_job" with an attribute of ORTE_NS_INCLUDE_DESCENDANTS will terminate the given jobid AND all jobs that descended from it.
I have tested this capability on a MacBook under rsh, Odin under SLURM, and LANL's Flash (bproc). It worked successfully on non-MPI jobs (both simple and including a spawn), and MPI jobs (again, both simple and with a spawn).
This commit was SVN r12597.
2006-11-14 22:34:59 +03:00
|
|
|
ORTE_DECLSPEC int orte_pls_bproc_get_proc_pids(orte_jobid_t jobid, pid_t** pids,
|
|
|
|
orte_std_cntr_t* num_pids,
|
|
|
|
opal_list_t *attrs);
|
|
|
|
|
2006-09-15 01:29:51 +04:00
|
|
|
/**
|
|
|
|
* Utility routine to get/set daemon pid
|
|
|
|
*/
|
|
|
|
ORTE_DECLSPEC int orte_pls_bproc_set_node_pid(orte_cellid_t cellid, char* node_name, orte_jobid_t jobid, pid_t pid);
|
|
|
|
ORTE_DECLSPEC int orte_pls_bproc_get_node_pids(orte_jobid_t jobid, pid_t** pids, orte_std_cntr_t* num_pids);
|
|
|
|
|
|
|
|
/* utility functions for abort communications */
|
|
|
|
int orte_pls_bproc_comm_start(void);
|
|
|
|
int orte_pls_bproc_comm_stop(void);
|
|
|
|
void orte_pls_bproc_recv(int status, orte_process_name_t* sender,
|
|
|
|
orte_buffer_t* buffer, orte_rml_tag_t tag,
|
|
|
|
void* cbdata);
|
|
|
|
|
2005-10-02 18:57:44 +04:00
|
|
|
/**
|
|
|
|
* PLS bproc Component
|
|
|
|
*/
|
|
|
|
struct orte_pls_bproc_component_t {
|
|
|
|
orte_pls_base_component_t super;
|
|
|
|
/**< The base class */
|
2006-06-08 22:27:17 +04:00
|
|
|
char * orted;
|
2006-12-15 05:34:14 +03:00
|
|
|
/**< The orted executable. This can be an absolute path, or if not found
|
2005-10-02 18:57:44 +04:00
|
|
|
* we will look for it in the user's path */
|
|
|
|
int debug;
|
|
|
|
/**< If greater than 0 print debugging information */
|
|
|
|
int priority;
|
|
|
|
/**< The priority of this component. This will be returned if we determine
|
|
|
|
* that bproc is available and running on this node, */
|
|
|
|
int terminate_sig;
|
|
|
|
/**< The signal that gets sent to a process to kill it. */
|
|
|
|
opal_mutex_t lock;
|
|
|
|
/**< Lock used to prevent some race conditions */
|
|
|
|
opal_condition_t condition;
|
|
|
|
/**< Condition that is signaled when all the daemons have died */
|
2006-09-15 01:29:51 +04:00
|
|
|
bool recv_issued;
|
|
|
|
/**< Indicates that the comm recv for reporting abnormal proc termination
|
|
|
|
* has been issued
|
|
|
|
*/
|
2006-12-15 05:34:14 +03:00
|
|
|
bool do_not_launch;
|
|
|
|
/**< for test purposes, do everything but the actual launch */
|
|
|
|
orte_std_cntr_t num_daemons;
|
|
|
|
/**< track the number of daemons being launched so we can tell when
|
|
|
|
* all have reported in */
|
2005-10-02 18:57:44 +04:00
|
|
|
};
|
|
|
|
/**
|
|
|
|
* Convenience typedef
|
|
|
|
*/
|
|
|
|
typedef struct orte_pls_bproc_component_t orte_pls_bproc_component_t;
|
|
|
|
|
2006-08-23 07:32:36 +04:00
|
|
|
ORTE_DECLSPEC orte_pls_bproc_component_t mca_pls_bproc_component;
|
|
|
|
ORTE_DECLSPEC orte_pls_base_module_t orte_pls_bproc_module;
|
2005-10-02 18:57:44 +04:00
|
|
|
|
|
|
|
#if defined(c_plusplus) || defined(__cplusplus)
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
#endif /* ORTE_PLS_BPROC_H_ */
|
|
|
|
|