fi
fi
+kod_files="kod.c kodecosdll.c"
+
+if ( echo $* | grep keep\-kod > /dev/null ) ; then
+ keep_these_too="${kod_files} ${keep_these_too}"
+ if [ -n "${verbose}" ] ; then
+ echo Keeping ${kod_files}
+ fi
+else
+ lose_these_too="${kod_files} ${lose_these_too}"
+ if [ -n "${verbose}" ] ; then
+ echo Deleting ${kod_files}
+ fi
+fi
+
tic80_files="tic80-tdep.c"
if ( echo $* | grep keep\-tic80 > /dev/null ) ; then
a68v-nat.c
abug-rom.c
acconfig.h
-acinclude.m4
aclocal.m4
alpha-nat.c
alpha-tdep.c
done
fi
+if ( echo $* | grep keep\-kod > /dev/null ) ; then
+ for i in * ; do
+ if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then
+ if [ -n "${verbose}" ] ; then
+ echo Keeping kod stuff in $i
+ fi
+ fi
+ done
+else
+ for i in * ; do
+ if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then
+ if [ -n "${verbose}" ] ; then
+ echo Removing traces of \"kod\" from $i...
+ fi
+ cp $i new
+ sed '/start\-sanitize\-kod/,/end-\sanitize\-kod/d' < $i > new
+ if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
+ if [ -n "${verbose}" ] ; then
+ echo Caching $i in .Recover...
+ fi
+ mv $i .Recover
+ fi
+ mv new $i
+ fi
+ done
+fi
+
# This is a temporary measure to sanitize out references to the
# startup code need by the TclPro debugger. When that goes out
# of alpha, we can remove this.