Re: Get_Line

[Jeffrey Carter <jrcarter@acm.org>]

I'm afraid I still don't have enough information to give a meaningful 
answer. When and under what conditions do you exit the loop? Is the 
problem observed within a single call to Getdata, or from one call to 
the next? If the latter, we need to see all the code that is executed 
between the calls, since that may affect the state of the environment.

Justin Birtwell wrote:
>     --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;

This calls Skip_Line if you have read an empty line. But Get_Line will 
skip the line terminator if you read an empty line (or any line with < 
Buffer'Length characters). What you want to do is call Skip_Line if 
Get_Line has not skipped the line terminator, which happens if the input 
  is >= Buffer'Length characters:

if Last >= Buffer'Last then
    Ada.Text_Io.Skip_Line;
end if;

-- 
Jeff Carter
"All citizens will be required to change their underwear
every half hour. Underwear will be worn on the outside,
so we can check."
Bananas