From: "David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>
Subject: Re: NT, ANSI.SYS, and Ada 95
Date: 1999/01/08
Date: 1999-01-08T00:00:00+00:00 [thread overview]
Message-ID: <774rne$das$1@tsunami.traveller.com> (raw)
In-Reply-To: 3695BCBC.4B77C8E9@grep.net
Paul Whittington wrote in message <3695BCBC.4B77C8E9@grep.net>...
>Try adding the line
>
>device=%SystemRoot%\system32\ansi.sys
>
>to the file
>
>c:\winnt\system32\config.nt
>
>
>"Russell E. Hixon" wrote:
>>
>> I am using Feldman's book - Ada 95 Problem Solving and Program Design in
an
>> introductory Ada 95 course. In the book, Feldman includes a package
>> (Screen) which utilizes ansi.sys. I have not found a way to get this to
>> work in a Windows NT environment. Any suggestions?
>>
This advice regarding ANSI.SYS on NT is only useful for MS-DOS applications,
which gnat programs compiled under NT are not. The gnat examples are NT
console applications, and it is possible to write NT GUI applications with
gnat, as well.
The quickest solution is to write a replacement body for Feldman's screen
package to call the subprograms in Jerry Van Dyke's NT_Console package
(8KB Zip) available at http://stad.dsl.nl/~jvandyk/nt_con02.zip
Such a body rewrite might look like:
--::::::::::
--screen.adb
--::::::::::
with Nt_Console;
package body Screen is
procedure Beep is
begin
Nt_Console.Bleep;
end Beep;
procedure ClearScreen is
begin
Nt_Console.Clear_Screen;
end ClearScreen;
procedure MoveCursor (To: in Position) is
begin
Nt_Console.Goto_XY
(X => To.Column,
Y => To.Row);
end MoveCursor;
end Screen;
Hope this helps.
David C. Hoos, Sr.
next prev parent reply other threads:[~1999-01-08 0:00 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-01-08 0:00 NT, ANSI.SYS, and Ada 95 Russell E. Hixon
1999-01-07 0:00 ` Hans Marqvardsen
1999-01-08 0:00 ` Paul Whittington
1999-01-08 0:00 ` David C. Hoos, Sr. [this message]
1999-01-08 0:00 ` Russell E. Hixon
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox