diff options
Diffstat (limited to 'boca-1.5.1/old/Pascal.run')
| -rwxr-xr-x | boca-1.5.1/old/Pascal.run | 107 |
1 files changed, 0 insertions, 107 deletions
diff --git a/boca-1.5.1/old/Pascal.run b/boca-1.5.1/old/Pascal.run deleted file mode 100755 index df98e41..0000000 --- a/boca-1.5.1/old/Pascal.run +++ /dev/null @@ -1,107 +0,0 @@ -#!/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 |