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

Improve Ada templates

parent feb4be73
......@@ -28,16 +28,16 @@ package @_CAPITALIZE:Name_@ is
-- PROVIDED INTERFACES ----------------------------------------------- --
@@TABLE@@
procedure @_Provided_Interfaces_@
with Export, Convention => C, Link_Name => "@_LOWER:Name_@_PI_@_LOWER:REPLACE(^(\S+)\s+.*/\1):Provided_Interfaces_@";
procedure @_REPLACE_ALL((\n)/):Provided_Interfaces_@
with Export, Convention => C, Link_Name => "@_LOWER:Name_@_PI_@_REPLACE_ALL((\n)/):LOWER:REPLACE(^(\S+)\s+.*/\1):Provided_Interfaces_@";
@@END_TABLE@@
-- REQUIRED INTERFACES ----------------------------------------------- --
@@TABLE@@
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_@;
procedure @_REPLACE_ALL((\n)/):Required_Interfaces_@
with Import, Convention => C, Link_Name => "@_LOWER:Name_@_RI_@_REPLACE_ALL((\n)/):LOWER:REPLACE(^(\S+)\s+.*/\1):Required_Interfaces_@";
procedure RIÜ@_REPLACE_ALL((\n)/):Required_Interfaces_@ renames @_REPLACE_ALL((\n)/):CAPITALIZE:REPLACE(^(\S+)\s+.*/\1):Required_Interfaces_@;
@@END_TABLE@@
......
@_CAPITALIZE:Name_@ (@_REPLACE_ALL((\n)/):Parameters_@)
@@IF@@ @_EXIST:Parameters_@
@_CAPITALIZE:Name_@ (@_REPLACE_ALL((\n)/):Parameters_@)
@@ELSE@@
@_CAPITALIZE:Name_@
@@END_IF@@
Supports Markdown
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