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
2173f09b
Commit
2173f09b
authored
Dec 29, 2014
by
Maxime Perrotin
Browse files
Support for parameterless TM
parent
3d612be7
Changes
2
Hide whitespace changes
Inline
Side-by-side
opengeode/AdaGenerator.py
View file @
2173f09b
...
...
@@ -252,9 +252,13 @@ package body {process_name} is'''.format(process_name=process_name,
-- This file was generated automatically: DO NOT MODIFY IT !
{dataview}
{C}
package {process_name} is'''
.
format
(
process_name
=
process_name
,
dataview
=
asn1_modules
)]
dataview
=
asn1_modules
,
C
=
'with Interfaces.C.Strings;
\n
'
'use Interfaces.C.Strings;'
if
simu
else
''
)]
# Generate the the code of the procedures
inner_procedures_code
=
[]
...
...
@@ -354,7 +358,7 @@ package {process_name} is'''.format(process_name=process_name,
param_name
=
signal
.
get
(
'param_name'
)
\
or
u
'{}_param'
.
format
(
signal
[
'name'
])
# Add (optional) RI parameter
param_spec
=
''
param_spec
=
''
if
not
simu
else
"(tm: chars_ptr)"
if
'type'
in
signal
:
typename
=
type_name
(
signal
[
'type'
])
param_spec
=
u
'({pName}: access {sort}{shared})'
\
...
...
@@ -693,7 +697,8 @@ def _call_external_function(output, **kwargs):
if
not
SHARED_LIB
:
code
.
append
(
u
'{RI};'
.
format
(
RI
=
out
[
'outputName'
]))
else
:
code
.
append
(
u
'{RI}.all;'
.
format
(
RI
=
out
[
'outputName'
]))
code
.
append
(
u
'{RI}(New_String("{RI}"));'
.
format
(
RI
=
out
[
'outputName'
]))
else
:
# inner procedure call
list_of_params
=
[]
...
...
tests/regression/test-simu/makelib.sh
View file @
2173f09b
gnatmake
-c
orchestrator.adb
gnatmake
-c
-g
-gnat2012
orchestrator.adb
gnatbind
-n
-Lliborchestrator
orchestrator
gnatmake
-c
b~orchestrator.adb
gcc
-shared
-fPIC
-o
liborchestrator.so b~orchestrator.o orchestrator.o taste_basictypes.o adaasn1rtl.o
-lgnat
gnatmake
-c
-g
-gnat2012
b~orchestrator.adb
gcc
-c
-g
external_proc.c
gcc
-shared
-fPIC
-o
liborchestrator.so b~orchestrator.o orchestrator.o taste_basictypes.o external_proc.o adaasn1rtl.o
-lgnat
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