2e69e04583
Fixes #187. * spot/tl/ltlf.cc, spot/tl/ltlf.hh: New files. * spot/tl/Makefile.am: Add them. * bin/ltlfilt.cc: Add a new option. * bin/man/ltlfilt.x: Add bibliographic reference. * tests/core/ltlfilt.test: Add more tests. * tests/python/ltlf.py: New file. * tests/Makefile.am: Add it. * python/spot/impl.i: Python bindings. * NEWS: Mention it.
390 lines
7.6 KiB
Bash
Executable file
390 lines
7.6 KiB
Bash
Executable file
#! /bin/sh
|
|
# -*- coding: utf-8 -*-
|
|
# Copyright (C) 2013, 2014, 2015, 2016 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 <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
# Check several options of ltlfilt
|
|
|
|
. ./defs || exit 1
|
|
|
|
set -e
|
|
|
|
ltlfilt=ltlfilt
|
|
|
|
checkopt()
|
|
{
|
|
cat >exp
|
|
run 0 $ltlfilt "$@" formulas > out
|
|
diff exp out
|
|
}
|
|
|
|
# The empty lines in the file are meant, we want to make sure that
|
|
# they are ignored.
|
|
cat >formulas <<EOF
|
|
GFa | FGb /* comment to ignore */
|
|
F(GFa | /* tricky /* comment */)*/ Gb)
|
|
|
|
F(b W GFa)
|
|
GFa | Gb
|
|
b W GFa
|
|
!{a;b*;c}!
|
|
!{a:b[*/*ignore me*/]:c/*ignore this comment*/}
|
|
a U Fb
|
|
G(a & Xb)
|
|
Xa
|
|
F(a & !Xa & Xb)
|
|
{a & {b|c} }
|
|
EOF
|
|
|
|
checkopt --eventual <<EOF
|
|
GFa | FGb
|
|
F(GFa | Gb)
|
|
F(b W GFa)
|
|
a U Fb
|
|
F(a & !Xa & Xb)
|
|
EOF
|
|
|
|
checkopt --universal <<EOF
|
|
GFa | FGb
|
|
F(GFa | Gb)
|
|
GFa | Gb
|
|
G(a & Xb)
|
|
EOF
|
|
|
|
checkopt --eventual --universal <<EOF
|
|
GFa | FGb
|
|
F(GFa | Gb)
|
|
EOF
|
|
|
|
checkopt --stutter-invariant <<EOF
|
|
GFa | FGb
|
|
F(GFa | Gb)
|
|
F(b W GFa)
|
|
GFa | Gb
|
|
b W GFa
|
|
!{a:b[*]:c}
|
|
a U Fb
|
|
F(a & !Xa & Xb)
|
|
a & (b | c)
|
|
EOF
|
|
|
|
checkopt -c --stutter-invariant <<EOF
|
|
9
|
|
EOF
|
|
|
|
checkopt --simplify <<EOF
|
|
F(GFa | Gb)
|
|
F(GFa | Gb)
|
|
F(b W GFa)
|
|
GFa | Gb
|
|
b W GFa
|
|
!a | X(!b R !c)
|
|
!{a:b[*]:c}
|
|
Fb
|
|
G(a & Xb)
|
|
Xa
|
|
F(a & X(!a & b))
|
|
a & (b | c)
|
|
EOF
|
|
|
|
checkopt --simplify --eventual --unique <<EOF
|
|
F(GFa | Gb)
|
|
F(b W GFa)
|
|
Fb
|
|
F(a & X(!a & b))
|
|
EOF
|
|
|
|
checkopt --safety <<EOF
|
|
!({a;b[*];c}!)
|
|
G(a & Xb)
|
|
Xa
|
|
a & (b | c)
|
|
EOF
|
|
|
|
checkopt --obligation <<EOF
|
|
!({a;b[*];c}!)
|
|
!{a:b[*]:c}
|
|
a U Fb
|
|
G(a & Xb)
|
|
Xa
|
|
F(a & !Xa & Xb)
|
|
a & (b | c)
|
|
EOF
|
|
|
|
checkopt --guarantee <<EOF
|
|
!{a:b[*]:c}
|
|
a U Fb
|
|
Xa
|
|
F(a & !Xa & Xb)
|
|
a & (b | c)
|
|
EOF
|
|
|
|
checkopt -v --ltl <<EOF
|
|
!({a;b[*];c}!)
|
|
!{a:b[*]:c}
|
|
EOF
|
|
|
|
checkopt -v --ap=3 <<EOF
|
|
GFa | FGb
|
|
F(GFa | Gb)
|
|
F(b W GFa)
|
|
GFa | Gb
|
|
b W GFa
|
|
a U Fb
|
|
G(a & Xb)
|
|
Xa
|
|
F(a & !Xa & Xb)
|
|
EOF
|
|
|
|
checkopt --ap=2..3 <<EOF
|
|
GFa | FGb
|
|
F(GFa | Gb)
|
|
F(b W GFa)
|
|
GFa | Gb
|
|
b W GFa
|
|
!({a;b[*];c}!)
|
|
!{a:b[*]:c}
|
|
a U Fb
|
|
G(a & Xb)
|
|
F(a & !Xa & Xb)
|
|
a & (b | c)
|
|
EOF
|
|
|
|
checkopt -v --stutter-invariant <<EOF
|
|
!({a;b[*];c}!)
|
|
G(a & Xb)
|
|
Xa
|
|
EOF
|
|
|
|
checkopt --equivalent-to 'GFa | FGb' <<EOF
|
|
GFa | FGb
|
|
F(GFa | Gb)
|
|
F(b W GFa)
|
|
EOF
|
|
|
|
# Restrict to LTL
|
|
run 0 ltlfilt --ltl formulas > formulas2
|
|
mv formulas2 formulas
|
|
|
|
checkopt --ltl --from-ltlf <<EOF
|
|
(G(!alive | F(a & alive)) | F(alive & G(!alive | b))) & (alive U G!alive)
|
|
F(alive & (G(!alive | F(a & alive)) | G(!alive | b))) & (alive U G!alive)
|
|
F(alive & ((!alive | b) W G(!alive | F(a & alive)))) & (alive U G!alive)
|
|
(G(!alive | F(a & alive)) | G(!alive | b)) & (alive U G!alive)
|
|
((!alive | b) W G(!alive | F(a & alive))) & (alive U G!alive)
|
|
(a U (alive & F(alive & b))) & (alive U G!alive)
|
|
G(!alive | (a & X(alive & b))) & (alive U G!alive)
|
|
X(a & alive) & (alive U G!alive)
|
|
F(a & alive & !X(a & alive) & X(alive & b)) & (alive U G!alive)
|
|
a & (b | c) & (alive U G!alive)
|
|
EOF
|
|
|
|
checkopt --ltl --from-ltlf='!dead' <<EOF
|
|
(G(dead | F(a & !dead)) | F(!dead & G(b | dead))) & (!dead U Gdead)
|
|
F(!dead & (G(dead | F(a & !dead)) | G(b | dead))) & (!dead U Gdead)
|
|
F(!dead & ((b | dead) W G(dead | F(a & !dead)))) & (!dead U Gdead)
|
|
(G(dead | F(a & !dead)) | G(b | dead)) & (!dead U Gdead)
|
|
((b | dead) W G(dead | F(a & !dead))) & (!dead U Gdead)
|
|
(a U (!dead & F(b & !dead))) & (!dead U Gdead)
|
|
G(dead | (a & X(b & !dead))) & (!dead U Gdead)
|
|
X(a & !dead) & (!dead U Gdead)
|
|
F(a & !dead & !X(a & !dead) & X(b & !dead)) & (!dead U Gdead)
|
|
a & (b | c) & (!dead U Gdead)
|
|
EOF
|
|
|
|
cat >in <<EOF
|
|
a & Xb & c
|
|
a & b & GF(a | c) & FG(a | c)
|
|
b & GF(a | c) & FG(a | c)
|
|
G(d & e) | FG(Xf| !c) | h | i
|
|
b & !Xc & e & (f | g)
|
|
b & GF(a | c) & !GF!(a | c)
|
|
F(a <-> b) -> (c xor d)
|
|
EOF
|
|
|
|
cat >exp <<EOF
|
|
p0 & Xp1
|
|
p0 & p1 & GF(p0 | p2) & FG(p0 | p2)
|
|
p0 & GFp1 & FGp1
|
|
p0 | Gp1 | FG(p2 | Xp3)
|
|
p0 | Gp1
|
|
EOF
|
|
|
|
run 0 $ltlfilt -u --nnf --relabel-bool=pnn in >out
|
|
diff exp out
|
|
|
|
cat >exp <<EOF
|
|
#define p0 (a && c)
|
|
#define p1 (b)
|
|
p0 && Xp1
|
|
#define p0 (a)
|
|
#define p1 (b)
|
|
#define p2 (c)
|
|
p0 && p1 && []<>(p0 || p2) && <>[](p0 || p2)
|
|
#define p0 (b)
|
|
#define p1 (a || c)
|
|
p0 && []<>p1 && <>[]p1
|
|
#define p0 (h || i)
|
|
#define p1 (d && e)
|
|
#define p2 (!c)
|
|
#define p3 (f)
|
|
p0 || []p1 || <>[](p2 || Xp3)
|
|
#define p0 ((c && !d) || (!c && d))
|
|
#define p1 ((a && !b) || (!a && b))
|
|
p0 || []p1
|
|
EOF
|
|
|
|
run 0 $ltlfilt -s -u --nnf --relabel-bool=pnn --define in >out
|
|
diff exp out
|
|
|
|
cat >exp <<EOF
|
|
#define p0 (a)
|
|
#define p1 (c)
|
|
#define p2 (b)
|
|
p0 && p1 && Xp2
|
|
#define p0 (a)
|
|
#define p1 (b)
|
|
#define p2 (c)
|
|
p0 && p1 && []<>(p0 || p2) && <>[](p0 || p2)
|
|
#define p0 (b)
|
|
#define p1 (a)
|
|
#define p2 (c)
|
|
p0 && []<>(p1 || p2) && <>[](p1 || p2)
|
|
#define p0 (h)
|
|
#define p1 (i)
|
|
#define p2 (d)
|
|
#define p3 (e)
|
|
#define p4 (c)
|
|
#define p5 (f)
|
|
p0 || p1 || [](p2 && p3) || <>[](!p4 || Xp5)
|
|
#define p0 (b)
|
|
#define p1 (e)
|
|
#define p2 (f)
|
|
#define p3 (g)
|
|
#define p4 (c)
|
|
p0 && p1 && (p2 || p3) && !Xp4
|
|
#define p0 (b)
|
|
#define p1 (a)
|
|
#define p2 (c)
|
|
p0 && []<>(p1 || p2) && ![]<>!(p1 || p2)
|
|
#define p0 (a)
|
|
#define p1 (b)
|
|
#define p2 (c)
|
|
#define p3 (d)
|
|
<>(p0 <-> p1) -> !(p2 <-> p3)
|
|
EOF
|
|
|
|
run 0 $ltlfilt -s -u --relabel=pnn --define in >out
|
|
diff exp out
|
|
|
|
toolong='((p2=0) * (p3=1))' # work around the 80-col check
|
|
cat >exp <<EOF
|
|
#define p0 (a=1)
|
|
#define p1 (c=1)
|
|
#define p2 (b=1)
|
|
(p0=1) * (p1=1) * (X(p2=1))
|
|
#define p0 (a=1)
|
|
#define p1 (b=1)
|
|
#define p2 (c=1)
|
|
(p0=1) * (p1=1) * (G(F((p0=1) + (p2=1)))) * (F(G((p0=1) + (p2=1))))
|
|
#define p0 (b=1)
|
|
#define p1 (a=1)
|
|
#define p2 (c=1)
|
|
(p0=1) * (G(F((p1=1) + (p2=1)))) * (F(G((p1=1) + (p2=1))))
|
|
#define p0 (h=1)
|
|
#define p1 (i=1)
|
|
#define p2 (d=1)
|
|
#define p3 (e=1)
|
|
#define p4 (c=1)
|
|
#define p5 (f=1)
|
|
(p0=1) + (p1=1) + (G((p2=1) * (p3=1))) + (F(G((p4=0) + (X(p5=1)))))
|
|
#define p0 (b=1)
|
|
#define p1 (e=1)
|
|
#define p2 (f=1)
|
|
#define p3 (g=1)
|
|
#define p4 (c=1)
|
|
(p0=1) * (p1=1) * ((p2=1) + (p3=1)) * (X(p4=0))
|
|
#define p0 (c=1)
|
|
#define p1 (d=1)
|
|
#define p2 (a=1)
|
|
#define p3 (b=1)
|
|
((p0=1) * (p1=0)) + ((p0=0) * (p1=1)) + (G(((p2=1) * (p3=0)) + $toolong))
|
|
EOF
|
|
run 0 $ltlfilt -p --wring -u --nnf --relabel=pnn --define in >out
|
|
diff exp out
|
|
|
|
run 0 $ltlfilt -0 in > out
|
|
perl -i -pe 's/\0/@\n/g' out
|
|
cat >exp <<EOF
|
|
a & c & Xb@
|
|
a & b & GF(a | c) & FG(a | c)@
|
|
b & GF(a | c) & FG(a | c)@
|
|
h | i | G(d & e) | FG(!c | Xf)@
|
|
b & e & (f | g) & !Xc@
|
|
b & GF(a | c) & !GF!(a | c)@
|
|
F(a <-> b) -> (c xor d)@
|
|
EOF
|
|
diff exp out
|
|
|
|
SPOT_STUTTER_CHECK=0 \
|
|
$ltlfilt --stutter-invariant -f '!{a:b*:c}' 2> stderr && exit 1
|
|
test $? = 2
|
|
grep 'non-LTL' stderr
|
|
|
|
SPOT_STUTTER_CHECK=555 \
|
|
$ltlfilt --stutter-invariant -f '!{a:b*:c}' 2> stderr && exit 1
|
|
test $? = 2
|
|
grep 'invalid' stderr
|
|
|
|
SPOT_STUTTER_CHECK=5 \
|
|
$ltlfilt --stutter-invariant -f '!{a:b*:c}'
|
|
|
|
# This one was incorrectly diagnosed as stutter invariant because of a
|
|
# bug in the bitvectors.
|
|
$ltlfilt --stutter-invariant -f 'F(a & XXXXXX!a)' && exit 1
|
|
|
|
|
|
$ltlfilt -c -o 'foo' -f a 2>stderr && exit 1
|
|
grep 'ltlfilt: options --output and --count are incompatible' stderr
|
|
|
|
out=`$ltlfilt -f 'G(a xor b) -> F(c <-> Xd)' --unabbreviate='^iF'`
|
|
exp='(1 U (c <-> Xd)) | !G!(a <-> b)'
|
|
test "$out" = "$exp"
|
|
|
|
$ltlfilt -f 'GF"a\"\\b"' > out
|
|
test "`cat out`" = 'GF"a\"\\b"'
|
|
|
|
$ltlfilt --lbt-input -f 'G F "a\"\\b"' -l > out
|
|
test "`cat out`" = 'G F "a\"\\b"'
|
|
|
|
|
|
$ltlfilt --size=foo=2..3 2>stderr && exit 1
|
|
grep 'invalid range.*should start with' stderr
|
|
|
|
|
|
cat >out <<EOF
|
|
test1,"""a b"" U c"
|
|
"""a b"" U c",test2
|
|
EOF
|
|
ltlfilt out/1 > out.1
|
|
ltlfilt out/2 > out.2
|
|
diff out out.1
|
|
diff out out.2
|
|
|
|
true
|