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
|
/* status.c -- status manipulations ($Revision: 1.1.1.1 $) */
#include "es.h"
#include "term.h"
static const Term
trueterm = { "0", NULL },
falseterm = { "1", NULL };
static const List
truelist = { (Term *) &trueterm, NULL },
falselist = { (Term *) &falseterm, NULL };
List
*true = (List *) &truelist,
*false = (List *) &falselist;
/* istrue -- is this status list true? */
extern Boolean istrue(List *status) {
for (; status != NULL; status = status->next) {
Term *term = status->term;
if (term->closure != NULL)
return FALSE;
else {
const char *str = term->str;
assert(str != NULL);
if (*str != '\0' && (*str != '0' || str[1] != '\0'))
return FALSE;
}
}
return TRUE;
}
/* exitstatus -- turn a status list into an exit(2) value */
extern int exitstatus(List *status) {
Term *term;
char *s;
unsigned long n;
if (status == NULL)
return 0;
if (status->next != NULL)
return istrue(status) ? 0 : 1;
term = status->term;
if (term->closure != NULL)
return 1;
s = term->str;
if (*s == '\0')
return 0;
n = strtol(s, &s, 0);
if (*s != '\0' || n > 255)
return 1;
return n;
}
/* mkstatus -- turn a unix exit(2) status into a string */
extern char *mkstatus(int status) {
if (SIFSIGNALED(status)) {
char *name = signame(STERMSIG(status));
if (SCOREDUMP(status))
name = str("%s+core", name);
return name;
}
return str("%d", SEXITSTATUS(status));
}
/* printstatus -- print the status if we should */
extern void printstatus(int pid, int status) {
if (SIFSIGNALED(status)) {
const char *msg = sigmessage(STERMSIG(status)), *tail = "";
if (SCOREDUMP(status)) {
tail = "--core dumped";
if (*msg == '\0')
tail += (sizeof "--") - 1;
}
if (*msg != '\0' || *tail != '\0')
{
if (pid == 0)
eprint("%s%s\n", msg, tail);
else
eprint("%d: %s%s\n", pid, msg, tail);
}
}
}
|
