X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=bin%2Fmo-score;h=4fce9e44be5f9aa32e21c6a344c5d05b88b692bd;hb=ecce4fc9ed794aa53695919ddf7ee98c60dfab70;hp=f609fc31065582815d2a4799cfe2d4e512378396;hpb=bce42952adb0732fabcaeac56b5101b5fe82c64e;p=eval.git diff --git a/bin/mo-score b/bin/mo-score index f609fc3..4fce9e4 100755 --- a/bin/mo-score +++ b/bin/mo-score @@ -4,7 +4,9 @@ $debug = 0; $detail = 0; $html = 0; $tex = 0; -$usage = "Usage: mo-score [--detail] [--html] [--tex] ..."; +$extras = 0; +$alt = 0; +$usage = "Usage: mo-score [--detail] [--alt] [--extras] [--html] [--tex] ..."; while (($arg = $ARGV[0]) =~ /^--([a-z]+)$/) { shift @ARGV; $var = "\$$1"; @@ -13,42 +15,75 @@ while (($arg = $ARGV[0]) =~ /^--([a-z]+)$/) { } @ARGV || die $usage; +@tasks = @ARGV; + print STDERR "Scanning contestants... "; open (CT, "bin/mo-get-users --full |") || die "Cannot get list of contestants"; while () { chomp; ($u,$f) = split /\t/; + ($u eq "somebody") && next; $users{$u}=$f; } close CT; print STDERR 0+keys %users, "\n"; +print STDERR "Scanning exceptions... "; +if ($extras && open (EX, "exceptions")) { + while () { + chomp; + (/^$/ || /^#/) && next; + @a = split /\s+/; + $u = shift @a; + defined $users{$u} || die "Unknown user $u"; + while (@a) { $extra{$u} += shift @a; } + } + close EX; + print STDERR "OK\n"; +} else { print STDERR "none\n"; } + print STDERR "Scanning task results... "; +$need_tasks = join("|", @ARGV); +%messages = (); +%error_codes = (); foreach $u (keys %users) { opendir (D, "testing/$u") or next; foreach $t (readdir(D)) { $t =~ /^\./ && next; + $t =~ /$need_tasks/ || next; $known_tasks{$t} = 1; - $tt = "testing/$u/$t/points"; + $tt = "testing/$u/$t/points" . ($alt ? ".alt" : ""); -f $tt || next; print STDERR "$u/$t "; open (X, $tt) || die "Unable to open $tt"; while () { chomp; - /^(\d+) (\d+)(.*)/ || die "Parse error: $_"; + /^(\S+) (-?\d+)\s*(.*)/ || die "Parse error: $_"; $ttest = $1; $tpts = $2; $trem = $3; + $ttest =~ s/[^0-9]//g; $known_tests{$t}{$ttest} = 1; $results{$u}{$t}{$ttest} = $tpts; $remarks{$u}{$t}{$ttest} = $trem; $cmt = $tpts; if ($tpts == 0) { - $msg = $3; - if ($msg =~ /^Compile /) { $cmt = "CE"; } - elsif ($msg =~ /^Time limit exceeded/) { $cmt = "TO"; } - elsif ($msg =~ /^Exited with error /) { $cmt = "RE"; } - elsif ($msg =~ /^Caught fatal signal /) { $cmt = "SG"; } + if ($trem =~ /^Compile /) { $cmt = "CE"; } + elsif ($trem =~ /^Time limit exceeded/) { $cmt = "TO"; } + elsif ($trem =~ /^Exited with error /) { $cmt = "RE"; } + elsif ($trem =~ /^Caught fatal signal /) { $cmt = "SG"; } + elsif ($trem =~ /^([A-Za-z])\S*\s+([A-Za-z])/) { + ($cmt = "$1$2") =~ tr/a-z/A-Z/; + } + elsif ($trem =~ /^Wrong answer/) { $cmt = "WA"; } + if (!defined $messages{$trem}) { + $messages{$trem} = $cmt; + if (!defined $error_codes{$cmt}) { + $error_codes{$cmt} = $trem; + } else { + $error_codes{$cmt} .= ", $trem"; + } + } } $comment{$u}{$t}{$ttest} = $cmt; $total{$u}{$t} += $tpts; @@ -64,10 +99,17 @@ print STDERR "Creating table template... "; @body = ('','$u','$users{$u}'); @bodysums = (); @footer = ('"Total"','',''); +if (keys %extra) { + push @header, "Extra"; + push @body, '$extra{$u}'; + $col = 0+@footer; + push @bodysums, $col; + push @footer, "sum($col)"; +} foreach $t (@ARGV) { defined $known_tasks{$t} || die "Unknown task $t"; - push @header, "$t"; - push @body, "\$total{\$u}{'$t'}"; + push @header, substr($t, 0, 4); + push @body, "(\$xx = \$total{\$u}{'$t'}) > 0 ? \$xx : 0"; $col = 0+@footer; push @footer, "sum($col)"; push @bodysums, $col; @@ -123,7 +165,7 @@ while ($i < @table) { if ($i == $j+1) { ${table[$j]}[0] = "$i."; } else { - ${table[$j]}[0] = $j+1 . ".--" . $i . "."; + ${table[$j]}[0] = $j+1 . ".-" . $i . "."; $j++; while ($j < $i) { ${table[$j++]}[0] = ""; }; } @@ -143,19 +185,89 @@ if ($debug) { print '', "\n"; print "Rank list\n"; print "

Rank list

\n"; - print "\n"; - $hdr = 1; - foreach $r (@table) { - print "", join('',map { - if ($hdr) { $_ = ""; + + foreach $r (@table[1..($#table - 1)]) { + &printHtmlRow(@{$r}[@perm]); } + + print ""; + &printHtmlRow(@{$table[$#table]}[@perm]); + print "

$_"; } - else { $_ = "	$_"; } - } @$r), "\n"; - $hdr = 0; + + my @perm; + &printHtmlHeader(\@perm); + print "

\n"; + if ($detail) { + print "

Error codes

$r: $error_codes{$r}\n"; } + print "

\n"; + } print "\n"; } elsif ($tex) { print "\\error{TeX output not supported yet!}\n"; } else { foreach $r (@table) { print join("\t",@$r), "\n"; } + print "\n"; + foreach $r (sort keys %error_codes) { print "$r: $error_codes{$r}\n"; } +} + + +sub printHtmlRow { + print "", join('',map { + if ($hdr) { $_ = "$_"; } + else { $_ = " 14 ? " width=150" : "") . ">$_"; } + } @_), "\n"; +} + + +sub printHtmlHeader { + + my ($perm) = @_; + + my $colspec = ""; + my $hdr1; + my $hdr2; + + @$perm = (0, 1, 2); + my $p = 3; + + if ($detail) { + $hdr1 = "RankUserName"; + for my $task (@tasks) { + + my $nSub = scalar(keys %{$known_tests{$task}}); + + $p++; + map { push @$perm, $p++ } (1..$nSub); + push @$perm, $p - $nSub - 1; + + $colspec .= "\n"; + $colspec .= "\n"; + $hdr1 .= "$task"; + $hdr2 .= join("", map { "$_" } sort {$a <=> $b} keys %{$known_tests{$task}}); + $hdr2 .= "Total"; + } + + $hdr1 .= "Total"; + + } else { ## no detail + + $hdr1 = "RankUserName"; + + for my $task (@tasks) { + push @$perm, $p++; + $hdr1 .= "$task"; + } + $hdr1 .= "Total"; + $colspec .= ""; + } + + push @$perm, $p++; + + print "\n"; + print "$colspec\n"; + print "$hdr1\n"; + print "$hdr2\n" if $detail; + }