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

        * .Sanitize: add Kernel Objects Display (a.k.a. KOD) sanitization.

diff --git a/gdb/.Sanitize b/gdb/.Sanitize
index bbdb084216a9c47a1d2958e8bca3dc3cebdcfa63..4a714721dd03d5947489754f5b1902bebb1b1068 100644 (file)
--- a/gdb/.Sanitize
+++ b/gdb/.Sanitize
@@ -29,6 +29,20 @@ else
        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
@@ -833,6 +847,33 @@ else
        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.