From abbd6be75645c8c990a4fb9c780ea498f0eb1417 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sat, 24 Apr 2004 13:31:42 +0000
Subject: [PATCH] Final polishing.

---
 bin/mo-score2004 | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/bin/mo-score2004 b/bin/mo-score2004
index 7e5482b..510cb4a 100755
--- a/bin/mo-score2004
+++ b/bin/mo-score2004
@@ -1,15 +1,16 @@
 #!/usr/bin/perl
 
 $tex = 0;
-$theory = 3;
-$praxis = 2;
-$usage = "Usage: mo-score2004 [--tex] task1 task2 ...";
+$usage = "Usage: mo-score2004 [--tex] theoretical_tasks_nr praxis_tasks_nr task1 task2 ...";
 while (($arg = $ARGV[0]) =~ /^--([a-z]+)$/) {
 	shift @ARGV;
 	$var = "\$$1";
 	if (!eval "defined $var") { die $usage; }
 	eval "$var = 1;";
 }
+@ARGV >=2 || die $usage;
+$theory=shift @ARGV;
+$praxis=shift @ARGV;
 @ARGV >= $praxis || die $usage;
 
 print STDERR "Scanning contestants... ";
@@ -18,7 +19,7 @@ while (<CT>) {
 	chomp;
 	($u,$f) = split /\t/;
 	($u eq "somebody") && next;
-	$users{$u}=$f;
+        $users{$u}=$f;
 }
 close CT;
 print STDERR 0+keys %users, "\n";
@@ -123,6 +124,7 @@ print STDERR "OK\n";
 if ($tex) {
 	print
 '\language=\czech
+\frenchspacing
 \font\head=csr12 scaled \magstephalf
 \font\hexx=csti12
 \font\xxit=csti10
@@ -130,8 +132,6 @@ if ($tex) {
 \let\hb=\relax
 \parindent=0pt
 \nopagenumbers
-\advance\hsize by 0.2cm
-\advance\hoffset by 1cm
 
 \centerline{\head Výsledková listina celostátního kola 53. roèníku MO kategorie P}
 \bigskip
@@ -143,7 +143,7 @@ if ($tex) {
 \bigskip
 
 \centerline{\vbox{\halign{%
-#\hfil \enspace&#\hfil\enspace & #\hfil & \quad #\hfil&
+#\hfil &~~#\hfil &\quad #\hfil &~~#\hfil&\quad
 \hfil # &
 \hfil # &
 \hfil # & \kern0.4em
-- 
2.39.2