21 lines
379 B
C
Executable File
21 lines
379 B
C
Executable File
#pragma ident "@(#)rew.c 1.10 92/07/20 SMI" /* from S5R2 1.2 */
|
|
|
|
/*LINTLIBRARY*/
|
|
#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);
|
|
}
|