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
OpenGEODE
Commits
8c9334a1
Commit
8c9334a1
authored
Nov 15, 2016
by
Maxime Perrotin
Browse files
In Ada, always generate runTransition
parent
19a7dbf5
Changes
1
Hide whitespace changes
Inline
Side-by-side
opengeode/AdaGenerator.py
View file @
8c9334a1
...
...
@@ -302,9 +302,8 @@ LD_LIBRARY_PATH=. opengeode-simulator
.
format
(
name
,
UNICODE_SEP
),
'
\n
'
])
# Add the declaration of the runTransition procedure, if needed
if
process
.
transitions
:
process_level_decl
.
append
(
'procedure runTransition(Id: Integer);'
)
# Add the declaration of the runTransition procedure
process_level_decl
.
append
(
'procedure runTransition(Id: Integer);'
)
# Generate the code of the start transition (if process not empty)
initDone
=
u
'{ctxt}.initDone := True;'
.
format
(
ctxt
=
LPREFIX
)
...
...
@@ -921,6 +920,13 @@ package {process_name} is'''.format(process_name=process_name,
taste_template
.
append
(
'end loop;'
)
taste_template
.
append
(
'end runTransition;'
)
taste_template
.
append
(
'
\n
'
)
else
:
# No transitions defined, but keep the interface for CS_Only calls
taste_template
.
append
(
'procedure runTransition(Id: Integer) is'
)
taste_template
.
append
(
'begin'
)
taste_template
.
append
(
'null;'
)
taste_template
.
append
(
'end runTransition;'
)
taste_template
.
append
(
'
\n
'
)
# Add code of the package elaboration
taste_template
.
extend
(
start_transition
)
...
...
Write
Preview
Markdown
is supported
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