tasking.adb

Ada 2005 Training Notes.

with ClientTask;
use ClientTask;

with ServerTask;
use ServerTask;

with Buffer;

with Ada.Text_IO;
use Ada.Text_IO;

with SubProgram;
use SubProgram;

procedure Tasking is
   B: Buffer.Buffer(80);
   C: Character;
   GRAVITY : constant Float := 10.0120E0;
   PI: constant := 3.1443_4323_4343;
   WRONG: constant := 12;
   PI_GRAVITY: constant  := PI * GRAVITY;
   Divident: Float := 3.0;
   Divider: Float := 5.0;
   type Day is  (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
   type WorkHours is array (Day'Range) of Integer;
   TuncaWorkhours : WorkHours;
   subtype IdxType is Integer range 1..3;
   subtype WorkDay is Day range Tue .. Fri;
   type Matrix3x3 is array(IdxType, IdxType) of Integer;

   I3x3: Matrix3x3 := ((1, 0, 0),
                       (0, 1, 0),
                       (0, 0, 1));

   V1: Vector(10..30) := (Others => 3.3);

   R1: ARecord := (V=> (Others=>1), I=> 0);
begin
   TuncaWorkHours := (
                      Sat => 0,
                      Sun => 0,
                      Others => 9);

   for DayIdx in Day'Range loop
      Put_Line(" Tunca Works on " & Day'Image(DayIdx) &
               " " &
               Integer'Image(TuncaWorkHours(DayIdx)) &
               " Hours.");
   end loop;

   Client.CallService;
   Put_Line(Float'Image(Divident /Divider));

   SubProgram.PassArrayParameter(V => V1);
   SubProgram.PassRecordParameter(R=> R1);
end Tasking;