2009-08-04 15:07:17 -06:00
|
|
|
#!/bin/sh
|
|
|
|
# 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
|
|
|
|
. $GOROOT/src/Make.$GOARCH
|
|
|
|
|
|
|
|
gc() {
|
|
|
|
$GC $1.go; $LD $1.$O
|
|
|
|
}
|
|
|
|
|
|
|
|
gc_B() {
|
|
|
|
$GC -B $1.go; $LD $1.$O
|
|
|
|
}
|
|
|
|
|
|
|
|
run() {
|
|
|
|
echo -n ' '$1' '
|
|
|
|
$1
|
|
|
|
shift
|
|
|
|
(/home/r/plan9/bin/time $* 2>&1 >/dev/null) | sed 's/r.*/r/'
|
|
|
|
}
|
|
|
|
|
2009-08-04 15:27:46 -06:00
|
|
|
fasta() {
|
|
|
|
echo 'fasta -n 25000000'
|
|
|
|
run 'gcc -O2 fasta.c' a.out 25000000
|
|
|
|
#run 'gccgo -O2 fasta.go' a.out -n 25000000 #commented out until WriteString is in bufio
|
|
|
|
run 'gc fasta' $O.out -n 25000000
|
|
|
|
run 'gc_B fasta' $O.out -n 25000000
|
|
|
|
}
|
|
|
|
|
|
|
|
revcomp() {
|
2009-08-04 18:31:19 -06:00
|
|
|
gcc -O2 fasta.c
|
|
|
|
a.out 25000000 > x
|
2009-08-04 15:27:46 -06:00
|
|
|
echo 'reverse-complement < output-of-fasta-25000000'
|
2009-08-04 18:31:19 -06:00
|
|
|
run 'gcc -O2 reverse-complement.c' a.out < x
|
|
|
|
run 'gccgo -O2 reverse-complement.go' a.out < x
|
|
|
|
run 'gc reverse-complement' $O.out < x
|
|
|
|
run 'gc_B reverse-complement' $O.out < x
|
2009-08-04 15:27:46 -06:00
|
|
|
rm x
|
|
|
|
}
|
|
|
|
|
|
|
|
nbody() {
|
|
|
|
echo 'nbody -n 50000000'
|
|
|
|
run 'gcc -O2 nbody.c' a.out 50000000
|
|
|
|
run 'gccgo -O2 nbody.go' a.out -n 50000000
|
|
|
|
run 'gc nbody' $O.out -n 50000000
|
|
|
|
run 'gc_B nbody' $O.out -n 50000000
|
|
|
|
}
|
|
|
|
|
2009-08-04 20:38:08 -06:00
|
|
|
binarytree() {
|
|
|
|
echo 'binary-tree 15 # too slow to use 20'
|
|
|
|
run 'gcc -O2 binary-tree.c -lm' a.out 15
|
|
|
|
run 'gccgo -O2 binary-tree.go' a.out -n 15
|
|
|
|
run 'gccgo -O2 binary-tree-freelist.go' $O.out -n 15
|
|
|
|
run 'gc binary-tree' $O.out -n 15
|
|
|
|
run 'gc binary-tree-freelist' $O.out -n 15
|
|
|
|
}
|
|
|
|
|
2009-08-04 15:27:46 -06:00
|
|
|
case $# in
|
|
|
|
0)
|
2009-08-04 20:38:08 -06:00
|
|
|
run="fasta revcom nbody binarytree"
|
2009-08-04 15:27:46 -06:00
|
|
|
;;
|
|
|
|
*)
|
|
|
|
run=$*
|
|
|
|
esac
|
2009-08-04 15:07:17 -06:00
|
|
|
|
2009-08-04 15:27:46 -06:00
|
|
|
for i in $run
|
|
|
|
do
|
|
|
|
$i
|
|
|
|
echo
|
|
|
|
done
|