Re: Get_Line

["Justin Birtwell" <jbirtwell@yahoo.com>]

Jeffery,

Thank you for your detailed response.  First I apologize for not including
the call to Get_Line() in my original post.  I'd like to make reparations by
providing the correct code at the tail of this post.

I'm running this code on my laptop (WinXP), but I don't want to write
non-portable code, meaning code that will only run on the Win32 platform.  I
believe that your assessment about the line terminator behavior with
Get_Line is the cause of the problem.  I tried calling Skip_Line immediately
after the call but with seeming no affect.  I'm going to try to find the
packages you have referred to.

Once again, thank you.  I was not aware of this phenomenon and I know it
would have taken me much effort to discover it in the RM.  If you can think
of any other approach to the problem I welcome your response.

sincerely,
Justin

P.S.  Here's my original code.

   procedure Getdata(P_Num_Of_Points: out Natural) is
      Last:Natural:=0;
      Buffer:String(1..80):=(1..80=>Character'val(0));
      l_Num:Integer;
      --Answer:Character;
   begin

      --get input
      --are there any invalid characters
      --is it a valid number anyway?
      --does the user want to use this number?
         Ada.Text_Io.Put_Line("Enter between 1 and 6 Balloons to create in
the box. ");
      loop
         begin
         Ada.Text_IO.New_Line;
            Ada.Text_Io.Get_Line(Buffer,Last);  --Here's the cause of the
problem.

    --I just added this code to see if calling Skip_Line would fix the
problem, but alas, to no effect.
            if(Buffer'First>Last) then
               Ada.Text_Io.Skip_Line;
            end if;