ph5

DIR_oe=$HOME/src/oeDIR_tmp=$DIR_oe/build/tmpDIR_sources=$DIR_oe/sourcesDIR_work=$DIR_tmp/workDIR_stamps=$DIR_tmp/stampsDIR_ipk=$DIR_tmp/deploy/ipkpackage_names() {	case $TARGET in	cvs)		ls *__*.gz | sed "s/\(.*\)__[^_]*$/\1/"		;;	ipk)		ls | sed "s/\(.*\)_[^_]*-r[0-9]*_.*\.ipk$/\1/"		;;	sources)		ls *-*.{gz,bz2} | sed "s/\(.*\)-[^-]*$/\1/"		;;	work)		ls | sed "s/\(.*\)-[^-]*-r[0-9]*$/\1/"		;;	esac}list_package() {	case $TARGET in	cvs)		ls -d ${PACKAGE}__*.gz		;;	ipk)		ls ${PACKAGE}_*-r*_*.ipk		;;	sources)		ls -d $1-*.{gz,bz2} 2> /dev/null		;;	work)		ls -d ${PACKAGE}-*		;;	esac}clean_target() {	case $TARGET in	cvs|sources)		DIR=$DIR_sources		;;	ipk)		DIR=$DIR_ipk		;;	work)		DIR=$DIR_work		;;	stamps)		pushd $DIR_stamps > /dev/null		ls *.do_* | sed "s/\(.*-[^-]*-r[0-9]*\)\.do_\(.*\)/\1 \2/" \		| while read DIR COMMAND; do			[ -d ../work/$DIR ] || {				echo removing stale $DIR.do_$COMMAND				rm $DIR.do_$COMMAND			}		done		popd > /dev/null		exit 0		;;	esac	pushd $DIR > /dev/null	package_names | uniq -c | grep -v "^      1" | while read NUM PACKAGE ; do		echo "$NUM versions of $PACKAGE:"		for p in `list_package $PACKAGE | head -n $(($NUM-1))`; do			echo "     deleting $p"			rm -r $p		done		echo "     keeping " $(list_package $PACKAGE)	done	if [ "$TARGET" = "sources" ]; then		ls *.md5 | while read MD5; do			[ -f $(basename $MD5 .md5) ] || {				echo removing stale $MD5				rm $MD5			}		done	fi	popd > /dev/null}case $1 inipk|work|stamps)	TARGET=$1	clean_target	;;sources)	TARGET=sources	clean_target	TARGET=cvs	clean_target	;;*)	echo Usage: $0 '{ipk|sources|work|stamps}'	;;esacexit 0