Commit a1a922f7 authored by yoogx's avatar yoogx
Browse files

* Added function to manage TASTE-specific property sets

parent 28f890e5
......@@ -81,6 +81,8 @@ package body Ocarina.Property_Sets is
Standard_Property_Set_Mask : constant Byte := 2**2;
Ocarina_Property_Set_Mask : constant Byte := 2**3;
Use_Taste_Properties : Boolean := False;
function Internal_Name (N : Name_Id) return Name_Id;
function Internal_Name (S : String) return Name_Id;
......@@ -230,7 +232,12 @@ package body Ocarina.Property_Sets is
function Ocarina_Property_Sets return Ocarina_Property_Set_Array_Type is
begin
return Ocarina_Property_Sets_Table (AADL_Version).all;
if Use_Taste_Properties then
return Ocarina_Property_Sets_Table (AADL_Version).all
& O_Taste_Properties;
else
return Ocarina_Property_Sets_Table (AADL_Version).all;
end if;
end Ocarina_Property_Sets;
-------------------------
......@@ -246,4 +253,13 @@ package body Ocarina.Property_Sets is
Set_Name_Table_Byte (N, B or User_Defined_Mask);
end Set_As_User_Defined;
-------------------------------
-- Activate_Taste_Properties --
-------------------------------
procedure Activate_Taste_Properties is
begin
Use_Taste_Properties := True;
end Activate_Taste_Properties;
end Ocarina.Property_Sets;
......@@ -96,4 +96,8 @@ package Ocarina.Property_Sets is
function Ocarina_Property_Sets return Ocarina_Property_Set_Array_Type;
procedure Activate_Taste_Properties;
-- Special case to activate TASTE property sets as additional
-- Ocarina property set
end Ocarina.Property_Sets;
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