alarsyo/spot
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix bench/emptchk/pml2tgba.pl for more recent Spin version.

Browse source 
* bench/emptchk/pml2tgba.pl: Stop checking for version start lines
depending on the Spin version.  This check was never always
correct.  Reported by Étienne Renault.
This commit is contained in:
Alexandre Duret-Lutz 2011-11-24 22:07:09 +01:00
parent fdf8878db3
commit 71d1a4fe25
2 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ChangeLog
View file

@ -1,3 +1,11 @@
2011-11-24 Alexandre Duret-Lutz <adl@lrde.epita.fr>
Fix bench/emptchk/pml2tgba.pl for more recent Spin version.
* bench/emptchk/pml2tgba.pl: Stop checking for version start lines
depending on the Spin version. This check was never always
correct. Reported by Étienne Renault.
2011-11-24 Alexandre Duret-Lutz <adl@lrde.epita.fr> 2011-11-24 Alexandre Duret-Lutz <adl@lrde.epita.fr>
Update formulae.ltl not to use uncommon operators. Update formulae.ltl not to use uncommon operators.

11
bench/emptchk/pml2tgba.pl
View file

@ -112,15 +112,6 @@ while (1)
my $model = shift @ARGV; my $model = shift @ARGV;
# Find out the start of the never claim.
# The line numbering changed in Spin 5.2.0.
my $model_size = `wc -l <"$model"`;
my $neverstartline_spin517 = 3 + $model_size;
my $neverstartline_spin520 = 4 + $model_size;
my $neverstartline_spin525 = 0 + $model_size;
my $neverstartline =
"($neverstartline_spin517|$neverstartline_spin520|$neverstartline_spin525)";
# Create the automaton # Create the automaton
open NEVER, ">never.$$"; open NEVER, ">never.$$";
print NEVER create_2n_automaton (@ARGV); print NEVER create_2n_automaton (@ARGV);
@ -140,7 +131,7 @@ while (<PAN>)
while (<PAN>) while (<PAN>)
{ {
next next
unless (/\s+state\s+\d+\s+-\(tr\s+(\d+)\s*\)->.* line $neverstartline =>/o); unless (/\s+state\s+\d+\s+-\(tr\s+(\d+)\s*\)->.* line \d+ =>/o);
# We are assuming that transition are output by -d in the same order # We are assuming that transition are output by -d in the same order
# as we specified them in the neverclaim. # as we specified them in the neverclaim.
my $prop = shift @prop_list; my $prop = shift @prop_list;