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