Re: Using Get_Immediate to read keystrokes.

Re: Using Get_Immediate to read keystrokes.

[David C. Hoos, Sr.]

Marin David Condic, 561.796.8997, M/S 731-96 wrote in message
<98082016293577@psavax.pwfl.com>...
>    So I got a request from a user to improve the behavior of a little
>    command line oriented application. Currently the application uses
>    Ada.Text_IO.Get_Line to read in commands. The user wants to use
>    the up-arrow key to recover previous commands.
>
I see no evidence that this hasd been answered, so I'll tell you how I do
it.

I use Ada subprograms pragma-interfaced (is that a word?) to the tcgetattr
and tcsetattr functions.  If memory serves me correctly, I have three
subprograms, viz.:

One is Set_Echo_Mode with an enumeration parameter (On, Off), and the other
two are called Save_Console_State and Restore_Console_State.

I got the Idea to use these functions from reading the a-sysdep.c file in
the gnat distribution.

Hope this helps,

David C. Hoos, Sr.

Re: Using Get_Immediate to read keystrokes.

[John McCabe]

-- 
Best Regards
John McCabe

=====================================================================
Not necessarily my company or service providers opinions.
=====================================================================

Re: Using Get_Immediate to read keystrokes.

[John McCabe]

"Marin David Condic, 561.796.8997, M/S 731-96" <condicma@PWFL.COM> wrote:

>    Does anybody know of a trick on the Sun or using the GNAT compiler
>    which will shut off character echoing so I can get the behavior I
>    want?

The command "stty -echo" stops the terminal from echoing characters. 
There ought to be some way of making this happen from inside the program 
although I haven't tried it.

>     Or better yet - has someone got a piece of code that already
>    implements a command line with a buffer?


-- 
Best Regards
John McCabe

=====================================================================
Not necessarily my company or service providers opinions.
=====================================================================

Re: Using Get_Immediate to read keystrokes.

[Jerry van Dijk]

David C. Hoos, Sr. (david.c.hoos.sr@ada95.com) wrote:

: One is Set_Echo_Mode with an enumeration parameter (On, Off), and the other
: two are called Save_Console_State and Restore_Console_State.

: I got the Idea to use these functions from reading the a-sysdep.c file in
: the gnat distribution.

Or even better, use the equivalent functions from a POSIX binding...

Jerry.
-- 
-- Jerry van Dijk  | email: jdijk@acm.org
-- Leiden, Holland | member Team-Ada
-- Ada & Win32: http://stad.dsl.nl/~jvandyk

Re: Using Get_Immediate to read keystrokes.

[Dale Stanbrough]

Marin David Condic wrote:

     So I got a request from a user to improve the behavior of a little
     command line oriented application. Currently the application uses
     Ada.Text_IO.Get_Line to read in commands. The user wants to use
     the up-arrow key to recover previous commands.
 
     I'm thinking "No Problem" I've got a standard call in Text_IO
     called Get_Immediate - all I have to do is create a command buffer
     & do my own line editing & I can give him the desired feature and
     move on with my life.
 
     Well, using GNAT v3.09 on a Sun - SunOS 5.5.1, the behavior of
     Get_Immediate - while not irrational - is at least not exactly
     everything I want. I wrote a little quickie test program (below)
     which lets you see what the Get_Immediate sees for any given
     keystroke. My problem is that if I want to write my own little
     line editor to include a buffer of previous commands, you really
     don't want every keystroke echoed to the screen. Unfortunately,
    that's what happens - including escape sequences for the arrow
     keys, etc.
 
     Does anybody know of a trick on the Sun or using the GNAT compiler
     which will shut off character echoing so I can get the behavior I
     want? Or better yet - has someone got a piece of code that already
     implements a command line with a buffer?



It seems you will be reinventing the (curses) wheel, and setting yourself
up to maintaining a version for each new terminal with its own unique
"up arrow key" encoding. Just do a few pragma imports, and you'll have
all the functionality you need to cope with any terminal type Unix can
throw at you.

There is an Ada binding to one of the curses packages around.
(i've also got one on my home page).

BTW would not character'Image (ch) have done what you attempted to do 
in your large case statement?

Dale