| #! /usr/local/bin/bash |
#! /bin/bash |
| #test dist on all MACHINES given in MACHINES |
#test dist on all MACHINES given in MACHINES |
| #usage: MACHINES="..." testall dirs/gforth-version.tar.gz |
#usage: MACHINES="..." testall dirs/gforth-version.tar.gz |
| if test $# = 0; then |
if test $# = 0; then |
| exit 1 |
exit 1 |
| fi |
fi |
| test "x$MACHINES" != x || |
test "x$MACHINES" != x || |
| MACHINES="mips aertl@fpr.zserv.tuwien.ac.at \ |
MACHINES="a5 a7 b2 b3 c1 c4 c6 c7 c8 iyonix mips ppc64 t1000" |
| b1 b2 b3 b4 c2 \ |
|
| samhain.ifs.tuwien.ac.at calis aertl@mail.zserv.tuwien.ac.at \ |
|
| aertl@stat.zserv.tuwien.ac.at \ |
|
| rlwinm.ifs.tuwien.ac.at fmadd.ifs.tuwien.ac.at lfsux.ifs.tuwien.ac.at \ |
|
| s4addq.ifs.tuwien.ac.at \ |
|
| 128.130.204.24 128.130.204.25 128.130.204.26 \ |
|
| cdbook jupiter \ |
|
| complang@red.a-business.co.at" |
|
| #taken out: hpws03.infosys.tuwien.ac.at aertl@fbma.tuwien.ac.at w4.infosys.tuwien.ac.at d0 struppi pcs |
|
| SSH_PROTOCOL=-oProtocol=1,2 |
SSH_PROTOCOL=-oProtocol=1,2 |
| for i in $MACHINES |
for i in $MACHINES |
| do |
do |
| ( ssh $SSH_PROTOCOL -q -x $i "test -d xxxgforthtest||mkdir xxxgforthtest; cd xxxgforthtest; test -d $i||mkdir $i; rm -rf $i/*" >$i 2>&1; \ |
( ssh $SSH_PROTOCOL -q -x $i "test -d xxxgforthtest||mkdir xxxgforthtest; cd xxxgforthtest; test -d $i||mkdir $i; rm -rf $i/*" >$i 2>&1; \ |
| scp $SSH_PROTOCOL -p -q $1 ../testdist $i:xxxgforthtest/$i >>$i 2>&1; \ |
scp $SSH_PROTOCOL -p -q $1 ../testdist $i:xxxgforthtest/$i >>$i 2>&1; \ |
| ssh $SSH_PROTOCOL -q -x $i "cd xxxgforthtest/$i; ./testdist `basename $1`" >>$i 2>&1; \ |
ssh $SSH_PROTOCOL -q -x $i "cd xxxgforthtest/$i; ./testdist `basename $1`" >>$i 2>&1; \ |
| echo "$i done" "`tail -1 $i`") & |
echo "$i done" "`tail -1 $i`" `grep "checking host system type..." $i|sed 's/checking host system type... //'` `grep "^gcc.*ok" $i` |
| |
grep -A 2 "sieve bubble matrix fib" $i) & |
| fi |
fi |
| done |
done |
| wait |
wait |
