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:
parent
02c548d743
commit
a68e7120b1
|
@ -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.
|
||||||
|
|
Loading…
Reference in New Issue