xref: /csrg-svn/usr.bin/pascal/libpc/TEOF.c (revision 7765)
11708Smckusick /* Copyright (c) 1979 Regents of the University of California */
21708Smckusick 
3*7765Smckusick static char sccsid[] = "@(#)TEOF.c 1.4 08/16/82";
41708Smckusick 
51708Smckusick #include "h00vars.h"
61708Smckusick 
73035Smckusic bool
81708Smckusick TEOF(filep)
91708Smckusick 
101708Smckusick 	register struct iorec	*filep;
111708Smckusick {
12*7765Smckusick 	if (filep->fblk >= MAXFILES || _actfile[filep->fblk] != filep ||
13*7765Smckusick 	    (filep->funit & FDEF)) {
143869Smckusic 		ERROR("Reference to an inactive file\n", 0);
151708Smckusick 		return;
161708Smckusick 	}
17*7765Smckusick 	if (filep->funit & (EOFF|FWRITE))
181708Smckusick 		return TRUE;
191708Smckusick 	IOSYNC(filep);
201708Smckusick 	if (filep->funit & EOFF)
211708Smckusick 		return TRUE;
221708Smckusick 	return FALSE;
231708Smckusick }
24