Keyboard Polling Solution

Keyboard Polling Solution

[Me]

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;

Re: Keyboard Polling Solution

[Preben Randhol]

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."

Re: Keyboard Polling Solution

[Bruce or Tracy Jacobs]

As I get deeper in to my application implementation, there is a good
chance
I will have to take a look into tasking.  Thank you.  

Bruce 


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

Re: Keyboard Polling Solution

[Marin David Condic]

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

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

Re: Keyboard Polling Solution

[Bruce or Tracy Jacobs]

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
> 
> ======================================================================

Re: Keyboard Polling Solution

[Marin David Condic]

Well, there you go! I have not messed with any keyboard input in so long 
I'd completely forgotten about that. But yes, that looks like it would 
do the job.

I'd be curious why you want to poll. Usually, one tries to avoid that, 
but I know I've wanted something going on in the background that might 
stop when the user hit a key. The usual trick would be to have a task 
looking at keyboard input with another task doing the background job. 
Sometimes this wouldn't work with some implementations because the I/O 
operation didn't flag the task as "blocked", so the background would 
starve. Then you might want to resort to some kind of polling.

MDC

Bruce or Tracy Jacobs wrote:
> 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
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

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

Re: Keyboard Polling Solution

[Chad R. Meiners]

"Marin David Condic" <nobody@noplace.com> wrote in message
news:4035FA69.1060301@noplace.com...
> I'd be curious why you want to poll. Usually, one tries to avoid that,
> but I know I've wanted something going on in the background that might
> stop when the user hit a key. The usual trick would be to have a task
> looking at keyboard input with another task doing the background job.
> Sometimes this wouldn't work with some implementations because the I/O
> operation didn't flag the task as "blocked", so the background would
> starve. Then you might want to resort to some kind of polling.

When writing a keyboard task, I usually poll the keyboard and then delay or
sleep on a select statement.   This way I can send commands to the keyboard
task if need be.

-CRM

Re: Keyboard Polling Solution

[Bruce or Tracy Jacobs]

I am playing with an Ada OpenGL graphics program that allows the user to 
manipulate output graphics (zoom in, out, move around, etc) but I 
didn't want the entire program to stop and wait for input because it
needs to stay busy doing things.  


Marin David Condic wrote:
> 
> Well, there you go! I have not messed with any keyboard input in so long
> I'd completely forgotten about that. But yes, that looks like it would
> do the job.
> 
> I'd be curious why you want to poll. Usually, one tries to avoid that,
> but I know I've wanted something going on in the background that might
> stop when the user hit a key. The usual trick would be to have a task
> looking at keyboard input with another task doing the background job.
> Sometimes this wouldn't work with some implementations because the I/O
> operation didn't flag the task as "blocked", so the background would
> starve. Then you might want to resort to some kind of polling.
> 
> MDC
> 
> Bruce or Tracy Jacobs wrote:
> > 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
> 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
> 
> ======================================================================

Re: Keyboard Polling Solution

[Preben Randhol]

On 2004-02-22, Bruce or Tracy Jacobs <bljacobs2@mchsi.com> wrote:
> I am playing with an Ada OpenGL graphics program that allows the user to 
> manipulate output graphics (zoom in, out, move around, etc) but I 
> didn't want the entire program to stop and wait for input because it
> needs to stay busy doing things.  

Don't the GUI have rutines for getting the keys you press? I don't know
what you use though.

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

Re: Keyboard Polling Solution

[Bruce or Tracy Jacobs]

I am using GLUT (Ada - to - OpenGL) Interface.  Not sure whether it has
such 
or not.  I think that version of Get_Immediate will get the job done. 
The
test case worked so well that I am anxious to get it implemented into
the
package and see what happens.  

Thanks.  

Bruce 

Preben Randhol wrote:
> 
> On 2004-02-22, Bruce or Tracy Jacobs <bljacobs2@mchsi.com> wrote:
> > I am playing with an Ada OpenGL graphics program that allows the user to
> > manipulate output graphics (zoom in, out, move around, etc) but I
> > didn't want the entire program to stop and wait for input because it
> > needs to stay busy doing things.
> 
> Don't the GUI have rutines for getting the keys you press? I don't know
> what you use though.
> 
> --
> "Saving keystrokes is the job of the text editor, not the programming
>  language."

Re: Keyboard Polling Solution

[Chad R. Meiners]

For keyboard events in GLUT, GLUT provide a keyboard event function handler
http://www.opengl.org/documentation/specs/glut/spec3/node49.html#SECTION00084000000000000000

-CRM

"Bruce or Tracy Jacobs" <bljacobs2@mchsi.com> wrote in message
news:403BF0A5.5676A1E5@mchsi.com...
> I am using GLUT (Ada - to - OpenGL) Interface.  Not sure whether it has
> such
> or not.  I think that version of Get_Immediate will get the job done.
> The
> test case worked so well that I am anxious to get it implemented into
> the
> package and see what happens.
>
> Thanks.
>
> Bruce
>
> Preben Randhol wrote:
> >
> > On 2004-02-22, Bruce or Tracy Jacobs <bljacobs2@mchsi.com> wrote:
> > > I am playing with an Ada OpenGL graphics program that allows the user
to
> > > manipulate output graphics (zoom in, out, move around, etc) but I
> > > didn't want the entire program to stop and wait for input because it
> > > needs to stay busy doing things.
> >
> > Don't the GUI have rutines for getting the keys you press? I don't know
> > what you use though.
> >
> > --
> > "Saving keystrokes is the job of the text editor, not the programming
> >  language."

Re: Keyboard Polling Solution

[Me]

Thanks.

"Chad R. Meiners" wrote:

> For keyboard events in GLUT, GLUT provide a keyboard event function handler
> http://www.opengl.org/documentation/specs/glut/spec3/node49.html#SECTION00084000000000000000
>
> -CRM
>
> "Bruce or Tracy Jacobs" <bljacobs2@mchsi.com> wrote in message
> news:403BF0A5.5676A1E5@mchsi.com...
> > I am using GLUT (Ada - to - OpenGL) Interface.  Not sure whether it has
> > such
> > or not.  I think that version of Get_Immediate will get the job done.
> > The
> > test case worked so well that I am anxious to get it implemented into
> > the
> > package and see what happens.
> >
> > Thanks.
> >
> > Bruce
> >
> > Preben Randhol wrote:
> > >
> > > On 2004-02-22, Bruce or Tracy Jacobs <bljacobs2@mchsi.com> wrote:
> > > > I am playing with an Ada OpenGL graphics program that allows the user
> to
> > > > manipulate output graphics (zoom in, out, move around, etc) but I
> > > > didn't want the entire program to stop and wait for input because it
> > > > needs to stay busy doing things.
> > >
> > > Don't the GUI have rutines for getting the keys you press? I don't know
> > > what you use though.
> > >
> > > --
> > > "Saving keystrokes is the job of the text editor, not the programming
> > >  language."

Re: Keyboard Polling Solution

[Warren W. Gay VE3WWG]

Me wrote:

> Yes, "Get_Immediate" seems to do the trick.  Thanks for the tip.
> 
> Test Example :
...

One annoying thing about it however is that for w2k use,
Control-D causes "End_of_File" to occur, whether or not
it was the first character entered on a line or not.

Under *NIX/*BSD, the end of file character is only special
at the start of the line (or not active at all). This
means that Get_Immediate cannot return ^D when you want
it to :<  AFAIK, under w2k.  Note however, that ^Z _is_
readable, which usually causes EOF to windoze/DOS progs.

-- 
Warren W. Gay VE3WWG
http://ve3wwg.tk

Re: Keyboard Polling Solution

[Bruce or Tracy Jacobs]

Lots of good info and advice from everyone - thanks for the response.  

I had a similar experience with output to a printer once.  One of the
patterns I was sending to the bit-mapping in the printer just happened
to be a CTL-D or something very similar which had a pre-defined meaning
to the printer.  Had to explicitly check for that joker everytime from
then on.  That does get to be a pain from time to time, and it isn't
exactly intuitive to debug.  


"Warren W. Gay VE3WWG" wrote:
> 
> Me wrote:
> 
> > Yes, "Get_Immediate" seems to do the trick.  Thanks for the tip.
> >
> > Test Example :
> ...
> 
> One annoying thing about it however is that for w2k use,
> Control-D causes "End_of_File" to occur, whether or not
> it was the first character entered on a line or not.
> 
> Under *NIX/*BSD, the end of file character is only special
> at the start of the line (or not active at all). This
> means that Get_Immediate cannot return ^D when you want
> it to :<  AFAIK, under w2k.  Note however, that ^Z _is_
> readable, which usually causes EOF to windoze/DOS progs.
> 
> --
> Warren W. Gay VE3WWG
> http://ve3wwg.tk