Commit 54ad3514 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Test if connections exist

parent 8f9158ca
......@@ -515,7 +515,7 @@ package body TASTE.Interface_View is
(if Context /= From then From else "_env");
Result : Remote_Entity :=
(US ("Not found!"), US ("Not found!"), US ("Not found!"));
Connections : Channels.Vector;
Connections : Channels.Vector := Channels.Empty_Vector;
Set_Going_Out : Boolean := False;
begin
-- Note: There is a limitation in the interface view when there are
......@@ -526,7 +526,10 @@ package body TASTE.Interface_View is
-- * This is NOT RIGHT and should be fixed by Ellidiss *
-- Retrieve the list of connections of the source function context
Connections := Routes_Map.Element (Key => Context);
if Routes_Map.Contains (Key => Context) then
Connections := Routes_Map.Element (Key => Context);
end if;
for Each of Connections loop
if Each.Caller = Source and Each.RI_Name = US (RI) then
-- Found the connection in the current context
......
......@@ -763,6 +763,49 @@ END Observation_Timeline.others;
END interfaceview::IV::Observation_Timeline;
PACKAGE interfaceview::IV::Function1
PUBLIC
WITH Taste;
WITH DataView;
WITH TASTE_IV_Properties;
SUBPROGRAM PI_abc
END PI_abc;
SUBPROGRAM IMPLEMENTATION PI_abc.others
PROPERTIES
Compute_Execution_Time => 0 ms .. 0 ms;
END PI_abc.others;
SUBPROGRAM RI_RI1
END RI_RI1;
SUBPROGRAM IMPLEMENTATION RI_RI1.others
END RI_RI1.others;
SYSTEM Function1
FEATURES
PI_abc : PROVIDES SUBPROGRAM ACCESS interfaceview::IV::Function1::PI_abc.others {
Taste::coordinates => "97236 115109";
Taste::RCMoperationKind => unprotected;
Taste::InterfaceName => "abc";
};
RI_RI1 : REQUIRES SUBPROGRAM ACCESS interfaceview::IV::Function1::RI_RI1.others {
Taste::coordinates => "118404 111581";
Taste::RCMoperationKind => any;
Taste::InterfaceName => "RI1";
Taste::labelInheritance => "true";
};
PROPERTIES
Source_Language => (C);
Taste::Active_Interfaces => any;
END Function1;
SYSTEM IMPLEMENTATION Function1.others
END Function1.others;
END interfaceview::IV::Function1;
PACKAGE interfaceview::IV
PUBLIC
......@@ -771,6 +814,7 @@ WITH interfaceview::IV::Geometry_Module;
WITH interfaceview::IV::Scene_Creation_Module;
WITH interfaceview::IV::Console;
WITH interfaceview::IV::Observation_Timeline;
WITH interfaceview::IV::Function1;
WITH Taste;
WITH DataView;
WITH TASTE_IV_Properties;
......@@ -797,6 +841,9 @@ SUBCOMPONENTS
Observation_Timeline : SYSTEM interfaceview::IV::Observation_Timeline::Observation_Timeline.others {
Taste::coordinates => "97119 47148 154968 87948";
};
Function1 : SYSTEM interfaceview::IV::Function1::Function1.others {
Taste::coordinates => "97236 111581 121340 125102";
};
CONNECTIONS
Simulation_Manager_PI_Module1_In_Scene_Creation_Module_RI_Module_Out : SUBPROGRAM ACCESS Simulation_Manager.PI_Module1_In -> Scene_Creation_Module.RI_Module_Out {
Taste::coordinates => "153791 107465 75954 107465 75954 74544";
......
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