blob: a06c326c3e34d96b043d6a3d4c5f2d9a228caa18 [file] [log] [blame]
#!/usr/bin/env bash
# Copyright 2009 The Go Authors. All rights reserved.
# Use of this source code is governed by a BSD-style
# license that can be found in the LICENSE file.
set -e
eval $(go tool dist env)
O=$GOCHAR
GC="go tool ${O}g"
LD="go tool ${O}l"
gccm=""
case "$O" in
8)
gccm=-m32;;
6)
gccm=-m64;;
esac
EXE="out"
havepcre=true
haveglib=true
havegmp=true
case "$(uname)" in
*MINGW* | *WIN32* | *CYGWIN*)
havepcre=false
haveglib=false
havegmp=false
if which pkg-config >/dev/null 2>&1; then
if pkg-config --cflags libpcre >/dev/null 2>&1
then
echo "havepcre"
havepcre=true
fi
if pkg-config --cflags glib-2.0 >/dev/null 2>&1
then
haveglib=true
fi
if pkg-config --cflags gmp >/dev/null 2>&1
then
havegmp=true
fi
fi
EXE=exe;;
esac
PATH=.:$PATH
havegccgo=false
if which gccgo >/dev/null 2>&1
then
havegccgo=true
fi
mode=run
case X"$1" in
X-test)
mode=test
shift
esac
gc() {
$GC $1.go; $LD -o $O.$EXE $1.$O
}
gc_B() {
$GC -B $1.go; $LD -o $O.$EXE $1.$O
}
runonly() {
if [ $mode = run ]
then
"$@"
fi
}
run() {
if [ $mode = test ]
then
if echo $1 | grep -q '^gc '
then
$1 # compile the program
program=$(echo $1 | sed 's/gc //')
shift
echo $program
$1 <fasta-1000.out > /tmp/$$
case $program in
chameneosredux)
# exact numbers may vary but non-numbers should match
grep -v '[0-9]' /tmp/$$ > /tmp/$$x
grep -v '[0-9]' chameneosredux.txt > /tmp/$$y
cmp /tmp/$$x /tmp/$$y
rm -f /tmp/$$ /tmp/$$x /tmp/$$y
;;
*)
cmp /tmp/$$ $program.txt
rm -f /tmp/$$
esac
fi
return
fi
if ! $havegccgo && echo $1 | grep -q '^gccgo '
then
return
fi
echo -n ' '$1' '
$1
shift
echo $((time -p $* >/dev/null) 2>&1) | awk '{print $4 "u " $6 "s " $2 "r"}'
}
fasta() {
runonly echo 'fasta -n 25000000'
run "gcc $gccm -O2 fasta.c" a.$EXE 25000000
run 'gccgo -O2 fasta.go' a.$EXE -n 25000000 #commented out until WriteString is in bufio
run 'gc fasta' $O.$EXE -n 25000000
run 'gc_B fasta' $O.$EXE -n 25000000
}
revcomp() {
runonly gcc -O2 fasta.c
runonly a.$EXE 25000000 > x
runonly echo 'reverse-complement < output-of-fasta-25000000'
run "gcc $gccm -O2 reverse-complement.c" a.$EXE < x
run 'gccgo -O2 reverse-complement.go' a.$EXE < x
run 'gc reverse-complement' $O.$EXE < x
run 'gc_B reverse-complement' $O.$EXE < x
rm x
}
nbody() {
runonly echo 'nbody -n 50000000'
run "gcc $gccm -O2 nbody.c -lm" a.$EXE 50000000
run 'gccgo -O2 nbody.go' a.$EXE -n 50000000
run 'gc nbody' $O.$EXE -n 50000000
run 'gc_B nbody' $O.$EXE -n 50000000
}
binarytree() {
runonly echo 'binary-tree 15 # too slow to use 20'
run "gcc $gccm -O2 binary-tree.c -lm" a.$EXE 15
run 'gccgo -O2 binary-tree.go' a.$EXE -n 15
run 'gccgo -O2 binary-tree-freelist.go' a.$EXE -n 15
run 'gc binary-tree' $O.$EXE -n 15
run 'gc binary-tree-freelist' $O.$EXE -n 15
}
fannkuch() {
runonly echo 'fannkuch 12'
run "gcc $gccm -O2 fannkuch.c" a.$EXE 12
run 'gccgo -O2 fannkuch.go' a.$EXE -n 12
run 'gccgo -O2 fannkuch-parallel.go' a.$EXE -n 12
run 'gc fannkuch' $O.$EXE -n 12
run 'gc fannkuch-parallel' $O.$EXE -n 12
run 'gc_B fannkuch' $O.$EXE -n 12
}
regexdna() {
runonly gcc -O2 fasta.c
runonly a.$EXE 100000 > x
runonly echo 'regex-dna 100000'
if $havepcre; then
run "gcc $gccm -O2 regex-dna.c $(pkg-config libpcre --cflags --libs)" a.$EXE <x
fi
run 'gccgo -O2 regex-dna.go' a.$EXE <x
run 'gccgo -O2 regex-dna-parallel.go' a.$EXE <x
run 'gc regex-dna' $O.$EXE <x
run 'gc regex-dna-parallel' $O.$EXE <x
run 'gc_B regex-dna' $O.$EXE <x
rm x
}
spectralnorm() {
runonly echo 'spectral-norm 5500'
run "gcc $gccm -O2 spectral-norm.c -lm" a.$EXE 5500
run 'gccgo -O2 spectral-norm.go' a.$EXE -n 5500
run 'gc spectral-norm' $O.$EXE -n 5500
run 'gc_B spectral-norm' $O.$EXE -n 5500
}
knucleotide() {
runonly gcc -O2 fasta.c
runonly a.$EXE 1000000 > x # should be using 25000000
runonly echo 'k-nucleotide 1000000'
if [ $mode = run ] && $haveglib; then
run "gcc -O2 k-nucleotide.c $(pkg-config glib-2.0 --cflags --libs)" a.$EXE <x
fi
run 'gccgo -O2 k-nucleotide.go' a.$EXE <x
run 'gccgo -O2 k-nucleotide-parallel.go' a.$EXE <x
run 'gc k-nucleotide' $O.$EXE <x
run 'gc k-nucleotide-parallel' $O.$EXE <x
run 'gc_B k-nucleotide' $O.$EXE <x
rm x
}
mandelbrot() {
runonly echo 'mandelbrot 16000'
run "gcc $gccm -O2 mandelbrot.c" a.$EXE 16000
run 'gccgo -O2 mandelbrot.go' a.$EXE -n 16000
run 'gc mandelbrot' $O.$EXE -n 16000
run 'gc_B mandelbrot' $O.$EXE -n 16000
}
meteor() {
runonly echo 'meteor 2098'
run "gcc $gccm -O2 meteor-contest.c" a.$EXE 2098
run 'gccgo -O2 meteor-contest.go' a.$EXE -n 2098
run 'gc meteor-contest' $O.$EXE -n 2098
run 'gc_B meteor-contest' $O.$EXE -n 2098
}
pidigits() {
runonly echo 'pidigits 10000'
if $havegmp; then
run "gcc $gccm -O2 pidigits.c -lgmp" a.$EXE 10000
fi
run 'gccgo -O2 pidigits.go' a.$EXE -n 10000
run 'gc pidigits' $O.$EXE -n 10000
run 'gc_B pidigits' $O.$EXE -n 10000
}
threadring() {
runonly echo 'threadring 50000000'
run "gcc $gccm -O2 threadring.c -lpthread" a.$EXE 50000000
run 'gccgo -O2 threadring.go' a.$EXE -n 50000000
run 'gc threadring' $O.$EXE -n 50000000
}
chameneos() {
runonly echo 'chameneos 6000000'
run "gcc $gccm -O2 chameneosredux.c -lpthread" a.$EXE 6000000
run 'gccgo -O2 chameneosredux.go' a.$EXE 6000000
run 'gc chameneosredux' $O.$EXE 6000000
}
case $# in
0)
run="fasta revcomp nbody binarytree fannkuch regexdna spectralnorm knucleotide mandelbrot meteor pidigits threadring chameneos"
;;
*)
run=$*
esac
for i in $run
do
$i
runonly echo
done