epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Add features to debug notation process

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-12 12:00:18 +02:00
parent 67b5a79301
commit d3e723f65a
3 changed files with 66 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

20
grades/generate.pl
View file

@ -13,11 +13,13 @@ use ACU::Log;
use ACU::Trace;
# Parse arguments
our $debug;
my $input; my $format = "csv";
my $help; my $man;
GetOptions ("help|h|?" => \$help,
"man" => \$man,
"format|F=s" => \$format,
"debug|d|v" => \$debug,
"" => \$input)
or pod2usage(2);
pod2usage(1) if $help;
@ -52,12 +54,18 @@ while ($#ARGV >= -1)
}
else
{
open my $xmltrace, "<", $arg or die $!;
binmode $xmltrace;
my $trace = Trace->new($xmltrace);
close $xmltrace;
if (-f $arg)
{
open my $xmltrace, "<", $arg or die "$arg: $!";
binmode $xmltrace;
my $trace = Trace->new($xmltrace);
close $xmltrace;
$grade->fill($trace->getIds);
$who = $trace->getFirstWho() // basename $arg, ".xml", ".trace", ".traces", ".defense", ".defenses", ".mill";
$grade->fill($trace->getIds);
$who = $trace->getFirstWho() // basename $arg, ".xml", ".trace", ".traces", ".defense", ".defenses", ".mill";
}
else {
log WARN, "No trace file: $arg, skip";
}
}
}