1. -- 
  2. --  Uwe R. Zimmer, Australia, September 2011 
  3. -- 
  4.  
  5. with Routers_Configuration_Structures; use Routers_Configuration_Structures; 
  6. with Topologies;                       use Topologies; 
  7.  
  8. generic 
  9.    Command_Line_Parameters : Command_Line_Options; 
  10.  
  11. package Generic_Routers_Configuration is 
  12.  
  13.    Connection_Topology : constant Topology_Kind'Class := Get_Topology (Command_Line_Parameters); 
  14.  
  15.    type Router_Range is new Positive range 1 .. Nodes_in_Topology (Connection_Topology); 
  16.  
  17. end Generic_Routers_Configuration;