date and time created 81/02/19 18:12:05 by dlw

[unix-history] / usr / src / usr.bin / f77 / libI77 / rewind.c

/*
char id_rewind[] = "@(#)rewind.c        1.1";
*
* rewind.c  -  f77 file rewind
*/

#include "fio.h"

f_rew(a) alist *a;
{       int n;
       unit *b;

       lfname = NULL;
       elist = NO;
       external = YES;                 /* for err */
       lunit = a->aunit;
       errflag = a->aerr;
       if(not_legal(lunit)) err(errflag,101,"rewind")
       b = &units[lunit];
       if(!b->ufd && (n=fk_open(READ,SEQ,FMT,(ftnint)lunit)) )
               err(errflag,n,"rewind")
       lfname = b->ufnm;
       if(!b->useek) err(errflag,106,"rewind")
       b->uend = NO;
       if(b->uwrt)
               if(n=t_runc(b,errflag)) return(n);
       rewind(b->ufd);
       return(OK);
}