Return to testall CVS log | Up to [gforth] / gforth |
portability changes bugfixes in prims2x.fs, kernel/int.fs
1: #! /usr/local/bin/bash 2: #test dist on all MACHINES given in MACHINES 3: #usage: MACHINES="..." testall dirs/gforth-version.tar.gz 4: if test $# = 0; then 5: echo "usage: `basename $0` gforth-xxx.tar.gz" 6: exit 1 7: fi 8: test "x$MACHINES" != x || 9: MACHINES="pcs d0 mips aertl@fpr.zserv.tuwien.ac.at \ 10: b1 b2 b3 b4 struppi \ 11: samhain.ifs.tuwien.ac.at calis aertl@mail.zserv.tuwien.ac.at \ 12: rlwinm.ifs.tuwien.ac.at fmadd.ifs.tuwien.ac.at lfsux.ifs.tuwien.ac.at \ 13: s4addq.ifs.tuwien.ac.at \ 14: 128.130.204.24 128.130.204.25 128.130.204.26 \ 15: 128.130.173.38" 16: #taken out: hpws03.infosys.tuwien.ac.at aertl@fbma.tuwien.ac.at w4.infosys.tuwien.ac.at jupiter aertl@stat.zserv.tuwien.ac.at c2.complang.tuwien.ac.at 17: SSH_PROTOCOL=-oProtocol=1,2 18: for i in $MACHINES 19: do 20: # echo; echo $i 21: # /usr/bin/ssh $SSH_PROTOCOL -x $i echo ok 22: ( ssh $SSH_PROTOCOL -q -x $i "test -d xxxgforthtest||mkdir xxxgforthtest; cd xxxgforthtest; test -d $i||mkdir $i; rm -rf $i/*" >$i 2>&1; \ 23: scp $SSH_PROTOCOL -p -q $1 ../testdist $i:xxxgforthtest/$i >>$i 2>&1; \ 24: ssh $SSH_PROTOCOL -q -x $i "cd xxxgforthtest/$i; ./testdist `basename $1`" >>$i 2>&1; \ 25: echo "$i done" "`tail -1 $i`") & 26: done 27: wait 28: echo all done