Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
kazoo
Commits
29c63da1
Commit
29c63da1
authored
Jan 24, 2018
by
Maxime Perrotin
Browse files
Add Ada templates for code skeleton
parent
70ac21f6
Changes
7
Hide whitespace changes
Inline
Side-by-side
templates/skeletons/ada/body-filename.tmplt
0 → 100644
View file @
29c63da1
@_LOWER:Name_@.adb
templates/skeletons/ada/body.tmplt
0 → 100644
View file @
29c63da1
@@--
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_
@;
templates/skeletons/ada/header-filename.tmplt
0 → 100644
View file @
29c63da1
@_LOWER:Name_@.ads
templates/skeletons/ada/header.tmplt
0 → 100644
View file @
29c63da1
@@--
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_
@;
templates/skeletons/ada/interface-body-parameter.tmplt
0 → 100644
View file @
29c63da1
@@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@@
templates/skeletons/ada/interface-header-parameter.tmplt
0 → 100644
View file @
29c63da1
@@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@@
templates/skeletons/ada/interface-signature.tmplt
0 → 100644
View file @
29c63da1
@_CAPITALIZE:Name_@ (@_REPLACE_ALL((\n)/):Parameters_@)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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