* Re: Clear Screen command
1998-03-04 0:00 Clear Screen command Jeremy Mlazovsky
@ 1998-03-05 0:00 ` John J. Cupak Jr.
1998-03-05 0:00 ` Jerry van Dijk
1998-03-05 0:00 ` William D. Ghrist
1998-03-05 0:00 ` Robert Dewar
2 siblings, 1 reply; 5+ messages in thread
From: John J. Cupak Jr. @ 1998-03-05 0:00 UTC (permalink / raw)
To: Jeremy Mlazovsky
[-- Attachment #1: Type: text/plain, Size: 988 bytes --]
Jeremy Mlazovsky wrote:
>
> I'm sorry, I forgot to add a few details...
>
> I am using GNAT 3.01 or whatever the most recent version is.
>
> I'm using ADA95
>
> I am using ADAGIDE v6.10c on Windows 95 machine with 32 megs of RAM
>
> After posting my last message, I found a simple CLEARSCREEN procedure in a
> package included with GNAT. I'll use that unless some one knows how to do
> it better. Thanks
>
> Jeremy
>
> mlazovjp@flyernet.udayton.edu
Yup, you can use the attached Ada 95 packages and child packages.
You can figure out how to encapsulate the other screen controls
in like manner
--
--------------------------------------------------------------
- John J. Cupak Jr, CCP -
- Raytheon Systems Company - Software Engineering Laboratory -
- tel: 508-858-1222 email (work): jcj@swl.msd.ray.com -
- fax: 508-858-4336 email (home): jcupak@aol.com -
--------------------------------------------------------------
[-- Attachment #2: screen.ads --]
[-- Type: text/plain, Size: 819 bytes --]
----------------------------------------------------------------------
-- The Screen Package (Specification)
--
-- Programmer : John Cupak
-- History : 6Oct97 jcj Created
-- 17Oct97 jcj "Base" types package
-- Description: This package defines the xterm/VT100 size
----------------------------------------------------------------------
package Screen is
Maximum_Rows : constant := 24;
Maximum_Columns : constant := 80;
subtype Rows is Positive range 1..Maximum_Rows;
subtype Columns is Positive range 1..Maximum_Columns;
private
-- Define constant for use by all child packages
-- Command Sequence Introducer (CSI)
-- (provides screen command prefix)
CSI : constant String := ASCII.ESC & "[";
end Screen;
[-- Attachment #3: screen-cursor.ads --]
[-- Type: text/plain, Size: 995 bytes --]
----------------------------------------------------------------------
-- The Screen Cursor Control Child Package (Specification)
--
-- Programmer : John Cupak
-- History : 17Oct97 jcj Created
-- Description: Moves cursor from current position
----------------------------------------------------------------------
package Screen.Cursor is
-- Move cursor "By" times - stop at top
procedure Up (By : in Positive := 1);
-- Move cursor down "By" times - stop at bottom
procedure Down (By : in Positive := 1);
-- Move cursor right "By" times - stop at far right
procedure Right(By : in Positive := 1);
-- Move cursor left "By" times - stop at far left
procedure Left (By : in Positive := 1);
-- Set cursor position - Column=X, Row=Y
procedure Position(Column : Columns;
Row : Rows ); -- Line
-- Set cursor home (1,1)
procedure Home;
end Screen.Cursor;
[-- Attachment #4: screen-cursor.adb --]
[-- Type: text/plain, Size: 1061 bytes --]
with Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada.Text_IO;
use Ada.Integer_Text_IO;
package body Screen.Cursor is
procedure Up (By : in Positive := 1) is
begin
Put(CSI);Put(By,0);Put("A");
end Up;
procedure Down (By : in Positive := 1) is
begin
Put(CSI);Put(By,0);Put("B");
end Down;
procedure Right(By : in Positive := 1) is
begin
Put(CSI);Put(By,0);Put("C");
end Right;
procedure Left (By : in Positive := 1) is
begin
Put(CSI);Put(By,0);Put("D");
end Left;
procedure Position(Column : in Columns;
Row : in Rows ) is
begin
Put(Item => CSI);
Put(Item => Row, Width => 0);
Put(Item => ';');
Put(Item => Column, Width => 0);
Put(Item => 'H');
end Position;
procedure Home is
begin
Put(CSI & "H");
end Home;
end Screen.Cursor;
^ permalink raw reply [flat|nested] 5+ messages in thread