Skip to content

O
Ocarina
Commit 54ffd1cf authored by Julien's avatar Julien
Browse files
Options

Start to map the use of blackboards in the configuration file

parent 3de69482
Hide whitespace changes
Inline Side-by-side
Showing with 126 additions and 14 deletions
src/backends/ocarina-backends-deos_conf-mapping.adb
View file @ 54ffd1cf
......@@ -973,8 +973,19 @@ package body Ocarina.Backends.Deos_Conf.Mapping is
function Map_Partition (Process : Node_Id;
Runtime : Node_Id;
Partition_Identifier : Integer)
Partition_Identifier : Integer;
Nb_Threads : Unsigned_Long_Long;
Nb_Buffers : Unsigned_Long_Long;
Nb_Events : Unsigned_Long_Long;
Nb_Lock_Objects : Unsigned_Long_Long;
Nb_Blackboards : Unsigned_Long_Long;
Blackboards_Size : Unsigned_Long_Long;
Buffers_Size : Unsigned_Long_Long)
return Node_Id is
pragma Unreferenced (Nb_Buffers);
pragma Unreferenced (Nb_Events);
pragma Unreferenced (Nb_Lock_Objects);
pragma Unreferenced (Buffers_Size);
pragma Unreferenced (Process);
Partition_Node : Node_Id;
begin
......@@ -1012,10 +1023,19 @@ package body Ocarina.Backends.Deos_Conf.Mapping is
XTU.Add_Attribute ("ProcessStackSpaceInPages", "6", Partition_Node);
XTU.Add_Attribute ("MinimumProcessStackSizeInBytes",
"512", Partition_Node);
XTU.Add_Attribute ("ProcessQuota", "4", Partition_Node);
XTU.Add_Attribute ("BlackboardQuota", "1", Partition_Node);
XTU.Add_Attribute ("ProcessQuota",
Trim (Unsigned_Long_Long'Image
(Nb_Threads + 2), Left),
Partition_Node);
XTU.Add_Attribute ("BlackboardQuota",
Trim (Unsigned_Long_Long'Image
(Nb_Blackboards), Left),
Partition_Node);
XTU.Add_Attribute ("BlackboardMessageSpaceInBytes",
"256", Partition_Node);
Trim (Unsigned_Long_Long'Image
(Blackboards_Size), Left),
Partition_Node);
XTU.Add_Attribute ("BufferQuota", "0", Partition_Node);
XTU.Add_Attribute ("BufferMessageSpaceInBytes", "0", Partition_Node);
XTU.Add_Attribute ("SemaphoreQuota", "0", Partition_Node);
......
src/backends/ocarina-backends-deos_conf-mapping.ads
View file @ 54ffd1cf
......@@ -18,7 +18,15 @@ package Ocarina.Backends.Deos_Conf.Mapping is
function Map_Processor (E : Node_Id) return Node_Id;
function Map_Partition (Process : Node_Id;
Runtime : Node_Id;
Partition_Identifier : Integer) return Node_Id;
Partition_Identifier : Integer;
Nb_Threads : Unsigned_Long_Long;
Nb_Buffers : Unsigned_Long_Long;
Nb_Events : Unsigned_Long_Long;
Nb_Lock_Objects : Unsigned_Long_Long;
Nb_Blackboards : Unsigned_Long_Long;
Blackboards_Size : Unsigned_Long_Long;
Buffers_Size : Unsigned_Long_Long)
return Node_Id;
function Map_Bus (E : Node_Id) return Node_Id;
function Map_Port_Connection (E : Node_Id) return Node_Id;
function Map_Process_Memory (Process : Node_Id) return Node_Id;
......
src/backends/ocarina-backends-deos_conf-partitions.adb
View file @ 54ffd1cf
......@@ -31,12 +31,13 @@
-- --
------------------------------------------------------------------------------
-- with Locations;
with Ocarina.Backends.Messages;
with Ocarina.ME_AADL;
with Ocarina.ME_AADL.AADL_Instances.Nodes;
with Ocarina.ME_AADL.AADL_Instances.Nutils;
with Ocarina.ME_AADL.AADL_Instances.Entities;
with Ocarina.Backends.Utils;
with Ocarina.Backends.Properties;
with Ocarina.Backends.XML_Tree.Nodes;
with Ocarina.Backends.XML_Tree.Nutils;
......@@ -44,27 +45,38 @@ with Ocarina.Backends.Deos_Conf.Mapping;
package body Ocarina.Backends.Deos_Conf.Partitions is
-- use Locations;
use Ocarina.ME_AADL;
use Ocarina.Backends.Utils;
use Ocarina.Backends.Messages;
use Ocarina.ME_AADL.AADL_Instances.Nodes;
use Ocarina.ME_AADL.AADL_Instances.Entities;
use Ocarina.Backends.XML_Tree.Nutils;
use Ocarina.Backends.Properties;
use Ocarina.Backends.Deos_Conf.Mapping;
package AIN renames Ocarina.ME_AADL.AADL_Instances.Nodes;
package AINU renames Ocarina.ME_AADL.AADL_Instances.Nutils;
package XTN renames Ocarina.Backends.XML_Tree.Nodes;
package XTU renames Ocarina.Backends.XML_Tree.Nutils;
Root_Node : Node_Id := No_Node;
Partitions_Node : Node_Id := No_Node;
Memory_Regions : Node_Id := No_Node;
Partition_Identifier : Integer := 1;
Root_Node : Node_Id := No_Node;
Partitions_Node : Node_Id := No_Node;
Memory_Regions : Node_Id := No_Node;
Partition_Identifier : Integer := 1;
Process_Nb_Threads : Unsigned_Long_Long := 0;
Process_Nb_Buffers : Unsigned_Long_Long := 0;
Process_Nb_Events : Unsigned_Long_Long := 0;
Process_Nb_Lock_Objects : Unsigned_Long_Long := 0;
Process_Nb_Blackboards : Unsigned_Long_Long := 0;
Process_Blackboards_Size : Unsigned_Long_Long := 0;
Process_Buffers_Size : Unsigned_Long_Long := 0;
procedure Visit_Architecture_Instance (E : Node_Id);
procedure Visit_Component_Instance (E : Node_Id);
procedure Visit_System_Instance (E : Node_Id);
procedure Visit_Process_Instance (E : Node_Id);
procedure Visit_Thread_Instance (E : Node_Id);
procedure Visit_Processor_Instance (E : Node_Id);
procedure Visit_Bus_Instance (E : Node_Id);
procedure Visit_Virtual_Processor_Instance (E : Node_Id);
......@@ -168,6 +180,9 @@ package body Ocarina.Backends.Deos_Conf.Partitions is
when CC_Process =>
Visit_Process_Instance (E);
when CC_Thread =>
Visit_Thread_Instance (E);
when CC_Processor =>
Visit_Processor_Instance (E);
......@@ -182,6 +197,48 @@ package body Ocarina.Backends.Deos_Conf.Partitions is
end case;
end Visit_Component_Instance;
---------------------------
-- Visit_Thread_Instance --
---------------------------
procedure Visit_Thread_Instance (E : Node_Id) is
F : Node_Id;
begin
Process_Nb_Threads := Process_Nb_Threads + 1;
if not AINU.Is_Empty (Features (E)) then
F := First_Node (Features (E));
while Present (F) loop
if Kind (F) = K_Port_Spec_Instance then
if Get_Connection_Pattern (F) = Intra_Process
and then Is_In (F)
then
if AIN.Is_Data (F) and then not AIN.Is_Event (F) then
Process_Nb_Blackboards := Process_Nb_Blackboards + 1;
Process_Blackboards_Size :=
Process_Blackboards_Size +
To_Bytes
(Get_Data_Size
(Corresponding_Instance (F)));
elsif AIN.Is_Data (F) and then AIN.Is_Event (F) then
Process_Nb_Buffers := Process_Nb_Buffers + 1;
elsif AIN.Is_Event (F) and then not AIN.Is_Data (F) then
Process_Nb_Events := Process_Nb_Events + 1;
else
Display_Error ("Communication Pattern not handled",
Fatal => True);
end if;
Process_Nb_Lock_Objects := Process_Nb_Lock_Objects + 1;
end if;
end if;
F := Next_Node (F);
end loop;
end if;
end Visit_Thread_Instance;
----------------------------
-- Visit_Process_Instance --
----------------------------
......@@ -289,12 +346,30 @@ package body Ocarina.Backends.Deos_Conf.Partitions is
Corresponding_Process := Find_Associated_Process (E);
if Corresponding_Process /= No_Node then
Process_Nb_Threads := 0;
Process_Nb_Buffers := 0;
Process_Nb_Events := 0;
Process_Nb_Lock_Objects := 0;
Process_Nb_Blackboards := 0;
Process_Blackboards_Size := 0;
Process_Buffers_Size := 0;
Visit (Corresponding_Process);
--
-- First, we create the description of the partition.
--
Partition_Node := Map_Partition (Corresponding_Process,
E,
Partition_Identifier);
Partition_Identifier,
Process_Nb_Threads,
Process_Nb_Buffers,
Process_Nb_Events,
Process_Nb_Lock_Objects,
Process_Nb_Blackboards,
Process_Blackboards_Size,
Process_Buffers_Size);
Append_Node_To_List
(Partition_Node,
XTN.Subitems (Partitions_Node));
......
src/backends/ocarina-backends-properties.adb
View file @ 54ffd1cf
......@@ -116,6 +116,7 @@ package body Ocarina.Backends.Properties is
Real_Range : Name_Id;
Data_Required_Access : Name_Id;
Data_Provided_Access : Name_Id;
Source_Data_Size : Name_Id;
Data_Size : Name_Id;
Code_Size : Name_Id;
Data_Concurrency_Protocol : Name_Id;
......@@ -1143,10 +1144,17 @@ package body Ocarina.Backends.Properties is
-------------------
function Get_Data_Size (D : Node_Id) return Size_Type is
Ret : Size_Type;
begin
pragma Assert (AINU.Is_Data (D) or else AINU.Is_Process (D));
return (Get_Size_Property_Value (D, Data_Size));
Ret := Get_Size_Property_Value (D, Data_Size);
if Ret = Null_Size then
Ret := Get_Size_Property_Value (D, Source_Data_Size);
end if;
return Ret;
end Get_Data_Size;
-------------------
......@@ -3114,7 +3122,8 @@ package body Ocarina.Backends.Properties is
Real_Range := Get_String_Name ("data_model::real_range");
Data_Required_Access := Get_String_Name ("required_access");
Data_Provided_Access := Get_String_Name ("provided_access");
Data_Size := Get_String_Name ("source_data_size");
Data_Size := Get_String_Name ("data_size");
Source_Data_Size := Get_String_Name ("source_data_size");
Code_Size := Get_String_Name ("source_code_size");
Data_Representation :=
Get_String_Name ("data_model::data_representation");
......
Markdown is supported
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