1. -- 
  2. -- Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. with Ada.Task_Identification;     use Ada.Task_Identification; 
  6. with Swarm_Structures_Base;      use Swarm_Structures_Base; 
  7.  
  8. package Vehicle_Task_Type is 
  9.  
  10.    task type Vehicle_Task is 
  11.       entry Identify (Set_Vehicle_No : Swarm_Element_Index; Local_Task_Id : out Task_Id); 
  12.    end Vehicle_Task; 
  13.  
  14. end Vehicle_Task_Type;