Start working on connections

ada/buildsupport_utils.adb

@@ -408,6 +408,7 @@ package body Buildsupport_Utils is
       Funcs             : Functions.Vector := Functions.Empty_Vector;
       Routes            : Channels.Vector; --  := Channels.Empty_Vector;
       Current_Function  : Node_Id;
+      Conn              : Node_Id;
 
       --  Parse an individual context parameter
       function Parse_CP (Subco : Node_Id) return Context_Parameter is
@@ -488,6 +489,11 @@ package body Buildsupport_Utils is
                Param_I := AIN.Next_Node (Param_I);
             end loop;
          end if;
+         --  Parse the connection (if RI)
+         if not AIN.Is_Provided (If_I) then
+            Put_Line ("Required Interface " & To_String (Result.Name));
+            Put_Line ("Connected to " & AIN_Case (CI));
+         end if;
          return Result;
       end Parse_Interface;
 
@@ -591,6 +597,16 @@ package body Buildsupport_Utils is
       end loop;
 
       --  Parse connections
+      if Present (AIN.Connections (System)) then
+         Conn := AIN.First_Node (AIN.Connections (System));
+         while Present (Conn) loop
+            Put_Line ("Connection " &
+             Get_Interface_Name (Get_Referenced_Entity (AIN.Source (Conn)))'Img
+                     & " -> " &
+      Get_Interface_Name (Get_Referenced_Entity (AIN.Destination (Conn)))'Img);
+            Conn := AIN.Next_Node (Conn);
+         end loop;
+      end if;
 
       return IV_AST : constant Complete_Interface_View :=
           (Flat_Functions => Funcs,