Re: Keyboard Polling Solution

[Marin David Condic <nobody@noplace.com>]

An observation would be that this is not truly "polling" in the sense 
that Get_Immediate is going to block waiting for a keystroke. It does 
get one keystroke at a time - which is often what you want, but Preben 
is right about tasks. If you want to test for a keystroke being 
available and otherwise go on about some other business, you should look 
at building a task around Get_Immediate that would queue up keystrokes.

MDC

Preben Randhol wrote:
>>
>>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.
> 


-- 
======================================================================
Marin David Condic
I work for: http://www.belcan.com/
My project is: http://www.jsf.mil/NSFrames.htm

Send Replies To: m   o   d   c @ a   m   o   g
                    c   n   i       c   .   r

     "Face it ladies, its not the dress that makes you look fat.
     Its the FAT that makes you look fat."

         --  Al Bundy

======================================================================