Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
OpenGEODE
Commits
0fe73f67
Commit
0fe73f67
authored
Nov 17, 2014
by
Maxime Perrotin
Browse files
Add ads generation for shared libraries (1)
parent
7060c3db
Changes
1
Hide whitespace changes
Inline
Side-by-side
AdaGenerator.py
View file @
0fe73f67
...
...
@@ -282,17 +282,32 @@ package {process_name} is'''.format(process_name=process_name,
# for the .ads file, generate the declaration of the required interfaces
# output signals are the asynchronous RI - only one parameter
for
signal
in
process
.
output_signals
:
ri_header
=
u
'procedure {sig_name}'
.
format
(
sig_name
=
signal
[
'name'
])
param_name
=
signal
.
get
(
'param_name'
)
or
'MISSING_PARAM_NAME'
# Add (optional) RI parameter
param_spec
=
''
if
'type'
in
signal
:
typename
=
type_name
(
signal
[
'type'
])
ri_header
+
=
u
'({pName}: access {sort})'
.
format
(
pName
=
param_name
,
sort
=
typename
)
param_spec
=
u
'({pName}: access {sort})'
.
format
(
pName
=
param_name
,
sort
=
typename
)
ads_template
.
append
(
u
'-- Required interface "'
+
signal
[
'name'
]
+
'"'
)
ads_template
.
append
(
ri_header
+
';'
)
ads_template
.
append
(
u
'pragma import(C, {sig}, "{proc}_RI_{sig}");'
.
format
(
sig
=
signal
[
'name'
],
proc
=
process_name
))
if
simu
:
# When generating a shared library, we need a callback mechanism
ads_template
.
append
(
u
'type {}_T is access procedure{};'
.
format
(
signal
[
'name'
],
param_spec
))
ads_template
.
append
(
'pragma Convention(Convention => C,'
' Entity => {}_T);'
.
format
(
signal
[
'name'
]))
ads_template
.
append
(
'{sig} : {sig}_T;'
.
format
(
sig
=
signal
[
'name'
]))
ads_template
.
append
(
'procedure Register_{sig}(Callback: {sig}_T);'
.
format
(
sig
=
signal
[
'name'
]))
ads_template
.
append
(
'pragma Export(C, Register_{sig},'
' "register_{sig}");'
.
format
(
sig
=
signal
[
'name'
]))
else
:
ads_template
.
append
(
u
'procedure {}{};'
.
format
(
signal
[
'name'
],
param_spec
))
ads_template
.
append
(
u
'pragma import(C, {sig}, "{proc}_RI_{sig}");'
.
format
(
sig
=
signal
[
'name'
],
proc
=
process_name
))
# for the .ads file, generate the declaration of the external procedures
for
proc
in
(
proc
for
proc
in
process
.
procedures
if
proc
.
external
):
...
...
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