#!/bin/sh
# -*- coding: utf-8 -*-
# Copyright (C) 2016, 2017 Laboratoire de Recherche et Développement
# de l'Epita (LRDE).
#
# This file is part of Spot, a model checking library.
#
# Spot is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Spot is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
# License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see .
. ./defs
set -e
cat >alt.hoa <alt.dot
cat >expect.dot < -11 [arrowhead=onormal]
subgraph cluster_0 {
color=green
label=""
2 [label="G(a)"]
}
subgraph cluster_1 {
color=red
label=""
1 [label="FG(a)\n⓿"]
}
subgraph cluster_2 {
color=green
label=""
6 [label="t"]
}
subgraph cluster_3 {
color=red
label=""
4 [label="F(b)\n⓿"]
}
subgraph cluster_4 {
color=green
label=""
3 [label="GF(b)"]
-8 [label=<>,shape=point]
}
subgraph cluster_5 {
color=red
label=""
5 [label="((a) U (b))\n⓿"]
}
subgraph cluster_6 {
color=black
label=""
0 [label="((((a) U (b)) && GF(b)) && FG(a))"]
}
-11 [label=<>,shape=point]
-11 -> 0
-11 -> 2
0 -> -1 [label="b", arrowhead=onormal]
-1 [label=<>,shape=point]
-1 -> 1
-1 -> 3
0 -> -4 [label="a & !b", style=bold, color="#E31A1C", arrowhead=onormal]
-4 [label=<>,shape=point]
-4 -> 1 [style=bold, color="#E31A1C"]
-4 -> 3 [style=bold, color="#E31A1C"]
-4 -> 5 [style=bold, color="#E31A1C"]
1 -> 2 [label="a"]
1 -> 1 [label="1"]
2 -> 2 [label="a"]
3 -> 3 [label="b"]
3 -> -8 [label="!b", style=bold, color="#FF7F00", arrowhead=onormal]
-8 -> 3 [style=bold, color="#FF7F00"]
-8 -> 4 [style=bold, color="#FF7F00"]
4 -> 6 [label="b"]
4 -> 4 [label="!b"]
5 -> 6 [label="b"]
5 -> 5 [label="a & !b"]
6 -> 6 [label="1"]
}
EOF
diff expect.dot alt.dot
autfilt --trust=no --check=strength alt.hoa | grep properties: >output
cat >expected <out.hoa <res
cat >expected <res
cat >expected <ex1<ex2<ex3<ex4<expect4<expect4d< out4
diff expect4 out4
run 0 autfilt --remove-dead-states ex4 > out4
diff expect4d out4
cat >ex5< out5
cat >expect <ex6< ex6.dot
style='arrowhead=onormal'
cat >expect6.dot<⓿)
[co-Büchi]>
labelloc="t"
node [shape="circle"]
fontname="Lato"
node [fontname="Lato"]
edge [fontname="Lato"]
I [label="", style=invis, width=0]
I -> -1 [arrowhead=onormal]
-1 [label=<>,shape=point]
-1 -> 0
-1 -> 1
0 [label=<0>]
0 -> 0 [label=]
0 -> -1.1 [label=, style=bold, color="#FF4DA0", $style]
-1.1 [label=<>,shape=point]
-1.1 -> 0 [style=bold, color="#FF4DA0"]
-1.1 -> 1 [style=bold, color="#FF4DA0"]
0 -> -1.2 [label=, style=bold, color="#FF7F00", arrowhead=onormal]
-1.2 [label=<>,shape=point]
-1.2 -> 0 [style=bold, color="#FF7F00"]
-1.2 -> 1 [style=bold, color="#FF7F00"]
1 [label=<1>]
1 -> 1 [label=]
}
EOF
diff ex6.dot expect6.dot
cat >ex7< ex7.dot
color='⓿'
color1='❶'
cat >expect7.dot<[Streett-like 2]>
labelloc="t"
fontname="Lato"
node [fontname="Lato"]
edge [fontname="Lato"]
I [label="", style=invis, width=0]
I -> 0
subgraph cluster_0 {
color=green
label=""
4 [label=]
}
subgraph cluster_1 {
color=green
label=""
1 [label=]
}
subgraph cluster_2 {
color=red
label=""
2 [label=]
}
subgraph cluster_3 {
color=red
label=""
3 [label=]
}
subgraph cluster_4 {
color=green
label=""
0 [label=]
-1 [label=<>,shape=point]
-4 [label=<>,shape=point]
-7 [label=<>,shape=point]
-10 [label=<>,shape=point]
}
0 -> 4 [label=]
0 -> 0 [label=]
0 -> -1 [label=, arrowhead=onormal]
-1 -> 0
-1 -> 1
0 -> -4 [label=, arrowhead=onormal]
-4 -> 0
-4 -> 2
0 -> -7 [label=, arrowhead=onormal]
-7 -> 0
-7 -> 3
0 -> -10 [label=, arrowhead=onormal]
-10 -> 0
-10 -> 2
-10 -> 3
1 -> 1 [label=]
2 -> 4 [label=]
2 -> 2 [label=❶>]
3 -> 4 [label=]
3 -> 3 [label=⓿>]
4 -> 4 [label=<1>]
}
EOF
diff ex7.dot expect7.dot
cat >ex8< ex8.dot
cat >expect8.dot<[Streett-like 2]>
labelloc="t"
fontname="Lato"
node [fontname="Lato"]
edge [fontname="Lato"]
I [label="", style=invis, width=0]
I -> 0
subgraph cluster_0 {
color=green
label=""
4 [label=]
}
subgraph cluster_1 {
color=red
label=""
2 [label=]
}
subgraph cluster_2 {
color=red
label=""
3 [label=]
}
subgraph cluster_3 {
color=green
label=""
0 [label=]
-1 [label=<>,shape=point]
-4 [label=<>,shape=point]
-7 [label=<>,shape=point]
1 [label=]
-10 [label=<>,shape=point]
}
0 -> 4 [label=]
0 -> 0 [label=]
0 -> -1 [label=, arrowhead=onormal]
-1 -> 0
-1 -> 1
0 -> -4 [label=, arrowhead=onormal]
-4 -> 0
-4 -> 2
0 -> -7 [label=, arrowhead=onormal]
-7 -> 0
-7 -> 3
1 -> 1 [label=]
1 -> -10 [label=, arrowhead=onormal]
-10 -> 0
-10 -> 2
-10 -> 3
2 -> 4 [label=]
2 -> 2 [label=❶>]
3 -> 4 [label=]
3 -> 3 [label=⓿>]
4 -> 4 [label=<1>]
}
EOF
diff ex8.dot expect8.dot
cat >ex9 < ex9.dot
cat >expect9.dot <⓿)
[co-Büchi]>
labelloc="t"
node [shape="circle"]
fontname="Lato"
node [fontname="Lato"]
edge [fontname="Lato"]
I [label="", style=invis, width=0]
I -> 0
0 [label=<0>]
0 -> -1.1 [label=, style=bold, color="#FF4DA0", arrowhead=onormal]
-1.1 [label=<>,shape=point]
-1.1 -> 1 [style=bold, color="#FF4DA0"]
-1.1 -> 2 [style=bold, color="#FF4DA0"]
1 [label=<1>]
1 -> -1.1 [label=, style=bold, color="#FF4DA0", arrowhead=onormal]
2 [label=<2>]
2 -> -1.2 [label=, style=bold, color="#FF7F00", $style]
-1.2 [label=<>,shape=point]
-1.2 -> 1 [style=bold, color="#FF7F00"]
-1.2 -> 2 [style=bold, color="#FF7F00"]
}
EOF
diff ex9.dot expect9.dot
cat >ex10 < ex10.dot
cat >expect10.dot <⓿)
[co-Büchi]>
labelloc="t"
node [shape="circle"]
fontname="Lato"
node [fontname="Lato"]
edge [fontname="Lato"]
I [label="", style=invis, width=0]
I -> 0
0 [label=<0>]
0 -> -1.1 [label=, style=bold, color="#FF4DA0", arrowhead=onormal]
-1.1 [label=<>,shape=point]
-1.1 -> 1 [style=bold, color="#FF4DA0"]
-1.1 -> 2 [style=bold, color="#FF4DA0"]
1 [label=<1>]
1 -> -1.3 [label=, style=bold, color="#6A3D9A", arrowhead=onormal]
-1.3 [label=<>,shape=point]
-1.3 -> 1 [style=bold, color="#6A3D9A"]
-1.3 -> 2 [style=bold, color="#6A3D9A"]
2 [label=<2>]
2 -> -1.2 [label=, style=bold, color="#FF7F00", $style]
-1.2 [label=<>,shape=point]
-1.2 -> 1 [style=bold, color="#FF7F00"]
-1.2 -> 2 [style=bold, color="#FF7F00"]
}
EOF
diff ex10.dot expect10.dot
cat >ex11 < ex11.dot
cat >expect11.dot <⓿)
[co-Büchi]>
labelloc="t"
fontname="Lato"
node [fontname="Lato"]
edge [fontname="Lato"]
I [label="", style=invis, width=0]
I -> 0
subgraph cluster_0 {
color=green
label=""
3 [label=]
}
subgraph cluster_1 {
color=green
label=""
1 [label=]
}
subgraph cluster_2 {
color=green
label=""
2 [label=]
}
subgraph cluster_3 {
color=green
label=""
0 [label=]
-1 [label=<>,shape=point]
-4 [label=<>,shape=point]
}
0 -> 0 [label=]
0 -> -1 [label=, arrowhead=onormal]
-1 -> 0
-1 -> 1
0 -> -4 [label=, arrowhead=onormal]
-4 -> 0
-4 -> 2
1 -> 3 [label=]
1 -> 1 [label=]
2 -> 2 [label=]
3 -> 3 [label=<1>]
}
EOF
diff ex11.dot expect11.dot
# Detect cases where alternation-removal cannot work.
cat >in <out && exit 1
grep 'autfilt.*weak.*alternating' out
test '0 2 2 1' = "`autfilt --stats='%[Wiw]c %[w]c %[iw]c %[W]c' in`"
cat >in <out && exit 1
grep 'autfilt.*weak.*alternating' out
test '2 0 2 2' = "`autfilt --stats='%[Wiw]c %[w]c %[iw]c %[W]c' in`"
cat >in <in <in <