Return to sysrw.c CVS log

Up to [Research Unix] / researchv10dc / cmd / spitbol / ocint

Annotation of researchv10dc/cmd/spitbol/ocint/sysrw.c, revision 1.1

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

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