Re: HELP!!!!!!

[Jeffrey Carter <jeffrey.carter@boeing.com>]

"Chris M. Moore" wrote:
> 
> On Wed, 17 Oct 2001 16:34:03 +0200, "F" <phosphorus@libero.it> wrote:
> 
> >I would like to make a program in wich a string is given in input and the
> >dimension of it is unknown (till someone insert it...)
> >HOW CAN I DO?????? (without using hundreds of lines)
> 
> function Read_String_From_Keyboard return String is
>   Temp_Str : Ada.Strings.Unbounded.Unbounded_String :=
>     Ada.Strings.Unbounded.Null_Unbounded_String;
>   Ch : Character;
> begin
>   while not Ada.Text_IO.End_Of_Line loop
>     Ada.Text_IO.Get(Ch);
>     Temp_Str := Ada.Strings.Unbounded."&"(Temp_Str, Ch);
>   end loop;
>   return Ada.Strings.Unbounded.To_String(Temp_Str);
> end Read_String_From_Keyboard;
> 
> seems like the safest way.  I haven't tried compiling this though so
> who knows!

This seems like more work than is needed. PragmARC.Get_Line from the
PragmAda Reusable Components does this (and from other
Ada.Text_IO.File_Type files as well) without repeatedly modifying an
unbounded string.

-- 
Jeffrey Carter