12500Sdlw /* 223086Skre * Copyright (c) 1980 Regents of the University of California. 323086Skre * All rights reserved. The Berkeley software License Agreement 423086Skre * specifies the terms and conditions for redistribution. 52500Sdlw * 6*24094Sjerry * @(#)rewind.c 5.2 07/30/85 723086Skre */ 823086Skre 923086Skre /* 102500Sdlw * rewind.c - f77 file rewind 112500Sdlw */ 122500Sdlw 132500Sdlw #include "fio.h" 142500Sdlw 1514827Sdlw static char rwnd[] = "rewind"; 1614827Sdlw 172500Sdlw f_rew(a) alist *a; 182500Sdlw { int n; 192500Sdlw unit *b; 202500Sdlw 212500Sdlw lfname = NULL; 222500Sdlw elist = NO; 232500Sdlw external = YES; /* for err */ 242500Sdlw lunit = a->aunit; 252500Sdlw errflag = a->aerr; 2614827Sdlw if(not_legal(lunit)) err(errflag,F_ERUNIT,rwnd) 272500Sdlw b = &units[lunit]; 28*24094Sjerry if(!b->ufd) return(OK); 292500Sdlw lfname = b->ufnm; 3014827Sdlw if(!b->useek) err(errflag,F_ERNOBKSP,rwnd) 312500Sdlw b->uend = NO; 322500Sdlw if(b->uwrt) 3314827Sdlw if(n=t_runc(b,errflag,rwnd)) return(n); 342500Sdlw rewind(b->ufd); 352500Sdlw return(OK); 362500Sdlw } 37