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

Grades: can generate XML final grades

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-09 13:42:44 +02:00
parent 37a7bd4b3f
commit b0b438098c
3 changed files with 122 additions and 81 deletions
Download patch file Download diff file Expand all files Collapse all files

20
grades/gen_grading.pl
View file

@ -10,15 +10,19 @@ use lib "..";
use ACU::Grading;
use ACU::Trace;
do {
my $xmltrace;
open $xmltrace, "<", shift or die $!;
binmode $xmltrace;
my $trace = Trace->new($xmltrace);
close $xmltrace unless $xmltrace eq *STDIN;
my $grade = Grading->new();
do {
my $xml;
open $xml, "<", shift or die $!;
binmode $xml;
my $trace = Trace->new($xml);
close $xml unless $xml eq *STDIN;
my $grade = Grading->new();
$grade->create_from_trace("rendu_1", "rendu-1", $trace);
say $grade->to_string();
} while ($#ARGV >= 0);
print $grade->to_string();