Object-oriented Software in Ada 95

Appendix D 413
package body Class_Better_Emp_Pay is
procedure Set_Overtime_Pay(The:in out Better_Emp_Pay;
R:in Money) is
begin
The.Over_Time_Pay := R;
end Set_Overtime_Pay;
procedure Normal_Pay_Hours(The:in out Better_Emp_Pay;
H:in Hours) is
begin
The.Normal_Hours := H;
end Normal_Pay_Hours;
function Pay( The:in Better_Emp_Pay ) return Money is
Get : Money;
begin
if Hours_Worked(The) > The.Normal_Hours then
Get := The.Normal_Hours * Pay_Rate(The) +
(Hours_Worked(The)-The.Normal_Hours)*The.Over_Time_Pay;
return Get * Tax;
else
return Pay( Emp_Pay(The) );
end if;
end Pay;
end Class_Better_Emp_Pay;
with Ada.Text_Io, Ada.Float_Text_Io, Class_Emp_Pay, Class_Better_Emp_Pay;
use Ada.Text_Io, Ada.Float_Text_Io, Class_Emp_Pay, Class_Better_Emp_Pay;
procedure Main is
Mike : Emp_Pay;
Corinna : Better_Emp_Pay;
begin
Set_Hourly_Rate( Mike, 10.00 );
Add_Hours_Worked( Mike, 40.0 );
Put( "Mike gets : " ); Put( Pay(Mike), Exp=>0, Aft=>2 );
New_Line;
Set_Hourly_Rate( Corinna, 10.00 );
Set_Overtime_Pay( Corinna, 11.00 );
Normal_Pay_Hours( Corinna, 30.0 );
Add_Hours_Worked( Corinna, 40.0 );
Put( "Corinna gets : " ); Put( Pay(Corinna), Exp=>0, Aft=>2 );
New_Line;
end Main;
From chapter 13
A program to use a generic data store. The specification for the class Store is
© M A Smith - May not be reproduced without permission