diff --git a/std-script/box.cc b/std-script/box.cc --- a/std-script/box.cc +++ b/std-script/box.cc @@ -257,6 +257,9 @@ case __NR_uname: case 252: case 243: +// added for free pascal + case __NR_ugetrlimit: + case __NR_readlink: return 1; // case __NR_time: case __NR_alarm: diff --git a/std-script/compile b/std-script/compile --- a/std-script/compile +++ b/std-script/compile @@ -5,7 +5,7 @@ # Standard Compile Script # # Supported compilers: -# gcc, g++, and gpc. +# gcc, g++, and fpc. # ############################## @@ -18,11 +18,11 @@ export C_COMPILER=/usr/bin/gcc export CPLUSPLUS_COMPILER=/usr/bin/g++ -export PASCAL_COMPILER=/usr/bin/gpc +export PASCAL_COMPILER=/usr/bin/fpc export C_OPTIONS="-O2 -s -static -lm -Wall" export CPLUSPLUS_OPTIONS="-O2 -s -static -lm -Wall" -export PASCAL_OPTIONS="-O2 -XS -lm -Wall" +export PASCAL_OPTIONS="-O1 -XS" # Check for the correct number of arguments. Otherwise, print usage. if [ $# -eq 0 -o $# -gt 4 ] @@ -86,9 +86,9 @@ elif [ $PROG_LANG = "c++" ] then $CPLUSPLUS_COMPILER $SOURCE_FILE -o $OUTPUT_FILE $CPLUSPLUS_OPTIONS 2>$MESSAGE_FILE -elif [ $PROG_LANG = "pascal" ] +elif [ $PROG_LANG = "pas" ] then - $PASCAL_COMPILER $SOURCE_FILE -o $OUTPUT_FILE $PASCAL_OPTIONS 2>$MESSAGE_FILE + $PASCAL_COMPILER $SOURCE_FILE -o$OUTPUT_FILE $PASCAL_OPTIONS >$MESSAGE_FILE else talk "ERROR: Invalid language specified!" echo "ERROR: Invalid language specified!" > $MESSAGE_FILE diff --git a/std-script/judge b/std-script/judge --- a/std-script/judge +++ b/std-script/judge @@ -36,8 +36,8 @@ end language = ARGV[0] -if language != "c" && language != "c++" && language != "pascal" - log "You specified a language that is not supported." +if language != "c" && language != "c++" && language != "pas" + log "You specified a language that is not supported: #{language}." exit(127) end