Commit feb4be73 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Improve the Ada skeleton templates

parent 8eb00510
......@@ -4,6 +4,7 @@
@@-- @_Language_@ : The implementation language
@@-- @_List_Of_PIs_@ : List of all Provided Interfaces (just names)
@@-- @_List_Of_RIs_@ : List of all Required Interfaces (just names)
@@-- @_ASN1_Modules_@ : List of ASN.1 Modules names
@@-- @_Timers_@ : List of timers (just names)
@@-- @_Has_Context_@ : Flag, True if there are context parameters
@@-- @_Provided_Interfaces_@ : List of Provided interfaces with parameters
......
......@@ -4,11 +4,11 @@
@@-- @_Language_@ : The implementation language
@@-- @_List_Of_PIs_@ : List of all Provided Interfaces (just names)
@@-- @_List_Of_RIs_@ : List of all Required Interfaces (just names)
@@-- @_ASN1_Modules_@ : List of ASN.1 Modules 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_@
......@@ -16,26 +16,37 @@
-- Required interfaces : @_List_Of_RIs_@
-- DO NOT EDIT THIS FILE, IT WILL BE OVERWRITTEN DURING THE BUILD
package @_CAPITALIZE:Name_@ is
with adaasn1rtl;
use adaasn1rtl;
@@TABLE@@
with @_CAPITALIZE:ASN1_Modules_@;
use @_CAPITALIZE:ASN1_Modules_@;
@@END_TABLE@@
procedure Startup;
package @_CAPITALIZE:Name_@ is
-- PROVIDED INTERFACES ----------------------------------------------- --
@@TABLE@@
procedure @_CAPITALIZE:Name_@@_Provided_Interfaces_@;
-- Add Export aspect.
procedure @_Provided_Interfaces_@
with Export, Convention => C, Link_Name => "@_LOWER:Name_@_PI_@_LOWER:REPLACE(^(\S+)\s+.*/\1):Provided_Interfaces_@";
@@END_TABLE@@
-- REQUIRED INTERFACES ----------------------------------------------- --
@@TABLE@@
procedure @_CAPITALIZE:Name_@@_Required_Interfaces_@;
-- Add Import aspect
procedure @_Required_Interfaces_@
with Import, Convention => C, Link_Name => "@_LOWER:Name_@_RI_@_LOWER:REPLACE(^(\S+)\s+.*/\1):Required_Interfaces_@";
procedure RIÜ@_Required_Interfaces_@ renames @_CAPITALIZE:REPLACE(^(\S+)\s+.*/\1):Required_Interfaces_@;
@@END_TABLE@@
@@TABLE@@
-- FUNCTIONS TO HANDLE TIMER @_Timers_@ ------------------------------- --
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_@;
......@@ -4,6 +4,7 @@
@@-- @_Language_@ : The implementation language
@@-- @_List_Of_PIs_@ : List of all Provided Interfaces (just names)
@@-- @_List_Of_RIs_@ : List of all Required Interfaces (just names)
@@-- @_ASN1_Modules_@ : List of ASN.1 Modules names
@@-- @_Timers_@ : List of timers (just names)
@@-- @_Has_Context_@ : Flag, True if there are context parameters
@@-- @_Provided_Interfaces_@ : List of Provided interfaces with parameters
......
......@@ -4,6 +4,7 @@
@@-- @_Language_@ : The implementation language
@@-- @_List_Of_PIs_@ : List of all Provided Interfaces (just names)
@@-- @_List_Of_RIs_@ : List of all Required Interfaces (just names)
@@-- @_ASN1_Modules_@ : List of ASN.1 Modules names
@@-- @_Timers_@ : List of timers (just names)
@@-- @_Has_Context_@ : Flag, True if there are context parameters
@@-- @_Provided_Interfaces_@ : List of Provided interfaces with parameters
......@@ -33,7 +34,7 @@ void @_LOWER:Name_@_PI_@_Provided_Interfaces_@;
@@END_TABLE@@
@@TABLE@@
void @_LOWER:Name_@_RI_@_Required_Interfaces_@;
extern void @_LOWER:Name_@_RI_@_Required_Interfaces_@;
@@END_TABLE@@
@@TABLE@@
......
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