projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
date and time created 83/02/11 15:45:08 by rrh
[unix-history]
/
usr
/
src
/
usr.bin
/
f77
/
libU77
/
wait_.c
/*
char id_wait[] = "@(#)wait_.c 1.1";
*
* wait for a child to die
*
* calling sequence:
* integer wait, status, chilid
* chilid = wait(status)
* where:
* chilid will be - >0 if child process id
* - <0 if (negative of) system error code
* status will contain the exit status of the child
* (see wait(2))
*/
extern
int
errno
;
long
wait_
(
status
)
long
*
status
;
{
int
stat
;
int
chid
=
wait
(&
stat
);
if
(
chid
<
0
)
return
((
long
)(-
errno
));
*
status
= (
long
)
stat
;
return
((
long
)
chid
);
}