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