2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
4 * $Id: fileEOF.c,v 1.4 1999/11/25 16:54:14 simonmar Exp $
6 * hIsEOF Runtime Support
13 fileEOF(StgForeignPtr ptr)
15 IOFileObject* fo = (IOFileObject*)ptr;
17 if ( FILEOBJ_IS_EOF(fo) )
20 if (fileLookAhead(ptr) != EOF)
22 else if (ghc_errtype == ERR_EOF)