1 /*- 2 * Copyright (c) 1979, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)TEOLN.c 8.1 (Berkeley) 06/06/93"; 10 #endif /* not lint */ 11 12 #include "h00vars.h" 13 14 bool 15 TEOLN(filep) 16 17 register struct iorec *filep; 18 { 19 if (filep->fblk >= MAXFILES || _actfile[filep->fblk] != filep || 20 (filep->funit & FDEF)) { 21 ERROR("Reference to an inactive file\n", 0); 22 return; 23 } 24 if (filep->funit & FWRITE) { 25 ERROR("%s: eoln is undefined on files open for writing\n", 26 filep->pfname); 27 return; 28 } 29 IOSYNC(filep); 30 if (filep->funit & EOFF) { 31 ERROR("%s: eoln is undefined when eof is true\n", 32 filep->pfname); 33 return; 34 } 35 if (filep->funit & EOLN) 36 return TRUE; 37 return FALSE; 38 } 39