diff options
author | Stefan Radomski <radomski@tk.informatik.tu-darmstadt.de> | 2013-07-23 11:05:27 (GMT) |
---|---|---|
committer | Stefan Radomski <radomski@tk.informatik.tu-darmstadt.de> | 2013-07-23 11:05:27 (GMT) |
commit | 4a1d9cd369c3a799f4485cf07c4f9d3c231bef7c (patch) | |
tree | 00ed65dfdc9303b884104ccde2a1e32a8f550315 /test | |
parent | a84db30b735877a0bdacebd590acea07e3f140a1 (diff) | |
download | uscxml-4a1d9cd369c3a799f4485cf07c4f9d3c231bef7c.zip uscxml-4a1d9cd369c3a799f4485cf07c4f9d3c231bef7c.tar.gz uscxml-4a1d9cd369c3a799f4485cf07c4f9d3c231bef7c.tar.bz2 |
Introduced type="query" attribute for prolog script element
Diffstat (limited to 'test')
-rw-r--r-- | test/samples/uscxml/test-prolog.scxml | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/samples/uscxml/test-prolog.scxml b/test/samples/uscxml/test-prolog.scxml index def23db..ea2365e 100644 --- a/test/samples/uscxml/test-prolog.scxml +++ b/test/samples/uscxml/test-prolog.scxml @@ -1,6 +1,6 @@ <scxml datamodel="prolog"> <datamodel> - <data src="" /> + <data src="" /> <data id="father"> bob, jim. bob, john. @@ -22,6 +22,15 @@ </datamodel> <state id="s1"> <onentry> + <log label="Entering s1" expr="listing." /> + <script> + :- dynamic ampel/1. + ampel(false). + ampel(X) :- retract(ampel(_)), assertz(ampel(X)). + </script> + <script type="query"> + ampel(true). + </script> <assign location=""> retract(father(bob, jim)). assert(father(steve, jim)). |