Re: Binding to feof

[Jeffrey Carter <spam@spam.com>]

Jerry van Dijk wrote:
> 
> If the binding is correct, it should work. Could you show an example
> of the code and how you use it ?

function End_Of_File (File : File_Handle := Standard_Input)
return Boolean is
    Result : Int;

    function C_EOF (File : File_Handle) return Int;
    pragma Import (C, C_EOF, "feof");
    -- This seems to always return zero, even when at the EOF.
begin -- End_Of_File
    Result := C_EOF (File);

    return Result /= 0;
end End_Of_File;

Including debug statements indicates that Result is always zero.

> I am not sure why you would want to do this though. If you want to 
> use/interface to  the C stream API, GNAT already provides a binding.
> If you are looking for the most efficient code, you need to use the
> Win32 file API, as the C API, on Windows, is itself also a binding to
> the Win32 API.

None of the above. I don't want to use C streams, nor am I interested in 
the most efficient code. I just want to experiment with text I/O that 
doesn't count columns, lines, and pages, to see how it compares.

-- 
Jeff Carter
"Have you gone berserk? Can't you see that that man is a ni?"
Blazing Saddles
38