Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
OpenGEODE
Commits
33aa6c52
Commit
33aa6c52
authored
Dec 23, 2016
by
Maxime Perrotin
Browse files
Add properties file for simulation
parent
6f041922
Changes
3
Hide whitespace changes
Inline
Side-by-side
tests/regression/test-simu/Makefile
View file @
33aa6c52
...
...
@@ -20,6 +20,13 @@ test-ada:
$(GNATLINK)
-o
test_ada test_ada.o external_proc.o orchestrator.ali
-lgnat
./test_ada
simu
:
$(OPENGEODE)
orchestrator.pr system_structure.pr
--shared
taste-properties
-s
properties orchestrator.pr system_structure.pr
make
-f
Makefile.properties
./orchestrator_simu.sh
test-c
:
$(ASN1SCC)
-c
dataview-uniq.asn
-typePrefix
asn1Scc
-equal
$(CC)
-c
-g
test_c.c
...
...
tests/regression/test-simu/orchestrator.pr
View file @
33aa6c52
...
...
@@ -6,7 +6,7 @@ COMMENT 'Hello';
SUBSTRUCTURE
/* CIF START (116, 38), (70, 35) */
START;
/* CIF NEXTSTATE (8
8
, 88), (124, 35) */
/* CIF NEXTSTATE (8
9
, 88), (124, 35) */
NEXTSTATE entering_wait;
/* CIF STATE (83, 193), (134, 35) */
STATE waiting_in_wait;
...
...
@@ -15,7 +15,7 @@ COMMENT 'Hello';
/* CIF NEXTSTATE (83, 298), (134, 35) */
NEXTSTATE entering_wait;
ENDSTATE;
/* CIF STATE (8
8
, 88), (124, 35) */
/* CIF STATE (8
9
, 88), (124, 35) */
STATE entering_wait;
/* CIF INPUT (114, 143), (73, 35) */
INPUT other;
...
...
@@ -36,6 +36,8 @@ dcl simpleseq MySimpleSeq := {a 42, b true, c three};
timer myTimer;
dcl counter T_UInt32 := 0;
procedure VDM comment '#hello';
fpar in inp fixedIntList,
...
...
@@ -53,24 +55,24 @@ external comment '#vdm #classname=RemoteCall';
CALL writeln('Simulation startup');
/* CIF NEXTSTATE (1095, 251), (72, 34) */
NEXTSTATE Wait;
/* CIF STATE (1674, 125), (100, 35) */
STATE timeout;
/* CIF INPUT (1659, 180), (147, 35) */
INPUT Paramless_TC;
/* CIF PROCEDURECALL (1608, 230), (249, 35) */
CALL SET_timer(1000, mytimer);
/* CIF NEXTSTATE (1695, 280), (74, 35) */
NEXTSTATE next;
ENDSTATE;
/* CIF STATE (1680, 345), (74, 35) */
STATE next;
/* CIF INPUT (16
53
, 400), (
122
, 35) */
/* CIF INPUT (16
81
, 400), (
70
, 35) */
INPUT pulse(a);
/* CIF PROCEDURECALL (160
7
, 450), (213, 35) */
/* CIF PROCEDURECALL (16
1
0, 450), (213, 35) */
CALL reset_timer(mytimer);
/* CIF NEXTSTATE (16
79
, 500), (70, 35) */
/* CIF NEXTSTATE (16
82
, 500), (70, 35) */
NEXTSTATE wait;
ENDSTATE;
/* CIF STATE (1674, 125), (100, 35) */
STATE timeout;
/* CIF INPUT (1651, 180), (147, 35) */
INPUT Paramless_TC;
/* CIF PROCEDURECALL (1600, 230), (249, 35) */
CALL SET_timer(1000, mytimer);
/* CIF NEXTSTATE (1687, 280), (74, 35) */
NEXTSTATE next;
ENDSTATE;
/* CIF STATE (1095, 251), (72, 34) */
STATE Wait;
/* CIF INPUT (807, 305), (101, 35) */
...
...
@@ -114,15 +116,17 @@ anint := 478;
NEXTSTATE next;
/* CIF INPUT (1219, 305), (147, 35) */
INPUT Paramless_TC;
/* CIF PROCEDURECALL (1166, 355), (253, 35) */
/* CIF TASK (1182, 360), (219, 35) */
TASK counter := (counter + 1) mod 500;
/* CIF PROCEDURECALL (1166, 410), (253, 35) */
CALL writeln('Got Paramless TC');
/* CIF PROCEDURECALL (1168, 40
5
), (249, 35) */
/* CIF PROCEDURECALL (1168, 4
6
0), (249, 35) */
CALL SET_timer(1000, mytimer);
/* CIF OUTPUT (1217,
455
), (150, 35) */
/* CIF OUTPUT (1217,
510
), (150, 35) */
OUTPUT Paramless_TM;
/* CIF TASK (1191, 50
5
), (202, 35) */
/* CIF TASK (1191, 5
6
0), (202, 35) */
TASK anint := (anint + 1) mod 100;
/* CIF NEXTSTATE (1257,
555
), (70, 35) */
/* CIF NEXTSTATE (1257,
610
), (70, 35) */
NEXTSTATE wait;
/* CIF INPUT (1429, 305), (104, 35) */
INPUT mytimer;
...
...
tests/regression/test-simu/properties
0 → 100644
View file @
33aa6c52
stop if counter > 5;
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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