Re: How do I "Get" just 4 characters?

[dl10696@ehsn4.cen.uiuc.edu (Dat Trieu Le)]

kanderso@mabillon.ICS.UCI.EDU (Kenneth Anderson) writes:

>I had a question posed to me by one of my students, that asked : How
>do I get just 4 characters of input?

>Using the following program as an example:

>with Text_IO;

>procedure test is

>   subtype pin_type is string(1..4);

>   A   : pin_type;
>   Num : INTEGER;

>begin
>   Text_IO.Get(A);
>   Text_IO.PUT_LINE(A);
>end test;

>Now then, if I run the program and type "1234567890",

>what I see is

>1234567890
>1234

>What I would like to see is this:

>1234
>1234

>I.E. I don't want to see 567890, I want the program to kick in right away
>after the fourth character is typed, not wait for the user to type Return.

>I tried changing the program to this:

>with Text_IO;

>procedure test is

>   subtype pin_type is string(1..4);

>   A : pin_type;
>   B : CHARACTER;

>begin
>   Get(B);
>   A(1) := B;
>   Get(B);
>   A(2) := B;
>   Get(B);
>   A(3) := B;
>   Get(B);
>   A(4) := B;
>   Text_IO.PUT_LINE(A);
>end test;

>But the same behavior results...

>Any suggestions?

>Thanks in advance,

Hi Ken,

I believe TEXT_IO works much like buffered input io. That is,
it will read from the input buffer. the Get message reads from
that buffer. If there is not enough characters in the buffer,
then the program will wait until the user has completed its
input to the buffer. Text_IO doesn't consider inputs to be complete
until it is followed by a carriage-return. If you want Ada to
interpret characters one-at-a-time, then a routine to interface
to the hardware may have to be written.

hope this helps.