generic

   type Router_Range  is (<>);
   type Router_Task_P is private;

   Null_Reference : Router_Task_P;

package Generic_Router_Links is

type Router_Ports is record
      Id   : Router_Range;
      Link : Router_Task_P;
   end record;

type Connected_Router_Ports is array (Positive range <>) of Router_Ports;

type Ids_To_Links           is array (Router_Range)      of Router_Task_P;

function To_Router_Ports 
(
Task_Id
: Router_Range;
Links
: Ids_To_Links)
return Connected_Router_Ports;