Commit de937383 authored by Maxime Perrotin's avatar Maxime Perrotin

Start working on connections

parent e363e635
......@@ -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,
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment