Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
kazoo
Commits
bf2cec74
Commit
bf2cec74
authored
Feb 28, 2018
by
Maxime Perrotin
Browse files
update Ada body templates
parent
080cfba4
Changes
2
Hide whitespace changes
Inline
Side-by-side
templates/skeletons/ada/body.tmplt
View file @
bf2cec74
...
...
@@ -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
@@
...
...
templates/skeletons/ada/interface-body.tmplt
View file @
bf2cec74
...
...
@@ -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_@;
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment