Return to osclose.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/osclose.c, revision 1.1

1.1     ! root        1: 
        !             2: 
        !             3: /*
        !             4:        osclose( ioptr ) closes the file represented by the ioblk.
        !             5:         osclose will flush an output file's buffer before closing.
        !             6: */
        !             7: 
        !             8: #include "spitblks.h"
        !             9: #include "spitio.h"
        !            10: 
        !            11: int
        !            12: osclose( ioptr )
        !            13: 
        !            14: struct ioblk   *ioptr;
        !            15: 
        !            16: {
        !            17:        register int    errcnt = 0;
        !            18: 
        !            19:        if ( !(ioptr -> flg & IO_OPN))
        !            20:                return 0;
        !            21: 
        !            22:        if ( ioptr -> flg & IO_OUP )
        !            23:                errcnt += flush( ioptr );
        !            24: 
        !            25:        if ( ioptr -> flg & IO_SYS )
        !            26:                return errcnt;
        !            27: 
        !            28:        if ( close( ioptr -> fdn ) < 0)
        !            29:                errcnt++;
        !            30:        ioptr -> flg &= ~IO_OPN;
        !            31: 
        !            32:        if ( ioptr -> flg & IO_PIP ) {
        !            33:                if ( ioptr -> flg & IO_DED )
        !            34:                        ioptr -> flg &= ~IO_DED;
        !            35:                else if ( ioptr -> flg & IO_INP ) {
        !            36:                        kill( ioptr -> pid );
        !            37:                        oswait( ioptr -> pid);
        !            38:                } else oswait( ioptr -> pid );
        !            39:        }
        !            40: 
        !            41:        return errcnt;
        !            42: }
        !            43: 
        !            44: 

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