Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
37 lines (27 sloc) 1.36 KB
with Ada.Containers,
Ada.Containers.Indefinite_Hashed_Maps,
Ada.Exceptions,
Ada.Task_Identification,
Ada.Task_Termination,
Ada.Unchecked_Deallocation,
GNAT.Sockets;
package EchoMultitask.Worker is
task type Worker is
entry Serve (Sock : GNAT.Sockets.Socket_Type);
end Worker;
--- Declare a pointer type for pointers to Worker objects
type Worker_Ptr is access all Worker;
-- Procedure to properly deallocate a heap-allocated Worker task
procedure Free_Worker is new Ada.Unchecked_Deallocation (Object => Worker,
Name => Worker_Ptr);
function Hash (Key : Ada.Task_Identification.Task_Id) return Ada.Containers.Hash_Type;
package Worker_Containers is new Ada.Containers.Indefinite_Hashed_Maps (Key_Type => Ada.Task_Identification.Task_id,
Element_Type => Worker_Ptr,
Hash => Hash,
Equivalent_Keys => Ada.Task_Identification."=");
protected Coordinator is
procedure Track (Ptr : in Worker_Ptr);
private
Tasks : Worker_Containers.Map;
end Coordinator;
end EchoMultitask.Worker;