OBJECT screen IS

 PASSIVE

pragmas

PRAGMA inside_op
        (operation_name => --|*|--)
PRAGMA line_feed
        (option => 1)
PRAGMA line_feed
        (option => 2)
PRAGMA compiler
        (name => gnat,
         options => --| |--)

ADA EXTRACTED CODE

extraction messages

=== 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

spec

-- 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;

body

-- 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;

makefile

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

END screen