X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=bin%2Fev;h=554e5dc874778df2d980539088e1d30365475242;hb=d047668d020b301d034f0acd7f2873e926bba6e1;hp=0a462bf40f4a0a56689f85b4641b2847be2c4030;hpb=666506e10535397d92733c7b6df0421c18708d04;p=moe.git

diff --git a/bin/ev b/bin/ev
index 0a462bf..554e5dc 100755
--- a/bin/ev
+++ b/bin/ev
@@ -1,5 +1,6 @@
+#!/bin/bash
 # The Evaluator -- Master Control Script
-# (c) 2001 Martin Mares <mj@ucw.cz>
+# (c) 2001--2004 Martin Mares <mj@ucw.cz>
 
 set -e
 if [ ! -f config -o ! -f bin/lib ] ; then
@@ -9,14 +10,7 @@ fi
 . bin/lib
 . config
 
-# Set up environment:
-#   PDIR	problem specific data
-#   SDIR	contestant's solution
-#   TDIR	test results
-#   BOXDIR	sandbox
-#   PROBLEM	problem we're evaluating
-
-[ -n "$2" ] || die "Usage: ev <contestant> <problem>"
+[ -n "$2" -a -z "$4" ] || die "Usage: ev <contestant> <problem> [<program>]"
 CONTESTANT=$1
 PROBLEM=$2
 dir-init
@@ -25,26 +19,34 @@ log-init
 box-init
 
 # Compile the program
-locate-source
-compile
+locate-source $3
+compile || true
+
+# Initialize the points file
+PTSFILE=$TDIR/points
+>$PTSFILE
+
+function test-verdict
+{
+	if [ $1 == 0 ] ; then
+		pend "$2"
+	else
+		pend "$2 ($1 points)"
+	fi
+	echo >>$PTSFILE "$TEST $1 $2"
+	exit 0
+}
 
 # Perform the tests
 for TEST in $TESTS ; do
 	(
 	[ -f $PDIR/$TEST.config ] && . $PDIR/$TEST.config
 	exec >$TDIR/$TEST.log
-	PTSFILE=$TDIR/$TEST.pts
-	pstart "Test $TEST ($POINTS_PER_TEST points)... "
+	pstart "Test $TEST... "
 	echo "Test $TEST ($POINTS_PER_TEST points)"
-	if [ ! -f $TDIR/$PROBLEM ] ; then
-		echo >$PTSFILE "0 Compile error."
-		die "No executable file"
-	fi
-	$TEST_RUN_METHOD || exit 0
-	syntax-check || exit 0
-	output-check || exit 0
-	echo "Test completed OK ($POINTS_PER_TEST points)"
-	echo >$PTSFILE "$POINTS_PER_TEST OK"
-	pend "OK"
+	test-run
+	syntax-check
+	output-check
+	die "You must never see this message."
 	)
 done