P8000/WEGA/contrib/lcc/lib/libc/port/stdio/rew.c

18 lines
297 B
C

#include <stdio.h>
extern int fflush();
extern long lseek();
void
rewind(iop)
register FILE *iop;
{
(void) fflush(iop);
(void) lseek(fileno(iop), 0L, 0);
iop->_cnt = 0;
iop->_ptr = iop->_base;
iop->_flag &= ~(_IOERR | _IOEOF);
if(iop->_flag & _IORW)
iop->_flag &= ~(_IOREAD | _IOWRT);
}