Powered by ViewCVS 1.0-dev
* replaced `expr match STRING REGEXP' by `expr STRING : REGEXP'
#!/bin/sh
[ -z "$BASH_VERSION" ] && (which bash > /dev/null 2>&1) && exec bash $0 $*;
# -----------------------------------------------------------------------------
root=$(cd $(dirname $(which "$0"))/.. && pwd);
. $root/scripts/tools.sh;
# -----------------------------------------------------------------------------
reports="$root/reports-$HOSTNAME";
make_header ()
{
cat <<EOF
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>$1</title>
<link href="$2" rel="stylesheet" type="text/css"/>
</head>
<body>
<table>
<tr class='header'>
<th>Primitive</th>
<th>Profile</th>
<th>Key</th>
<th>IV</th>
<th>MAC</th>
<th>Stream</th>
<th>40 bytes</th>
<th>576 bytes</th>
<th>1500 bytes</th>
<th>Imix</th>
<th>Agility</th>
<th>Key setup</th>
<th>IV setup</th>
<th>Variant</th>
<th>Compiler</th>
</tr>
EOF
}
make_footer ()
{
cat <<EOF
</table>
</body>
EOF
}
find_css ()
{
css="results.css";
while [ "$PWD" != "/" ] && [ ! -r "results.css" ]; do
cd ..;
css="../$css";
done
echo "$css";
}
# -----------------------------------------------------------------------------
dir=$1;
[ -n "$dir" ] || dir=.;
collect ()
{
dir=$1;
status 1 "collecting results";
rm -f index.html;
cp "$root/scripts/results.css" .;
make_header "Results" $(find_css) > summary.html;
find $dir -type d | while read dir; do
(
cd "$dir";
[ -e fastest ] || exit;
make_header "Results" $(find_css) > index.html;
keysizes="";
"$root/scripts/tabulate" $(find * -name 'speed_*') | sort -n \
| while read line; do
echo ${line#*;} >> index.html;
keysize=${line%%;*};
keysize=${keysize#* };
if ! expr "$keysizes" : ".*$keysize.*" &> /dev/null; then
echo " ${line//href=\'/href=\'$dir/}";
keysizes="$keysizes $keysize";
fi
done
make_footer >> index.html;
)
done | sort -n | while read line; do
if expr "$line" : ".*/benchmarks/" &> /dev/null; then
line=${line/"<tr>"/"<tr class='benchmark'>"};
fi
echo " ${line#*;}" >> summary.html;
config=$(echo $line | sed 's/^.*<a[^<]*speed[^<]*>\([^<]*\)<.*$/\1/');
awk '/^tag/ { print $3; exit; }' "$reports/configs/$config.mk";
done | sort | uniq -c | sort -rn;
make_footer >> summary.html;
if [ -e index.html ]; then
rm summary.html;
else
mv summary.html index.html;
fi
status 1;
}
shortlist=$(collect "$dir");
answer=$(ask 1 "Should I update the shortlist? [Y/n]" "Y");
[ "$answer" = "n" ] || echo "$shortlist" > "$reports/shortlist";
|
eSTREAM Project Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |