blob: e3a6ca26750041dd3cbbd43a5c598063cab5e07c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
<?xml version="1.0" encoding="UTF-8"?>
<!-- test that foreach causes a new variable to be declared if 'item' doesn't already exist. Also
test that it will use an existing var if it does exist. -->
<scxml xmlns="http://www.w3.org/2005/07/scxml" xmlns:conf="http://www.w3.org/2005/scxml-conformance" initial="s0" datamodel="prolog" version="1.0">
<datamodel>
<data id="var1"/>
<data id="var2"/>
<data id="var3">
[1,2,3]
</data>
</datamodel>
<state id="s0">
<onentry>
<!-- first use declared variables -->
<foreach item="var1" index="var2" array="var3(X), member(M, X)"/>
<raise event="foo"/>
</onentry>
<transition event="error" target="fail"/>
<transition event="*" target="s1"/>
</state>
<state id="s1">
<onentry>
<!-- now use undeclared variables -->
<foreach item="var4" index="var5" array="var3(X), member(M, X)"/>
<raise event="bar"/>
</onentry>
<transition event="error" target="fail"/>
<transition event="*" target="s2"/>
</state>
<state id="s2">
<!-- check that var5 is bound -->
<transition cond="var5" target="pass"/>
<transition target="fail"/>
</state>
<final id="pass">
<onentry>
<log label="Outcome" expr="'pass'"/>
</onentry>
</final>
<final id="fail">
<onentry>
<log label="Outcome" expr="'fail'"/>
</onentry>
</final>
</scxml>
|