1999-01-15 Fernando Nasser <fnasser@totem.to.cygnus.com>

* .Sanitize: add Kernel Objects Display (a.k.a. KOD) sanitization.
This commit is contained in:
Fernando Nasser 1999-01-15 16:22:07 +00:00
parent 02c548d743
commit a68e7120b1
1 changed files with 41 additions and 0 deletions

View File

@ -29,6 +29,20 @@ else
fi fi
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" tic80_files="tic80-tdep.c"
if ( echo $* | grep keep\-tic80 > /dev/null ) ; then if ( echo $* | grep keep\-tic80 > /dev/null ) ; then
@ -833,6 +847,33 @@ else
done done
fi 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 # This is a temporary measure to sanitize out references to the
# startup code need by the TclPro debugger. When that goes out # startup code need by the TclPro debugger. When that goes out
# of alpha, we can remove this. # of alpha, we can remove this.