servertask.adb

来自「Ada 2005 Training Notes.」· ADB 代码 · 共 16 行

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;