freebsd-skq/contrib/libf2c/libI77/rewind.c

26 lines
490 B
C

#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);
}