xref: /csrg-svn/usr.bin/pascal/libpc/TEOLN.c (revision 3036)
11709Smckusick /* Copyright (c) 1979 Regents of the University of California */
21709Smckusick 
3*3036Smckusic static char sccsid[] = "@(#)TEOLN.c 1.2 03/07/81";
41709Smckusick 
51709Smckusick #include "h00vars.h"
61709Smckusick #include "h01errs.h"
71709Smckusick 
8*3036Smckusic bool
91709Smckusick TEOLN(filep)
101709Smckusick 
111709Smckusick 	register struct iorec	*filep;
121709Smckusick {
131709Smckusick 	if (filep->fblk >= MAXFILES || _actfile[filep->fblk] != filep) {
141709Smckusick 		ERROR(ENOFILE, 0);
151709Smckusick 		return;
161709Smckusick 	}
171709Smckusick 	IOSYNC(filep);
181709Smckusick 	if (filep->funit & EOLN)
191709Smckusick 		return TRUE;
201709Smckusick 	return FALSE;
211709Smckusick }
22