Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/benchmarks/bin/runit
ViewVC logotype

View of /sml/trunk/benchmarks/bin/runit

Parent Directory Parent Directory | Revision Log Revision Log


Revision 219 - (download) (annotate)
Tue Mar 9 01:07:30 1999 UTC (21 years, 4 months ago) by monnier
File size: 716 byte(s)
*** empty log message ***
#!/bin/sh

prgdir="programs"
loadfile="load"
benchnamefile="name"

if [ $# -gt 0 ]; then repeat=$1; shift; fi
if [ $# -gt 0 ]; then output=$1; shift; fi

: ${repeat:=3}
: ${output:=/dev/tty}

loads=''
for b do loads="$loads $prgdir/$b/$loadfile"; done
: ${loads:=`echo $prgdir/*/$loadfile`}

cat <<EOF
	use "util/timeStd.sml";
	val out = TextIO.openAppend("$output");
EOF

for load in $loads; do
    bdir=`dirname $load`;
    file=`basename $load`;
    bench=`cat $bdir/$benchnamefile 2>/dev/null`
    : ${bench:=`basename $bdir`}
    cat <<EOF
	OS.FileSys.chDir "$bdir";
	Timing.timeCompKJgraph(out, "$bench", "$file");
	OS.FileSys.chDir "../..";
	Timing.timeRunKJgraph(out, "$bench", $repeat, Main.doit);
EOF
done

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0