#!/bin/rc
# saferemove - remove copies created by safeinstall

rfork en

fn usage {
	echo >[1=2] usage: saferemove [-n] [path]
	exit usage
}

nflag=0
while(~ $1 -*){
	switch($1){
	case -n
		nflag=1
	case *
		usage
	}
	shift
}

for(f in `{du -af $* |awk '{print $2}'}){
	targ=`{basename -d $f}^/_^`{basename $f}
	if(test -e $targ){
		echo $targ
		if(~ $nflag 0)
			rm $targ
	}
}
exit ''