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

update Ada body templates

parent 080cfba4
......@@ -28,11 +28,7 @@
package body @_CAPITALIZE:Name_@ is
@@TABLE@@
procedure @_STRIP:Provided_Interfaces_@ is
begin
-- Write your code here
null;
end @_STRIP:REPLACE(^(\S+)\s+.*/\1):Provided_Interfaces_@;
@_Provided_Interfaces_@
@@END_TABLE@@
@@TABLE@@
......
......@@ -9,8 +9,8 @@
@@-- @_Param_Directions_@ : |_ Corresponding direction
@@IF@@ @_EXIST:Param_Names_@
@@INLINE@@
procedure @_CAPITALIZE:Name_@ (
@@INLINE(; )@@
procedure @_CAPITALIZE:Name_@
@@INLINE(\()(; )(\) is)@@
@@TABLE@@
@@IF@@ @_Param_Directions_@ = "PARAM_IN"
IN_@_CAPITALIZE:Param_Names_@ : access asn1Scc@_CAPITALIZE:REPLACE_ALL((-)/_):Param_Types_@
......@@ -20,7 +20,11 @@ OUT_@_CAPITALIZE:Param_Names_@ : access asn1Scc@_CAPITALIZE:REPLACE_ALL((-)/_):P
@@END_TABLE@@
@@END_INLINE@@
@@END_INLINE@@
)
@@ELSE@@
procedure @_CAPITALIZE:Name_@
procedure @_CAPITALIZE:Name_@ is
@@END_IF@@
begin
-- Write your code here
null;
end @_CAPITALIZE:Name_@;
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