* src/tgbaalgos/emptiness_stats.hh: Make sure depth() >= 0.
* src/tgbaalgos/gtec/gtec.hh (couvreur99_check, couvreur99_check_shy): Add the poprem option. * src/tgbaalgos/gtec/gtec.cc: Implement it. * src/tgbaalgos/gtec/sccstack.cc, src/tgbaalgos/gtec/sccstack.hh (scc_stack::rem, scc_stack::clear_rem, scc_stack::connected_component::rem): New. * src/tgbatest/ltl2tgba.cc, src/tgbatest/randtgba.cc: Add rem variants.
This commit is contained in:
Alexandre Duret-Lutz
parent
5fb5b68407
commit
7bba6dc63d
21 changed files with 1023 additions and 4 deletions
11
Makefile.am
11
Makefile.am
|
|
@ -1,4 +1,4 @@
|
||||||
## Copyright (C) 2003 Laboratoire d'Informatique de Paris 6 (LIP6),
|
## Copyright (C) 2003, 2005 Laboratoire d'Informatique de Paris 6 (LIP6),
|
||||||
## département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
## département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||||
## et Marie Curie.
|
## et Marie Curie.
|
||||||
##
|
##
|
||||||
|
|
@ -25,8 +25,15 @@ endif WITH_INCLUDED_BUDDY
|
||||||
if WITH_INCLUDED_LBTT
|
if WITH_INCLUDED_LBTT
|
||||||
MAYBE_LBTT = lbtt
|
MAYBE_LBTT = lbtt
|
||||||
endif WITH_INCLUDED_LBTT
|
endif WITH_INCLUDED_LBTT
|
||||||
|
if NEVER
|
||||||
|
# For Automake a conditional directory
|
||||||
|
# is conditionally built, but unconditionally distributed.
|
||||||
|
# So using NEVER here ensures that `make all' will not
|
||||||
|
# recurse in bench/, but `make dist' will.
|
||||||
|
NEVER_BENCH = bench
|
||||||
|
endif
|
||||||
|
|
||||||
SUBDIRS = $(MAYBE_BUDDY) $(MAYBE_LBTT) doc src wrap iface
|
SUBDIRS = $(MAYBE_BUDDY) $(MAYBE_LBTT) $(NEVER_BENCH) doc src wrap iface
|
||||||
|
|
||||||
ACLOCAL_AMFLAGS = -I m4
|
ACLOCAL_AMFLAGS = -I m4
|
||||||
EXTRA_DIST = HACKING
|
EXTRA_DIST = HACKING
|
||||||
|
|
|
||||||
5
README
5
README
|
|
@ -101,13 +101,16 @@ src/ Sources for libspot.
|
||||||
misc/ Miscellaneous support files.
|
misc/ Miscellaneous support files.
|
||||||
tgba/ TGBA objects and cousins.
|
tgba/ TGBA objects and cousins.
|
||||||
tgbaalgos/ Algorithms on TGBA.
|
tgbaalgos/ Algorithms on TGBA.
|
||||||
gtec/ Generalized Tarjan Emptiness-Check.
|
gtec/ Couvreur's Emptiness-Check.
|
||||||
tgbaparse/ Parser for explicit TGBA.
|
tgbaparse/ Parser for explicit TGBA.
|
||||||
tgbatest/ Tests for tgba/, tgbaalgos/, and tgbaparse/.
|
tgbatest/ Tests for tgba/, tgbaalgos/, and tgbaparse/.
|
||||||
|
evtgba*/ Ignore these for now.
|
||||||
doc/ Documentation for libspot.
|
doc/ Documentation for libspot.
|
||||||
spot.html/ HTML reference manual.
|
spot.html/ HTML reference manual.
|
||||||
spot.latex/ Sources for the PDF manual. (No distributed, can be rebuilt.)
|
spot.latex/ Sources for the PDF manual. (No distributed, can be rebuilt.)
|
||||||
spotref.pdf PDF reference manual.
|
spotref.pdf PDF reference manual.
|
||||||
|
bench/ Benchmarks...
|
||||||
|
emptchk/ ... for emptiness-check algorithms. (Paper submitted to CAV'05)
|
||||||
wrap/ Wrappers for other languages.
|
wrap/ Wrappers for other languages.
|
||||||
python/ Python bindings for Spot and BuDDy
|
python/ Python bindings for Spot and BuDDy
|
||||||
tests/ Tests for these bindings
|
tests/ Tests for these bindings
|
||||||
|
|
|
||||||
2
bench/.cvsignore
Normal file
2
bench/.cvsignore
Normal file
|
|
@ -0,0 +1,2 @@
|
||||||
|
Makefile
|
||||||
|
Makefile.in
|
||||||
22
bench/Makefile.am
Normal file
22
bench/Makefile.am
Normal file
|
|
@ -0,0 +1,22 @@
|
||||||
|
## Copyright (C) 2005 Laboratoire d'Informatique de Paris 6 (LIP6),
|
||||||
|
## département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||||
|
## et Marie Curie.
|
||||||
|
##
|
||||||
|
## 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 2 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 Spot; see the file COPYING. If not, write to the Free
|
||||||
|
## Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
||||||
|
## 02111-1307, USA.
|
||||||
|
|
||||||
|
SUBDIRS = emptchk
|
||||||
4
bench/emptchk/.cvsignore
Normal file
4
bench/emptchk/.cvsignore
Normal file
|
|
@ -0,0 +1,4 @@
|
||||||
|
Makefile
|
||||||
|
Makefile.in
|
||||||
|
defs
|
||||||
|
pan*
|
||||||
68
bench/emptchk/Makefile.am
Normal file
68
bench/emptchk/Makefile.am
Normal file
|
|
@ -0,0 +1,68 @@
|
||||||
|
## Copyright (C) 2005 Laboratoire d'Informatique de Paris 6 (LIP6),
|
||||||
|
## département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||||
|
## et Marie Curie.
|
||||||
|
##
|
||||||
|
## 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 2 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 Spot; see the file COPYING. If not, write to the Free
|
||||||
|
## Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
||||||
|
## 02111-1307, USA.
|
||||||
|
|
||||||
|
|
||||||
|
PML2TGBA = $(PERL) $(srcdir)/pml2tgba.pl
|
||||||
|
|
||||||
|
noinst_SCRIPTS = defs
|
||||||
|
dist_noinst_SCRIPTS = \
|
||||||
|
pml2tgba.pl \
|
||||||
|
ltl-human.sh \
|
||||||
|
ltl-random.sh
|
||||||
|
|
||||||
|
dist_noinst_DATA = \
|
||||||
|
models/cl3serv1.pml \
|
||||||
|
models/cl3serv3.pml \
|
||||||
|
models/clserv.ltl \
|
||||||
|
models/eeaean2.pml \
|
||||||
|
models/eeaean.ltl \
|
||||||
|
formulae.ltl \
|
||||||
|
algorithms
|
||||||
|
|
||||||
|
nodist_noinst_DATA = \
|
||||||
|
models/cl3serv1.tgba \
|
||||||
|
models/cl3serv1fair.tgba \
|
||||||
|
models/cl3serv3.tgba \
|
||||||
|
models/cl3serv3fair.tgba \
|
||||||
|
models/eeaean2.tgba
|
||||||
|
|
||||||
|
models/cl3serv1.tgba: $(srcdir)/models/cl3serv1.pml
|
||||||
|
$(mkdir_p) models
|
||||||
|
$(PML2TGBA) $(srcdir)/models/cl3serv1.pml w1 s1 >$@
|
||||||
|
|
||||||
|
models/cl3serv1fair.tgba: $(srcdir)/models/cl3serv1.pml
|
||||||
|
$(mkdir_p) models
|
||||||
|
$(PML2TGBA) -w $(srcdir)/models/cl3serv1.pml w1 s1 >$@
|
||||||
|
|
||||||
|
models/cl3serv3.tgba: $(srcdir)/models/cl3serv3.pml
|
||||||
|
$(mkdir_p) models
|
||||||
|
$(PML2TGBA) $(srcdir)/models/cl3serv3.pml w1 s1 >$@
|
||||||
|
|
||||||
|
models/cl3serv3fair.tgba: $(srcdir)/models/cl3serv3.pml
|
||||||
|
$(mkdir_p) models
|
||||||
|
$(PML2TGBA) -w $(srcdir)/models/cl3serv3.pml w1 s1 >$@
|
||||||
|
|
||||||
|
models/eeaean2.tgba: $(srcdir)/models/eeaean2.pml
|
||||||
|
$(mkdir_p) models
|
||||||
|
$(PML2TGBA) $(srcdir)/models/eeaean2.pml \
|
||||||
|
noLeader zeroLeads oneLeads twoLeads threeLeads >$@
|
||||||
|
|
||||||
|
CLEANFILES = $(nodist_noinst_DATA)
|
||||||
262
bench/emptchk/README
Normal file
262
bench/emptchk/README
Normal file
|
|
@ -0,0 +1,262 @@
|
||||||
|
This directory contains the input files and scripts used to produce
|
||||||
|
the measures in our paper "On-the-fly Emptiness Checks for Generalized
|
||||||
|
Büchi Automata" (J.-M. Couvreur, A. Duret-Lutz, D. Poitrenaud),
|
||||||
|
submitted to CAV'05.
|
||||||
|
|
||||||
|
==========
|
||||||
|
CONTENTS
|
||||||
|
==========
|
||||||
|
|
||||||
|
This directory contains:
|
||||||
|
|
||||||
|
* models/cl3serv1.pml
|
||||||
|
* models/cl3serv3.pml
|
||||||
|
|
||||||
|
Two simple client/server promela examples.
|
||||||
|
|
||||||
|
* models/clserv.ltl
|
||||||
|
|
||||||
|
An LTL formula to verify on these examples.
|
||||||
|
|
||||||
|
* models/eeaean2.pml
|
||||||
|
|
||||||
|
A variations of the leader election protocol with extinction from
|
||||||
|
Tel, Introduction to Distributed Algorithms, 1994, Chapter 7. The
|
||||||
|
network in the model consists of three nodes. In Variant 1, the
|
||||||
|
same node wins every time, in Variant 2, each node gets a turn at
|
||||||
|
winning the election. This script was originally distributed
|
||||||
|
alongside with
|
||||||
|
|
||||||
|
@InProceedings{ schwoon.05.tacas,
|
||||||
|
author = {Stefan Schwoon and Javier Esparza},
|
||||||
|
title = {A note on on-the-fly verification algorithms.},
|
||||||
|
booktitle = {Proceedings of the 11th International Conference
|
||||||
|
on Tools and Algorithms for the Construction and
|
||||||
|
Analysis of Systems
|
||||||
|
(TACAS'05)},
|
||||||
|
year = {2005},
|
||||||
|
series = {Lecture Notes in Computer Science},
|
||||||
|
publisher = {Springer-Verlag},
|
||||||
|
month = apr
|
||||||
|
}
|
||||||
|
|
||||||
|
* models/eeaean.ltl
|
||||||
|
|
||||||
|
Sample properties for the leader election protocols. These come from
|
||||||
|
|
||||||
|
@InProceedings{ geldenhuys.04.tacas,
|
||||||
|
author = {Jaco Geldenhuys and Antti Valmari},
|
||||||
|
title = {Tarjan's Algorithm Makes On-the-Fly {LTL} Verification
|
||||||
|
More Efficient},
|
||||||
|
booktitle = {Proceedings of the 10th International Conference on
|
||||||
|
Tools and Algorithms for the Construction and Analysis
|
||||||
|
of Systems
|
||||||
|
(TACAS'04)},
|
||||||
|
editor = {Kurt Jensen and Andreas Podelski},
|
||||||
|
pages = {205--219},
|
||||||
|
year = {2004},
|
||||||
|
publisher = {Springer-Verlag},
|
||||||
|
series = {Lecture Notes in Computer Science},
|
||||||
|
volume = {2988},
|
||||||
|
isbn = {3-540-21299-X}
|
||||||
|
}
|
||||||
|
|
||||||
|
* formulae.ltl
|
||||||
|
|
||||||
|
A list of 96 handwritten formulae with their negations. They come
|
||||||
|
from three sources:
|
||||||
|
|
||||||
|
@InProceedings{ dwyer.98.fmsp,
|
||||||
|
author = {Matthew B. Dwyer and George S. Avrunin and James C.
|
||||||
|
Corbett},
|
||||||
|
title = {Property Specification Patterns for Finite-state
|
||||||
|
Verification},
|
||||||
|
booktitle = {Proceedings of the 2nd Workshop on Formal Methods in
|
||||||
|
Software Practice (FMSP'98)},
|
||||||
|
publisher = {ACM Press},
|
||||||
|
address = {New York},
|
||||||
|
editor = {Mark Ardis},
|
||||||
|
month = mar,
|
||||||
|
year = {1998},
|
||||||
|
pages = {7--15}
|
||||||
|
}
|
||||||
|
|
||||||
|
@InProceedings{ etessami.00.concur,
|
||||||
|
author = {Kousha Etessami and Gerard J. Holzmann},
|
||||||
|
title = {Optimizing {B\"u}chi Automata},
|
||||||
|
booktitle = {Proceedings of the 11th International Conference on
|
||||||
|
Concurrency Theory (Concur'00)},
|
||||||
|
pages = {153--167},
|
||||||
|
year = {2000},
|
||||||
|
editor = {C. Palamidessi},
|
||||||
|
volume = {1877},
|
||||||
|
series = {Lecture Notes in Computer Science},
|
||||||
|
address = {Pennsylvania, USA},
|
||||||
|
publisher = {Springer-Verlag}
|
||||||
|
}
|
||||||
|
|
||||||
|
@InProceedings{ somenzi.00.cav,
|
||||||
|
author = {Fabio Somenzi and Roderick Bloem},
|
||||||
|
title = {Efficient {B\"u}chi Automata for {LTL} Formul{\ae}},
|
||||||
|
booktitle = {Proceedings of the 12th International Conference on
|
||||||
|
Computer Aided Verification (CAV'00)},
|
||||||
|
pages = {247--263},
|
||||||
|
year = {2000},
|
||||||
|
volume = {1855},
|
||||||
|
series = {Lecture Notes in Computer Science},
|
||||||
|
address = {Chicago, Illinois, USA},
|
||||||
|
publisher = {Springer-Verlag}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
* pml2tgba.pl
|
||||||
|
|
||||||
|
A Perl script to translate Promela models into TGBA readble by Spot.
|
||||||
|
This requires a working spin in PATH.
|
||||||
|
|
||||||
|
* ltl-random.sh
|
||||||
|
|
||||||
|
Use all emptiness-check algorithms to test random graphs against
|
||||||
|
random LTL formulae.
|
||||||
|
|
||||||
|
* ltl-human.sh
|
||||||
|
|
||||||
|
Use all emptiness-check algorithms to test random graphs against
|
||||||
|
all the formulae of the file `formulae.ltl'
|
||||||
|
|
||||||
|
* pml-clserv.sh
|
||||||
|
|
||||||
|
Check the two configurations of the client/server example against
|
||||||
|
the formula in models/clserv.ltl, without and with fairness
|
||||||
|
assumptions, using all the algorithms of the file `algorihms'.
|
||||||
|
You should have run `make' before attempting to run this script,
|
||||||
|
so the state space are available.
|
||||||
|
|
||||||
|
* pml-eeaean.sh
|
||||||
|
|
||||||
|
Check models/eeaean2.pml against each formulae in
|
||||||
|
models/eeaean.ltl, using all the algorithms of the file
|
||||||
|
`algorihms'. You should have run `make' before attempting to run
|
||||||
|
this script, so the state space are available.
|
||||||
|
|
||||||
|
|
||||||
|
=======
|
||||||
|
USAGE
|
||||||
|
=======
|
||||||
|
|
||||||
|
1. If that is not done already, configure and compile all Spot library,
|
||||||
|
then come back into this directory.
|
||||||
|
|
||||||
|
2. Run `make' in this directory. This will call pml2tgba.pl to
|
||||||
|
generate the TGBA input for the two pml-*.sh tests.
|
||||||
|
|
||||||
|
3. Run the tests you are interested in
|
||||||
|
|
||||||
|
- ltl-random.sh
|
||||||
|
- ltl-human.sh
|
||||||
|
- pml-clserv.sh
|
||||||
|
- pml-eeaean.sh
|
||||||
|
|
||||||
|
Beware that the two ltl-*.sh tests are very long (each of them
|
||||||
|
run 13 emptiness-check algorithms against 18000 state-spaces!)
|
||||||
|
|
||||||
|
You can speed up the pml-*.sh tests by removing some algorithms
|
||||||
|
from the `algorithms' file.
|
||||||
|
|
||||||
|
==========================
|
||||||
|
INTERPRETING THE RESULTS
|
||||||
|
==========================
|
||||||
|
|
||||||
|
Here are the short names for the algorithms used in the outputs.
|
||||||
|
|
||||||
|
Cou99
|
||||||
|
Cou99_shy-
|
||||||
|
Cou99_shy
|
||||||
|
> Cou99_rem
|
||||||
|
> Cou99_rem_shy-
|
||||||
|
> Cou99_rem_shy
|
||||||
|
> CVWY90
|
||||||
|
CVWY90_bsh
|
||||||
|
> GV04
|
||||||
|
> SE05
|
||||||
|
SE05_bsh
|
||||||
|
> Tau03
|
||||||
|
> Tau03_opt
|
||||||
|
|
||||||
|
Only the algorithms marked with a `>' have been shown in the paper.
|
||||||
|
`bsh' stands for `bit-state hashing'.
|
||||||
|
|
||||||
|
`Cou99_rem*' algorithms are using the `rem' field to remove
|
||||||
|
the SCC without recomputing the SCC as described in the paper.
|
||||||
|
The other `Cou99*' algorithms are not. (Beware that in the paper
|
||||||
|
we showed the `Cou99_rem*' variants and called them `Cou99*'.)
|
||||||
|
|
||||||
|
|
||||||
|
The ltl-*.sh tests output look as follows:
|
||||||
|
|
||||||
|
| density: 0.001
|
||||||
|
| Ratios about empt. check (all tests)
|
||||||
|
| CVWY90 5.5 4.4 6.3 25
|
||||||
|
| CVWY90_bsh 5.7 4.8 6.3 25
|
||||||
|
| Cou99 5.5 3.3 4.3 25
|
||||||
|
| Cou99_rem 5.5 3.0 4.3 25
|
||||||
|
| ...
|
||||||
|
(A) (B) (C) (D)
|
||||||
|
|
|
||||||
|
| Ratios about search space
|
||||||
|
| CVWY90 5.5
|
||||||
|
| Cou99 2.0
|
||||||
|
| Cou99_rem 2.0
|
||||||
|
| Cou99_rem_shy 1.2
|
||||||
|
| ...
|
||||||
|
(E)
|
||||||
|
|
|
||||||
|
| Ratios about acc. run computation
|
||||||
|
| CVWY90 2.6
|
||||||
|
| CVWY90_bsh 2.6
|
||||||
|
| Cou99 2.1
|
||||||
|
| Cou99_rem 2.1
|
||||||
|
| ...
|
||||||
|
(F)
|
||||||
|
|
||||||
|
(A) mean number of distinct states visited
|
||||||
|
expressed as a % of the number of state of the product space
|
||||||
|
(B) mean number of distinct transitions visited
|
||||||
|
expressed as a % of the number of transition of the product space
|
||||||
|
(C) mean of the maximal stack size
|
||||||
|
expressed as a % of the number of state of the product space
|
||||||
|
(D) number of non-empy automata used for these statistics
|
||||||
|
(E) mean number of states in the search space for accepting runs
|
||||||
|
expressed as a % of the number of state of the product space
|
||||||
|
(F) mean number of states visited (possibly several times) while
|
||||||
|
computing the acceptin run
|
||||||
|
expressed as a % of the number of state of the product space
|
||||||
|
|
||||||
|
|
||||||
|
The pml-*.sh tests output look as follows:
|
||||||
|
|
||||||
|
| Cou99 , 783, 2371, 5, 783, 4742, 237, no accepting run found
|
||||||
|
| Cou99_shy- , 783, 2371, 5, 783, 4742, 537, no accepting run found
|
||||||
|
| ...
|
||||||
|
(G) (H) (I) (K) (L) (M) (N)
|
||||||
|
|
||||||
|
(G) Number of states in the product.
|
||||||
|
(H) Number of transitions in the product.
|
||||||
|
(I) Number of acceptance conditions in the product.
|
||||||
|
(K) Number of distinct states visited by the emptiness-check algorithm.
|
||||||
|
(L) Number of transitions visited by the emptiness-check algorithm.
|
||||||
|
(M) Maximal size of the stack.
|
||||||
|
(N) Whehter an accepting run was found.
|
||||||
|
|
||||||
|
|
||||||
|
=================
|
||||||
|
MORE STATISTICS
|
||||||
|
=================
|
||||||
|
|
||||||
|
The ltl-*.sh tests use src/tgbatest/randtgba to output statistics,
|
||||||
|
but randtgba is able to output a lot more data than what we have
|
||||||
|
shown above. Try removing the `-1' option from the script, or toying
|
||||||
|
with randtgba itself.
|
||||||
|
|
||||||
|
Besides randtgba, two other tools that you might find handy we
|
||||||
|
experimenting are src/ltltest/randltl and src/tgbatest/ltl2tgba.
|
||||||
11
bench/emptchk/algorithms
Normal file
11
bench/emptchk/algorithms
Normal file
|
|
@ -0,0 +1,11 @@
|
||||||
|
Cou99
|
||||||
|
Cou99_shy-
|
||||||
|
Cou99_shy
|
||||||
|
Cou99_rem
|
||||||
|
Cou99_rem_shy-
|
||||||
|
Cou99_rem_shy
|
||||||
|
GV04
|
||||||
|
CVWY90
|
||||||
|
SE05
|
||||||
|
Tau03
|
||||||
|
Tau03_opt
|
||||||
39
bench/emptchk/defs.in
Normal file
39
bench/emptchk/defs.in
Normal file
|
|
@ -0,0 +1,39 @@
|
||||||
|
# -*- shell-script -*-
|
||||||
|
# Copyright (C) 2005 Laboratoire d'Informatique de Paris 6 (LIP6),
|
||||||
|
# département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||||
|
# et Marie Curie.
|
||||||
|
#
|
||||||
|
# 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 2 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 Spot; see the file COPYING. If not, write to the Free
|
||||||
|
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
||||||
|
# 02111-1307, USA.
|
||||||
|
|
||||||
|
# Ensure we are running from the right directory.
|
||||||
|
test -f ./defs || {
|
||||||
|
echo "defs: not found in current directory" 1>&2
|
||||||
|
exit 1
|
||||||
|
}
|
||||||
|
|
||||||
|
srcdir='@srcdir@'
|
||||||
|
|
||||||
|
# Ensure $srcdir is set correctly.
|
||||||
|
test -f "$srcdir/defs.in" || {
|
||||||
|
echo "$srcdir/defs.in not found, check \$srcdir" 1>&2
|
||||||
|
exit 1
|
||||||
|
}
|
||||||
|
|
||||||
|
RANDTGBA='@top_srcdir@/src/tgbatest/randtgba@EXEEXT@'
|
||||||
|
LTL2TGBA='@top_srcdir@/src/tgbatest/ltl2tgba@EXEEXT@'
|
||||||
|
FORMULAE=$srcdir/formulae.ltl
|
||||||
40
bench/emptchk/ltl-human.sh
Normal file
40
bench/emptchk/ltl-human.sh
Normal file
|
|
@ -0,0 +1,40 @@
|
||||||
|
#!/bin/sh
|
||||||
|
# Copyright (C) 2005 Laboratoire d'Informatique de Paris 6 (LIP6),
|
||||||
|
# département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||||
|
# et Marie Curie.
|
||||||
|
#
|
||||||
|
# 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 2 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 Spot; see the file COPYING. If not, write to the Free
|
||||||
|
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
||||||
|
# 02111-1307, USA.
|
||||||
|
|
||||||
|
. ./defs
|
||||||
|
set -e
|
||||||
|
|
||||||
|
opts="-1 -D -e 15 -n 1024 -t 0.5 -r -z -i $FORMULAE"
|
||||||
|
|
||||||
|
echo "WITHOUT ADDITIONAL ACCEPTING CONDITIONS"
|
||||||
|
|
||||||
|
for d in 0.001 0.002 0.1; do
|
||||||
|
echo "density: $d"
|
||||||
|
$RANDTGBA -d $d $opts
|
||||||
|
done
|
||||||
|
|
||||||
|
echo "WITH 3 ADDITIONAL ACCEPTING CONDITIONS"
|
||||||
|
|
||||||
|
for d in 0.001 0.002 0.1; do
|
||||||
|
echo "density: $d"
|
||||||
|
$RANDTGBA -a 3 0.0133333 -d $d $opts
|
||||||
|
done
|
||||||
40
bench/emptchk/ltl-random.sh
Normal file
40
bench/emptchk/ltl-random.sh
Normal file
|
|
@ -0,0 +1,40 @@
|
||||||
|
#!/bin/sh
|
||||||
|
# Copyright (C) 2005 Laboratoire d'Informatique de Paris 6 (LIP6),
|
||||||
|
# département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||||
|
# et Marie Curie.
|
||||||
|
#
|
||||||
|
# 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 2 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 Spot; see the file COPYING. If not, write to the Free
|
||||||
|
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
||||||
|
# 02111-1307, USA.
|
||||||
|
|
||||||
|
. ./defs
|
||||||
|
set -e
|
||||||
|
|
||||||
|
opts="-1 -D -e 15 -n 1024 -t 0.5 -f 5 -F 200 -l 5 -u -r -z a b c d"
|
||||||
|
|
||||||
|
echo "WITHOUT ADDITIONAL ACCEPTING CONDITIONS"
|
||||||
|
|
||||||
|
for d in 0.001 0.002 0.01; do
|
||||||
|
echo "density: $d"
|
||||||
|
$RANDTGBA -d $d $opts
|
||||||
|
done
|
||||||
|
|
||||||
|
echo "WITH 3 ADDITIONAL ACCEPTING CONDITIONS"
|
||||||
|
|
||||||
|
for d in 0.001 0.002 0.01; do
|
||||||
|
echo "density: $d"
|
||||||
|
$RANDTGBA -a 3 0.0133333 -d $d $opts
|
||||||
|
done
|
||||||
1
bench/emptchk/models/.cvsignore
Normal file
1
bench/emptchk/models/.cvsignore
Normal file
|
|
@ -0,0 +1 @@
|
||||||
|
*.tgba
|
||||||
43
bench/emptchk/models/cl3serv1.pml
Normal file
43
bench/emptchk/models/cl3serv1.pml
Normal file
|
|
@ -0,0 +1,43 @@
|
||||||
|
#define w1 client[0]@wait
|
||||||
|
#define s1 client[0]@served
|
||||||
|
|
||||||
|
#define C 3
|
||||||
|
#define S 1
|
||||||
|
|
||||||
|
chan clserv = [C] of { int };
|
||||||
|
chan servcl = [S] of { int };
|
||||||
|
|
||||||
|
active [C] proctype client() {
|
||||||
|
/* the _pid's are: 0 .. C-1 */
|
||||||
|
|
||||||
|
served:
|
||||||
|
if
|
||||||
|
:: (1) -> goto request;
|
||||||
|
fi;
|
||||||
|
request:
|
||||||
|
if
|
||||||
|
:: (1) -> clserv!_pid; goto wait;
|
||||||
|
fi;
|
||||||
|
wait:
|
||||||
|
if
|
||||||
|
:: servcl?eval(_pid); goto served;
|
||||||
|
fi;
|
||||||
|
}
|
||||||
|
|
||||||
|
active [S] proctype server() {
|
||||||
|
/* the _pid's are: 0 .. S-1 */
|
||||||
|
byte id;
|
||||||
|
|
||||||
|
wait:
|
||||||
|
if
|
||||||
|
:: clserv?id -> goto work;
|
||||||
|
fi;
|
||||||
|
work:
|
||||||
|
if
|
||||||
|
:: (1) -> goto reply;
|
||||||
|
fi;
|
||||||
|
reply:
|
||||||
|
if
|
||||||
|
:: (1) -> servcl!id; goto wait;
|
||||||
|
fi;
|
||||||
|
}
|
||||||
43
bench/emptchk/models/cl3serv3.pml
Normal file
43
bench/emptchk/models/cl3serv3.pml
Normal file
|
|
@ -0,0 +1,43 @@
|
||||||
|
#define w1 client[0]@wait
|
||||||
|
#define s1 client[0]@served
|
||||||
|
|
||||||
|
#define C 3
|
||||||
|
#define S 3
|
||||||
|
|
||||||
|
chan clserv = [C] of { int };
|
||||||
|
chan servcl = [S] of { int };
|
||||||
|
|
||||||
|
active [C] proctype client() {
|
||||||
|
/* the _pid's are: 0 .. C-1 */
|
||||||
|
|
||||||
|
served:
|
||||||
|
if
|
||||||
|
:: (1) -> goto request;
|
||||||
|
fi;
|
||||||
|
request:
|
||||||
|
if
|
||||||
|
:: (1) -> clserv!_pid; goto wait;
|
||||||
|
fi;
|
||||||
|
wait:
|
||||||
|
if
|
||||||
|
:: servcl?eval(_pid); goto served;
|
||||||
|
fi;
|
||||||
|
}
|
||||||
|
|
||||||
|
active [S] proctype server() {
|
||||||
|
/* the _pid's are: 0 .. S-1 */
|
||||||
|
byte id;
|
||||||
|
|
||||||
|
wait:
|
||||||
|
if
|
||||||
|
:: clserv?id -> goto work;
|
||||||
|
fi;
|
||||||
|
work:
|
||||||
|
if
|
||||||
|
:: (1) -> goto reply;
|
||||||
|
fi;
|
||||||
|
reply:
|
||||||
|
if
|
||||||
|
:: (1) -> servcl!id; goto wait;
|
||||||
|
fi;
|
||||||
|
}
|
||||||
1
bench/emptchk/models/clserv.ltl
Normal file
1
bench/emptchk/models/clserv.ltl
Normal file
|
|
@ -0,0 +1 @@
|
||||||
|
!([] (w1 -> <> s1))
|
||||||
9
bench/emptchk/models/eeaean.ltl
Normal file
9
bench/emptchk/models/eeaean.ltl
Normal file
|
|
@ -0,0 +1,9 @@
|
||||||
|
!(<>[](noLeader U zeroLeads))
|
||||||
|
!(<>[](noLeader U threeLeads))
|
||||||
|
!(<>zeroLeads)
|
||||||
|
!([]<>zeroLeads)
|
||||||
|
!(<>threeLeads)
|
||||||
|
!([](noLeader -> <>zeroLeads))
|
||||||
|
!([](noLeader || zeroLeads))
|
||||||
|
!((<>[](noLeader || zeroLeads || oneLeads || twoLeads)) && (<>[]((zeroLeads -> (zeroLeads U (noLeader U oneLeads))))) && (<>[]((oneLeads -> (oneLeads U (noLeader U twoLeads))))) && (<>[]((twoLeads -> (twoLeads U (noLeader U zeroLeads))))))
|
||||||
|
!((<>[](noLeader || zeroLeads || oneLeads || twoLeads)) && (<>[]((zeroLeads -> (zeroLeads U (noLeader U twoLeads))))) && (<>[]((oneLeads -> (oneLeads U (noLeader U zeroLeads))))) && (<>[]((twoLeads -> (twoLeads U (noLeader U oneLeads))))))
|
||||||
118
bench/emptchk/models/eeaean2.pml
Normal file
118
bench/emptchk/models/eeaean2.pml
Normal file
|
|
@ -0,0 +1,118 @@
|
||||||
|
/* Echo Election Algorithm with Extinction in an Arbitrary Network. */
|
||||||
|
/* Variation 1: Node 0 wins every time. */
|
||||||
|
|
||||||
|
#define L 10 /* size of buffer */
|
||||||
|
#define udef 3
|
||||||
|
|
||||||
|
#define noLeader (nr_leaders == 0)
|
||||||
|
#define zeroLeads (nr_leaders == 1 && leader == 0)
|
||||||
|
#define oneLeads (nr_leaders == 1 && leader == 1)
|
||||||
|
#define twoLeads (nr_leaders == 1 && leader == 2)
|
||||||
|
#define threeLeads (nr_leaders == 1 && leader == 3)
|
||||||
|
|
||||||
|
mtype = { tok, ldr };
|
||||||
|
chan zero_one = [L] of { mtype, byte};
|
||||||
|
chan zero_two = [L] of { mtype, byte};
|
||||||
|
chan one_zero = [L] of { mtype, byte};
|
||||||
|
chan one_two = [L] of { mtype, byte};
|
||||||
|
chan two_zero = [L] of { mtype, byte};
|
||||||
|
chan two_one = [L] of { mtype, byte};
|
||||||
|
|
||||||
|
chan nr0 = [0] of {mtype, byte};
|
||||||
|
chan nr1 = [0] of {mtype, byte};
|
||||||
|
chan nr2 = [0] of {mtype, byte};
|
||||||
|
|
||||||
|
byte nr_leaders, done, leader;
|
||||||
|
|
||||||
|
inline recvldr ()
|
||||||
|
{
|
||||||
|
if
|
||||||
|
:: lrec == 0 && r != myid ->
|
||||||
|
out1!ldr(r);
|
||||||
|
out2!ldr(r);
|
||||||
|
:: else -> skip;
|
||||||
|
fi;
|
||||||
|
lrec++;
|
||||||
|
win = r;
|
||||||
|
}
|
||||||
|
|
||||||
|
inline recvtok (q,c)
|
||||||
|
{
|
||||||
|
if
|
||||||
|
:: (r+turn)%3 < (caw+turn)%3 ->
|
||||||
|
caw = r;
|
||||||
|
rec = 0;
|
||||||
|
father = q;
|
||||||
|
c!tok(r);
|
||||||
|
:: else -> skip;
|
||||||
|
fi;
|
||||||
|
|
||||||
|
if
|
||||||
|
:: r == caw ->
|
||||||
|
rec++;
|
||||||
|
if
|
||||||
|
:: rec == 2 && caw == myid
|
||||||
|
-> out1!ldr(myid); out2!ldr(myid);
|
||||||
|
:: rec == 2 && caw != myid && father == neigh1
|
||||||
|
-> out1!tok(caw)
|
||||||
|
:: rec == 2 && caw != myid && father == neigh2
|
||||||
|
-> out2!tok(caw)
|
||||||
|
:: else -> skip;
|
||||||
|
fi;
|
||||||
|
:: else -> skip;
|
||||||
|
fi;
|
||||||
|
}
|
||||||
|
|
||||||
|
proctype node (chan nr; byte neigh1; chan out1, in1;
|
||||||
|
byte neigh2; chan out2, in2)
|
||||||
|
{ byte myid = 3 - neigh1 - neigh2;
|
||||||
|
byte caw, rec, father, lrec, win, r, turn;
|
||||||
|
|
||||||
|
xr in1; xr in2;
|
||||||
|
xs out1; xs out2;
|
||||||
|
|
||||||
|
restart:
|
||||||
|
nr?tok(turn);
|
||||||
|
caw = myid; rec = 0; lrec = 0;
|
||||||
|
father = udef; win = udef; r = udef;
|
||||||
|
|
||||||
|
out1!tok(myid);
|
||||||
|
out2!tok(myid);
|
||||||
|
do
|
||||||
|
:: lrec == 2 -> break;
|
||||||
|
:: in1?ldr(r) -> recvldr();
|
||||||
|
:: in2?ldr(r) -> recvldr();
|
||||||
|
:: in1?tok(r) -> recvtok(neigh1,out2);
|
||||||
|
:: in2?tok(r) -> recvtok(neigh2,out1);
|
||||||
|
od;
|
||||||
|
|
||||||
|
if
|
||||||
|
:: win == myid ->
|
||||||
|
leader = myid;
|
||||||
|
nr_leaders++;
|
||||||
|
assert(nr_leaders == 1);
|
||||||
|
:: else ->
|
||||||
|
skip;
|
||||||
|
fi;
|
||||||
|
|
||||||
|
done++;
|
||||||
|
goto restart;
|
||||||
|
}
|
||||||
|
|
||||||
|
init {
|
||||||
|
byte turn = 0;
|
||||||
|
atomic {
|
||||||
|
run node (nr0,1,zero_one,one_zero,2,zero_two,two_zero);
|
||||||
|
run node (nr1,0,one_zero,zero_one,2,one_two,two_one);
|
||||||
|
run node (nr2,0,two_zero,zero_two,1,two_one,one_two);
|
||||||
|
}
|
||||||
|
do
|
||||||
|
:: true ->
|
||||||
|
done = 0;
|
||||||
|
nr_leaders = 0;
|
||||||
|
leader = udef;
|
||||||
|
nr0!tok(turn); nr1!tok(turn); nr2!tok(turn);
|
||||||
|
done == 3;
|
||||||
|
turn = (turn+1)%3;
|
||||||
|
od;
|
||||||
|
}
|
||||||
46
bench/emptchk/pml-clserv.sh
Normal file
46
bench/emptchk/pml-clserv.sh
Normal file
|
|
@ -0,0 +1,46 @@
|
||||||
|
#!/bin/sh
|
||||||
|
# Copyright (C) 2005 Laboratoire d'Informatique de Paris 6 (LIP6),
|
||||||
|
# département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||||
|
# et Marie Curie.
|
||||||
|
#
|
||||||
|
# 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 2 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 Spot; see the file COPYING. If not, write to the Free
|
||||||
|
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
||||||
|
# 02111-1307, USA.
|
||||||
|
|
||||||
|
. ./defs
|
||||||
|
set -e
|
||||||
|
|
||||||
|
FORMULAE=$srcdir/models/clserv.ltl
|
||||||
|
ALGORITHMS=$srcdir/algorithms
|
||||||
|
|
||||||
|
opts='-f -x -m'
|
||||||
|
|
||||||
|
for model in cl3serv1.tgba cl3serv1fair.tgba cl3serv3.tgba cl3serv3fair.tgba
|
||||||
|
do
|
||||||
|
echo "+++++++++++++++++++++"
|
||||||
|
echo " $model"
|
||||||
|
echo "+++++++++++++++++++++"
|
||||||
|
|
||||||
|
cat $FORMULAE |
|
||||||
|
while read formula; do
|
||||||
|
echo "-----------------------------------------------------------"
|
||||||
|
# echo "### formula: $formula"
|
||||||
|
cat $ALGORITHMS |
|
||||||
|
while read algo; do
|
||||||
|
$LTL2TGBA -0 -e$algo $opts -Pmodels/$model "$formula"
|
||||||
|
done
|
||||||
|
done
|
||||||
|
done
|
||||||
46
bench/emptchk/pml-eeaean.sh
Normal file
46
bench/emptchk/pml-eeaean.sh
Normal file
|
|
@ -0,0 +1,46 @@
|
||||||
|
#!/bin/sh
|
||||||
|
# Copyright (C) 2005 Laboratoire d'Informatique de Paris 6 (LIP6),
|
||||||
|
# département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||||
|
# et Marie Curie.
|
||||||
|
#
|
||||||
|
# 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 2 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 Spot; see the file COPYING. If not, write to the Free
|
||||||
|
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
||||||
|
# 02111-1307, USA.
|
||||||
|
|
||||||
|
. ./defs
|
||||||
|
set -e
|
||||||
|
|
||||||
|
FORMULAE=$srcdir/models/eeaean.ltl
|
||||||
|
ALGORITHMS=$srcdir/algorithms
|
||||||
|
|
||||||
|
opts='-f -x -m'
|
||||||
|
|
||||||
|
for model in eeaean2.tgba
|
||||||
|
do
|
||||||
|
echo "+++++++++++++++++++++"
|
||||||
|
echo " $model"
|
||||||
|
echo "+++++++++++++++++++++"
|
||||||
|
|
||||||
|
cat $FORMULAE |
|
||||||
|
while read formula; do
|
||||||
|
echo "-----------------------------------------------------------"
|
||||||
|
echo "### formula: $formula"
|
||||||
|
cat $ALGORITHMS |
|
||||||
|
while read algo; do
|
||||||
|
$LTL2TGBA -0 -e$algo $opts -Pmodels/$model "$formula"
|
||||||
|
done
|
||||||
|
done
|
||||||
|
done
|
||||||
209
bench/emptchk/pml2tgba.pl
Executable file
209
bench/emptchk/pml2tgba.pl
Executable file
|
|
@ -0,0 +1,209 @@
|
||||||
|
#!/usr/bin/perl -w
|
||||||
|
#
|
||||||
|
# Copyright (C) 2004 Stefan Schwoon
|
||||||
|
#
|
||||||
|
# This program 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 2 of the License, or
|
||||||
|
# (at your option) any later version.
|
||||||
|
#
|
||||||
|
# This program 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, write to the Free Software
|
||||||
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA
|
||||||
|
#
|
||||||
|
#
|
||||||
|
# This script was originally distributed by Schwoon alongside with
|
||||||
|
#
|
||||||
|
# @InProceedings{ schwoon.05.tacas,
|
||||||
|
# author = {Stefan Schwoon and Javier Esparza},
|
||||||
|
# title = {A note on on-the-fly verification algorithms.},
|
||||||
|
# booktitle = {Proceedings of the 11th International Conference on Tools
|
||||||
|
# and Algorithms for the Construction and Analysis of Systems
|
||||||
|
# (TACAS'05)},
|
||||||
|
# year = {2005},
|
||||||
|
# series = {Lecture Notes in Computer Science},
|
||||||
|
# publisher = {Springer-Verlag},
|
||||||
|
# month = apr
|
||||||
|
# }
|
||||||
|
#
|
||||||
|
# It has been modified in 2005 by Alexandre Duret-Lutz to
|
||||||
|
# - extract the system's state space instead of the product space
|
||||||
|
# (we want to use the LTL->TGBA translation of Spot, not that of Spin)
|
||||||
|
# - output the state space in Spot's format
|
||||||
|
# - optionally output weak fairness constraints
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
|
||||||
|
my @prop_list;
|
||||||
|
my %props;
|
||||||
|
|
||||||
|
sub usage()
|
||||||
|
{
|
||||||
|
print <<EOF;
|
||||||
|
Usage: pan2tgba.pl [-w] promela-model properties...
|
||||||
|
Extracts the product state space of the model, observing properties.
|
||||||
|
If -w is given, output acceptance conditions to ensure weak fairness.
|
||||||
|
EOF
|
||||||
|
exit 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub create_2n_automaton (@)
|
||||||
|
{
|
||||||
|
my @props = @_;
|
||||||
|
my @res;
|
||||||
|
for my $p (@props)
|
||||||
|
{
|
||||||
|
if (@res)
|
||||||
|
{
|
||||||
|
@res = map { ("$_ && ($p)", "$_ && !($p)") } @res;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
@res = ("($p)", "!($p)");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
my $trans = "\n if\n";
|
||||||
|
my $nres = $#res + 1;
|
||||||
|
|
||||||
|
for my $p (@res)
|
||||||
|
{
|
||||||
|
push @prop_list, $p;
|
||||||
|
$trans .= " :: ($p) -> goto T0_init\n";
|
||||||
|
}
|
||||||
|
$trans .= " fi;\n";
|
||||||
|
if ($nres == 0)
|
||||||
|
{
|
||||||
|
push @prop_list, "(1)";
|
||||||
|
}
|
||||||
|
|
||||||
|
return "never {\nT0_init:$trans}\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
usage unless @ARGV;
|
||||||
|
|
||||||
|
my $weak = 0;
|
||||||
|
if ($ARGV[0] eq '-w')
|
||||||
|
{
|
||||||
|
$weak = 1;
|
||||||
|
shift;
|
||||||
|
}
|
||||||
|
|
||||||
|
my $model = shift @ARGV;
|
||||||
|
|
||||||
|
# Find out the start of the never claim.
|
||||||
|
my $neverstartline = 3 + `wc -l <"$model"`;
|
||||||
|
|
||||||
|
# Create the automaton
|
||||||
|
open NEVER, ">never.$$";
|
||||||
|
print NEVER create_2n_automaton (@ARGV);
|
||||||
|
close NEVER;
|
||||||
|
|
||||||
|
system "spin -a -N never.$$ \"$model\"";
|
||||||
|
unlink "never.$$";
|
||||||
|
system "gcc -DCHECK -DNOREDUCE -O -o pan pan.c 2>/dev/null";
|
||||||
|
|
||||||
|
# Match Büchi states to propositions
|
||||||
|
my $buechitrans = 'BUG';
|
||||||
|
open PAN, "./pan -d|";
|
||||||
|
while (<PAN>)
|
||||||
|
{
|
||||||
|
last if /^proctype :never/;
|
||||||
|
}
|
||||||
|
while (<PAN>)
|
||||||
|
{
|
||||||
|
next
|
||||||
|
unless (/\s+state\s+\d+\s+-\(tr\s+(\d+)\s*\)->.* line $neverstartline =>/o);
|
||||||
|
# We are assuming that transition are output by -d in the same order
|
||||||
|
# as we specified them in the neverclaim.
|
||||||
|
my $prop = shift @prop_list;
|
||||||
|
$props{$1} = $prop;
|
||||||
|
}
|
||||||
|
close PAN;
|
||||||
|
|
||||||
|
# Build the state graph from pan's DFS output
|
||||||
|
open PAN, "./pan 2>/dev/null |";
|
||||||
|
|
||||||
|
my $dfsstate = 0;
|
||||||
|
my @stack = ();
|
||||||
|
while (<PAN>) {
|
||||||
|
last if (/ New state 0/);
|
||||||
|
}
|
||||||
|
my %acc = ();
|
||||||
|
push @stack, [$dfsstate, $buechitrans, %acc];
|
||||||
|
|
||||||
|
my %allaccs = ();
|
||||||
|
my %trans_list;
|
||||||
|
my $prop = "BUG";
|
||||||
|
while (<PAN>) {
|
||||||
|
if (/^\d*: Down/) {
|
||||||
|
push @stack, [$dfsstate, $buechitrans, %acc];
|
||||||
|
} elsif (/^ New state (\d+)/) {
|
||||||
|
pop @stack;
|
||||||
|
push (@{$trans_list{$dfsstate}}, ["S$dfsstate, S$1, \"$prop\"", %acc]);
|
||||||
|
%acc = ();
|
||||||
|
$dfsstate = $1;
|
||||||
|
push @stack, [$dfsstate, $buechitrans, %acc];
|
||||||
|
} elsif (/^ (Old|Stack) state (\d+)/) {
|
||||||
|
push (@{$trans_list{$dfsstate}}, ["S$dfsstate, S$2, \"$prop\"", %acc]);
|
||||||
|
%acc = ();
|
||||||
|
} elsif (/^ *\d+: proc 0 exec (\d+), \d+ to \d+/) {
|
||||||
|
$buechitrans = $1;
|
||||||
|
$prop = $props{$buechitrans};
|
||||||
|
} elsif (/^ *\d+: proc (\d+) exec \d+, \d+ to \d+/) {
|
||||||
|
$acc{"PR$1"} = 1;
|
||||||
|
$allaccs{"PR$1"} = 1;
|
||||||
|
} elsif (/^\d*: Up/) {
|
||||||
|
pop @stack;
|
||||||
|
($dfsstate, $buechitrans, %acc) = @{$stack[$#stack]};
|
||||||
|
$prop = $props{$buechitrans};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
close PAN;
|
||||||
|
|
||||||
|
unlink "pan", "pan.exe", "pan.c", "pan.h", "pan.b", "pan.t", "pan.m";
|
||||||
|
|
||||||
|
|
||||||
|
print "acc = @{[sort keys %allaccs]};\n" if $weak;
|
||||||
|
for my $state (sort {$a <=> $b} (keys %trans_list))
|
||||||
|
{
|
||||||
|
my %missing = %allaccs;
|
||||||
|
for my $t (@{$trans_list{$state}})
|
||||||
|
{
|
||||||
|
my ($trans, %acc) = @$t;
|
||||||
|
for my $key (keys %acc)
|
||||||
|
{
|
||||||
|
delete $missing{$key};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
for my $t (@{$trans_list{$state}})
|
||||||
|
{
|
||||||
|
my ($trans, %acc) = @$t;
|
||||||
|
print "$trans,";
|
||||||
|
print " @{[sort keys(%acc)]} @{[sort keys(%missing)]}" if $weak;
|
||||||
|
print ";\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
exit 0;
|
||||||
|
|
||||||
|
### Setup "GNU" style for perl-mode and cperl-mode.
|
||||||
|
## Local Variables:
|
||||||
|
## perl-indent-level: 2
|
||||||
|
## perl-continued-statement-offset: 2
|
||||||
|
## perl-continued-brace-offset: 0
|
||||||
|
## perl-brace-offset: 0
|
||||||
|
## perl-brace-imaginary-offset: 0
|
||||||
|
## perl-label-offset: -2
|
||||||
|
## cperl-indent-level: 2
|
||||||
|
## cperl-brace-offset: 0
|
||||||
|
## cperl-continued-brace-offset: 0
|
||||||
|
## cperl-label-offset: -2
|
||||||
|
## cperl-extra-newline-before-brace: t
|
||||||
|
## cperl-merge-trailing-else: nil
|
||||||
|
## cperl-continued-statement-offset: 2
|
||||||
|
## End:
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
# Copyright (C) 2003, 2004 Laboratoire d'Informatique de Paris 6 (LIP6),
|
# Copyright (C) 2003, 2004, 2005 Laboratoire d'Informatique de Paris 6 (LIP6),
|
||||||
# département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
# département Systèmes Répartis Coopératifs (SRC), Université Pierre
|
||||||
# et Marie Curie.
|
# et Marie Curie.
|
||||||
#
|
#
|
||||||
|
|
@ -55,11 +55,16 @@ adl_ENABLE_DEBUG
|
||||||
ad_GCC_OPTIM
|
ad_GCC_OPTIM
|
||||||
adl_NDEBUG
|
adl_NDEBUG
|
||||||
|
|
||||||
|
AM_CONDITIONAL([NEVER], [false])
|
||||||
AC_CHECK_PROG([DOT], [dot], [dot])
|
AC_CHECK_PROG([DOT], [dot], [dot])
|
||||||
|
AC_CHECK_PROG([PERL], [perl], [perl])
|
||||||
AC_CHECK_PROG([VALGRIND], [valgrind], [valgrind])
|
AC_CHECK_PROG([VALGRIND], [valgrind], [valgrind])
|
||||||
|
|
||||||
AC_CONFIG_FILES([
|
AC_CONFIG_FILES([
|
||||||
Makefile
|
Makefile
|
||||||
|
bench/Makefile
|
||||||
|
bench/emptchk/Makefile
|
||||||
|
bench/emptchk/defs
|
||||||
doc/Doxyfile
|
doc/Doxyfile
|
||||||
doc/Makefile
|
doc/Makefile
|
||||||
iface/Makefile
|
iface/Makefile
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue