Correct sanitation for tx49.
authorGavin Romig-Koch <gavin@redhat.com>
Mon, 3 Nov 1997 19:44:49 +0000 (19:44 +0000)
committerGavin Romig-Koch <gavin@redhat.com>
Mon, 3 Nov 1997 19:44:49 +0000 (19:44 +0000)
gas/testsuite/.Sanitize

index 5b66057..9fe9209 100644 (file)
@@ -128,4 +128,32 @@ else
        done
 fi
 
+tx49_files="ChangeLog"
+if ( echo $* | grep keep\-tx49 > /dev/null ) ; then
+       for i in $tx49_files ; do
+               if test ! -d $i && (grep sanitize-tx49 $i > /dev/null) ; then
+                       if [ -n "${verbose}" ] ; then
+                               echo Keeping tx49 stuff in $i
+                       fi
+               fi
+       done
+else
+       for i in $tx49_files ; do
+               if test ! -d $i && (grep sanitize-tx49 $i > /dev/null) ; then
+                       if [ -n "${verbose}" ] ; then
+                               echo Removing traces of \"tx49\" from $i...
+                       fi
+                       cp $i new
+                       sed '/start\-sanitize\-tx49/,/end-\sanitize\-tx49/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
+
 # End of file.