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