home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / 2014.11.minnie.tuhs.org.tar / minnie.tuhs.org / UnixArchive / PDP-11 / Trees / V7 / usr / src / libI77 / rewind.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-05-03  |  296 b   |  17 lines
  1. #include "fio.h"
  2. f_rew(a) alist *a;
  3. {
  4.     unit *b;
  5.     if(a->aunit>=MXUNIT || a->aunit<0) err(a->aerr,101,"rewind");
  6.     b = &units[a->aunit];
  7.     if(b->ufd == NULL) return(0);
  8.     if(!b->useek) err(a->aerr,106,"rewind")
  9.     if(b->uwrt)
  10.     {    nowreading(b);
  11.         t_runc(b);
  12.     }
  13.     rewind(b->ufd);
  14.     b->uend=0;
  15.     return(0);
  16. }
  17.