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
62f7f1d2
Commit
62f7f1d2
authored
Dec 12, 2014
by
Maxime Perrotin
Browse files
Add dummy states to test-debug for demonstration
parent
542de589
Changes
4
Hide whitespace changes
Inline
Side-by-side
icons.py
View file @
62f7f1d2
...
...
@@ -2,7 +2,7 @@
# Resource object code
#
# Created: Fri Dec 12 2
0
:5
1
:2
0
2014
# Created: Fri Dec 12 2
1
:5
7
:2
3
2014
# by: The Resource Compiler for PySide (Qt v4.8.6)
#
# WARNING! All changes made in this file will be lost!
sdl92Lexer.py
View file @
62f7f1d2
# $ANTLR 3.1.3 Mar 17, 2009 19:23:44 sdl92.g 2014-12-12 2
0
:5
1
:2
3
# $ANTLR 3.1.3 Mar 17, 2009 19:23:44 sdl92.g 2014-12-12 2
1
:5
7
:2
6
import
sys
from
antlr3
import
*
...
...
sdl92Parser.py
View file @
62f7f1d2
# $ANTLR 3.1.3 Mar 17, 2009 19:23:44 sdl92.g 2014-12-12 2
0
:5
1
:2
1
# $ANTLR 3.1.3 Mar 17, 2009 19:23:44 sdl92.g 2014-12-12 2
1
:5
7
:2
4
import sys
from antlr3 import *
...
...
tests/regression/test-debug/orchestrator.pr
View file @
62f7f1d2
...
...
@@ -23,9 +23,6 @@ dcl choice Mychoice;
dcl opt SeqOpt := { A TRUE, b FALSE }; -- test optional fields
/* CIF ENDTEXT */
/* CIF PROCEDURE (1273, 175), (106, 35) */
PROCEDURE emptyproc;
ENDPROCEDURE;
/* CIF PROCEDURE (1306, 371), (91, 35) */
PROCEDURE numProc;
/* CIF START (161, 82), (70, 35) */
...
...
@@ -43,6 +40,9 @@ dcl opt SeqOpt := { A TRUE, b FALSE }; -- test optional fields
/* CIF RETURN (178, 348), (35, 35) */
RETURN ;
ENDPROCEDURE;
/* CIF PROCEDURE (1273, 175), (106, 35) */
PROCEDURE emptyproc;
ENDPROCEDURE;
/* CIF START (596, 224), (80, 36) */
START;
/* CIF TASK (564, 275), (144, 35) */
...
...
@@ -51,16 +51,16 @@ dcl opt SeqOpt := { A TRUE, b FALSE }; -- test optional fields
COMMENT 'Test optional fields';
/* CIF DECISION (575, 325), (122, 50) */
DECISION num(myenum);
/* CIF ANSWER (55
6
, 395), (70, 23) */
/* CIF ANSWER (55
0
, 395), (70, 23) */
(0):
/* CIF ANSWER (64
7
, 395), (70, 23) */
/* CIF ANSWER (64
1
, 395), (70, 23) */
else:
ENDDECISION;
/* CIF DECISION (575, 433), (122, 50) */
DECISION num(myenum);
/* CIF ANSWER (54
7
, 503), (70, 23) */
/* CIF ANSWER (54
1
, 503), (70, 23) */
(0):
/* CIF ANSWER (6
44
, 503), (70, 23) */
/* CIF ANSWER (6
38
, 503), (70, 23) */
else:
ENDDECISION;
/* CIF DECISION (586, 541), (99, 50) */
...
...
@@ -69,9 +69,9 @@ dcl opt SeqOpt := { A TRUE, b FALSE }; -- test optional fields
COMMENT 'Informal decision -
check that it is ignored
by the code generator';
/* CIF ANSWER (5
4
3, 611), (70, 33) */
/* CIF ANSWER (53
4
, 611), (70, 33) */
('a'):
/* CIF ANSWER (6
47
, 611), (70, 33) */
/* CIF ANSWER (6
38
, 611), (70, 33) */
('2'):
ENDDECISION;
/* CIF TASK (524, 659), (223, 38) */
...
...
@@ -120,37 +120,51 @@ endfor;
TASK seq := seq // {2} // {1};
/* CIF DECISION (601, 1417), (70, 50) */
DECISION any;
/* CIF ANSWER (5
56
, 1487), (70, 23) */
/* CIF ANSWER (5
17
, 1487), (70, 23) */
('a'):
/* CIF ANSWER (6
46
, 1487), (70, 23) */
/* CIF ANSWER (6
07
, 1487), (70, 23) */
('b'):
ENDDECISION;
/* CIF DECISION (591, 1525), (89, 50) */
DECISION myenum
/* CIF COMMENT (718, 1533), (183, 35) */
COMMENT 'Check case insensitivity';
/* CIF ANSWER (
408
, 1595), (70, 23) */
/* CIF ANSWER (
369
, 1595), (70, 23) */
(a):
/* CIF ANSWER (4
88
, 1595), (70, 23) */
/* CIF ANSWER (4
49
, 1595), (70, 23) */
(B):
/* CIF ANSWER (5
68
, 1595), (70, 23) */
/* CIF ANSWER (5
29
, 1595), (70, 23) */
(c):
/* CIF ANSWER (6
46
, 1595), (70, 23) */
/* CIF ANSWER (6
07
, 1595), (70, 23) */
(d):
/* CIF ANSWER (
735
, 1595), (70, 23) */
/* CIF ANSWER (
696
, 1595), (70, 23) */
(Ee):
ENDDECISION;
/* CIF DECISION (567, 1633), (138, 50) */
DECISION present(choice)
/* CIF COMMENT (743, 1641), (183, 35) */
COMMENT 'Check case insensitivity';
/* CIF ANSWER (
51
9, 1703), (70, 23) */
/* CIF ANSWER (
47
9, 1703), (70, 23) */
(cde2):
/* CIF ANSWER (6
9
0, 1703), (70, 23) */
/* CIF ANSWER (6
5
0, 1703), (70, 23) */
ELSE:
ENDDECISION;
/* CIF NEXTSTATE (578, 1741), (116, 33) */
NEXTSTATE Wait_for_GUI;
/* CIF STATE (1086, 427), (70, 35) */
STATE Third;
/* CIF INPUT (1057, 482), (130, 35) */
INPUT pulse(myenum);
/* CIF NEXTSTATE (1065, 532), (113, 35) */
NEXTSTATE Wait_for_gui;
ENDSTATE;
/* CIF STATE (1059, 322), (123, 35) */
STATE AnotherState;
/* CIF INPUT (1056, 377), (130, 35) */
INPUT pulse(myenum);
/* CIF NEXTSTATE (1086, 427), (70, 35) */
NEXTSTATE Third;
ENDSTATE;
/* CIF STATE (1063, 119), (116, 33) */
STATE Wait_for_GUI;
/* CIF INPUT (1056, 172), (130, 35) */
...
...
@@ -159,7 +173,7 @@ endfor;
CALL writeln('Got PULSE', num(myenum));
/* CIF OUTPUT (1041, 272), (160, 35) */
OUTPUT telemetry(myenum);
/* CIF NEXTSTATE (10
86
, 322), (
70
, 35) */
NEXTSTATE
-
;
/* CIF NEXTSTATE (10
59
, 322), (
123
, 35) */
NEXTSTATE
AnotherState
;
ENDSTATE;
ENDPROCESS orchestrator;
\ No newline at end of file
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