Go to Package Interface

WITH Ada.Text_IO;
WITH Simple_Dates;
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
--| Changed : Chester B. Lund, The George Washington University
--|
--| Last Modified: September 1998
------------------------------------------------------------------
--|
--| The user interface menu is as follows:
--| 
--|                Select one operation below:
--| 
--|                C -> Table, Commit Table
--|                R -> Table, Rollback Table
--|                S -> Table, Select all Rows
--|                T -> Table, Truncate Table
--|                A -> Row, Add One Row
--|                D -> Row, Delete One Row
--|                F -> Row, Find a Row
--|                U -> Row, Update One Row
--|                Q -> Quit the Program
--| 
--|                Please type a command, then press Enter >
-----------------------------------------------------------------

  PROCEDURE Get (Item: OUT Car) IS
  BEGIN -- stub
    Ada.Text_IO.put_line
        (Item => "Get is still under construction.");
  END Get;

  PROCEDURE Put (Item: IN Car) IS
  BEGIN -- stub
    Ada.Text_IO.put_line
        (Item => "Put is still under construction.");
  END Put;

  PROCEDURE Commit_Database IS               --  C -> Table, Commit Table
  BEGIN  --  stub
    Ada.Text_IO.put_line
        (Item => "Commit_Database is still under construction.");
  END Commit_Database;

  PROCEDURE Rollback_Database IS             --  R -> Table, Rollback Table
  BEGIN  --  stub
    Ada.Text_IO.put_line
        (Item => "Rollback_Database is still under construction.");
  END Rollback_Database;

  PROCEDURE Select_Database IS               --  S -> Table, Select all Rows
  BEGIN  --  stub
    Ada.Text_IO.put_line
        (Item => "Rollback_Database is still under construction.");
  END Select_Database;

  PROCEDURE Truncate_Database IS             --  T -> Table, Truncate Table
  BEGIN  --  stub
    Ada.Text_IO.put_line
        (Item => "Truncate_Database is still under construction.");
  END Truncate_Database;

  PROCEDURE Add_Row                          --  A -> Row, Add One Row
            (Item: IN Car; Success: OUT Boolean) IS
  BEGIN  --  stub
    Ada.Text_IO.put_line
        (Item => "Add_Row is still under construction.");
  END Add_Row;

  PROCEDURE Delete_Row                       --  D -> Row, Delete One Row
            (Tag: IN TagType; Success: OUT Boolean) IS
  BEGIN  --  stub
    Ada.Text_IO.put_line
        (Item => "Delete_Row is still under construction.");
  END Delete_Row;

  PROCEDURE Find_Row                         --  F -> Row, Find a Row
            (Tag: TagType; Item: OUT Car; Success: OUT Boolean) IS
  BEGIN -- stub  -- Find
    Ada.Text_IO.put_line
        (Item => "Delete_Row is still under construction.");
  END Find_Row;

  PROCEDURE Update_Row                       --  U -> Row, Update One Row
            (Tag: IN TagType; Item: IN Car; Success: OUT Boolean) IS
  BEGIN  --  stub
    Ada.Text_IO.put_line
        (Item => "Update_Row is still under construction.");
  END Update_Row;

END Cars;