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

36
grades/gen_grading.pl
View file

@ -7,21 +7,51 @@ use Getopt::Long;
use Pod::Usage;
use lib "..";
use ACU::Defense;
use ACU::Grading;
use ACU::Log;
use ACU::Trace;
my $grade = Grading->new();
my $lastid = "";
do {
my $name = shift;
my $file;
if (-f $name) {
$file = $name;
$name = "rendu-1";
}
else {
$file = shift;
}
my $id_name = $name;
$id_name =~ s/[^a-zA-Z0-9_]/_/g;
my $xml;
open $xml, "<", shift or die $!;
open $xml, "<", $file or die $!;
binmode $xml;
my $trace = Trace->new($xml);
my $trace;
eval {
$trace = Trace->new($xml);
};
if ($@) {
open $xml, "<", $file or die $!;
binmode $xml;
eval {
$trace = Defense->new($xml);
};
if ($@) {
log ERROR, "Unknown file type: $file";
}
}
close $xml unless $xml eq *STDIN;
$grade->create_from_trace("rendu_1", "rendu-1", $trace);
$grade->create_from_trace($id_name, $name, $trace);
} while ($#ARGV >= 0);

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";
}
}
}