clienttask.adb

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

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;