Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
rewind.c
Go to the documentation of this file.00001 #include "f2c.h"
00002 #include "fio.h"
00003 #ifdef KR_headers
00004 integer f_rew(a) alist *a;
00005 #else
00006 integer f_rew(alist *a)
00007 #endif
00008 {
00009 unit *b;
00010 if(a->aunit>=MXUNIT || a->aunit<0)
00011 err(a->aerr,101,"rewind");
00012 b = &f__units[a->aunit];
00013 if(b->ufd == NULL || b->uwrt == 3)
00014 return(0);
00015 if(!b->useek)
00016 err(a->aerr,106,"rewind")
00017 if(b->uwrt) {
00018 (void) t_runc(a);
00019 b->uwrt = 3;
00020 }
00021 rewind(b->ufd);
00022 b->uend=0;
00023 return(0);
00024 }