sanitize out arc stuff
This commit is contained in:
parent
f8eccafb19
commit
d0bfd8ec2b
56
ld/.Sanitize
56
ld/.Sanitize
|
@ -135,6 +135,62 @@ else
|
|||
done
|
||||
fi
|
||||
|
||||
arc_files="ChangeLog configure.in configure"
|
||||
if ( echo $* | grep keep\-arc > /dev/null ) ; then
|
||||
for i in $arc_files ; do
|
||||
if test ! -d $i && (grep sanitize-arc $i > /dev/null) ; then
|
||||
if [ -n "${verbose}" ] ; then
|
||||
echo Keeping arc stuff in $i
|
||||
fi
|
||||
fi
|
||||
done
|
||||
else
|
||||
for i in $arc_files ; do
|
||||
if test ! -d $i && (grep sanitize-arc $i > /dev/null) ; then
|
||||
if [ -n "${verbose}" ] ; then
|
||||
echo Removing traces of \"arc\" from $i...
|
||||
fi
|
||||
cp $i new
|
||||
sed '/start\-sanitize\-arc/,/end-\sanitize\-arc/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
|
||||
|
||||
arc_files="ChangeLog configure.in Makefile.in"
|
||||
if ( echo $* | grep keep\-arc > /dev/null ) ; then
|
||||
for i in $arc_files ; do
|
||||
if test ! -d $i && (grep sanitize-arc $i > /dev/null) ; then
|
||||
if [ -n "${verbose}" ] ; then
|
||||
echo Keeping arc stuff in $i
|
||||
fi
|
||||
fi
|
||||
done
|
||||
else
|
||||
for i in $arc_files ; do
|
||||
if test ! -d $i && (grep sanitize-arc $i > /dev/null) ; then
|
||||
if [ -n "${verbose}" ] ; then
|
||||
echo Removing traces of \"arc\" from $i...
|
||||
fi
|
||||
cp $i new
|
||||
sed '/start\-sanitize\-arc/,/end-\sanitize\-arc/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
|
||||
|
||||
for i in * ; do
|
||||
if test ! -d $i && (grep sanitize $i > /dev/null) ; then
|
||||
echo '***' Some mentions of Sanitize are still left in $i! 1>&2
|
||||
|
|
Loading…
Reference in New Issue