File:  [gforth] / gforth / testall
Revision 1.16: download - view: text, annotated - select for diffs
Wed Aug 27 12:13:49 2003 UTC (20 years, 7 months ago) by anton
Branches: MAIN
CVS tags: HEAD
now an is-branch? field is generated engine/costs.i
fixed some typos in README
changed default threading scheme for generic machine

#! /usr/local/bin/bash
#test dist on all MACHINES given in MACHINES
#usage: MACHINES="..." testall dirs/gforth-version.tar.gz
if test $# = 0; then
  echo "usage: `basename $0` gforth-xxx.tar.gz"
  exit 1
fi
test "x$MACHINES" != x || 
MACHINES="mips aertl@fpr.zserv.tuwien.ac.at \
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
for i in $MACHINES
do
  if false; then
    echo; echo $i
    /usr/bin/ssh $SSH_PROTOCOL -x $i echo ok
  else
    ( 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; \
      ssh $SSH_PROTOCOL -q -x $i "cd xxxgforthtest/$i; ./testdist `basename $1`" >>$i 2>&1; \
      echo "$i done" "`tail -1 $i`") &
  fi
done
wait
echo all done

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>