Add dummy states to test-debug for demonstration

icons.py

@@ -2,7 +2,7 @@
 # Resource object code
 #
-# Created: Fri Dec 12 20:51:20 2014
+# Created: Fri Dec 12 21:57:23 2014
 #      by: The Resource Compiler for PySide (Qt v4.8.6)
 #
 # WARNING! All changes made in this file will be lost!

sdl92Lexer.py

-# $ANTLR 3.1.3 Mar 17, 2009 19:23:44 sdl92.g 2014-12-12 20:51:23
+# $ANTLR 3.1.3 Mar 17, 2009 19:23:44 sdl92.g 2014-12-12 21:57:26
 
 import sys
 from antlr3 import *

sdl92Parser.py

-# $ANTLR 3.1.3 Mar 17, 2009 19:23:44 sdl92.g 2014-12-12 20:51:21
+# $ANTLR 3.1.3 Mar 17, 2009 19:23:44 sdl92.g 2014-12-12 21:57:24
 import sys
 from antlr3 import *

tests/regression/test-debug/orchestrator.pr

@@ -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 (556, 395), (70, 23) */
+                /* CIF ANSWER (550, 395), (70, 23) */
                 (0):
-                /* CIF ANSWER (647, 395), (70, 23) */
+                /* CIF ANSWER (641, 395), (70, 23) */
                 else:
         ENDDECISION;
         /* CIF DECISION (575, 433), (122, 50) */
         DECISION num(myenum);
-                /* CIF ANSWER (547, 503), (70, 23) */
+                /* CIF ANSWER (541, 503), (70, 23) */
                 (0):
-                /* CIF ANSWER (644, 503), (70, 23) */
+                /* CIF ANSWER (638, 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 (543, 611), (70, 33) */
+                /* CIF ANSWER (534, 611), (70, 33) */
                 ('a'):
-                /* CIF ANSWER (647, 611), (70, 33) */
+                /* CIF ANSWER (638, 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 (556, 1487), (70, 23) */
+                /* CIF ANSWER (517, 1487), (70, 23) */
                 ('a'):
-                /* CIF ANSWER (646, 1487), (70, 23) */
+                /* CIF ANSWER (607, 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 (488, 1595), (70, 23) */
+                /* CIF ANSWER (449, 1595), (70, 23) */
                 (B):
-                /* CIF ANSWER (568, 1595), (70, 23) */
+                /* CIF ANSWER (529, 1595), (70, 23) */
                 (c):
-                /* CIF ANSWER (646, 1595), (70, 23) */
+                /* CIF ANSWER (607, 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 (519, 1703), (70, 23) */
+                /* CIF ANSWER (479, 1703), (70, 23) */
                 (cde2):
-                /* CIF ANSWER (690, 1703), (70, 23) */
+                /* CIF ANSWER (650, 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 (1086, 322), (70, 35) */
-            NEXTSTATE -;
+            /* CIF NEXTSTATE (1059, 322), (123, 35) */
+            NEXTSTATE AnotherState;
     ENDSTATE;
 ENDPROCESS orchestrator;
\ No newline at end of file