Return to rew.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / notused

Annotation of researchv10dc/libI77/notused/rew.c, revision 1.1

1.1     ! root        1: /*     @(#)rew.c       1.2     */
        !             2: /*     3.0 SID #       1.2     */
        !             3: /*LINTLIBRARY*/
        !             4: #include <stdio.h>
        !             5: 
        !             6: extern int fflush();
        !             7: extern long lseek();
        !             8: 
        !             9: void
        !            10: rewind(iop)
        !            11: register FILE *iop;
        !            12: {
        !            13:        (void) fflush(iop);
        !            14:        (void) lseek(fileno(iop), 0L, 0);
        !            15:        iop->_cnt = 0;
        !            16:        iop->_ptr = iop->_base;
        !            17:        iop->_flag &= ~(_IOERR | _IOEOF);
        !            18:        if(iop->_flag & _IORW)
        !            19:                iop->_flag &= ~(_IOREAD | _IOWRT);
        !            20: }

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