From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,6c7cfbc3009d8352
X-Google-Attributes: gid103376,public
From: Richard Riehle <rriehle@nunic.nu.edu>
Subject: Re: gnat console screen-package
Date: 1997/04/07
Message-ID: <Pine.GSO.3.95.970326163102.7542D-100000@nunic.nu.edu>#1/1
X-Deja-AN: 232192121
References: <33261E5D.45ED@dge.insa-tlse.fr>
Organization: National University, San Diego
Reply-To: Richard Riehle <rriehle@nunic.nu.edu>
Newsgroups: comp.lang.ada
Date: 1997-04-07T00:00:00+00:00
List-Id: <comp.lang.ada>


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