Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
kazoo
Commits
2981c9f9
Commit
2981c9f9
authored
Dec 06, 2017
by
Maxime Perrotin
Browse files
Start dump function for deployment view
parent
a3aa44d9
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/deployment_view.adb
View file @
2981c9f9
...
...
@@ -465,5 +465,34 @@ package body Deployment_View is
Busses
=>
Busses
);
end
Parse_Deployment_View
;
procedure
Debug_Dump
(
DV
:
Complete_Deployment_View
)
is
null
;
procedure
Dump_Nodes
(
DV
:
Complete_Deployment_View
)
is
begin
for
Each
of
DV
.
Nodes
loop
Put_Line
(
"Node : "
&
To_String
(
Each
.
Name
));
for
Partition
of
Each
.
Partitions
loop
Put_Line
(
" |_ Partition : "
&
To_String
(
Partition
.
Name
));
Put_Line
(
" |_ Coverage : "
&
Partition
.
Coverage
'
Img
);
Put_Line
(
" |_ Package : "
&
To_String
(
Partition
.
Package_Name
));
Put_Line
(
" |_ CPU Name : "
&
To_String
(
Partition
.
CPU_Name
));
Put_Line
(
" |_ CPU Platform : "
&
Partition
.
CPU_Platform
'
Img
);
Put_Line
(
" |_ CPU Classifier : "
&
To_String
(
Partition
.
CPU_Classifier
));
Put
(
" |_ Contains : "
);
for
Bounded
of
Partition
.
Bound_Functions
loop
Put
(
Bounded
&
" "
);
end
loop
;
Ada
.
Text_IO
.
New_Line
;
end
loop
;
end
loop
;
end
Dump_Nodes
;
procedure
Debug_Dump
(
DV
:
Complete_Deployment_View
)
is
begin
DV
.
Dump_Nodes
;
DV
.
Dump_Connections
;
DV
.
Dump_Busses
;
end
Debug_Dump
;
end
Deployment_View
;
src/deployment_view.ads
View file @
2981c9f9
...
...
@@ -123,7 +123,9 @@ package Deployment_View is
function
Parse_Deployment_View
(
System
:
Node_Id
)
return
Complete_Deployment_View
with
Pre
=>
System
/=
No_Node
;
procedure
Debug_Dump
(
DV
:
Complete_Deployment_View
);
procedure
Dump_Nodes
(
DV
:
Complete_Deployment_View
);
procedure
Dump_Connections
(
DV
:
Complete_Deployment_View
)
is
null
;
procedure
Dump_Busses
(
DV
:
Complete_Deployment_View
)
is
null
;
procedure
Debug_Dump
(
DV
:
Complete_Deployment_View
);
end
Deployment_View
;
src/parser_version.ads
View file @
2981c9f9
package
Parser_Version
is
Parser_Release
:
constant
String
:=
"
ddcfeb9
; Commit Date:
Mon
Dec
4
21:
20:27
2017 "
;
"
a3aa44d
; Commit Date:
Tue
Dec
5
21:
56:09
2017 "
;
Ocarina_Version
:
constant
String
:=
"Ocarina 2017.x (Working Copy from r0b92ed3)"
;
end
Parser_Version
;
\ No newline at end of file
test/test2/DeploymentView.aadl
View file @
2981c9f9
...
...
@@ -101,6 +101,7 @@ SUBCOMPONENTS
};
first_binary : PROCESS deploymentview::DV::Node1::first_binary.others {
Taste::coordinates => "97495 54172 119317 74971";
TASTE_DV_Properties::CoverageEnabled => true;
Deployment::Port_Number => 0;
};
x86_linux : PROCESSOR ocarina_processors_x86::x86.linux {
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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