Add Ada templates for code skeleton

templates/skeletons/ada/body-filename.tmplt

+@_LOWER:Name_@.adb

templates/skeletons/ada/body.tmplt

+@@-- The following tags are available in this template:
+@@--
+@@-- @_Name_@                : The name of the function
+@@-- @_Language_@            : The implementation language
+@@-- @_List_Of_PIs_@         : List of all Provided Interfaces (just names)
+@@-- @_List_Of_RIs_@         : List of all Required Interfaces (just names)
+@@-- @_Timers_@              : List of timers (just names)
+@@-- @_Has_Context_@         : Flag, True if there are context parameters
+@@-- @_Provided_Interfaces_@ : List of Provided interfaces with parameters
+@@-- @_Required_Interfaces_@ : List of Required interfaces with parameters
+
+--  Body file for function @_Name_@
+--  Generated by TASTE on @_NOW_@
+--  You can edit this file, it will not be overwritten
+--  Provided interfaces : @_List_Of_PIs_@
+--  Required interfaces : @_List_Of_RIs_@
+--  Timers              : @_Timers_@
+
+@@IF@@ @_Has_Context_@
+--  Include Context Parameters (constants defined in the Interface View) */
+--  with Context....@_REPLACE((_)/-):LOWER:Name_@;
+@@END_IF@@
+
+package body @_CAPITALIZE:Name_@ is
+
+   procedure Startup is
+   begin
+      --  Write startup code here
+   end Startup;
+
+@@TABLE@@
+   procedure @_CAPITALIZE:Name_@_@_Provided_Interfaces_@ is
+   begin
+      null;
+      --  Write your code here
+   end @_CAPITALIZE:Name_@_@_Provided_Interfaces_@;
+
+@@END_TABLE@@
+@@TABLE@@
+   procedure @_CAPITZIZE:Name_@_@_Timers_@ is
+   begin
+      null;
+      -- This function is called when the timer expires
+   end @_CAPITZIZE:Name_@_@_Timers_@;
+
+}
+@@END_TABLE@@
+
+end @_CAPITALIZE:Name_@;
+

templates/skeletons/ada/header-filename.tmplt

+@_LOWER:Name_@.ads

templates/skeletons/ada/header.tmplt

+@@-- The following tags are available in this template:
+@@--
+@@-- @_Name_@                : The name of the function
+@@-- @_Language_@            : The implementation language
+@@-- @_List_Of_PIs_@         : List of all Provided Interfaces (just names)
+@@-- @_List_Of_RIs_@         : List of all Required Interfaces (just names)
+@@-- @_Timers_@              : List of timers (just names)
+@@-- @_Has_Context_@         : Flag, True if there are context parameters
+@@-- @_Provided_Interfaces_@ : List of Provided interfaces with parameters
+@@-- @_Required_Interfaces_@ : List of Required interfaces with parameters
+
+--  Header file for function @_Name_@ in @_Language_@ language
+--  Generated by TASTE on @_NOW_@
+--  Context Parameters present : @_YES_NO:Has_Context_@
+--  Provided interfaces : @_List_Of_PIs_@
+--  Required interfaces : @_List_Of_RIs_@
+--  DO NOT EDIT THIS FILE, IT WILL BE OVERWRITTEN DURING THE BUILD
+
+package @_CAPITALIZE:Name_@ is
+
+   procedure Startup;
+
+@@TABLE@@
+   procedure @_CAPITALIZE:Name_@@_Provided_Interfaces_@;
+   --  Add Export aspect.
+@@END_TABLE@@
+
+@@TABLE@@
+   procedure @_CAPITALIZE:Name_@@_Required_Interfaces_@;
+   --  Add Import aspect
+@@END_TABLE@@
+
+@@TABLE@@
+   procedure @_CAPITALIZE:Name_@@_Timers_@();
+
+   --  Call these functions to set/reset @_Timers_@ (value in milliseconds)
+   procedure @_CAPITALIZE:Name_@_Set_@_Timers_@(Value : access asn1SccT_UInt32);
+   procedure @_CAPITALIZE:Name_@_Reset_@_Timers_@;
+@@END_TABLE@@
+
+end @_CAPITALIZE:Name_@;

templates/skeletons/ada/interface-body-parameter.tmplt

+@@IF@@ @_Direction_@ = "PARAM_IN"
+IN_@_CAPITALIZE:Name_@ : access asn1Scc@_CAPITALIZE:REPLACE_ALL((-)/_):Type_@
+@@ELSE@@
+OUT_@_CAPITALIZE:Name_@ : access asn1Scc@_CAPITALIZE:REPLACE_ALL((-)/_):Type_@
+@@END_IF@@

templates/skeletons/ada/interface-header-parameter.tmplt

+@@IF@@ @_Direction_@ = "PARAM_IN"
+IN_@_CAPITALIZE:Name_@ : access asn1Scc@_CAPITALIZE:REPLACE_ALL((-)/_):Type_@
+@@ELSE@@
+OUT_@_CAPITALIZE:Name_@ : access asn1Scc@_CAPITALIZE:REPLACE_ALL((-)/_):Type_@
+@@END_IF@@

templates/skeletons/ada/interface-signature.tmplt

+@_CAPITALIZE:Name_@ (@_REPLACE_ALL((\n)/):Parameters_@)