This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/docs/index/Benchmarks/go_yap
kostis b320589051 Added pta benchmark.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1819 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-03-10 09:04:55 +00:00

33 lines
807 B
Bash
Executable File

#! /bin/sh
XXX=$HOME/YAP/YAP-devel/bin/yap
if test $# -eq 1; then
testfiles="$1.P" ## test file name is given as unique extra argument
else
testfiles="tc_l_io_chain8000.P tc_r_io_chain2000.P tc_d_io_chain400.P \
tc_l_oo_chain2000.P tc_r_oo_chain2000.P tc_d_oo_chain400.P \
compress.P sg_cyl.P pta.P mutagenesis.P"
fi
echo "========================================"
echo " Yap JITI 1st "
echo "========================================"
for file in $testfiles ; do
benchname=`basename $file .P`
printf "%21s " $benchname
$XXX << EOF 2>/dev/null
yap_flag(tabling_mode,local).
['$file'].
time.
EOF
printf " \t"
$XXX << EOF 2>/dev/null
set_prolog_flag(index,single).
yap_flag(tabling_mode,local).
['$file'].
time.
EOF
echo
done