servertask.adb

Ada 2005 Training Notes.

with Ada.Text_IO;
use Ada.Text_IO;

package body ServerTask is

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