Re: Newbie question on Ada TExt_IO

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

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;

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