Re: simple help with Text_IO

[ucivax!gateway@ucbvax.Berkeley.EDU (Kenneth Anderson)]

In comp.lang.ada you write:

>Could somebody tell me (email please) why this programme,
>which compiles properly, seemingly stalls at the
>line indicated? i.e. I type in a line followed by <cr>,
>but nothing happens. What should happen is that this:

>*:: <the line that was typed>

>should be printed to the console, but isn't. And nothing
>happens. The input prompt:

>*>>

>is printed, then I can type something, but after <cr>
>nothing happens. :(


>With Text_IO; Use Text_IO;

>Procedure main is

>instr, tokstr : String(1..255);

>Begin
>Loop
>    New_Line;
>    Put("*>> ");
>    Get(instr);                 -- this is where it stalls and won't go furthe
r

It stalls here, because Get is trying to fill the string that you gave
it.  I.E. try typing a string that is 255 characters long!  I belive the
way to get around this, is to use the function Get_Line.

>    New_Line;
>    Put("*:: ");
>    Put(instr);
>    Exit When instr="quit";
>End Loop;
>End; --main


Ken