2 % (c) The GRASP/AQUA Project, Glasgow University, 1994
4 \subsection[fileGetc.lc]{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)
26 clearerr((FILE *) fp);
28 if (feof((FILE *) fp)) {
29 ghc_errtype = ERR_EOF;
31 } else if (c == EOF) {