1. -- 
  2. --  Framework: Uwe R. Zimmer, Australia, 2019 
  3. -- 
  4.  
  5. with Exceptions; use Exceptions; 
  6.  
  7. package body Generic_Router is 
  8.  
  9.    task body Router_Task is 
  10.  
  11.       Connected_Routers : Ids_To_Links; 
  12.  
  13.    begin 
  14.       accept Configure (Links : Ids_To_Links) do 
  15.          Connected_Routers := Links; 
  16.       end Configure; 
  17.  
  18.       declare 
  19.          Port_List : constant Connected_Router_Ports := To_Router_Ports (Task_Id, Connected_Routers); 
  20.       begin 
  21.  
  22.          --  Replace the following accept with the code of your router 
  23.          -- (and place this accept somewhere more apporpriate) 
  24.  
  25.          accept Shutdown; 
  26.       end; 
  27.  
  28.    exception 
  29.       when Exception_Id : others => Show_Exception (Exception_Id); 
  30.    end Router_Task; 
  31.  
  32. end Generic_Router;