1. -- 
  2. --  Uwe R. Zimmer, Australia, September 2019 
  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.Routers_Configuration; 
  15.  
  16.    Router_Tasks  : array (Router_Range) of aliased Router_Task; 
  17.    Router_Active : array (Router_Range) of Boolean := (others => True); 
  18.  
  19.    Routers_Configured : Boolean := True; -- potentially set to False if the body does not successfully elaborate 
  20.  
  21.    procedure Router_Shutdown (Id : Router_Range); 
  22.    procedure Global_Shutdown; 
  23.  
  24. end Generic_Routers;