date and time created 81/02/19 18:13:45 by dlw

[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);
}