blob: 2ddc1428b9bd745c06dd282667bd212194b3af2e (
plain)
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
|
bool
do_close(stab,explicit)
STAB *stab;
bool explicit;
{
bool retval = FALSE;
register STIO *stio;
int status;
if (!stab)
stab = argvstab;
if (!stab) {
errno = EBADF;
return FALSE;
}
stio = stab_io(stab);
if (!stio) { /* never opened */
if (dowarn && explicit)
warn("Close on unopened file <%s>",stab_ename(stab));
return FALSE;
}
if (stio->ifp) {
if (stio->type == '|') {
status = mypclose(stio->ifp);
retval = (status == 0);
statusvalue = (unsigned short)status & 0xffff;
}
else if (stio->type == '-')
retval = TRUE;
else {
if (stio->ofp && stio->ofp != stio->ifp) { /* a socket */
retval = (fclose(stio->ofp) != EOF);
fclose(stio->ifp); /* clear stdio, fd already closed */
}
else
retval = (fclose(stio->ifp) != EOF);
}
stio->ofp = stio->ifp = Nullfp;
}
if (explicit)
stio->lines = 0;
stio->type = ' ';
return retval;
}
|
