Go to Package Interface

WITH Ada.Text_IO;
PACKAGE BODY Cars IS
------------------------------------------------------------------
--| This package provides data structures and operations for
--| manipulating a simple "data base" of car records, each
--| record containing a tag number, car make, date of purchase
--| and owner's name.
--| The package makes use of resources provided
--| by the package Simple_Dates.
--|
--| Author: Michael B. Feldman, The George Washington University
--| Last Modified: November 1996
------------------------------------------------------------------
 
  -- subtypes and database type
  SUBTYPE CarIndex IS Natural RANGE 1..MaxCars;
  SUBTYPE CarRange IS Natural RANGE 0..MaxCars;
  TYPE DatabaseType IS ARRAY(CarIndex) OF Car;
 
  -- "abstract data object" for the car database
  Database: DatabaseType;  -- holds the car database
  HowMany : CarRange;   -- how many records are in database
 
  PROCEDURE Get (Item: OUT Car) IS
  BEGIN -- stub
    Ada.Text_IO.Put(Item => "Get is still under construction.");
    Ada.Text_IO.New_Line;
  END Get;
 
  PROCEDURE Put (Item: IN Car) IS
  BEGIN -- stub
    Ada.Text_IO.Put(Item => "Put is still under construction.");
    Ada.Text_IO.New_Line;
  END Put;
 
  PROCEDURE ClearDatabase IS
  BEGIN -- stub
    Ada.Text_IO.Put(Item => "ReadDatabase is still under construction.");
    Ada.Text_IO.New_Line;
  END ClearDatabase;
 
  PROCEDURE ReadDatabase IS
  BEGIN -- stub
    Ada.Text_IO.Put(Item => "ReadDatabase is still under construction.");
    Ada.Text_IO.New_Line;
  END ReadDatabase;
 
  PROCEDURE WriteDatabase IS
  BEGIN -- stub
    Ada.Text_IO.Put(Item => "WriteDatabase is still under construction.");
    Ada.Text_IO.New_Line;
  END WriteDatabase;
 
  PROCEDURE FindCar(Tag: TagType; Item: OUT Car; Success: OUT Boolean) IS
  BEGIN -- stub  -- Find
    Ada.Text_IO.Put(Item => "Find is still under construction.");
    Ada.Text_IO.New_Line;
  END FindCar;
 
  PROCEDURE AddCar (Item: IN Car; Success: OUT Boolean) IS
  BEGIN -- stub
    Ada.Text_IO.Put(Item => "AddCar is still under construction.");
    Ada.Text_IO.New_Line;
  END AddCar;
 
  PROCEDURE DeleteCar (Tag: TagType; Success: OUT Boolean) IS
  BEGIN -- stub
    Ada.Text_IO.Put(Item => "DeleteCar is still under construction.");
    Ada.Text_IO.New_Line;
  END DeleteCar;
 
  PROCEDURE DisplayDatabase IS
  BEGIN -- stub
    Ada.Text_IO.Put(Item => "DisplayDatabase is still under construction.");
    Ada.Text_IO.New_Line;
  END DisplayDatabase;
 
END Cars;