ack/distr/dwalk

: ${CDIR=.}
if [ $# = 1 ]
then
	${DD-:} $CDIR $1
else
	${DD-:} $CDIR
fi
${DF-:} $CDIR .distr
if test ! -r $DESTDIR/$CDIR/.distr
then
	echo ++ no .distr in $CDIR 1>&2
        exit 0
fi
for i in `cat $DESTDIR/$CDIR/.distr`
do
        if test -d $i
        then
                ( if cd $i
		  then 
			CDIR=$CDIR/$i
			export CDIR
			exec $DDIR/dwalk $*
		  else
			echo ++ Could not access $CDIR/$i 1>&2
		  fi
		)
	else
		${DF-:} $CDIR $i
        fi
done