xref: /csrg-svn/usr.bin/pascal/libpc/TEOLN.c (revision 3869)
11709Smckusick /* Copyright (c) 1979 Regents of the University of California */
21709Smckusick 
3*3869Smckusic static char sccsid[] = "@(#)TEOLN.c 1.3 06/10/81";
41709Smckusick 
51709Smckusick #include "h00vars.h"
61709Smckusick 
73036Smckusic bool
81709Smckusick TEOLN(filep)
91709Smckusick 
101709Smckusick 	register struct iorec	*filep;
111709Smckusick {
121709Smckusick 	if (filep->fblk >= MAXFILES || _actfile[filep->fblk] != filep) {
13*3869Smckusic 		ERROR("Reference to an inactive file\n", 0);
141709Smckusick 		return;
151709Smckusick 	}
161709Smckusick 	IOSYNC(filep);
171709Smckusick 	if (filep->funit & EOLN)
181709Smckusick 		return TRUE;
191709Smckusick 	return FALSE;
201709Smckusick }
21