ghc/runtime/io/fileEOF.lc

   1 %
   2 % (c) The GRASP/AQUA Project, Glasgow University, 1994
   3 %
   4 \subsection[fileEOF.lc]{hIsEOF Runtime Support}
   5
   6 \begin{code}
   7
   8 #include "rtsdefs.h"
   9 #include "stgio.h"
  10
  11 StgInt
  12 fileEOF(fp)
  13 StgAddr fp;
  14 {
  15     if (fileLookAhead(fp) != EOF)
  16         return 0;
  17     else if (ghc_errtype == ERR_EOF)
  18         return 1;
  19     else
  20         return -1;
  21 }
  22
  23 \end{code}