Powered by ViewCVS 1.0-dev
* many changes, including a script to generate html tables from the performance results.
#!/bin/sh
[ -z "$BASH_VERSION" ] && (which bash > /dev/null 2>&1) && exec bash $0 $*;
# -----------------------------------------------------------------------------
root=$(cd $(dirname $(which "$0"))/.. && pwd);
. $root/scripts/tools.sh;
# -----------------------------------------------------------------------------
NEWLINE='
';
# -----------------------------------------------------------------------------
reports="$root/reports-$HOSTNAME";
mkdir -p "$reports";
cd "$reports";
pid=$$;
# -----------------------------------------------------------------------------
runwin ()
{
if [ "$(uname)" = "Linux" ]; then
wine $1;
else
$1;
fi
}
# -----------------------------------------------------------------------------
find_in_path ()
{
local IFS=:$NEWLINE;
regex=$1;
version=$(find --version | awk '/^GNU find version/ { print $4; exit }');
# version 4.2.23 of GNU find has a slightly different regexp syntax
[ "$version" = "4.2.23" ] && regex=${regex//'?'/'\?'};
find $PATH -maxdepth 1 -iregex "$regex" \
\( -type f -o -type l \) -perm ++x 2> /dev/null \
| sort | while read name; do
base="$(basename "$name")";
if [ "$(which "$base")" = "$name" ]; then
echo "$base";
else
# no spaces, sorry
expr index "$name" " " &> /dev/null || echo "$name";
fi
done
}
find_candidates ()
{
status 1 "searching for compilers";
local IFS=$NEWLINE;
# GNU compilers
for gcc in $(find_in_path '.*/\([^ ]*-\)*gcc\(-[0-9\.]*\)?\(.exe\)?$'); do
echo "comp='gcc'; cc='$gcc';";
done
# Intel compilers
for icc in $(find_in_path '.*/icc\(-[0-9\.]*\)?$'); do
echo "comp='icc'; cc='$icc';";
done
# Microsoft compilers
for msvc in $(find_in_path '.*/cl\(-[0-9\.]*\)?\(.exe\)?$'); do
echo "comp='msvc'; cc='$msvc';";
done
# Unix compilers
case $(uname) in
HP-UX|OSF*|SunOS)
if [ -x $(which cc 2> /dev/null) ]; then
echo "comp='cc'; cc='cc';";
fi
;;
esac
status 1;
}
check_gcc ()
{
gcc=$1;
version=$($gcc -v 2>&1 | awk '/^gcc version/ { print $3; exit; }');
if $gcc -E - < /dev/null &> /dev/null; then
echo "$gcc";
if [ "$version" \> "3" ]; then
for version in {3,4}.{0,1,2,3,4}{,.{0,1,2,3,4,5}}; do
$gcc -V $version -E - < /dev/null &> /dev/null \
&& echo "$gcc -V $version";
done
fi
fi | while read gcc; do
IFS=' ';
specs=$($gcc -v 2>&1 | md5sum);
length=$(printf "%0.3d" ${#gcc});
if $gcc -dumpmachine | grep -q "mingw32"; then
echo "specs='$specs'; length='$length'; comp='mingw'; cc='$gcc';";
else
echo "specs='$specs'; length='$length'; comp='gcc'; cc='$gcc';";
fi
done
}
check_gcc_archs ()
{
local IFS=' ';
gcc=$1;
for arch in \
"" \
"-march="{i{386,486},pentium{,-mmx,pro,2,3,4,-m},prescott,nocona} \
"-march="{k6{,-2,-3},athlon{,-sse},k8} \
"-march="{1.0,1.1,2.0} \
"-mcpu="{G{3,4,5}} \
"-mcpu="{ev{4,5,56,6,67},pca56} "-mcpu="{v{8,9}} \
"-mcpu="{sparc{{,lite}{,86x},let},{su,hy}persparc,ultrasparc{,3}} \
; do
$gcc $arch -Werror conftest.c -o conftest &> /dev/null \
&& size=$(./conftest) &> /dev/null \
&& echo "'$arch'";
if [ "$size" = 4 ]; then
bits="-m64";
else
bits="-m32";
fi
$gcc $arch $bits -Werror conftest.c -o conftest &> /dev/null \
&& ./conftest &> /dev/null \
&& echo "'$arch $bits'";
done
}
check_gcc_opts ()
{
for opt in \
"-O"{0,{1,2,3{," -funroll-all-loops"},s}" -fomit-frame-pointer"}; do
echo "'$opt'";
done
}
check_mingw_archs ()
{
local IFS=' ';
gcc=$1;
for arch in \
"" \
"-march="{i{386,486},pentium{,-mmx,pro,2,3,4,-m},prescott,nocona} \
"-march="{k6{,-2,-3},athlon{,-sse},k8} \
; do
$gcc $arch -Werror conftest.c -o conftest.exe &> /dev/null \
&& runwin ./conftest.exe &> /dev/null \
&& echo "'$arch'";
done
}
check_mingw_opts ()
{
for opt in \
"-O"{0,{1,2,3{," -funroll-all-loops"},s}" -fomit-frame-pointer"}; do
echo "'$opt'";
done
}
check_icc ()
{
icc=$1;
version=$($icc -v 2>&1 | awk '/^Version/ { print $2; exit; }');
length=$(printf "%0.3d" ${#icc});
$icc -E - < /dev/null &> /dev/null && \
echo "specs='$version'; length='$length'; comp='icc'; cc='$icc';";
}
check_icc_archs ()
{
icc=$1;
for arch in \
"" \
"-x"{K,W,N,P,B} \
; do
$icc $arch -Werror conftest.c -o conftest &> /dev/null \
&& ./conftest &> /dev/null \
&& echo "'$arch'";
done
}
check_icc_opts ()
{
for opt in "-O"{0,1,2,3,s}; do
echo "'$opt'";
done
}
check_msvc ()
{
msvc=$1;
version=$($msvc 2>&1 | awk '/Version/ { print $6 ":" $8; exit; }');
length=$(printf "%0.3d" ${#msvc});
[ "${version%:*}" = "Compiler" ] && \
echo "specs='$version'; length='$length'; comp='msvc'; cc='$msvc';";
}
check_msvc_archs ()
{
msvc=$1;
for arch in \
"" \
"-G"{6,7} \
; do
if ! $msvc $arch conftest.c -o conftest.exe 2>&1; then
continue;
fi | grep -q "warning";
[ $? = 1 ] && runwin ./conftest.exe &> /dev/null \
&& echo "'$arch'";
done
}
check_msvc_opts ()
{
for opt in "" "-O"{1,2}{," -Gr"}; do
echo "'$opt'";
done
}
check_msvc ()
{
msvc=$1;
version=$($msvc 2>&1 | awk '/Version/ { print $6 ":" $8; exit; }');
length=$(printf "%0.3d" ${#msvc});
[ "${version%:*}" = "Compiler" ] && \
echo "specs='$version'; length='$length'; comp='msvc'; cc='$msvc';";
}
check_cc ()
{
cc=$1;
$cc -E - < /dev/null &> /dev/null && \
echo "specs='unix cc'; length='$length'; comp='cc'; cc='$cc';";
}
check_cc_archs ()
{
cc=$1;
case $(uname) in
HP-UX)
for arch in "" "+DD"{32,64}; do
$cc $arch conftest.c -o conftest &> /dev/null \
&& ./conftest &> /dev/null \
&& echo "'$arch'";
done
;;
OSF*)
for arch in "" "-arch "{ev{4,5,56,6,67},pca56}; do
(IFS=' '; $cc $arch conftest.c -o conftest) &> /dev/null \
&& ./conftest &> /dev/null \
&& echo "'$arch'";
done
;;
SunOS)
for arch in "" "-xarch="v{7,8{,plus}{,a},9{,a}}; do
$cc $arch conftest.c -o conftest &> /dev/null \
&& ./conftest &> /dev/null \
&& echo "'$arch'";
done
;;
esac
}
check_cc_opts ()
{
for opt in "" "-fast"; do
echo "'$opt'";
done
}
check_compilers ()
{
status 1 "checking compilers and discarding duplicates";
local IFS=$NEWLINE;
previous=;
for line in $1; do eval "$line";
check_$comp "$cc";
done | sort | while read line; do eval "$line";
if [ "$specs" != "$previous" ]; then
previous=$specs;
echo "comp='$comp'; cc='$cc';";
fi
done | sort;
status 1;
}
check_options ()
{
status 1 "checking compiler options";
cat > conftest.c <<EOF
#include "../include/ecrypt-portable.h"
int main()
{
printf("%d\n", sizeof(long));
return 0;
}
EOF
local IFS=$NEWLINE;
previous=;
for line in $1; do eval "$line";
archs=$(check_${comp}_archs "$cc");
opts=$(check_${comp}_opts "$cc");
if [ -n "$archs" -a -n "$opts" ]; then
line="$line archs=\"{${archs//$NEWLINE/,}}\";";
line="$line opts=\"{${opts//$NEWLINE/,}}\";";
echo "$line";
fi
done
rm -rf conftest*;
status 1;
}
compact_cc ()
{
cc=$1;
cc=${cc// /};
cc=${cc//\//-};
echo "$cc";
}
compact_arch ()
{
arch=$1;
[ -n "$arch" ] || arch=default;
arch=${arch//arch /};
arch=${arch// /};
arch=${arch#-};
arch=${arch#+};
arch=${arch#m*=};
arch=${arch#xarch=};
echo "$arch";
}
compact_opt ()
{
opt=$1;
[ -n "$opt" ] || opt=default;
opt=${opt// /};
opt=${opt#-};
opt=${opt/fomit-frame-pointer/ofp};
opt=${opt/funroll-all-loops/ual};
echo "$opt";
}
prepare_configs ()
{
status 1 "creating config files";
rm -rf configs;
mkdir -p configs;
for line in $1; do eval "$line";
options="'arch=\"'$archs'\"; opt=\"'$opts'\";'";
options=$(eval "for i in $options; do echo \$i; done");
for line in $options; do eval "$line";
tag=$(compact_arch "$arch")_$(compact_opt "$opt");
file=./configs/$(compact_cc "$cc")_$tag.mk;
tag=${comp}_$tag;
cat > $file <<EOF
tag = $tag
comp = $comp
cc = $cc
arch = $arch
opt = $opt
EOF
done
done
status 1;
cp "$root/configs/shortlist" .;
}
config_compilers ()
{
local IFS=$NEWLINE;
if [ -r compilers ]; then
compilers=$(< compilers);
else
if [ -r candidates ]; then
candidates=$(< candidates);
else
candidates=$(find_candidates);
if [ -z "$candidates" ]; then
error 0 "Didn't find compilers in \$PATH."
exit 1;
fi
info 2 "The following executables look like compilers:";
for line in $candidates; do eval "$line";
info 2 " - $cc";
done
question 2 "I will now execute them for further testing.";
safe=$(ask 2 "Is this safe? [Y/n]" "y");
if [ "$safe" = "n" ]; then
IFS=;
echo "$candidates" > candidates;
info 0 "Please edit $reports/candidates and start again.";
exit 1;
fi
fi
compilers=$(check_compilers "$candidates");
if [ -z "$compilers" ]; then
error 0 "No supported compiler found."
exit 1;
fi
compilers=$(check_options "$compilers");
rm -rf candidates;
echo "$compilers" > compilers;
fi
info 1 "The following compilers are supported:";
i=0;
for line in $compilers; do ((i++)); eval "$line";
info 1 " $i. $cc";
done
while true; do
list=$(ask_list "$compilers" 1 "compilers" "");
if [ -z "$list" ]; then
error 0 "You didn't select any compiler.";
else
break;
fi
done
prepare_configs "$list";
}
get_cpuinfo ()
{
status 1 "collecting CPU information"
if [ -r /proc/cpuinfo ]; then
# Linux
cat /proc/cpuinfo &> cpuinfo;
cpu_speed=$(awk '/^cpu MHz/ { print $4; exit; }' cpuinfo);
cpufreq="/sys/devices/system/cpu/cpu0/cpufreq/cpuinfo_max_freq";
if [ -r "$cpufreq" ]; then
i=0;
while [ $i -lt 10000 ]; do ((i++));
cat /proc/cpuinfo &> cpuinfo;
cpu_speed=$(awk '/^cpu MHz/ { print $4; exit; }' cpuinfo);
[ $(($(cat "$cpufreq") / 1000 - ${cpu_speed%.*})) -gt 10 ] \
|| break;
done
fi
elif [ -x "$(which psrinfo 2> /dev/null)" ]; then
# Solaris, Tru64
psrinfo -v &> cpuinfo;
cpu_speed=$(awk \
'/ates at/ {print gensub(/.* ([0-9/.]+) MHz.*/,"\\1",1); exit;}' \
cpuinfo);
elif [ -x "$(which cscript.exe 2> /dev/null)" ]; then
# MS Windows
cat > conftest.vbs <<'EOF'
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
Wscript.Echo "Processor Id: " & objItem.ProcessorId
Wscript.Echo "Maximum Clock Speed: " & objItem.MaxClockSpeed
Next
EOF
cscript.exe -nologo conftest.vbs &> cpuinfo;
cpu_speed=$(awk '/^Maximum Clock Speed/ { print $4; exit; }' cpuinfo);
rm -rf conftest*;
elif [ "$(uname)" = "HP-UX" ]; then
# HP-UX
cat > conftest.c <<EOF
#include <stdio.h>
#include <unistd.h>
#include <sys/pstat.h>
int main()
{
struct pst_processor psp;
pstat_getprocessor(&psp, sizeof(struct pst_processor), 1, 0);
printf("%d\n", psp.psp_iticksperclktick * sysconf(_SC_CLK_TCK) / 1000000);
return 0;
}
EOF
eval "$(head -1 compilers)";
$cc conftest.c -o conftest &> /dev/null;
echo "Model: $(model 2> /dev/null)" > cpuinfo;
cpu_speed=$(./conftest 2> /dev/null);
rm -rf conftest*;
fi
status 1;
if [ -z "$cpu_speed" ]; then
error 0 "Couldn't determine clock speed.";
cpu_speed=$(ask 0 \
"Please enter the clock speed in MHz:" "");
else
question 1 "The processor seems to run at $cpu_speed MHZ.";
answer=$(ask 1 \
"Press <return> if this is correct, or enter the clock speed:" "");
[ -z "$answer" ] || cpu_speed=$answer;
fi
echo "$cpu_speed" >> cpuinfo;
}
# -----------------------------------------------------------------------------
config_compilers;
get_cpuinfo;
# -----------------------------------------------------------------------------
|
eSTREAM Project Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |