Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
kazoo
Commits
54ad3514
Commit
54ad3514
authored
Nov 29, 2019
by
Maxime Perrotin
Browse files
Test if connections exist
parent
8f9158ca
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/taste-interface_view.adb
View file @
54ad3514
...
...
@@ -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
...
...
test/e2es_complete/InterfaceView.aadl
View file @
54ad3514
...
...
@@ -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";
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment