#!/bin/csh -fx
if ($#argv == 1) then
    if (-d $argv[1]) then
	cd $argv[1]
    else
	echo "No such directory: $argv[1]"
	echo "Usage: mothball [directory]"
	exit (1)
    endif
else if ($#argv == 0) then
    
else
    echo "Usage: mothball [directory]"
    exit (1)
endif
rm -f ./xkernel
set nonomatch
rm -f {DEBUG,OPTIMIZE}{sun,sun3,vax}/*.o
rm -f User/*.o User/user

foreach i (*.h)
    if { isasymlink $i } then
	rm $i
    endif
end
rm -f protocols.[ch]

ed - Makefile << THEEND
/DO NOT DELETE THIS LINE -- make depend uses it/+1,\$d
\$a

.
w
q
THEEND

echo "Deleting ..."
/usr/bin/find . \
	      \( \
		-name '*.ckp' -o \
		-name '.*~' -o \
		-name '*~' -o \
		-name '#*' -o \
		-name '*.bak' -o \
		-name '.*.ckp' -o \
		-name '.*.bak' -o \
		-name '*.BAK' -o \
		-name '.*.BAK' -o \
		-name '.BK.*' -o \
		-name '.CK.*' -o \
		-name core -o \
		-name '.emacs_[0-9]*' \) \
	-print -exec /bin/rm -f {} \;
