gforth: gforth/testall

1 :	anton	1.1	#! /usr/local/bin/bash
2 :			#test dist on all MACHINES given in MACHINES
3 :			#usage: MACHINES="..." testall dirs/gforth-version.tar.gz
4 :	anton	1.9	if test $# = 0; then
5 :			echo "usage: `basename $0` gforth-xxx.tar.gz"
6 :			exit 1
7 :			fi
8 :	anton	1.10	test "x$MACHINES" != x \|\|
9 :	anton	1.15	MACHINES="mips aertl@fpr.zserv.tuwien.ac.at \
10 :			b1 b2 b3 b4 c2 \
11 :	anton	1.10	samhain.ifs.tuwien.ac.at calis aertl@mail.zserv.tuwien.ac.at \
12 :	anton	1.15	aertl@stat.zserv.tuwien.ac.at \
13 :	anton	1.10	rlwinm.ifs.tuwien.ac.at fmadd.ifs.tuwien.ac.at lfsux.ifs.tuwien.ac.at \
14 :			s4addq.ifs.tuwien.ac.at \
15 :			128.130.204.24 128.130.204.25 128.130.204.26 \
16 :	anton	1.16	cdbook jupiter \
17 :			complang@red.a-business.co.at"
18 :	anton	1.15	#taken out: hpws03.infosys.tuwien.ac.at aertl@fbma.tuwien.ac.at w4.infosys.tuwien.ac.at d0 struppi pcs
19 :	anton	1.10	SSH_PROTOCOL=-oProtocol=1,2
20 :	anton	1.1	for i in $MACHINES
21 :			do
22 :	anton	1.15	if false; then
23 :			echo; echo $i
24 :			/usr/bin/ssh $SSH_PROTOCOL -x $i echo ok
25 :			else
26 :	anton	1.10	( ssh $SSH_PROTOCOL -q -x $i "test -d xxxgforthtest\|\|mkdir xxxgforthtest; cd xxxgforthtest; test -d $i\|\|mkdir $i; rm -rf $i/*" >$i 2>&1; \
27 :			scp $SSH_PROTOCOL -p -q $1 ../testdist $i:xxxgforthtest/$i >>$i 2>&1; \
28 :			ssh $SSH_PROTOCOL -q -x $i "cd xxxgforthtest/$i; ./testdist `basename $1`" >>$i 2>&1; \
29 :	anton	1.12	echo "$i done" "`tail -1 $i`") &
30 :	anton	1.15	fi
31 :	anton	1.1	done
32 :			wait
33 :			echo all done