1. -- 
  2. -- Uwe R. Zimmer, Australia, 2013 
  3. -- 
  4.  
  5. generic 
  6.    type Element is private; 
  7.    Queue_Size : Positive := 10; 
  8.  
  9. package Queue_Pack_Task_Generic is 
  10.  
  11.    task type Queue_Task is 
  12.  
  13.       entry Enqueue (Item :     Element); 
  14.       entry Dequeue (Item : out Element); 
  15.  
  16.       entry Is_Empty (Result : out Boolean); 
  17.       entry Is_Full  (Result : out Boolean); 
  18.  
  19.    end Queue_Task; 
  20.  
  21. end Queue_Pack_Task_Generic;