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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
/* status.c: functions for printing fancy status messages in rc */
#include "rc.h"
#include "sigmsgs.h"
#include "statval.h"
#include "wait.h"
/* status == the wait() value of the last command in the pipeline, or the last command */
static int statuses[512];
static int pipelength = 1;
/*
Test to see if rc's status is true. According to td, status is true
if and only if every pipe-member has an exit status of zero.
*/
extern int istrue() {
int i;
for (i = 0; i < pipelength; i++)
if (statuses[i] != 0)
return FALSE;
return TRUE;
}
/*
Return the status as an integer. A status which has low-bits set is
a signal number, whereas a status with high bits set is a value set
from exit(). The presence of a signal just sets status to 1. Also,
a pipeline with nonzero exit statuses in it just sets status to 1.
*/
extern int getstatus() {
int s;
if (pipelength > 1)
return !istrue();
s = statuses[0];
if (WIFSIGNALED(s))
return 1;
return WEXITSTATUS(s);
}
extern void set(bool code) {
setstatus(-1, code ? STATUS0 : STATUS1);
}
/* take a pipeline and store the exit statuses. Check to see whether any of the children dumped core */
extern void setpipestatus(int stats[], int num) {
int i;
for (i = 0; i < (pipelength = num); i++) {
statprint(-1, stats[i]);
statuses[i] = stats[i];
}
}
/* set a simple status, as opposed to a pipeline */
extern void setstatus(pid_t pid, int i) {
pipelength = 1;
statuses[0] = i;
statprint(pid, i);
}
/* print a message if termination was with a signal, and if the child dumped core. exit on error if -e is set */
extern void statprint(pid_t pid, int i) {
if (WIFSIGNALED(i)) {
int t = WTERMSIG(i);
char *msg = ((t > 0) && (t < NUMOFSIGNALS) ? signals[WTERMSIG(i)].msg : "");
if (pid != -1)
fprint(2, "%ld: ", (long)pid);
if (myWIFDUMPED(i)) {
if (*msg == '\0')
fprint(2, "core dumped\n");
else
fprint(2, "%s--core dumped\n", msg);
} else if (*msg != '\0')
fprint(2, "%s\n", msg);
}
if (i != 0 && dashee && !cond)
rc_exit(getstatus());
}
/* prepare a list to be passed back. Used whenever $status is dereferenced */
extern List *sgetstatus() {
List *r = NULL;
int i;
for (i = 0; i < pipelength; i++) {
List *q = nnew(List);
q->w = strstatus(statuses[i]);
q->m = NULL;
q->n = r;
r = q;
}
return r;
}
/* return status as a string (used above and for bqstatus) */
extern char *strstatus(int s) {
if (WIFSIGNALED(s)) {
int t = WTERMSIG(s);
const char *core = myWIFDUMPED(s) ? "+core" : "";
if ((t > 0) && (t < NUMOFSIGNALS) && *signals[t].name != '\0')
return nprint("%s%s", signals[t].name, core);
else
return nprint("-%d%s", t, core); /* unknown signals are negated */
} else
return nprint("%d", WEXITSTATUS(s));
}
extern void ssetstatus(char **av) {
int i, j, k, l;
bool found;
for (l = 0; av[l] != NULL; l++)
; /* count up array length */
--l;
for (i = 0; av[i] != NULL; i++) {
j = a2u(av[i]);
if (j >= 0) {
statuses[l - i] = j << 8;
continue;
}
found = FALSE;
for (k = 0; k < NUMOFSIGNALS; k++) {
if (streq(signals[k].name, av[i])) {
statuses[l - i] = k;
found = TRUE;
break;
}
else {
size_t len = strlen(signals[k].name);
if (strncmp(signals[k].name, av[i], len) == 0 && streq(av[i] + len, "+core")) {
statuses[l - i] = k + 0x80;
found = TRUE;
break;
}
}
}
if (!found) {
fprint(2, "bad status\n");
set(FALSE);
return;
}
}
pipelength = i;
}
|
