Augment the skeleton templates

src/taste-backend-skeletons.adb

@@ -203,16 +203,28 @@ package body TASTE.Backend.Skeletons is
         & Assoc ("Language", Language_Spelling (F))
         & Assoc ("Has_Context", (Length (F.Context_Params) > 0));
 
-      --  Add list of PI names
+      --  Add list of all PI names (both synchronous and asynchronous)
       for Each of F.Provided loop
          Result.Provided := Result.Provided & Interface_Template (Each);
-         List_Of_PIs := List_Of_PIs & Each.Name;
+         List_Of_PIs     := List_Of_PIs & Each.Name;
+         case Each.RCM is
+            when Cyclic_Operation | Sporadic_Operation =>
+               null;
+            when others =>
+               null;
+         end case;
       end loop;
 
-      --  Add list of RI names
+      --  Add list of all RI names (both synchronous and asynchronous)
       for Each of F.Required loop
          Result.Required := Result.Required & Interface_Template (Each);
-         List_Of_RIs := List_Of_RIs & Each.Name;
+         List_Of_RIs     := List_Of_RIs & Each.Name;
+         case Each.RCM is
+            when Cyclic_Operation | Sporadic_Operation =>
+               null;
+            when others =>
+               null;
+         end case;
       end loop;
 
       --  Add list of timers (names)
@@ -232,6 +244,8 @@ package body TASTE.Backend.Skeletons is
         & Assoc ("List_Of_RIs",     List_Of_RIs)
         & Assoc ("Property_Names",  Property_Names)
         & Assoc ("Property_Values", Property_Values)
+        & Assoc ("Is_Type",         F.Is_Type)
+        & Assoc ("Instance_Of",     F.Instance_Of.Value_Or (US ("")))
         & Assoc ("Timers",          Timers);
       return Result;
    end Func_Template;

src/taste-parser_version.ads

 package TASTE.Parser_Version is
    Parser_Release : constant String :=
-      "1d37c85 ; Commit Date:   Fri Feb 23 13:52:26 2018 ";
+      "6788fd7 ; Commit Date:   Fri Feb 23 15:17:57 2018 ";
    Ocarina_Version : constant String :=
       "Ocarina 2017.x (Working Copy from rc50d394)";
 end TASTE.Parser_Version;
\ No newline at end of file

templates/skeletons/ada/body.tmplt

@@ -11,6 +11,8 @@
 @@-- @_Required_Interfaces_@ : List of Required interfaces with parameters
 @@-- @_Property_Names_@      : List of User-defined properties (names)
 @@-- @_Property_Values_@     : List of User-defined properties (values)
+@@-- @_Is_Type_@             : Flag, True if function is a component type
+@@-- @_Instance_Of_@         : Optional name of component type
 --  Body file for function @_Name_@
 --  Generated by TASTE on @_NOW_@
 --  You can edit this file, it will not be overwritten

templates/skeletons/ada/header.tmplt

@@ -11,6 +11,8 @@
 @@-- @_Required_Interfaces_@ : List of Required interfaces with parameters
 @@-- @_Property_Names_@      : List of User-defined properties (names)
 @@-- @_Property_Values_@     : List of User-defined properties (values)
+@@-- @_Is_Type_@             : Flag, True if function is a component type
+@@-- @_Instance_Of_@         : Optional name of component type
 --  Header file for function @_Name_@ in @_Language_@ language
 --  Generated by TASTE on @_NOW_@
 --  Context Parameters present : @_YES_NO:Has_Context_@

templates/skeletons/c/body.tmplt

@@ -11,6 +11,8 @@
 @@-- @_Required_Interfaces_@ : List of Required interfaces with parameters
 @@-- @_Property_Names_@      : List of User-defined properties (names)
 @@-- @_Property_Values_@     : List of User-defined properties (values)
+@@-- @_Is_Type_@             : Flag, True if function is a component type
+@@-- @_Instance_Of_@         : Optional name of component type
 
 /* Body file for function @_Name_@
  * Generated by TASTE on @_NOW_@

templates/skeletons/c/header.tmplt

@@ -11,6 +11,8 @@
 @@-- @_Required_Interfaces_@ : List of Required interfaces with parameters
 @@-- @_Property_Names_@      : List of User-defined properties (names)
 @@-- @_Property_Values_@     : List of User-defined properties (values)
+@@-- @_Is_Type_@             : Flag, True if function is a component type
+@@-- @_Instance_Of_@         : Optional name of component type
 
 /* Header file for function @_Name_@ in @_Language_@ language
  * Generated by TASTE on @_NOW_@