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
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);