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
fd347f89
Commit
fd347f89
authored
Mar 30, 2017
by
Maxime Perrotin
Browse files
Prepare for parsing interfaces
parent
4d31ad17
Changes
1
Show whitespace changes
Inline
Side-by-side
ada/buildsupport_utils.adb
View file @
fd347f89
...
...
@@ -382,6 +382,7 @@ package body Buildsupport_Utils is
use
type
Functions
.
Vector
;
use
type
Channels
.
Vector
;
use
type
Ctxt_Params
.
Vector
;
use
type
Interfaces
.
Vector
;
Funcs
:
Functions
.
Vector
:=
Functions
.
Empty_Vector
;
Routes
:
Channels
.
Vector
;
-- := Channels.Empty_Vector;
Current_Function
:
Node_Id
;
...
...
@@ -405,6 +406,10 @@ package body Buildsupport_Utils is
Subco
:
Node_Id
;
CP
:
Context_Parameter
;
CP_ASN1
:
Node_Id
;
-- To get the provided and required interfaces
PI_Or_RI
:
Node_Id
;
If_AST
:
Taste_Interface
;
pragma
Unreferenced
(
If_AST
);
begin
Result
.
Name
:=
US
(
Name
);
Result
.
Language
:=
Get_Source_Language
(
Inst
);
...
...
@@ -438,10 +443,20 @@ package body Buildsupport_Utils is
when
others
=>
null
;
end
case
;
Subco
:=
AIN
.
Next_Node
(
Subco
);
end
loop
;
end
if
;
-- Parse provided and required interfaces
if
Present
(
AIN
.
Features
(
Inst
))
then
PI_Or_RI
:=
AIN
.
First_Node
(
AIN
.
Features
(
Inst
));
while
Present
(
PI_Or_RI
)
loop
-- If_AST.RCM := Get_RCM_Operation_Kind (PI_Or_RI);
PI_Or_RI
:=
AIN
.
Next_Node
(
PI_Or_RI
);
-- PI or RI - test to be added:
-- Result.Provided := Result.Provided & If_AST;
end
loop
;
end
if
;
return
Result
;
end
Parse_Function
;
...
...
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