Re: Keyboard Polling Solution

[Preben Randhol <randhol+valid_for_reply_from_news@pvv.org>]

On 2004-02-18, Me <me@me.org> wrote:
> Yes, "Get_Immediate" seems to do the trick.  Thanks for the tip.
>
> Test Example :
>
>
>
>
> with Text_IO;  use Text_IO;
>
> procedure Test is
>
>   My_Char          : CHARACTER := ' ';
>   Character_Exists : BOOLEAN   := FALSE;
>   Loop_Counter     : INTEGER   := 0;
>
> procedure Take_A_Break is begin put_line ("Taking a break from
> polling..."); end Take_A_Break;
>
> begin
>
>   loop
>     Loop_Counter := Loop_Counter + 1;
>     for X in 1..10000 loop
>       Get_Immediate (Item      => My_Char,
>                      Available => Character_Exists);
>       if (Character_Exists) then
>         put_line ("Character entered.  Done.");
>         return;
>       end if;
>     end loop;
>     Take_A_Break;
>   end loop;
>
> end;
>
>

Hmm, to me this looks like you want to read about tasks in Ada.

-- 
"Saving keystrokes is the job of the text editor, not the programming
 language."