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
9eab0412
Commit
9eab0412
authored
Feb 23, 2018
by
Maxime Perrotin
Browse files
Augment the skeleton templates
parent
6788fd7d
Changes
6
Hide whitespace changes
Inline
Side-by-side
src/taste-backend-skeletons.adb
View file @
9eab0412
...
...
@@ -203,16 +203,28 @@ package body TASTE.Backend.Skeletons is
&
Assoc
(
"Language"
,
Language_Spelling
(
F
))
&
Assoc
(
"Has_Context"
,
(
Length
(
F
.
Context_Params
)
>
0
));
-- Add list of PI names
-- Add list of
all
PI names
(both synchronous and asynchronous)
for
Each
of
F
.
Provided
loop
Result
.
Provided
:=
Result
.
Provided
&
Interface_Template
(
Each
);
List_Of_PIs
:=
List_Of_PIs
&
Each
.
Name
;
List_Of_PIs
:=
List_Of_PIs
&
Each
.
Name
;
case
Each
.
RCM
is
when
Cyclic_Operation
|
Sporadic_Operation
=>
null
;
when
others
=>
null
;
end
case
;
end
loop
;
-- Add list of RI names
-- Add list of
all
RI names
(both synchronous and asynchronous)
for
Each
of
F
.
Required
loop
Result
.
Required
:=
Result
.
Required
&
Interface_Template
(
Each
);
List_Of_RIs
:=
List_Of_RIs
&
Each
.
Name
;
List_Of_RIs
:=
List_Of_RIs
&
Each
.
Name
;
case
Each
.
RCM
is
when
Cyclic_Operation
|
Sporadic_Operation
=>
null
;
when
others
=>
null
;
end
case
;
end
loop
;
-- Add list of timers (names)
...
...
@@ -232,6 +244,8 @@ package body TASTE.Backend.Skeletons is
&
Assoc
(
"List_Of_RIs"
,
List_Of_RIs
)
&
Assoc
(
"Property_Names"
,
Property_Names
)
&
Assoc
(
"Property_Values"
,
Property_Values
)
&
Assoc
(
"Is_Type"
,
F
.
Is_Type
)
&
Assoc
(
"Instance_Of"
,
F
.
Instance_Of
.
Value_Or
(
US
(
""
)))
&
Assoc
(
"Timers"
,
Timers
);
return
Result
;
end
Func_Template
;
...
...
src/taste-parser_version.ads
View file @
9eab0412
package
TASTE
.
Parser_Version
is
Parser_Release
:
constant
String
:=
"
1d37c85
; Commit Date: Fri Feb 23 1
3:52:26
2018 "
;
"
6788fd7
; Commit Date: Fri Feb 23 1
5:17:57
2018 "
;
Ocarina_Version
:
constant
String
:=
"Ocarina 2017.x (Working Copy from rc50d394)"
;
end
TASTE
.
Parser_Version
;
\ No newline at end of file
templates/skeletons/ada/body.tmplt
View file @
9eab0412
...
...
@@ -11,6 +11,8 @@
@@--
@
_Required_Interfaces_
@
:
List
of
Required
interfaces
with
parameters
@@--
@
_Property_Names_
@
:
List
of
User
-
defined
properties
(
names
)
@@--
@
_Property_Values_
@
:
List
of
User
-
defined
properties
(
values
)
@@--
@
_Is_Type_
@
:
Flag
,
True
if
function
is
a
component
type
@@--
@
_Instance_Of_
@
:
Optional
name
of
component
type
--
Body
file
for
function
@
_Name_
@
--
Generated
by
TASTE
on
@
_NOW_
@
--
You
can
edit
this
file
,
it
will
not
be
overwritten
...
...
templates/skeletons/ada/header.tmplt
View file @
9eab0412
...
...
@@ -11,6 +11,8 @@
@@--
@
_Required_Interfaces_
@
:
List
of
Required
interfaces
with
parameters
@@--
@
_Property_Names_
@
:
List
of
User
-
defined
properties
(
names
)
@@--
@
_Property_Values_
@
:
List
of
User
-
defined
properties
(
values
)
@@--
@
_Is_Type_
@
:
Flag
,
True
if
function
is
a
component
type
@@--
@
_Instance_Of_
@
:
Optional
name
of
component
type
--
Header
file
for
function
@
_Name_
@
in
@
_Language_
@
language
--
Generated
by
TASTE
on
@
_NOW_
@
--
Context
Parameters
present
:
@
_YES_NO
:
Has_Context_
@
...
...
templates/skeletons/c/body.tmplt
View file @
9eab0412
...
...
@@ -11,6 +11,8 @@
@@-- @_Required_Interfaces_@ : List of Required interfaces with parameters
@@-- @_Property_Names_@ : List of User-defined properties (names)
@@-- @_Property_Values_@ : List of User-defined properties (values)
@@-- @_Is_Type_@ : Flag, True if function is a component type
@@-- @_Instance_Of_@ : Optional name of component type
/* Body file for function @_Name_@
* Generated by TASTE on @_NOW_@
...
...
templates/skeletons/c/header.tmplt
View file @
9eab0412
...
...
@@ -11,6 +11,8 @@
@@-- @_Required_Interfaces_@ : List of Required interfaces with parameters
@@-- @_Property_Names_@ : List of User-defined properties (names)
@@-- @_Property_Values_@ : List of User-defined properties (values)
@@-- @_Is_Type_@ : Flag, True if function is a component type
@@-- @_Instance_Of_@ : Optional name of component type
/* Header file for function @_Name_@ in @_Language_@ language
* Generated by TASTE on @_NOW_@
...
...
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