Object-oriented Software in Ada 95

412 Appendix D
package body Class_Emp_Pay is
procedure Set_Hourly_Rate(The:in out Emp_Pay; R:in Money) is
begin
The.Rate := R;
end Set_Hourly_Rate;
procedure Add_Hours_Worked(The:in out Emp_Pay; H:in Hours) is
begin
The.Worked := The.Worked + H;
end Add_Hours_Worked;
function Pay( The:in Emp_Pay ) return Money is
begin
return The.Rate * The.Worked * Tax;
end Pay;
procedure Reset(The:in out Emp_Pay) is
begin
The.Rate := 0.0; The.Worked := 0.0;
end Reset;
function Hours_Worked( The:in Emp_Pay ) return Hours is
begin
return The.Worked;
end Hours_Worked;
function Pay_Rate( The:in Emp_Pay ) return Money is
begin
return The.Rate;
end Pay_Rate;
end Class_Emp_Pay;
with Pack_Types, Class_Emp_Pay;
use Pack_Types, Class_Emp_Pay;
package Class_Better_Emp_Pay is
type Better_Emp_Pay is new Emp_Pay with private;
procedure Set_Overtime_Pay(The:in out Better_Emp_Pay;
R:in Money);
procedure Normal_Pay_Hours(The:in out Better_Emp_Pay;
H:in Hours);
function Pay( The:in Better_Emp_Pay ) return Money;
private
type Better_Emp_Pay is new Emp_Pay with record
Normal_Hours : Hours := 0.0; --Normal pay hours
Over_Time_Pay : Money := 0.0; --Overtime rate
end record;
end Class_Better_Emp_Pay;
© M A Smith - May not be reproduced without permission