Re: Newbie question on Ada TExt_IO

[Preben Randhol <randhol+news@pvv.org>]

On Fri, 4 Oct 2002 18:00:42 +0000 (UTC), Preben Randhol wrote:
> On Fri, 04 Oct 2002 17:49:26 GMT, Justin Birtwell wrote:
>> Steve,
>> 
>><<, I would read the value
>> into a string using something like Text_Io.Read_Line with the string
>> ridiculously large (maybe 1..256). >>
>> I couldn't find the package Text_IO.Read_Line did you mean Get_Line?
> 
> I think he meant to define a Read_Line like below (I called it
> Get_Whole_Line)
> 
>    procedure Get_Whole_Line
>       (File : in     File_Type;
>        Item :    out String;
>        Last :    out Natural)
>    is
>    begin
>       Get_Line (File => File, Item => Item, Last => Last);
>       if Last = Item'Last then
>          --  The line was longer than allowed, skipping the rest.
>          --  Can also raise an exception if necessary.
>          Skip_Line (File => File);
>       else
>          Fixed.Delete (Source => Item, From => Last + 1, Through => Item'Last);
>       end if;
> 
>       Line_Number := Line_Number + 1;
>    end Get_Whole_Line;


Note I use my procedure to read from a file so you can remove the File
part if you are reading from stdin.

-- 
Ada95 is good for you.
http://libre.act-europe.fr/Software_Matters/02-C_pitfalls.pdf