orchestrator.pr 3.53 KB
Newer Older
1
2
3
4
/* CIF PROCESS (295, 56), (150, 75) */
PROCESS orchestrator
/* CIF COMMENT (405, 192), (71, 35) */
COMMENT 'Hello';
5
    /* CIF TEXT (39, 94), (293, 263) */
6
7
8
9
    dcl seq tastE_Peek_id_list;

dcl fixed FixedString := 'Hello';
dcl variable VariableString := 'Hello';
10
dcl seqboolean SeqBool := { true, false };
11
12
13
14
15
16

dcl seqbool2 SeqBoolFix := { true, false };

dcl seqen SeqEnum := { hello, world };

dcl seqen2 SeqEnumFix := { hello, world };
17
18
19
20

dcl myenum Enum := a;

dcl check tasTE_Peek_id;
21
22

dcl choice choice;
23
24
25
    /* CIF ENDTEXT */
    /* CIF START (428, 223), (100, 45) */
    START;
26
27
28
29
30
31
32
33
        /* CIF DECISION (428, 283), (99, 50) */
        DECISION 'informal';
                /* CIF ANSWER (398, 353), (70, 23) */
                ('a'):
                /* CIF ANSWER (488, 353), (70, 33) */
                ('2'):
        ENDDECISION;
        /* CIF TASK (366, 401), (223, 38) */
34
35
        TASK seqboolean := {true, false},
seqboolean := not {true, false};
36
        /* CIF TASK (396, 454), (164, 53) */
37
38
39
        TASK for x in seqen:
 call writeln(num(x));
endfor;
40
        /* CIF TASK (396, 522), (164, 53) */
41
42
43
        TASK for x in seqen2:
 call writeln(num(x));
endfor;
44
        /* CIF TASK (397, 590), (162, 53) */
45
46
        TASK for x in seqboolean:
    call writeln(x);
47
endfor
48
        /* CIF COMMENT (579, 599), (168, 38) */
49
        COMMENT 'FOR with a basic type';
50
        /* CIF TASK (367, 658), (222, 35) */
51
        TASK seqboolean := not seqboolean
52
        /* CIF COMMENT (609, 658), (279, 35) */
53
        COMMENT 'check NOT on a SEQUENCE of BOOLEAN';
54
        /* CIF TASK (397, 708), (162, 53) */
55
56
57
        TASK for x in seqboolean:
    call writeln(x);
endfor;
58
        /* CIF TASK (415, 776), (126, 38) */
59
        TASK fixed := 'hello';
60
        /* CIF TASK (403, 829), (149, 35) */
61
        TASK variable := 'HELLO';
62
        /* CIF PROCEDURECALL (390, 879), (176, 35) */
63
        CALL writeln(variable // '!!!');
64
        /* CIF PROCEDURECALL (342, 929), (272, 35) */
65
        CALL writeln(variable // variable // variable);
66
        /* CIF TASK (432, 979), (91, 35) */
67
        TASK seq := {1};
68
        /* CIF TASK (401, 1029), (153, 35) */
69
        TASK seq := {1} // {2} // {3};
70
        /* CIF TASK (392, 1079), (172, 35) */
71
        TASK seq := seq // {2} // {1};
72
        /* CIF DECISION (443, 1129), (70, 50) */
73
        DECISION any;
74
                /* CIF ANSWER (398, 1199), (70, 23) */
75
                ('a'):
76
                /* CIF ANSWER (488, 1199), (70, 23) */
77
78
                ('b'):
        ENDDECISION;
79
        /* CIF DECISION (433, 1237), (89, 50) */
80
        DECISION myenum
81
        /* CIF COMMENT (542, 1244), (183, 35) */
82
        COMMENT 'Check case insensitivity';
83
                /* CIF ANSWER (250, 1307), (70, 23) */
84
                (a):
85
                /* CIF ANSWER (330, 1307), (70, 23) */
86
                (B):
87
                /* CIF ANSWER (410, 1307), (70, 23) */
88
                (c):
89
                /* CIF ANSWER (488, 1307), (70, 23) */
90
                (d):
91
                /* CIF ANSWER (576, 1307), (70, 23) */
92
93
                (Ee):
        ENDDECISION;
94
        /* CIF DECISION (409, 1345), (138, 50) */
95
        DECISION present(choice)
96
        /* CIF COMMENT (566, 1352), (183, 35) */
97
        COMMENT 'Check case insensitivity';
98
                /* CIF ANSWER (361, 1415), (70, 23) */
99
                (cde2):
100
                /* CIF ANSWER (532, 1415), (70, 23) */
101
102
                ELSE:
        ENDDECISION;
103
        /* CIF NEXTSTATE (419, 1453), (116, 33) */
104
105
106
107
        NEXTSTATE Wait_for_GUI;
    /* CIF STATE (423, 163), (118, 50) */
    STATE Wait_for_GUI;
    ENDSTATE;
108
ENDPROCESS orchestrator;