Commit 2981c9f9 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Start dump function for deployment view

parent a3aa44d9
......@@ -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;
......@@ -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 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;
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
......@@ -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 {
......
Supports Markdown
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