Return to sysrw.c CVS log

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

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

1.1     ! root        1: /*
        !             2: /   sysrw - rewind file
        !             3: */
        !             4: 
        !             5: #include "osint.h"
        !             6: #include "spitblks.h"
        !             7: #include "spitio.h"
        !             8: 
        !             9: sysrw()
        !            10: {
        !            11:        register struct fcblk *fcb = WA (struct fcblk *);
        !            12:        register struct ioblk *iob = fcb->iob;
        !            13: 
        !            14:        /* ensure the file is open */
        !            15:        if ( osopen( iob ) != 0)
        !            16:                return EXIT_1;
        !            17: 
        !            18:         /* can't rewind a pipe */
        !            19:        if ( (iob->flg & IO_PIP)  ||  iob->fdn < 2 )
        !            20:                return EXIT_2;
        !            21: 
        !            22:        /* seek to the beginning */
        !            23:        doset( iob, 0, 0 );
        !            24: 
        !            25:        return NORMAL_RETURN;
        !            26: }
        !            27: 

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