Commit 29c63da1 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Add Ada templates for code skeleton

parent 70ac21f6
@@-- 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_@;
@@-- 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_@;
@@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@@
@@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@@
@_CAPITALIZE:Name_@ (@_REPLACE_ALL((\n)/):Parameters_@)
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