xref: /csrg-svn/usr.bin/pascal/libpc/TEOF.c (revision 1708)
1*1708Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1708Smckusick 
3*1708Smckusick static char sccsid[] = "@(#)TEOF.c 1.1 10/30/80";
4*1708Smckusick 
5*1708Smckusick #include "h00vars.h"
6*1708Smckusick #include "h01errs.h"
7*1708Smckusick 
8*1708Smckusick TEOF(filep)
9*1708Smckusick 
10*1708Smckusick 	register struct iorec	*filep;
11*1708Smckusick {
12*1708Smckusick 	if (filep->fblk >= MAXFILES || _actfile[filep->fblk] != filep) {
13*1708Smckusick 		ERROR(ENOFILE, 0);
14*1708Smckusick 		return;
15*1708Smckusick 	}
16*1708Smckusick 	if (filep->funit & EOFF)
17*1708Smckusick 		return TRUE;
18*1708Smckusick 	IOSYNC(filep);
19*1708Smckusick 	if (filep->funit & EOFF)
20*1708Smckusick 		return TRUE;
21*1708Smckusick 	return FALSE;
22*1708Smckusick }
23