2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
4 * $Id: fileGetc.c,v 1.1 1998/04/10 10:54:22 simonm Exp $
6 * hGetChar Runtime Support
18 if (feof((FILE *)fp)) {
19 ghc_errtype = ERR_EOF;
24 /* Try to read a character */
25 while ((c = getc((FILE *)fp)) == EOF && errno == EINTR)
28 if (feof((FILE *)fp)) {
29 ghc_errtype = ERR_EOF;
31 } else if (c == EOF) {