orchestrator.pr 2.37 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
    /* CIF ENDTEXT */
Maxime Perrotin's avatar
Maxime Perrotin committed
16
    /* CIF START (708, 150), (80, 36) */
Maxime Perrotin's avatar
Maxime Perrotin committed
17
    START;
Maxime Perrotin's avatar
Maxime Perrotin committed
18
        /* CIF NEXTSTATE (714, 201), (68, 34) */
Maxime Perrotin's avatar
Maxime Perrotin committed
19
        NEXTSTATE Wait;
Maxime Perrotin's avatar
Maxime Perrotin committed
20
21
22
23
24
25
26
27
28
29
    /* CIF STATE (980, 125), (93, 35) */
    STATE timeout;
        /* CIF INPUT (992, 180), (70, 35) */
        INPUT *;
            /* CIF PROCEDURECALL (927, 230), (200, 35) */
            CALL SET_timer(1000, mytimer);
            /* CIF NEXTSTATE (992, 280), (70, 35) */
            NEXTSTATE next;
    ENDSTATE;
    /* CIF STATE (957, 345), (70, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
30
    STATE next;
Maxime Perrotin's avatar
Maxime Perrotin committed
31
        /* CIF INPUT (871, 400), (70, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
32
        INPUT *;
Maxime Perrotin's avatar
Maxime Perrotin committed
33
34
35
36
37
38
39
            /* CIF NEXTSTATE (871, 450), (70, 35) */
            NEXTSTATE wait;
        /* CIF INPUT (976, 400), (122, 35) */
        INPUT paramless_TC;
            /* CIF PROCEDURECALL (951, 450), (173, 35) */
            CALL reset_timer(mytimer);
            /* CIF NEXTSTATE (1002, 500), (70, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
40
41
            NEXTSTATE wait;
    ENDSTATE;
Maxime Perrotin's avatar
Maxime Perrotin committed
42
    /* CIF STATE (714, 201), (68, 34) */
Maxime Perrotin's avatar
Maxime Perrotin committed
43
    STATE Wait;
44
        /* CIF INPUT (461, 255), (87, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
45
        INPUT pulse(a);
Maxime Perrotin's avatar
Maxime Perrotin committed
46
            /* CIF PROCEDURECALL (408, 305), (193, 35) */
47
            CALL externalProc(anint, anint);
48
            /* CIF OUTPUT (447, 355), (114, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
49
            OUTPUT telemetry(a);
Maxime Perrotin's avatar
Maxime Perrotin committed
50
            /* CIF OUTPUT (443, 405), (123, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
51
            OUTPUT peek_list(seq);
Maxime Perrotin's avatar
Maxime Perrotin committed
52
            /* CIF OUTPUT (432, 455), (145, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
53
            OUTPUT peek_fixed(fixed);
54
            /* CIF NEXTSTATE (469, 505), (70, 35) */
Maxime Perrotin's avatar
Maxime Perrotin committed
55
            NEXTSTATE next;
56
57
        /* CIF INPUT (652, 255), (122, 35) */
        INPUT Paramless_TC;
Maxime Perrotin's avatar
Maxime Perrotin committed
58
            /* CIF PROCEDURECALL (611, 305), (205, 35) */
59
            CALL writeln('Got Paramless TC');
Maxime Perrotin's avatar
Maxime Perrotin committed
60
61
62
            /* CIF PROCEDURECALL (614, 355), (200, 35) */
            CALL SET_timer(1000, mytimer);
            /* CIF OUTPUT (651, 405), (125, 35) */
63
            OUTPUT Paramless_TM;
Maxime Perrotin's avatar
Maxime Perrotin committed
64
            /* CIF NEXTSTATE (679, 455), (70, 35) */
65
            NEXTSTATE wait;
Maxime Perrotin's avatar
Maxime Perrotin committed
66
67
68
69
        /* CIF INPUT (826, 255), (90, 35) */
        INPUT mytimer;
            /* CIF NEXTSTATE (826, 305), (90, 35) */
            NEXTSTATE Timeout;
Maxime Perrotin's avatar
Maxime Perrotin committed
70
71
    ENDSTATE;
ENDPROCESS orchestrator;