1. -- 
  2. --  Framework: Uwe R. Zimmer, Australia, 2015 
  3. -- 
  4.  
  5. with Ada.Strings.Bounded;           use Ada.Strings.Bounded; 
  6. with Generic_Routers_Configuration; 
  7.  
  8. generic 
  9.    with package Routers_Configuration is new Generic_Routers_Configuration (<>); 
  10.  
  11. package Generic_Message_Structures is 
  12.  
  13.    use Routers_Configuration; 
  14.  
  15.    package Message_Strings is new Generic_Bounded_Length (Max => 80); 
  16.    use Message_Strings; 
  17.  
  18.    subtype The_Core_Message is Bounded_String; 
  19.  
  20.    type Messages_Client is record 
  21.       Destination : Router_Range; 
  22.       The_Message : The_Core_Message; 
  23.    end record; 
  24.  
  25.    type Messages_Mailbox is record 
  26.       Sender      : Router_Range     := Router_Range'Invalid_Value; 
  27.       The_Message : The_Core_Message := Message_Strings.To_Bounded_String (""); 
  28.       Hop_Counter : Natural          := 0; 
  29.    end record; 
  30.  
  31.    -- Leave anything above this line as it will be used by the testing framework 
  32.    -- to communicate with your router. 
  33.  
  34.    --  Add one or multiple more messages formats here .. 
  35.  
  36. end Generic_Message_Structures;