2 # Usage: benchmark-guile [-i GUILE-INTERPRETER] [GUILE-BENCHMARK-ARGS]
3 # If `-i GUILE-INTERPRETER' is omitted, use ${top_builddir}/pre-inst-guile.
4 # See ${top_srcdir}/benchmark-suite/guile-benchmark for documentation on GUILE-BENCHMARK-ARGS.
8 # ./benchmark-guile numbers.bm
9 # ./benchmark-guile -i /usr/local/bin/guile
10 # ./benchmark-guile -i /usr/local/bin/guile numbers.bm
14 top_builddir
=@top_builddir_absolute@
15 top_srcdir
=@top_srcdir_absolute@
17 BENCHMARK_SUITE_DIR
=${top_srcdir}/benchmark-suite
19 if [ x
"$1" = x-i
] ; then
24 guile
=${top_builddir}/pre-inst-guile
27 GUILE_LOAD_PATH
=$BENCHMARK_SUITE_DIR
28 export GUILE_LOAD_PATH
30 if [ -f "$guile" -a -x "$guile" ] ; then
31 echo Benchmarking
$guile ...
"$@"
32 echo with GUILE_LOAD_PATH
=$GUILE_LOAD_PATH
34 echo ERROR
: Cannot execute
$guile
38 # documentation searching ignores GUILE_LOAD_PATH.
39 if [ ! -f guile-procedures.txt
] ; then
40 @LN_S@ libguile
/guile-procedures.txt .
44 -e main
-s "$BENCHMARK_SUITE_DIR/guile-benchmark" \
45 --benchmark-suite "$BENCHMARK_SUITE_DIR/benchmarks" \
46 --log-file benchmark-guile.log
"$@"
48 # benchmark-guile ends here