1. -- 
  2. --  Uwe R. Zimmer, Australia, September 2011 
  3. -- 
  4.  
  5. with Generic_Router; 
  6.  
  7. generic 
  8.  
  9.    with package Router is new Generic_Router (<>); 
  10.  
  11. package Generic_Routers is 
  12.  
  13.    use Router; 
  14.    use Message_Structures; 
  15.    use Routers_Configuration; 
  16.  
  17.    Router_Tasks : array (Router_Range) of aliased Router_Task; 
  18.  
  19.    Routers_Configured : Boolean := True; -- potentially set to False if the body does not successfully elaborate 
  20.  
  21.    procedure Global_Shutdown; 
  22.  
  23. end Generic_Routers;