d5bb0ffe89
* bench/ltl2tgba/parseout.pl: Fix a warning when using an option by shifting the option when there is one.
93 lines
2.6 KiB
Raku
Executable file
93 lines
2.6 KiB
Raku
Executable file
#!/usr/bin/env perl
|
|
|
|
# Copyright (C) 2011, 2012 Laboratoire de Recherche et Développement de
|
|
# l'Epita.
|
|
# 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.
|
|
|
|
use warnings;
|
|
|
|
my $line = 0;
|
|
my $tool = 0;
|
|
my ($a, $b, $acc, $time, $det, $ndindex);
|
|
|
|
my $prefix = 'All formulae';
|
|
$prefix = 'Pos. formulae' if $ARGV[0] eq '-p';
|
|
$prefix = 'Neg. formulae' if $ARGV[0] eq '-n';
|
|
shift if $ARGV[0] eq '-n' or $ARGV[0] eq '-p';
|
|
|
|
sub sep($)
|
|
{
|
|
$n = shift;
|
|
$n =~ s/(\d{1,3}?)(?=(\d{3})+$)/$1\\,/g;
|
|
return $n;
|
|
}
|
|
|
|
format STDOUT3 =
|
|
@<<<<<<<<<<<<<<<<<<<<< & @>>>>>> & @>>>>>> & @>>>>>> & @>> & @>>>>>>>>> & @>>>>>>>>>>> \\ % @>>
|
|
$tool, sep($a), sep($b), sep($ndindex), sep($1-$det), sep($2), sep($3), sep($1)
|
|
.
|
|
|
|
format STDOUT2 =
|
|
||<:>@>>||@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<||<)>@>>>>>||<)>@>>>>>||<)>@>>>||<)>@#####.##||<)>@>>>>>>>>||<)>@>>>>>>>>||<)>@>>||
|
|
$num, $tool, $a, $b, $acc, $time, $2, $3, $1
|
|
.
|
|
|
|
format STDOUT =
|
|
@>>: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
|
$num, $tool
|
|
@>>>>> @>>>>> @>>> | @>>>>> @>> | @#####.## | @>>>>>>>> @>>>>>>>> (@>>)
|
|
$a, $b, $acc, $ndindex, $1-$det, $time, $2, $3, $1
|
|
.
|
|
|
|
$~ = STDOUT2 if (exists $ENV{'WIKIOUTPUT'});
|
|
$~ = STDOUT3 if (exists $ENV{'LATEXOUTPUT'});
|
|
|
|
my %impl;
|
|
|
|
while (<>)
|
|
{
|
|
last if /^ Failures to compute/;
|
|
|
|
if (/^\s{4}(\d+):\s`(.+)'\s*(?:\(disabled\))?\s*$/)
|
|
{
|
|
$impl{$1} = $2 unless exists $impl{$1};
|
|
}
|
|
if (/$prefix\s*\|\s*([^|\s]*)\s*\|\s*([^|\s]*)\s*\|\s*([^|\s]*)\s*\|\s*([^|\s]*)\s*\|$/o)
|
|
{
|
|
$acc = $1;
|
|
$time = $2 || 0;
|
|
$det = $3 || 0;
|
|
$ndindex = $4;
|
|
}
|
|
next unless /$prefix\s+\|\s*([^|\s]*)\s*\|\s*([^|\s]*)\s*\|\s*([^|\s]*)\s*\|$/o;
|
|
if ($line % 2)
|
|
{
|
|
$num = $line >> 1;
|
|
$tool = $impl{$num};
|
|
write;
|
|
}
|
|
else
|
|
{
|
|
($a, $b) = ($2, $3);
|
|
}
|
|
++$line;
|
|
}
|