#include "config.h" | |
#include "f2c.h" | |
#include "fio.h" | |
integer | |
f_rew (alist * a) | |
{ | |
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; | |
} | |
FSEEK (b->ufd, 0, SEEK_SET); | |
b->uend = 0; | |
return (0); | |
} |