1. -- 
  2. --  Uwe R. Zimmer, Australia, September 2011 
  3. -- 
  4.  
  5. with Exceptions;                      use Exceptions; 
  6.  
  7. package body Generic_Router is 
  8.  
  9.    task body Router_Task is 
  10.  
  11.    begin 
  12.  
  13.       --  Replace the following loop with the code of your router 
  14.  
  15.       loop 
  16.          delay 1.0; 
  17.       end loop; 
  18.  
  19.    exception 
  20.       when Exception_Id : others => Show_Exception (Exception_Id); 
  21.    end Router_Task; 
  22.  
  23. end Generic_Router;