Plan 9 from Bell Labs’s /usr/web/sources/contrib/stallion/rc/saferemove

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


#!/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 ''

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].