orchestrator.pr 3.28 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
        /* CIF TASK (366, 283), (223, 38) */
        TASK seqboolean := {true, false},
seqboolean := not {true, false};
        /* CIF TASK (396, 336), (164, 53) */
30
31
32
        TASK for x in seqen:
 call writeln(num(x));
endfor;
33
        /* CIF TASK (396, 404), (164, 53) */
34
35
36
        TASK for x in seqen2:
 call writeln(num(x));
endfor;
37
        /* CIF TASK (397, 472), (162, 53) */
38
39
        TASK for x in seqboolean:
    call writeln(x);
40
endfor
41
        /* CIF COMMENT (579, 481), (168, 38) */
42
        COMMENT 'FOR with a basic type';
43
        /* CIF TASK (367, 540), (222, 35) */
44
        TASK seqboolean := not seqboolean
45
        /* CIF COMMENT (609, 540), (279, 35) */
46
        COMMENT 'check NOT on a SEQUENCE of BOOLEAN';
47
        /* CIF TASK (397, 590), (162, 53) */
48
49
50
        TASK for x in seqboolean:
    call writeln(x);
endfor;
51
        /* CIF TASK (415, 658), (126, 38) */
52
        TASK fixed := 'hello';
53
        /* CIF TASK (403, 711), (149, 35) */
54
        TASK variable := 'HELLO';
55
        /* CIF PROCEDURECALL (390, 761), (176, 35) */
56
        CALL writeln(variable // '!!!');
57
        /* CIF PROCEDURECALL (342, 811), (272, 35) */
58
        CALL writeln(variable // variable // variable);
59
        /* CIF TASK (432, 861), (91, 35) */
60
        TASK seq := {1};
61
        /* CIF TASK (401, 911), (153, 35) */
62
        TASK seq := {1} // {2} // {3};
63
        /* CIF TASK (392, 961), (172, 35) */
64
        TASK seq := seq // {2} // {1};
65
66
67
68
69
70
71
        /* CIF DECISION (443, 1011), (70, 50) */
        DECISION any;
                /* CIF ANSWER (398, 1081), (70, 23) */
                ('a'):
                /* CIF ANSWER (488, 1081), (70, 23) */
                ('b'):
        ENDDECISION;
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
        /* CIF DECISION (433, 1119), (89, 50) */
        DECISION myenum
        /* CIF COMMENT (542, 1126), (183, 35) */
        COMMENT 'Check case insensitivity';
                /* CIF ANSWER (250, 1189), (70, 23) */
                (a):
                /* CIF ANSWER (330, 1189), (70, 23) */
                (B):
                /* CIF ANSWER (410, 1189), (70, 23) */
                (c):
                /* CIF ANSWER (488, 1189), (70, 23) */
                (d):
                /* CIF ANSWER (576, 1189), (70, 23) */
                (Ee):
        ENDDECISION;
        /* CIF DECISION (408, 1227), (138, 50) */
        DECISION present(choice)
        /* CIF COMMENT (566, 1234), (183, 35) */
        COMMENT 'Check case insensitivity';
                /* CIF ANSWER (361, 1297), (70, 23) */
                (cde2):
                /* CIF ANSWER (532, 1297), (70, 23) */
                ELSE:
        ENDDECISION;
        /* CIF NEXTSTATE (419, 1335), (116, 33) */
97
98
99
100
        NEXTSTATE Wait_for_GUI;
    /* CIF STATE (423, 163), (118, 50) */
    STATE Wait_for_GUI;
    ENDSTATE;
101
ENDPROCESS orchestrator;