Re: Keyboard Polling Solution

[Bruce or Tracy Jacobs <bljacobs2@mchsi.com>]

A version of Get_Immediate does this.  If there is nothing in the
buffer, it returns
FALSE and lets you continue on.  

Marin David Condic wrote:
> 
> 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
> 
> ======================================================================