orchestrator.pr 1.23 KB
Newer Older
Maxime Perrotin's avatar
Maxime Perrotin committed
1
2
3
4
5
6
7
8
9
10
/* CIF PROCESS (295, 56), (150, 75) */
PROCESS orchestrator
/* CIF COMMENT (405, 192), (71, 35) */
COMMENT 'Hello';
    /* CIF TEXT (0, 94), (398, 312) */
    dcl seq tastE_Peek_id_list := { 1,2,3,4,5};

dcl a myEnum;

dcl fixed fixedIntList := { 1,2,3};
11
12
13
14

dcl anInt T_UInt32 :=0;

timer myTimer;
Maxime Perrotin's avatar
Maxime Perrotin committed
15
16
17
    /* CIF ENDTEXT */
    /* CIF START (478, 150), (80, 36) */
    START;
18
        /* CIF NEXTSTATE (483, 201), (68, 34) */
Maxime Perrotin's avatar
Maxime Perrotin committed
19
20
21
22
23
24
25
26
        NEXTSTATE Wait;
    /* CIF STATE (601, 354), (70, 35) */
    STATE next;
        /* CIF INPUT (601, 409), (70, 35) */
        INPUT *;
            /* CIF NEXTSTATE (601, 459), (70, 35) */
            NEXTSTATE wait;
    ENDSTATE;
27
    /* CIF STATE (483, 201), (68, 34) */
Maxime Perrotin's avatar
Maxime Perrotin committed
28
29
30
    STATE Wait;
        /* CIF INPUT (474, 255), (87, 35) */
        INPUT pulse(a);
31
32
33
            /* CIF PROCEDURECALL (420, 305), (193, 35) */
            CALL externalProc(anint, anint);
            /* CIF OUTPUT (460, 355), (114, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
34
            OUTPUT telemetry(a);
35
            /* CIF OUTPUT (455, 405), (123, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
36
            OUTPUT peek_list(seq);
37
            /* CIF OUTPUT (444, 455), (145, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
38
            OUTPUT peek_fixed(fixed);
39
            /* CIF NEXTSTATE (482, 505), (70, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
40
41
42
            NEXTSTATE next;
    ENDSTATE;
ENDPROCESS orchestrator;