restructuring of boca's git

1 files changed, 107 insertions, 0 deletions

diff --git a/old/Pascal.run b/old/Pascal.run
new file mode 100755
index 0000000..df98e41
--- /dev/null
+++ b/old/Pascal.run
@@ -0,0 +1,107 @@
+#!/bin/bash
+#//////////////////////////////////////////////////////////////////////////////////////////
+#//BOCA Online Contest Administrator. Copyright (c) 2003- Cassio Polpo de Campos.
+#//It may be distributed under the terms of the Q Public License version 1.0. A copy of the
+#//license can be found with this software or at http://www.opensource.org/licenses/qtpl.php
+#//
+#//THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+#//INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
+#//PURPOSE AND NONINFRINGEMENT OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER
+#//OR HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL INDIRECT OR
+#//CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
+#//PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
+#//OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+#///////////////////////////////////////////////////////////////////////////////////////////
+#Last modified: 25/may/2010 by cassiopc
+#
+# parameters are:
+# $1 base_filename
+# $2 source_file
+# $3 input_file
+# $4 languagename
+# $5 problemname
+# $6 timelimit
+#
+# the output of the submission should be directed to the standard output
+#
+# the return code show what happened:
+# 0 ok
+# 1 compile error
+# 2 runtime error
+# 3 timelimit exceeded
+# other_codes are unknown to boca: in this case BOCA will present the
+#                                  last line of standard output to the judge
+
+umask 0022
+chown nobody.nogroup .
+
+# this script makes use of safeexec to execute the code with less privilegies
+# make sure that directories below are correct.
+grep=`which grep`
+[ -x "$grep" ] || grep=/bin/grep
+sf=`which safeexec`
+[ -x "$sf" ] || sf=/usr/bin/safeexec
+pascal=`which fpc`
+[ -x "$pascal" ] || pascal=/usr/bin/fpc
+
+if [ "$1" == "" -o "$2" == "" -o "$3" == "" ]; then
+    echo "parameter problem"
+    exit 43
+fi
+if [ ! -r $2 ]; then
+    echo "$2 not found or it's not readable"
+    exit 44
+fi
+if [ ! -r $3 ]; then
+    echo "$3 not found or it's not readable"
+    exit 45
+fi
+if [ ! -x $sf ]; then
+    echo "$sf not found or it's not executable"
+    exit 46
+fi
+if [ ! -x $pascal ]; then
+    echo "$pascal not found or it's not executable"
+    exit 47
+fi
+
+prefix=$1
+name=$2
+input=$3
+
+# setting up the timelimit according to the problem
+# note that problems should spelling the same as inside BOCA
+if [ "$6" == "" ]; then
+time=5
+else
+time=$6
+fi
+let ttime=$time+30
+
+$pascal -o$prefix $name >compiler.out 2>compiler.out
+$grep -irq linking compiler.out
+ret=$?
+$grep -irq "lines compiled" compiler.out
+ret2=$?
+if [ "$ret" != "0" -o "$ret2" != "0" ]; then
+	cat compiler.out
+	echo "Compiling Error: $ret"
+	exit 1
+else
+	$sf -F10 -t$time -T$ttime -i$input -opascal.out -n0 -R. ./$prefix
+	ret=$?
+        if [ -f pascal.out ]; then
+          cat pascal.out
+          $grep -irq "runtime error" pascal.out
+          ret2=$?
+	  if [ "$ret2" = "0" ]; then
+		echo "Strange output - possible runtime error"
+		if [ $ret -lt 4 ]; then
+			ret=48
+		fi
+          fi
+	else
+          echo "Output file not found - possible runtime error"
+	fi
+fi
+exit $ret