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
559ba8be
Commit
559ba8be
authored
Jun 11, 2014
by
Maxime Perrotin
Browse files
Added scope test
parent
940f237b
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/regression/test10/challenge.pr
View file @
559ba8be
...
...
@@ -135,10 +135,12 @@ STATE hello;
INPUT run;
/* CIF PROCEDURECALL (-52, 111), (175, 35) */
CALL writeln('27 == ', result);
/* CIF TASK (-27, 161), (125, 53) */
/* CIF PROCEDURECALL (0, 161), (70, 35) */
CALL toto;
/* CIF TASK (-27, 211), (125, 53) */
TASK myresult := 88,
result := 33;
/* CIF JOIN (17, 2
2
9), (35, 35) */
/* CIF JOIN (17, 2
7
9), (35, 35) */
JOIN to_label;
ENDSTATE;
...
...
@@ -148,6 +150,13 @@ ENDSUBSTRUCTURE;
dcl result T_uint32 :=0;
/* CIF ENDTEXT */
/* CIF PROCEDURE (17, 198), (70, 35) */
PROCEDURE foo;
/* CIF START (190, 53), (70, 35) */
START;
/* CIF RETURN (207, 103), (35, 35) */
RETURN ;
ENDPROCEDURE;
/* CIF PROCEDURE (0, 254), (66, 35) */
PROCEDURE toto;
/* CIF TEXT (371, 134), (298, 140) */
...
...
@@ -169,7 +178,9 @@ TASK i := i + 1;
RETURN ;
/* CIF ANSWER (223, 206), (70, 23) */
ELSE:
/* CIF RETURN (240, 244), (35, 35) */
/* CIF PROCEDURECALL (223, 244), (70, 35) */
CALL foo;
/* CIF RETURN (240, 294), (35, 35) */
RETURN ;
ENDDECISION;
ENDPROCEDURE;
...
...
@@ -195,7 +206,7 @@ CALL writeln('4 == ', result);
NEXTSTATE -;
/* CIF INPUT (297, 333), (88, 35) */
INPUT any_one;
/* CIF PROCEDURECALL (28
5
, 383), (113, 35) */
/* CIF PROCEDURECALL (28
4
, 383), (113, 35) */
CALL writeln('6');
/* CIF NEXTSTATE (306, 433), (70, 35) */
NEXTSTATE on;
...
...
@@ -224,7 +235,9 @@ NEXTSTATE Safe;
CONNECT ;
/* CIF PROCEDURECALL (494, 177), (147, 35) */
CALL writeln('11 (end)');
/* CIF NEXTSTATE (533, 227), (70, 35) */
/* CIF PROCEDURECALL (533, 227), (70, 35) */
CALL toto;
/* CIF NEXTSTATE (533, 277), (70, 35) */
NEXTSTATE off;
ENDSTATE;
...
...
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