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