#include "f2c.h" | |
#include "fio.h" | |
#ifdef KR_headers | |
integer f_rew(a) alist *a; | |
#else | |
integer f_rew(alist *a) | |
#endif | |
{ | |
unit *b; | |
if (f__init & 2) | |
f__fatal (131, "I/O recursion"); | |
if(a->aunit>=MXUNIT || a->aunit<0) | |
err(a->aerr,101,"rewind"); | |
b = &f__units[a->aunit]; | |
if(b->ufd == NULL || b->uwrt == 3) | |
return(0); | |
if(!b->useek) | |
err(a->aerr,106,"rewind"); | |
if(b->uwrt) { | |
(void) t_runc(a); | |
b->uwrt = 3; | |
} | |
rewind(b->ufd); | |
b->uend=0; | |
return(0); | |
} |