generic type Router_Range is (<>); type Router_Task_P is private; Null_Reference : Router_Task_P; package Generic_Router_Links is
type Router_Range is (<>);
type Router_Task_P is private;
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;
Null_Reference : Router_Task_P;
function To_Router_Ports
( | Task_Id | : Router_Range; |
Links | : Ids_To_Links) return Connected_Router_Ports; |