Re: help with Ada95

[Jeffrey Carter <spam@spam.com>]

Cephus� wrote:
> Hey guys I have this book: Ada 95 3rd edition (gold (maybe yellow in color)
> Problem Solving and Program Design by Feldman and Koffman.
> 
> They provide all of their code from the book examples and I am trying to use
> a package of theirs dealing with the screen... here is the package spec and
> body. Please tell me what is wrong with it...
> 
> Screen.ads:
> -- constants; the number of rows and columns on the terminal

"package Screen is" appears to be missing.

> 
> ScreenDepth : CONSTANT Integer := 24;
> 
> ScreenWidth : CONSTANT Integer := 80;
> 
> -- subtypes giving the ranges of acceptable inputs
> 
> -- to the cursor-positioning operation
> 
> SUBTYPE Depth IS Integer RANGE 1..ScreenDepth;
> 
> SUBTYPE Width IS Integer RANGE 1..ScreenWidth;
> 
> PROCEDURE Beep;
> 
> -- Pre: None
> 
> -- Post: Terminal makes its beep sound once
> 
> PROCEDURE ClearScreen;
> 
> -- Pre: None
> 
> -- Post: Terminal Screen is cleared
> 
> PROCEDURE MoveCursor (Column : Width; Row : Depth);
> 
> -- Pre: Column and Row have been assigned values
> 
> -- Post: Cursor is moved to the given spot on the screen
> 
> END Screen;
> 
> ----------------------------------------------------------------------------
> -----------------
> 
> Screen.adb

"package body Screen is" appears to be missing.

> 
> PROCEDURE Beep IS
> 
> BEGIN
> 
> Ada.Text_IO.Put (Item => Ada.Characters.Latin_1.BEL);
> 
> Ada.Text_IO.Flush;
> 
> END Beep;
> 
> PROCEDURE ClearScreen IS
> 
> BEGIN
> 
> -- Ada.Text_IO.Put (Item => Ada.Characters.Latin_1.ESC);
> 
> -- Ada.Text_IO.Put (Item => "[2J");
> 
> -- Ada.Text_IO.Flush;
> 
> Ada.TEXT_IO.New_Line(Spacing => 35);
> 
> MoveCursor(Row => 1, Column => 1);
> 
> END ClearScreen;
> 
> PROCEDURE MoveCursor (Column : Width; Row : Depth) IS
> 
> BEGIN
> 
> Ada.Text_IO.Flush;
> 
> Ada.Text_IO.Put (Item => Ada.Characters.Latin_1.ESC);
> 
> Ada.Text_IO.Put ("[");
> 
> Ada.Integer_Text_IO.Put (Item => Row, Width => 1);
> 
> Ada.Text_IO.Put (Item => ';');
> 
> Ada.Integer_Text_IO.Put (Item => Column, Width => 1);
> 
> Ada.Text_IO.Put (Item => 'f');
> 
> END MoveCursor;
> 
> END Screen;

Other than those problems marked, which might be cut and paste errors 
rather than errors in the code, there does not appear to be anything 
wrong with it.

It would help if you told us what error messages you were getting, or 
what makes you think there is something wrong with it. It also helps if 
you tell us what compiler and version you're using, and on what OS and 
version.

-- 
Jeff Carter
"You tiny-brained wipers of other people's bottoms!"
Monty Python & the Holy Grail