1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
/*
* Copyright 1998-1999, University of Notre Dame.
* Authors: Brian W. Barrett, Arun F. Rodrigues, Jeffrey M. Squyres,
* and Andrew Lumsdaine
*
* This file is part of XMPI
*
* You should have received a copy of the License Agreement for XMPI
* along with the software; see the file LICENSE. If not, contact
* Office of Research, University of Notre Dame, Notre Dame, IN 46556.
*
* Permission to modify the code and to distribute modified code is
* granted, provided the text of this NOTICE is retained, a notice that
* the code was modified is included with the above COPYRIGHT NOTICE and
* with the COPYRIGHT NOTICE in the LICENSE file, and that the LICENSE
* file is distributed with the modified code.
*
* LICENSOR MAKES NO REPRESENTATIONS OR WARRANTIES, EXPRESS OR IMPLIED.
* By way of example, but not limitation, Licensor MAKES NO
* REPRESENTATIONS OR WARRANTIES OF MERCHANTABILITY OR FITNESS FOR ANY
* PARTICULAR PURPOSE OR THAT THE USE OF THE LICENSED SOFTWARE COMPONENTS
* OR DOCUMENTATION WILL NOT INFRINGE ANY PATENTS, COPYRIGHTS, TRADEMARKS
* OR OTHER RIGHTS.
*
* Additional copyrights may follow.
*
* $Id: app_mgmt.c,v 1.4 1999/11/08 06:20:36 bbarrett Exp $
*
* Function: - application execution and management
*/
#include <app_mgmt.h>
#include <lam_ksignal.h>
#include <net.h>
#include <preq.h>
#include <typical.h>
/*
* public functions
*/
int app_doom();
int app_sendprocs();
/*
* app_sendprocs
*
* Function: - send GPS array to all processes in the array
* Accepts: - number of processes in GPS array
* - GPS array
* Returns: - 0 or LAMERROR
*/
int
app_sendprocs(nprocs, pgps)
int nprocs;
struct _gps *pgps;
{
struct nmsg nhead; /* network msg header */
struct _gps *p; /* ptr GPS entry */
int i; /* favourite index */
/*
* Set up the message.
*/
nhead.nh_type = 0;
nhead.nh_flags = DINT4MSG;
nhead.nh_msg = (char *) pgps;
nhead.nh_length = nprocs * sizeof(struct _gps);
/*
* Loop sending to each process.
*/
for (i = 0, p = pgps; i < nprocs; i++, p++) {
nhead.nh_node = p->gps_node;
nhead.nh_event = (- p->gps_pid) & 0xBFFFFFFF;
if (nsend(&nhead)) return(LAMERROR);
}
return(0);
}
/*
* app_doom
*
* Function: - kill running application processes
* Accepts: - GPS array length
* - application GPS array
* Returns: - 0 or ERROR
*/
int
app_doom(int app_n, struct _gps *app, int sig)
{
int i;
for (i = 0; i < app_n; i++) {
if (app[i].gps_pid == 0) {
break;
}
rpdoom(app[i].gps_node, SELECT_PID, app[i].gps_pid, sig);
}
return(0);
}
|
