git @ Cat's Eye Technologies Fountain / master bin / fountain
master

Tree @master (Download .tar.gz)

fountain @masterraw · history · blame

#!/bin/sh

# SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
# For more information, please refer to <https://unlicense.org/>
# SPDX-License-Identifier: Unlicense

THIS=`realpath $0`
DIR=`dirname $THIS`
NAME=`basename $THIS`
SRC=$DIR/../src
if [ "x$FORCE_HUGS" != "x" ] ; then
    exec runhugs -i$SRC $SRC/Main.hs $*
elif [ -x $DIR/$NAME.exe ] ; then
    exec $DIR/$NAME.exe $*
elif command -v runhaskell 2>&1 >/dev/null ; then
    # FIXME: there seems to be no way to expose a package here like we do
    # with `-package mtl` when we compile it.  Truly, it's a pity.
    exec runhaskell -i$SRC $SRC/Main.hs $*
elif command -v runhugs 2>&1 >/dev/null ; then
    exec runhugs -i$SRC $SRC/Main.hs $*
else
    echo "Cannot run $NAME; neither $NAME.exe, nor runhaskell, nor runhugs found."
    exit 1
fi