Re: Get_Line

["David C. Hoos" <david.c.hoos.sr@ada95.com>]

What you're calling the "command line" is _not_ the command
line once your program starts.  It's the standard-input file, unless
you've called Ada.Text_IO.Set_Output to set it to something else.

So.. yes, you are reading from a file.

----- Original Message -----
From: "Justin Birtwell" <jbirtwell@yahoo.com>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada.eu.org>
Sent: Tuesday, October 29, 2002 2:24 PM
Subject: Get_Line


> Hi,
>
> I'm having some strange behavior with Get_Line.  In a procedure called
> GetData I call Get_Line to receive input from the command line. The first
> time this function is called it behaves fine prompting the user for input.
> The second time it runs  the execution passes through Get_Line and no
prompt
> appears on the command line.  Upon doing a little research in the Ref Man.
> I found a statement that talks about if Get_Line finds a line terminator
it
> automatically returns.  But how can this be?   Here's the statement from
the
> RM.
>
> << A string read by Get or written by Put can extend over several lines.
An
> implementation is allowed to assume that certain external files do not
> contain page terminators, in which case Get_Line and Skip_Line can return
as
> soon as a line terminator is read. >>
>
> But I'm not reading from a file?  I'm reading from the command line?  Does
> anyone understand this behavior?
>
> Sincerely,
> Justin
>
> P.s.  Here's a few statements leading up to the problem...
>
>    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
>
>                                            ---This line gets skipped
> returning with an empty buffer!!!!!!!
>          if Jb.Stringfunctions.Is_Integer(Buffer(Buffer'First..Last)) then
>
>
>
>
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada.eu.org
> http://ada.eu.org/mailman/listinfo/comp.lang.ada
>