clienttask.adb

Ada 2005 Training Notes.

with Ada.Text_IO;
use Ada.Text_IO;

with ServerTask;

package body ClientTask is
   task body Client is
   begin
      Put_Line(" Client Task Loop Started Read to Accept Entries");
      loop
      accept CallService do
         ServerTask.Server.Service;
      end CallService;
      end loop;
   end Client;
end ClientTask;