Re: Philosophical Question (End_Of_File)

[Gautier <gautier.demontmollin@maths.unine.ch>]

Wes Groleau wrote:
(...)
> So why do some vendors implement End_Of_File something like this?

> function End_Of_File (....) is
>    begin
>       Read_Without_Advancing;
>       return False;
>    exception
>       when End_Of_File => return True;
>    end End_Of_File;

Mmmmmh interesting...
BTW GNAT that doesn't do so (in Direct_IO, 3.11) is *much* faster
with simple loop within a begin..exception..end block than with
"while not End_Of_File loop" (maybe because both End_Of_File and Read
do check file status ?)
ex. @ http://members.xoom.com/_XMCM/gdemont/uza_html/unz_io__adb.htm#9_11

G.