freebsd-dev/contrib/libf2c/libI77/rewind.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);
}