c98fe0c119
trunk. To build it, you will have to do update -dP in the itcl directory, and update tcl, tk, tix and libgui as well.
948 lines
18 KiB
Text
948 lines
18 KiB
Text
# .Sanitize for devo/gdb.
|
|
|
|
# Each directory to survive its way into a release will need a file
|
|
# like this one called "./.Sanitize". All keyword lines must exist,
|
|
# and must exist in the order specified by this file. Each directory
|
|
# in the tree will be processed, top down, in the following order.
|
|
|
|
# Hash started lines like this one are comments and will be deleted
|
|
# before anything else is done. Blank lines will also be squashed
|
|
# out.
|
|
|
|
# The lines between the "Do-first:" line and the "Things-to-keep:"
|
|
# line are executed as a /bin/sh shell script before anything else is
|
|
# done in this directory.
|
|
|
|
Do-first:
|
|
|
|
gdbtk_files="ChangeLog-gdbtk README.GDBTK gdbtk.c gdbtk.h gdbtk-cmds.c gdbtk-hooks.c gdbtk-wrapper.c gdbtk-wrapper.h gdbtk-variable.c gdbtcl2 gdb.rc gdbtool.ico"
|
|
|
|
if ( echo $* | grep lose\-gdbtk > /dev/null ) ; then
|
|
lose_these_too="${gdbtk_files} ${lose_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Deleting ${gdbtk_files}
|
|
fi
|
|
else
|
|
keep_these_too="${gdbtk_files} ${keep_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping ${gdbtk_files}
|
|
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
|
|
keep_these_too="${tic80_files} ${keep_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping ${tic80_files}
|
|
fi
|
|
else
|
|
lose_these_too="${tic80_files} ${lose_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Deleting ${tic80_files}
|
|
fi
|
|
fi
|
|
|
|
sky_files="txvu-tdep.c"
|
|
|
|
if ( echo $* | grep keep\-sky > /dev/null ) ; then
|
|
keep_these_too="${sky_files} ${keep_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping ${sky_files}
|
|
fi
|
|
else
|
|
lose_these_too="${sky_files} ${lose_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Deleting ${sky_files}
|
|
fi
|
|
fi
|
|
|
|
java_files="jv-exp.y jv-lang.c jv-lang.h jv-typeprint.c jv-valprint.c"
|
|
|
|
if ( echo $* | grep keep\-java > /dev/null ) ; then
|
|
keep_these_too="${java_files} ${keep_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping ${java_files}
|
|
fi
|
|
else
|
|
lose_these_too="${java_files} ${lose_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Deleting ${java_files}
|
|
fi
|
|
fi
|
|
|
|
vr4111_files="nec4102rom.c"
|
|
|
|
if ( echo $* | grep keep\-vr4111 > /dev/null ) ; then
|
|
keep_these_too="${vr4111_files} ${keep_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping ${vr4111_files}
|
|
fi
|
|
else
|
|
lose_these_too="${vr4111_files} ${lose_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Deleting ${vr4111_files}
|
|
fi
|
|
fi
|
|
|
|
carp_files="carp-tdep.c"
|
|
|
|
if ( echo $* | grep keep\-carp > /dev/null ) ; then
|
|
keep_these_too="${carp_files} ${keep_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping ${carp_files}
|
|
fi
|
|
else
|
|
lose_these_too="${carp_files} ${lose_these_too}"
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Deleting ${carp_files}
|
|
fi
|
|
fi
|
|
|
|
# All files listed between the "Things-to-keep:" line and the
|
|
# "Files-to-sed:" line will be kept. All other files will be removed.
|
|
# Directories listed in this section will have their own Sanitize
|
|
# called. Directories not listed will be removed in their entirety
|
|
# with rm -rf.
|
|
|
|
Things-to-keep:
|
|
|
|
29k-share
|
|
COPYING
|
|
ChangeLog
|
|
ChangeLog-3.x
|
|
ChangeLog-9091
|
|
ChangeLog-92
|
|
ChangeLog-93
|
|
ChangeLog-94
|
|
ChangeLog-95
|
|
ChangeLog-96
|
|
ChangeLog-97
|
|
ChangeLog-98
|
|
Makefile.in
|
|
NEWS
|
|
README
|
|
TODO
|
|
a29k-tdep.c
|
|
a68v-nat.c
|
|
abug-rom.c
|
|
acconfig.h
|
|
acinclude.m4
|
|
aclocal.m4
|
|
alpha-nat.c
|
|
alpha-tdep.c
|
|
altos-xdep.c
|
|
annotate.c
|
|
annotate.h
|
|
arc-tdep.c
|
|
arm-convert.s
|
|
arm-tdep.c
|
|
arm-xdep.c
|
|
ax-gdb.c
|
|
ax-gdb.h
|
|
ax-general.c
|
|
ax.h
|
|
bcache.c
|
|
bcache.h
|
|
blockframe.c
|
|
breakpoint.c
|
|
breakpoint.h
|
|
buildsym.c
|
|
buildsym.h
|
|
c-exp.y
|
|
c-lang.c
|
|
c-lang.h
|
|
c-typeprint.c
|
|
c-valprint.c
|
|
call-cmds.h
|
|
ch-exp.c
|
|
ch-lang.c
|
|
ch-lang.h
|
|
ch-typeprint.c
|
|
ch-valprint.c
|
|
coff-solib.c
|
|
coff-solib.h
|
|
coffread.c
|
|
command.c
|
|
command.h
|
|
complaints.c
|
|
complaints.h
|
|
config
|
|
config.in
|
|
configure
|
|
configure.host
|
|
configure.in
|
|
configure.tgt
|
|
convex-tdep.c
|
|
convex-xdep.c
|
|
copying.awk
|
|
copying.c
|
|
core-aout.c
|
|
core-regset.c
|
|
core-sol2.c
|
|
corefile.c
|
|
corelow.c
|
|
cp-valprint.c
|
|
cpu32bug-rom.c
|
|
cxux-nat.c
|
|
d10v-tdep.c
|
|
d30v-tdep.c
|
|
dbug-rom.c
|
|
dbxread.c
|
|
dcache.c
|
|
dcache.h
|
|
debugify.c
|
|
debugify.h
|
|
defs.h
|
|
delta68-nat.c
|
|
demangle.c
|
|
dink32-rom.c
|
|
doc
|
|
dpx2-nat.c
|
|
dsrec.c
|
|
dst.h
|
|
dstread.c
|
|
dve3900-rom.c
|
|
dwarf2read.c
|
|
dwarfread.c
|
|
elfread.c
|
|
environ.c
|
|
environ.h
|
|
eval.c
|
|
exc_request.defs
|
|
exec.c
|
|
expprint.c
|
|
expression.h
|
|
f-exp.y
|
|
f-lang.c
|
|
f-lang.h
|
|
f-typeprint.c
|
|
f-valprint.c
|
|
findvar.c
|
|
fork-child.c
|
|
fr30-tdep.c
|
|
frame.h
|
|
gdb-stabs.h
|
|
gdb.1
|
|
gdb.gdb
|
|
gdb_stat.h
|
|
gdb_string.h
|
|
gdba.el
|
|
gdbarch.c
|
|
gdbarch.h
|
|
gdbcmd.h
|
|
gdbcore.h
|
|
gdbinit.in
|
|
gdbserver
|
|
gdbthread.h
|
|
gdbtypes.c
|
|
gdbtypes.h
|
|
gnu-nat.c
|
|
gnu-nat.h
|
|
gnu-regex.c
|
|
gnu-regex.h
|
|
go32-xdep.c
|
|
gould-tdep.c
|
|
gould-xdep.c
|
|
h8300-tdep.c
|
|
h8500-tdep.c
|
|
hp-psymtab-read.c
|
|
hp-symtab-read.c
|
|
hp300ux-nat.c
|
|
hppa-tdep.c
|
|
hppab-nat.c
|
|
hppah-nat.c
|
|
hppam3-nat.c
|
|
hpread.c
|
|
hpread.h
|
|
hpux-thread.c
|
|
i386-stub.c
|
|
i386-tdep.c
|
|
i386aix-nat.c
|
|
i386b-nat.c
|
|
i386gnu-nat.c
|
|
i386ly-tdep.c
|
|
i386m3-nat.c
|
|
i386mach-nat.c
|
|
i386v-nat.c
|
|
i386v4-nat.c
|
|
i387-tdep.c
|
|
i960-tdep.c
|
|
infcmd.c
|
|
inferior.h
|
|
inflow.c
|
|
infptrace.c
|
|
infrun.c
|
|
inftarg.c
|
|
infttrace.c
|
|
irix4-nat.c
|
|
irix5-nat.c
|
|
isi-xdep.c
|
|
kdb-start.c
|
|
language.c
|
|
language.h
|
|
lynx-nat.c
|
|
m2-exp.y
|
|
m2-lang.c
|
|
m2-lang.h
|
|
m2-typeprint.c
|
|
m2-valprint.c
|
|
m3-nat.c
|
|
m32r-rom.c
|
|
m32r-stub.c
|
|
m32r-tdep.c
|
|
m68k-stub.c
|
|
m68k-tdep.c
|
|
m68klinux-nat.c
|
|
m68knbsd-nat.c
|
|
m88k-nat.c
|
|
m88k-tdep.c
|
|
mac-defs.h
|
|
mac-gdb.r
|
|
mac-nat.c
|
|
mac-xdep.c
|
|
main.c
|
|
maint.c
|
|
mdebugread.c
|
|
mem-break.c
|
|
minimon.h
|
|
minsyms.c
|
|
mips-nat.c
|
|
mips-tdep.c
|
|
mipsm3-nat.c
|
|
mipsread.c
|
|
mipsv4-nat.c
|
|
mn10200-tdep.c
|
|
mn10300-tdep.c
|
|
mon960-rom.c
|
|
monitor.c
|
|
monitor.h
|
|
mpw-config.in
|
|
mpw-make.sed
|
|
msg.defs
|
|
msg_reply.defs
|
|
news-xdep.c
|
|
nindy-share
|
|
nindy-tdep.c
|
|
nlm
|
|
nlmread.c
|
|
notify.defs
|
|
ns32k-tdep.c
|
|
ns32km3-nat.c
|
|
ns32knbsd-nat.c
|
|
objfiles.c
|
|
objfiles.h
|
|
ocd.c
|
|
ocd.h
|
|
op50-rom.c
|
|
os9kread.c
|
|
osf-share
|
|
osfsolib.c
|
|
parse.c
|
|
parser-defs.h
|
|
partial-stab.h
|
|
ppc-bdm.c
|
|
ppcbug-rom.c
|
|
printcmd.c
|
|
process_reply.defs
|
|
procfs.c
|
|
ptx4-nat.c
|
|
pyr-tdep.c
|
|
pyr-xdep.c
|
|
rdi-share
|
|
remote-adapt.c
|
|
remote-array.c
|
|
remote-bug.c
|
|
remote-d10v.c
|
|
remote-e7000.c
|
|
remote-eb.c
|
|
remote-es.c
|
|
remote-est.c
|
|
remote-hms.c
|
|
remote-mips.c
|
|
remote-mm.c
|
|
remote-nindy.c
|
|
remote-nrom.c
|
|
remote-os9k.c
|
|
remote-rdi.c
|
|
remote-rdp.c
|
|
remote-sds.c
|
|
remote-sim.c
|
|
remote-st.c
|
|
remote-udi.c
|
|
remote-utils.c
|
|
remote-utils.h
|
|
remote-vx.c
|
|
remote-vx29k.c
|
|
remote-vx68.c
|
|
remote-vx960.c
|
|
remote-vxmips.c
|
|
remote-vxsparc.c
|
|
remote.c
|
|
reply_mig_hack.awk
|
|
rom68k-rom.c
|
|
rs6000-nat.c
|
|
rs6000-tdep.c
|
|
saber.suppress
|
|
scm-exp.c
|
|
scm-lang.c
|
|
scm-lang.h
|
|
scm-tags.h
|
|
scm-valprint.c
|
|
ser-e7kpc.c
|
|
ser-go32.c
|
|
ser-mac.c
|
|
ser-ocd.c
|
|
ser-tcp.c
|
|
ser-unix.c
|
|
serial.c
|
|
serial.h
|
|
sh-stub.c
|
|
sh-tdep.c
|
|
sh3-rom.c
|
|
signals.h
|
|
sol-thread.c
|
|
solib.c
|
|
solib.h
|
|
somread.c
|
|
somsolib.c
|
|
somsolib.h
|
|
source.c
|
|
sparc-nat.c
|
|
sparc-stub.c
|
|
sparc-tdep.c
|
|
sparcl-stub.c
|
|
sparcl-tdep.c
|
|
sparclet-rom.c
|
|
sparclet-stub.c
|
|
srec.h
|
|
stabsread.c
|
|
stabsread.h
|
|
stack.c
|
|
standalone.c
|
|
stop-gdb.c
|
|
stuff.c
|
|
sun3-nat.c
|
|
sun386-nat.c
|
|
symfile.c
|
|
symfile.h
|
|
symm-nat.c
|
|
symm-tdep.c
|
|
symmisc.c
|
|
symtab.c
|
|
symtab.h
|
|
tahoe-tdep.c
|
|
target.c
|
|
target.h
|
|
terminal.h
|
|
testsuite
|
|
thread.c
|
|
top.c
|
|
top.h
|
|
tracepoint.c
|
|
tracepoint.h
|
|
tui
|
|
typeprint.c
|
|
typeprint.h
|
|
ultra3-nat.c
|
|
ultra3-xdep.c
|
|
umax-xdep.c
|
|
utils.c
|
|
v850-tdep.c
|
|
v850ice.c
|
|
valarith.c
|
|
valops.c
|
|
valprint.c
|
|
valprint.h
|
|
value.h
|
|
values.c
|
|
vax-tdep.c
|
|
vx-share
|
|
w65-tdep.c
|
|
w89k-rom.c
|
|
win32-nat.c
|
|
xcoffread.c
|
|
xcoffsolib.c
|
|
xcoffsolib.h
|
|
xmodem.c
|
|
xmodem.h
|
|
z8k-tdep.c
|
|
|
|
# Things which are explicitly *not* kept, for now.
|
|
|
|
Things-to-lose:
|
|
|
|
GDB-HACK-RULES
|
|
HOW_TO_RELEASE
|
|
gdbcfgxref
|
|
|
|
Do-last:
|
|
|
|
# Don't try to clean directories here, as the 'mv' command will fail.
|
|
# Also, grep fails on NFS mounted directories.
|
|
if ( echo $* | grep lose\-gdbtk > /dev/null ) ; then
|
|
echo Catering to RMS by removing traces of \"gdbtk\"...
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-gdbtk $i > /dev/null) ; then
|
|
echo Removing traces of \"gdbtk\" out of $i...
|
|
cp $i new
|
|
sed '/start\-sanitize\-gdbtk/,/end-\sanitize\-gdbtk/d' < $i > new
|
|
if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
|
|
echo Caching $i in .Recover...
|
|
mv $i .Recover
|
|
fi
|
|
mv new $i
|
|
fi
|
|
done
|
|
else
|
|
echo Leaving \"gdbtk\" in the sources...
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-gdbtk $i > /dev/null) ; then
|
|
echo Keeping \"gdbtk\" stuff in $i, but editing out sanitize lines...
|
|
cp $i new
|
|
sed -e '/start\-sanitize\-gdbtk/d' -e '/end\-sanitize\-gdbtk/d' < $i > new
|
|
if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
|
|
echo Caching $i in .Recover...
|
|
mv $i .Recover
|
|
fi
|
|
mv new $i
|
|
fi
|
|
done
|
|
fi
|
|
|
|
if ( echo $* | grep keep\-v850e > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-v850e $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping v850e stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-v850e $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"v850e\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-v850e/,/end-\sanitize\-v850e/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
|
|
|
|
if ( echo $* | grep keep\-vr4xxx > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-vr4xxx $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping vr4xxx stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-vr4xxx $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"vr4xxx\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-vr4xxx/,/end-\sanitize\-vr4xxx/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
|
|
|
|
if ( echo $* | grep keep\-vr4320 > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-vr4320 $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping vr4320 stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-vr4320 $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"vr4320\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-vr4320/,/end-\sanitize\-vr4320/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
|
|
|
|
if ( echo $* | grep keep\-r5900 > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-r5900 $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping r5900 stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-r5900 $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"r5900\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-r5900/,/end-\sanitize\-r5900/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
|
|
|
|
if ( echo $* | grep keep\-tx19 > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-tx19 $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping tx19 stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-tx19 $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"tx19\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-tx19/,/end-\sanitize\-tx19/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
|
|
|
|
if ( echo $* | grep keep\-tx49 > /dev/null ) ; then
|
|
for i in * ; 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 * ; 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
|
|
|
|
if ( echo $* | grep keep\-sky > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-sky $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping sky stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-sky $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"sky\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-sky/,/end-\sanitize\-sky/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
|
|
|
|
if ( echo $* | grep keep\-cygnus > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-cygnus $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping cygnus stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-cygnus $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"cygnus\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-cygnus/,/end-\sanitize\-cygnus/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
|
|
|
|
if ( echo $* | grep keep\-tic80 > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-tic80 $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping tic80 stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-tic80 $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"tic80\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-tic80/,/end-\sanitize\-tic80/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
|
|
|
|
if ( echo $* | grep keep\-vr4111 > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-vr4111 $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping vr4111 stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-vr4111 $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"vr4111\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-vr4111/,/end-\sanitize\-vr4111/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
|
|
|
|
if ( echo $* | grep keep\-ide > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-ide $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping ide stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-ide $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"ide\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-ide/,/end-\sanitize\-ide/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
|
|
|
|
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.
|
|
|
|
if ( echo $* | grep keep\-tclpro > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-tclpro $i > /dev/null) ; then
|
|
echo Keeping \"tclpro\" stuff in $i, but editing out sanitize lines...
|
|
cp $i new
|
|
sed -e '/start\-sanitize\-tclpro/d' -e '/end\-sanitize\-tclpro/d' < $i > new
|
|
if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
|
|
echo Caching $i in .Recover...
|
|
mv $i .Recover
|
|
fi
|
|
mv new $i
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-tclpro $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"tclpro\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-tclpro/,/end-\sanitize\-tclpro/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
|
|
|
|
if ( echo $* | grep keep\-java > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-java $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping java stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-java $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"java\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-java/,/end-\sanitize\-java/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
|
|
|
|
if ( echo $* | grep keep\-carp > /dev/null ) ; then
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-carp $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Keeping carp stuff in $i
|
|
fi
|
|
fi
|
|
done
|
|
else
|
|
for i in * ; do
|
|
if test ! -d $i && (grep sanitize-carp $i > /dev/null) ; then
|
|
if [ -n "${verbose}" ] ; then
|
|
echo Removing traces of \"carp\" from $i...
|
|
fi
|
|
cp $i new
|
|
sed '/start\-sanitize\-carp/,/end-\sanitize\-carp/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
|
|
fi
|
|
done
|
|
|
|
#
|
|
# End of file.
|