1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)TEOLN.c 1.4 08/16/82"; 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 (filep->funit & FDEF)) { 14 ERROR("Reference to an inactive file\n", 0); 15 return; 16 } 17 if (filep->funit & FWRITE) { 18 ERROR("%s: eoln is undefined on files open for writing\n", 19 filep->pfname); 20 return; 21 } 22 IOSYNC(filep); 23 if (filep->funit & EOFF) { 24 ERROR("%s: eoln is undefined when eof is true\n", 25 filep->pfname); 26 return; 27 } 28 if (filep->funit & EOLN) 29 return TRUE; 30 return FALSE; 31 } 32