Commit | Line | Data |
---|---|---|
4f284fb2 | 1 | /* |
161423a6 RE |
2 | * Copyright (c) 1980 Regents of the University of California. |
3 | * All rights reserved. The Berkeley software License Agreement | |
4 | * specifies the terms and conditions for redistribution. | |
4f284fb2 | 5 | * |
95f51977 | 6 | * @(#)rewind.c 5.2 7/30/85 |
161423a6 RE |
7 | */ |
8 | ||
9 | /* | |
4f284fb2 DW |
10 | * rewind.c - f77 file rewind |
11 | */ | |
12 | ||
13 | #include "fio.h" | |
14 | ||
331ef099 DW |
15 | static char rwnd[] = "rewind"; |
16 | ||
4f284fb2 DW |
17 | f_rew(a) alist *a; |
18 | { int n; | |
19 | unit *b; | |
20 | ||
21 | lfname = NULL; | |
22 | elist = NO; | |
23 | external = YES; /* for err */ | |
24 | lunit = a->aunit; | |
25 | errflag = a->aerr; | |
331ef099 | 26 | if(not_legal(lunit)) err(errflag,F_ERUNIT,rwnd) |
4f284fb2 | 27 | b = &units[lunit]; |
afe045b5 | 28 | if(!b->ufd) return(OK); |
4f284fb2 | 29 | lfname = b->ufnm; |
331ef099 | 30 | if(!b->useek) err(errflag,F_ERNOBKSP,rwnd) |
4f284fb2 DW |
31 | b->uend = NO; |
32 | if(b->uwrt) | |
331ef099 | 33 | if(n=t_runc(b,errflag,rwnd)) return(n); |
4f284fb2 DW |
34 | rewind(b->ufd); |
35 | return(OK); | |
36 | } |