ACU/grades/gen_grading.pl

#! /usr/bin/env perl

use v5.10.1;
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;

use lib "..";
use ACU::Grading;
use ACU::Trace;

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;

    $grade->create_from_trace("rendu_1", "rendu-1", $trace);

} while ($#ARGV >= 0);

print $grade->to_string();