/*
 *  call-seq:
 *     ios.eof     => true or false
 *     ios.eof?    => true or false
 *  
 *  Returns true if <em>ios</em> is at end of file. The stream must be
 *  opened for reading or an <code>IOError</code> will be raised.
 *     
 *     f = File.new("testfile")
 *     dummy = f.readlines
 *     f.eof   #=> true
 */

VALUE
rb_io_eof(io)
    VALUE io;
{
    OpenFile *fptr;
    int ch;

    GetOpenFile(io, fptr);
    rb_io_check_readable(fptr);

    if (feof(fptr->f)) return Qtrue;
    if (READ_DATA_PENDING(fptr->f)) return Qfalse;
    READ_CHECK(fptr->f);
    TRAP_BEG;
    ch = getc(fptr->f);
    TRAP_END;

    if (ch != EOF) {
	ungetc(ch, fptr->f);
	return Qfalse;
    }
    clearerr(fptr->f);
    return Qtrue;
}