Merge pull request #378 from asarhaddon/test-macro-not-changing-function

[jackhill/mal.git] / scheme / run

#!/bin/bash
basedir=$(dirname $0)
step=${STEP:-stepA_mal}

if [[ -e /usr/share/kawa/lib/kawa.jar ]]; then
    kawa=/usr/share/kawa/lib/kawa.jar
elif [[ -e /usr/local/share/kawa/lib/kawa.jar ]]; then
    kawa=/usr/local/share/kawa/lib/kawa.jar
fi

if [[ $(which sash 2>/dev/null) ]]; then
    sagittarius=sash
elif [[ $(which sagittarius 2>/dev/null) ]]; then
    sagittarius=sagittarius
fi

case ${scheme_MODE:-chibi} in
    chibi)       exec chibi-scheme -I$basedir $basedir/$step.scm      "${@}" ;;
    kawa)        exec java -cp $kawa:$basedir/out $step               "${@}" ;;
    gauche)      exec gosh -I$basedir $basedir/$step.scm              "${@}" ;;
    chicken)     CHICKEN_REPOSITORY=$basedir/eggs exec $basedir/$step "${@}" ;;
    sagittarius) exec $sagittarius -n -L$basedir $basedir/$step.scm   "${@}" ;;
    cyclone)     exec $basedir/$step                                  "${@}" ;;
    foment)      exec foment $basedir/$step.scm                       "${@}" ;;
    *) echo "Invalid scheme_MODE: ${scheme_MODE}"; exit 2 ;;
esac