#!	/bin/csh -f
#
# Copyright 1993, 1994, 1995 by the Regents of the University of California.
# see the file "Copyright" in the distribution for conditions of use.
#
#
#	remove a file or files
#
echo -n 'Enter names of files to be removed: '
set x = $<
foreach i ( $x )
	if( ! -e $i ) then
		echo File $i does not exist.
	else
retry:
		echo -n Do you really want to remove \"$i\"'? (y/n): '
		set x = $<
		set y = ( $x )
		if( $#y != 1 ) set x = "ERR"
		if( $x == "n" ) continue
		if( $x != "y" ) then
			echo '*** You must enter "y" or "n".'
			echo " "
			goto retry
		endif
		/bin/rm $i
	endif
end
