source: doc/theses/andrew_beach_MMath/code/test.sh @ 080471a

#!/usr/bin/env bash

# Usage:
# test.sh LANGUAGE TEST
#   Run the TEST in LANGUAGE.
# test.sh -b SOURCE_FILE...
#   Build a test from SOURCE_FILE(s).
# test.sh -v LANGUAGE TEST FILE
#   View the result from TEST in LANGUAGE stored in FILE.

readonly ITERATIONS=1000000 # 1 000 000, one million
readonly STACK_HEIGHT=100

# Build Test Programs:
# Mini-Make: TARGET SOURCE COMMAND ARGS...
mmake() (
        if [ ! -e "$1" -o "$1" -ot "$2" ]; then
                "${@:3}"
        fi
)

build() (
        case "$1" in
        *.cfa)
                # Requires a symbolic link.
                mmake "${1%.cfa}" "$1" ./cfa -DNDEBUG -nodebug -O3 "$1" -o "${1%.cfa}"
                ;;
        *.cpp)
                mmake "${1%.cpp}-cpp" "$1" g++ -DNDEBUG -O3 "$1" -o "${1%.cpp}-cpp"
                ;;
        *.java)
                mmake "${1%.java}.class" "$1" javac "$1"
                ;;
        *)
                echo "Don't know how to build:" $1 >&2
                exit 2
                ;;
        esac
)

if [ "-b" = "$1" ]; then
        for file in "${@:2}"; do
                build $file
        done
        exit 0
elif [ "-v" = "$1" -a 4 = "$#" ]; then
    TEST_LANG="$2"
    TEST_CASE="$3"
    VIEW_FILE="$4"
elif [ 2 -eq "$#" ]; then
        TEST_LANG="$1"
        TEST_CASE="$2"
else
        echo "Unknown call pattern." >&2
        exit 2
fi

# Run Test Programs:
# Used in place of unsupported language/test combinations.
unsupported() {
        echo "Run-Time: NA"
}

case "$TEST_CASE" in
cond-match-all)
        CFAT="./cond-catch $ITERATIONS 1"
        CFAR="./cond-fixup $ITERATIONS 1"
        CPP="./cond-catch-cpp $ITERATIONS 1"
        JAVA="java CondCatch $ITERATIONS 1"
        PYTHON="./cond_catch.py $ITERATIONS 1"
        ;;
cond-match-none)
        CFAT="./cond-catch $ITERATIONS 0"
        CFAR="./cond-fixup $ITERATIONS 0"
        CPP="./cond-catch-cpp $ITERATIONS 0"
        JAVA="java CondCatch $ITERATIONS 0"
        PYTHON="./cond_catch.py $ITERATIONS 0"
        ;;
cross-catch)
        CFAT="./cross-catch $ITERATIONS"
        CFAR="./cross-resume $ITERATIONS"
        CPP="./cross-catch-cpp $ITERATIONS"
        JAVA="java CrossCatch $ITERATIONS"
        PYTHON="./cross_catch.py $ITERATIONS"
        ;;
cross-finally)
        CFAT="./cross-finally $ITERATIONS"
        CFAR=unsupported
        CPP=unsupported
        JAVA="java CrossFinally $ITERATIONS"
        PYTHON="./cross_finally.py $ITERATIONS"
        ;;
raise-detor)
        CFAT="./throw-detor $ITERATIONS $STACK_HEIGHT"
        CFAR="./resume-detor $ITERATIONS $STACK_HEIGHT"
        CPP="./throw-detor-cpp $ITERATIONS $STACK_HEIGHT"
        JAVA=unsupported
        PYTHON=unsupported
        ;;
raise-empty)
        CFAT="./throw-empty $ITERATIONS $STACK_HEIGHT"
        CFAR="./resume-empty $ITERATIONS $STACK_HEIGHT"
        CPP="./throw-empty-cpp $ITERATIONS $STACK_HEIGHT"
        JAVA="java ThrowEmpty $ITERATIONS $STACK_HEIGHT"
        PYTHON="./throw_empty.py $ITERATIONS $STACK_HEIGHT"
        ;;
raise-finally)
        CFAT="./throw-finally $ITERATIONS $STACK_HEIGHT"
        CFAR="./resume-finally $ITERATIONS $STACK_HEIGHT"
        CPP=unsupported
        JAVA="java ThrowFinally $ITERATIONS $STACK_HEIGHT"
        PYTHON="./throw_finally.py $ITERATIONS $STACK_HEIGHT"
        ;;
raise-other)
        CFAT="./throw-other $ITERATIONS $STACK_HEIGHT"
        CFAR="./resume-other $ITERATIONS $STACK_HEIGHT"
        CPP="./throw-other-cpp $ITERATIONS $STACK_HEIGHT"
        JAVA="java ThrowOther $ITERATIONS $STACK_HEIGHT"
        PYTHON="./throw_other.py $ITERATIONS $STACK_HEIGHT"
        ;;
*)
        echo "No such test: $TEST_CASE" >&2
        exit 2
        ;;
esac

case "$TEST_LANG" in
cfa-t) CALL="$CFAT";;
cfa-r) CALL="$CFAR";;
cpp) CALL="$CPP";;
java) CALL="$JAVA";;
python) CALL="$PYTHON";;
*)
        echo "No such language: $TEST_LANG" >&2
        exit 2
        ;;
esac

echo $CALL

if [ -n "$VIEW_FILE" ]; then
    grep -A 1 -B 0 "$CALL" "$VIEW_FILE" | sed -n -e 's!Run-Time (ns): !!;T;p'
    exit
fi

$CALL