* Added function to manage TASTE-specific property sets

src/core/tree/ocarina-property_sets.adb

@@ -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;

src/core/tree/ocarina-property_sets.ads

@@ -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;