Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
properties
Commits
84968d20
Commit
84968d20
authored
Aug 22, 2015
by
Maxime Perrotin
Browse files
Update testcase to match opengeode test-simu
parent
182b6615
Changes
2
Hide whitespace changes
Inline
Side-by-side
test/dataview-uniq.asn
View file @
84968d20
...
...
@@ -8,6 +8,16 @@ FixedIntList ::= SEQUENCE (SIZE(3)) OF TASTE-Peek-id
MyEnum ::= ENUMERATED {one, two, three, four, five}
MyChoice ::= CHOICE { a BOOLEAN, b ENUMERATED { aa, bb } }
MySeq ::= SEQUENCE { a BOOLEAN, b MyChoice }
MySetOf ::= SET (SIZE(1..3)) OF INTEGER (0..10)
MySeqOf ::= SEQUENCE (SIZE(1..3)) OF INTEGER (0..10)
MySimpleSeq ::= SEQUENCE { a INTEGER (0..255), b BOOLEAN, c MyEnum }
END
...
...
test/orchestrator.pr
View file @
84968d20
/* CIF PROCESS (29
5
, 5
6
), (150, 75) */
/* CIF PROCESS (29
7
, 5
9
), (150, 75) */
PROCESS orchestrator
/* CIF COMMENT (40
5
, 19
2
), (7
1
, 35) */
/* CIF COMMENT (40
7
, 19
5
), (7
8
, 35) */
COMMENT 'Hello';
/* CIF TEXT (0,
94
), (
39
8,
312
) */
/* CIF TEXT (0,
138
), (
44
8,
448
) */
dcl seq tastE_Peek_id_list := { 1,2,3,4,5};
dcl a myEnum;
...
...
@@ -11,60 +11,97 @@ dcl fixed fixedIntList := { 1,2,3};
dcl anInt T_UInt32 :=0;
dcl simpleseq MySimpleSeq := {a 42, b true, c three};
timer myTimer;
procedure VDM comment '#hello';
fpar in inp fixedIntList,
in/out outp fixedIntList;
external comment '#vdm #classname=RemoteCall';
procedure VDM2;
fpar in inp T_Uint32,
in/out outp MySimpleSeq;
external comment '#vdm #classname=RemoteCall';
/* CIF ENDTEXT */
/* CIF START (
708
, 150), (80, 36) */
/* CIF START (
940
, 150), (80, 36) */
START;
/* CIF NEXTSTATE (
713
, 201), (
68
, 34) */
/* CIF NEXTSTATE (
944
, 201), (
72
, 34) */
NEXTSTATE Wait;
/* CIF STATE (957, 345), (70, 35) */
STATE next;
/* CIF INPUT (930, 400), (122, 35) */
INPUT pulse(a);
/* CIF PROCEDURECALL (904, 450), (173, 35) */
CALL reset_timer(mytimer);
/* CIF NEXTSTATE (956, 500), (70, 35) */
NEXTSTATE wait;
ENDSTATE;
/* CIF STATE (980, 125), (93, 35) */
/* CIF STATE (1468, 125), (100, 35) */
STATE timeout;
/* CIF INPUT (
965
, 180), (1
22
, 35) */
/* CIF INPUT (
1453
, 180), (1
47
, 35) */
INPUT Paramless_TC;
/* CIF PROCEDURECALL (
926
, 230), (2
00
, 35) */
/* CIF PROCEDURECALL (
1402
, 230), (2
49
, 35) */
CALL SET_timer(1000, mytimer);
/* CIF NEXTSTATE (
991
, 280), (7
0
, 35) */
/* CIF NEXTSTATE (
1489
, 280), (7
4
, 35) */
NEXTSTATE next;
ENDSTATE;
/* CIF STATE (713, 201), (68, 34) */
/* CIF STATE (1474, 345), (74, 35) */
STATE next;
/* CIF INPUT (1447, 400), (122, 35) */
INPUT pulse(a);
/* CIF PROCEDURECALL (1401, 450), (213, 35) */
CALL reset_timer(mytimer);
/* CIF NEXTSTATE (1473, 500), (70, 35) */
NEXTSTATE wait;
ENDSTATE;
/* CIF STATE (944, 201), (72, 34) */
STATE Wait;
/* CIF INPUT (
461
, 255), (
87
, 35) */
/* CIF INPUT (
666
, 255), (
101
, 35) */
INPUT pulse(a);
/* CIF TASK (
434
, 305), (1
39
, 4
0
) */
/* CIF TASK (
631
, 305), (1
70
, 4
8
) */
TASK seq := {0,1,0,1,0},
anint := 478;
/* CIF PROCEDURECALL (407, 365), (193, 35) */
CALL externalProc(anint, anint);
/* CIF OUTPUT (447, 415), (114, 35) */
/* CIF PROCEDURECALL (587, 368), (259, 35) */
CALL writeln('Input param', anint);
/* CIF PROCEDURECALL (597, 418), (238, 35) */
CALL ExternalProc(anint, anint);
/* CIF PROCEDURECALL (579, 468), (275, 35) */
CALL writeln('Output param', anint);
/* CIF PROCEDURECALL (573, 518), (286, 35) */
CALL write('Calling VDM with data');
/* CIF TASK (523, 568), (386, 48) */
TASK for each in fixed: call write(each, ' '); endfor;
/* CIF PROCEDURECALL (631, 631), (170, 40) */
CALL writeln('');
/* CIF PROCEDURECALL (630, 686), (172, 35) */
CALL vdm(fixed, fixed);
/* CIF PROCEDURECALL (631, 736), (170, 40) */
CALL write('Result:');
/* CIF TASK (525, 791), (383, 35) */
TASK for each in fixed: call write(each, ' '); endfor;
/* CIF PROCEDURECALL (658, 841), (116, 40) */
CALL writeln('');
/* CIF PROCEDURECALL (526, 896), (381, 35) */
CALL writeln('Calling VDM2 with value', fixed(0));
/* CIF PROCEDURECALL (595, 946), (242, 35) */
CALL vdm2(fixed(0), simpleseq);
/* CIF PROCEDURECALL (461, 996), (511, 40) */
CALL writeln('Result:', simpleseq!a, ' ', simpleseq!b, ' ', simpleseq!c);
/* CIF OUTPUT (647, 1051), (138, 35) */
OUTPUT telemetry(a);
/* CIF OUTPUT (
442, 465
), (1
23
, 35) */
/* CIF OUTPUT (
643, 1101
), (1
47
, 35) */
OUTPUT peek_list(seq);
/* CIF OUTPUT (
431
,
5
15), (1
45
, 35) */
/* CIF OUTPUT (
628
,
1
15
1
), (1
77
, 35) */
OUTPUT peek_fixed(fixed);
/* CIF NEXTSTATE (
4
69,
565
), (7
0
, 35) */
/* CIF NEXTSTATE (6
7
9,
1201
), (7
4
, 35) */
NEXTSTATE next;
/* CIF INPUT (
652
, 255), (1
22
, 35) */
/* CIF INPUT (
1078
, 255), (1
47
, 35) */
INPUT Paramless_TC;
/* CIF PROCEDURECALL (
6
10, 305), (2
0
5, 35) */
/* CIF PROCEDURECALL (10
25
, 305), (25
3
, 35) */
CALL writeln('Got Paramless TC');
/* CIF PROCEDURECALL (
613
, 355), (2
00
, 35) */
/* CIF PROCEDURECALL (
1027
, 355), (2
49
, 35) */
CALL SET_timer(1000, mytimer);
/* CIF OUTPUT (
650
, 405), (1
2
5, 35) */
/* CIF OUTPUT (
1076
, 405), (15
0
, 35) */
OUTPUT Paramless_TM;
/* CIF NEXTSTATE (
678
, 455), (70, 35) */
/* CIF NEXTSTATE (
1116
, 455), (70, 35) */
NEXTSTATE wait;
/* CIF INPUT (
826
, 255), (
90
, 35) */
/* CIF INPUT (
1288
, 255), (
104
, 35) */
INPUT mytimer;
/* CIF NEXTSTATE (
826
, 305), (
90
, 35) */
/* CIF NEXTSTATE (
1289
, 305), (
102
, 35) */
NEXTSTATE Timeout;
ENDSTATE;
ENDPROCESS orchestrator;
\ No newline at end of file
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment