yap-6.3/docs/index/Benchmarks/go_yap

#! /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