Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
buildsupport
Commits
70c9810c
Commit
70c9810c
authored
Apr 06, 2017
by
Maxime Perrotin
Browse files
Discard parsing connections for now
Connections with v2 nested functions are a nightmare to parse with ocarina :-(
parent
de937383
Changes
2
Hide whitespace changes
Inline
Side-by-side
ada/buildsupport_utils.adb
View file @
70c9810c
...
...
@@ -409,6 +409,7 @@ package body Buildsupport_Utils is
Routes
:
Channels
.
Vector
;
-- := Channels.Empty_Vector;
Current_Function
:
Node_Id
;
Conn
:
Node_Id
;
pragma
Unreferenced
(
Routes
);
-- Parse an individual context parameter
function
Parse_CP
(
Subco
:
Node_Id
)
return
Context_Parameter
is
...
...
@@ -490,10 +491,10 @@ package body Buildsupport_Utils is
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
;
--
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
;
...
...
@@ -600,17 +601,13 @@ package body Buildsupport_Utils is
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
,
Connections
=>
Routes
);
(
Flat_Functions
=>
Funcs
);
--
Connections => Routes);
end
AADL_to_Ada_IV
;
end
Buildsupport_Utils
;
ada/buildsupport_utils.ads
View file @
70c9810c
...
...
@@ -178,7 +178,7 @@ package Buildsupport_Utils is
type
Complete_Interface_View
is
record
Flat_Functions
:
Functions
.
Vector
;
Connections
:
Channels
.
Vector
;
--
Connections : Channels.Vector;
end
record
;
-- Function to build up the Ada AST by transforming the one from Ocarina
...
...
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