#! /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;

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();
    $grade->create_from_trace("rendu_1", "rendu-1", $trace);

    say $grade->to_string();
} while ($#ARGV >= 0);