PRAGMA inside_op
(operation_name => --|*|--)
PRAGMA line_feed
(option => 1)
PRAGMA line_feed
(option => 2)
PRAGMA compiler
(name => gnat,
options => --| |--)
=== begin code extraction : Mon Dec 23 10:31:07 2002
Halt. Program terminated normally
=== end code extraction : Mon Dec 23 10:31:09 2002
=== begin compilation : Mon Dec 23 10:31:10 2002
No code generated for file screen.ads (package spec)
=== end compilation : Mon Dec 23 10:31:16 2002
-- Simple screen interface.
--
-- Compatible with Michael Feldman's "simple ANSI terminal emulator", The George
-- Washington University, July 1995.
-- Requires Jerry van Dijk's "nt_console".
-- HOOD version by Pierre Dissaux, TNI, June 1998.
-- visibility on required modules :
with nt_console;
use type nt_console.X_Pos;
use type nt_console.Y_Pos;
package screen is
subtype Height is nt_console.Y_Pos;
subtype Width is nt_console.X_Pos;
type Position is record
Row : Height := 1;
Column : Width := 1;
end record;
ScreenHeight : constant INTEGER := 24;
ScreenWidth : constant INTEGER := 80;
procedure Beep;
procedure ClearScreen;
procedure MoveCursor (
To : IN Position);
end screen;
-- Simple screen interface.
--
-- Compatible with Michael Feldman's "simple ANSI terminal emulator", The George
-- Washington University, July 1995.
-- Requires Jerry van Dijk's "nt_console".
-- HOOD version by Pierre Dissaux, TNI, June 1998.
-- visibility on required modules :
with TEXT_IO;
-- visibility on objects required by nested operation bodies :
package body screen is
package Int_IO is new Text_IO.Integer_IO(Num => Integer);
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(To.Column, To.Row);
end MoveCursor;
end screen;
SYSTEM_CONF_PATH=//Groslulu/home4/stood/stood4.3/libs/calendar/_ada://Groslulu/home4/stood/stood4.3/examples/nt_console/_ada://Groslulu/home4/stood/stood4.3/examples/philosophers/_ada://Groslulu/home4/stood/stood4.3/examples/screen/_ada://Groslulu/home4/stood/stood4.3/libs/standard/_ada://Groslulu/home4/stood/stood4.3/libs/text_io/_ada://Groslulu/home4/stood/stood4.3/libs/discrete_random/_ada://Groslulu/home4/stood/stood4.3/examples/random_generic/_ada:
gcc -c -I//Groslulu/home4/stood/stood4.3/libs/calendar/_ada -I//Groslulu/home4/stood/stood4.3/examples/nt_console/_ada -I//Groslulu/home4/stood/stood4.3/examples/philosophers/_ada -I//Groslulu/home4/stood/stood4.3/libs/discrete_random/_ada -I//Groslulu/home4/stood/stood4.3/examples/random_generic/_ada //Groslulu/home4/stood/stood4.3/examples/screen/_ada/screen.ads
gcc -c -I//Groslulu/home4/stood/stood4.3/libs/calendar/_ada -I//Groslulu/home4/stood/stood4.3/examples/nt_console/_ada -I//Groslulu/home4/stood/stood4.3/examples/philosophers/_ada -I//Groslulu/home4/stood/stood4.3/libs/discrete_random/_ada -I//Groslulu/home4/stood/stood4.3/examples/random_generic/_ada //Groslulu/home4/stood/stood4.3/examples/screen/_ada/screen.adb