Commit 9eab0412 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Augment the skeleton templates

parent 6788fd7d
......@@ -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;
......
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
......@@ -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
......
......@@ -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_@
......
......@@ -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_@
......
......@@ -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_@
......
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