1985-04-14 23:26:24 +00:00
|
|
|
: ${CDIR=.}
|
1988-08-01 09:00:03 +00:00
|
|
|
if [ $# = 1 ]
|
|
|
|
then
|
|
|
|
${DD-:} $CDIR $1
|
|
|
|
else
|
|
|
|
${DD-:} $CDIR
|
|
|
|
fi
|
1988-04-08 12:50:10 +00:00
|
|
|
${DF-:} $CDIR .distr
|
|
|
|
if test ! -r $DESTDIR/$CDIR/.distr
|
1988-08-01 09:00:03 +00:00
|
|
|
then
|
|
|
|
( cd $DESTDIR/$CDIR; make .distr ) >/dev/null 2>&1
|
|
|
|
fi
|
|
|
|
if test ! -r $DESTDIR/$CDIR/.distr
|
1985-04-14 23:26:24 +00:00
|
|
|
then
|
|
|
|
echo ++ no .distr in $CDIR
|
|
|
|
exit 0
|
|
|
|
fi
|
1988-04-08 12:50:10 +00:00
|
|
|
for i in `cat $DESTDIR/$CDIR/.distr`
|
1985-04-14 23:26:24 +00:00
|
|
|
do
|
|
|
|
if test -d $i
|
|
|
|
then
|
|
|
|
( if cd $i
|
|
|
|
then
|
|
|
|
CDIR=$CDIR/$i
|
|
|
|
export CDIR
|
1988-08-01 09:00:03 +00:00
|
|
|
exec /proj/em/Work/distr/dwalk $*
|
1985-04-14 23:26:24 +00:00
|
|
|
else
|
|
|
|
echo ++ Could not access $CDIR/$i
|
|
|
|
fi
|
|
|
|
)
|
|
|
|
else
|
|
|
|
${DF-:} $CDIR $i
|
|
|
|
fi
|
|
|
|
done
|