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

33 lines
826 B
Plaintext
Raw Normal View History

#! /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
printf "========================================\n"
printf " Yap 1st JITI \n"
printf "========================================\n"
for file in $testfiles ; do
benchname=`basename $file .P`
printf "%21s " $benchname
$XXX << EOF 2>/dev/null
set_prolog_flag(index,single).
yap_flag(tabling_mode,local).
['$file'].
time.
EOF
printf " \t"
$XXX << EOF 2>/dev/null
yap_flag(tabling_mode,local).
['$file'].
time.
EOF
printf "\n"
done