Re: Get_Immediate

[Jeffrey Carter <spam@spam.com>]

Xavier Serrand wrote:

> I have to work with Ada 83 .... and,
> I have to use the functionnality of Get_Immediate (return immediately
> after the keystroke and no echo)
> 
> I tried to interface with c (getch)... it works fine ... with Ada
> 95...
> I can't interface with Ada 83 ... because i have none of the specific
> package to do this work ...
> 
> Could somebody give me a better idea if it's no possibility to find
> old packages to interface with c ...

Your compiler vendor probably supplies a package with this capability, 
or that allows you to create this functionality. I wrote a keyboard 
package for DOS in Ada 83 that provided this functionality using a 
vendor-supplied package to make DOS calls.

You should also be able to import getch using pragma Interface in Ada 83:

function Getch ...;
pragma Interface (C, Getch);

Many compilers also supported pragma Interface_Name to supply the 3rd 
parameter of pragma Import:

pragma Interface_Name (Getch, "getch"); -- IIRC

-- 
Jeff Carter
"Perfidious English mouse-dropping hoarders."
Monty Python & the Holy Grail
10