Return to fullwait.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ingres / source / gutil

Annotation of 43BSD/ingres/source/gutil/fullwait.c, revision 1.1

1.1     ! root        1: # include      <useful.h>
        !             2: # include      <errno.h>
        !             3: # include      <sccs.h>
        !             4: 
        !             5: SCCSID(@(#)fullwait.c  8.3     2/8/85)
        !             6: 
        !             7: /*
        !             8: **  FULLWAIT -- performs a wait(II) primitive for a given child.
        !             9: **
        !            10: **     The wait primitive is executed as many times as needed to get
        !            11: **     termination status for a given child.  The case of an interrupt
        !            12: **     during the wait is handled.  No other children may die during
        !            13: **     the wait.  Also, the child must die "normally", that is, as the
        !            14: **     result of an exit() system call, or from an interrupt.
        !            15: **
        !            16: **     Parameters:
        !            17: **             "child" -- the pid of the child process to wait for,
        !            18: **                     returned from the fork() system call.
        !            19: **             "name" -- a character string representing the name of
        !            20: **                     the calling routine; printed on syserr's.
        !            21: **     Returns:
        !            22: **             The exit parameter of the child process.
        !            23: */
        !            24: 
        !            25: fullwait(child, name)
        !            26: int    child;
        !            27: char   *name;
        !            28: {
        !            29:        auto int        st;
        !            30:        register int    i;
        !            31:        extern int      errno;
        !            32:        register char   *n;
        !            33:        register char   *coredump;
        !            34: 
        !            35:        n = name;
        !            36: 
        !            37:        /* wait for a child to die */
        !            38:        while ((i = wait(&st)) != child)
        !            39:        {
        !            40:                /* it is not the child we want; chew on it a little more */
        !            41:                if (i != -1)
        !            42:                        syserr("%s: unexpected child: pid %d st 0%o", n, i, st);
        !            43: 
        !            44:                /* check for interrupted system call */
        !            45:                if (errno != EINTR)
        !            46:                {
        !            47:                        /* wait with no child */
        !            48:                        syserr("%s: no child", n);
        !            49:                }
        !            50:                errno = 0;
        !            51: 
        !            52:                /* dropped out from signal: reexecute the wait */
        !            53:        }
        !            54: 
        !            55:        /* check termination status */
        !            56:        i = st & I1MASK;
        !            57:        if (i > 2)
        !            58:        {
        !            59:                /* child collapsed */
        !            60:                if (i & 0200)
        !            61:                {
        !            62:                        coredump = " -- core dumped";
        !            63:                        i &= 0177;
        !            64:                }
        !            65:                else
        !            66:                {
        !            67:                        coredump = "";
        !            68:                }
        !            69:                syserr("bad status %s: stat %d%s", n, i, coredump);
        !            70:        }
        !            71: 
        !            72:        /* return exit status */
        !            73:        return (st >> 8);
        !            74: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.