Re: Reading a line of arbitrary length

[Mats Weber <Mats.Weber@elca-matrix.ch>]

>   Longest_Guess : Natural := 40;

You can't do this ! This global variable makes your code unusable with
tasks.

>   function Get_Line return String is
>     Buffer : String (1 .. Longest_Guess);
>     Last   : Natural;
>   begin
>     Ada.Text_IO.Get_Line (Buffer, Last);
> 
>     if Last = Buffer'Last then
>       Longest_Guess := Longest_Guess + Longest_Guess/2; -- 1.5x
>       return Buffer & Get_Line;
>     else
>       return Buffer(1..Last);
>     end if;
>   end Get_Line;

I would change it to:

  function Get_Line (Longest_Guess : Positive) return String is 
    Buffer : String (1 .. Longest_Guess);
    Last   : Natural;
  begin
    Ada.Text_IO.Get_Line (Buffer, Last);

    if Last = Buffer'Last then
      return Buffer & 
             Get_Line
               (Longuest_Guess => Longest_Guess + Longest_Guess/2);
    else
      return Buffer(1..Last);
    end if;
  end Get_Line;

  function Get_Line return String is
  begin
    return Get_Line(Longuest_Guess => 40);
  end;