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