Re: C getchar() functionality in Ada

["Jeffrey R. Carter" <spam.jrcarter.not@spam.acm.org>]

Jean-Pierre Rosen wrote:
> 
> Therefore, your program should look like:
>       with Ada.Text_IO;          use Ada.Text_IO;
>       procedure Ito is
>          C : Character;
>       begin
>          while not End_Of_File loop
>             if End_Of_Line then
>                Skip_Line;
>                New_Line;
>             else
>                Get (Item => C);
>                Put (Item => C);
>             end if;
>          end loop;
>       end Ito;

Except that, given a file that ends with a blank line, Ada.Text_IO.End_Of_File 
may return True before the final blank line has been detected. The general rule 
is to not use Ada.Text_IO.End_Of_File, and handle the resulting End_Error.

-- 
Jeff Carter
"This trial is a travesty. It's a travesty of a mockery of a
sham of a mockery of a travesty of two mockeries of a sham. ...
Do you realize there's not a single homosexual on that jury?"
Bananas
27