Re: gnat console screen-package

[Richard Riehle <rriehle@nunic.nu.edu>]

On Tue, 11 Mar 1997, Philippe wrote:

> I'm looking for a package that can let me position the cursor in
> a DOS window under win95. I'm using gnat 3.04
> I'm also looking for a package that polls for keyboard hits.
> 
> I'd appreciate any help.
> Aslak


  For the Janus compiler from RR Software, I have found the following
  to be useful for character-based displays:

  package Ada.Text_IO.Screen_IO is
     procedure Set_Cursor_Col (To : Positive);
     procedrue Set_Cursor_Row (To : Positive);
     procedure Cursor_Up      (To : Positive := 1);
     procedure Cursor_Down    (To : Positive := 1);
     procedure Cursor_Right   (To : Positive := 1);
     procedure Cursor_Left    (To : Positive := 1);
  end Ada.Text_IO.Screen_IO;

  with ANSI_IO;  -- a commonly available package (try Walnut Creek CD-ROM)
  package body Ada.Text_IO.Screen_IO is

      -- implement the exported services with ANSI_IO services.

  end Ada.Text_IO.Screen_IO;


  I know there is a problem implementing this with GNAT.  Apparently,
  one has to use a particular indentation scheme as well as some 
  special compiler switches to make it work.  But I have at least one
  client who has made it work with GNAT, so it is feasible.

  Richard Riehle