This is the merge of the Itcl3.0 gdbtk development branch into the
[external/binutils.git] / gdb / .Sanitize
1 # .Sanitize for devo/gdb.
2
3 # Each directory to survive its way into a release will need a file
4 # like this one called "./.Sanitize".  All keyword lines must exist,
5 # and must exist in the order specified by this file.  Each directory
6 # in the tree will be processed, top down, in the following order.
7
8 # Hash started lines like this one are comments and will be deleted
9 # before anything else is done.  Blank lines will also be squashed
10 # out.
11
12 # The lines between the "Do-first:" line and the "Things-to-keep:"
13 # line are executed as a /bin/sh shell script before anything else is
14 # done in this directory.
15
16 Do-first:
17
18 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"
19
20 if ( echo $* | grep lose\-gdbtk > /dev/null ) ; then
21         lose_these_too="${gdbtk_files} ${lose_these_too}"
22         if [ -n "${verbose}" ] ; then
23                 echo Deleting ${gdbtk_files}
24         fi
25 else
26         keep_these_too="${gdbtk_files} ${keep_these_too}"
27         if [ -n "${verbose}" ] ; then
28                 echo Keeping ${gdbtk_files}
29         fi
30 fi
31
32 kod_files="kod.c kodecosdll.c"
33
34 if ( echo $* | grep keep\-kod > /dev/null ) ; then
35         keep_these_too="${kod_files} ${keep_these_too}"
36         if [ -n "${verbose}" ] ; then
37                 echo Keeping ${kod_files}
38         fi
39 else
40         lose_these_too="${kod_files} ${lose_these_too}"
41         if [ -n "${verbose}" ] ; then
42                 echo Deleting ${kod_files}
43         fi
44 fi
45
46 tic80_files="tic80-tdep.c"
47
48 if ( echo $* | grep keep\-tic80 > /dev/null ) ; then
49         keep_these_too="${tic80_files} ${keep_these_too}"
50         if [ -n "${verbose}" ] ; then
51                 echo Keeping ${tic80_files}
52         fi
53 else
54         lose_these_too="${tic80_files} ${lose_these_too}"
55         if [ -n "${verbose}" ] ; then
56                 echo Deleting ${tic80_files}
57         fi
58 fi
59
60 sky_files="txvu-tdep.c"
61
62 if ( echo $* | grep keep\-sky > /dev/null ) ; then
63         keep_these_too="${sky_files} ${keep_these_too}"
64         if [ -n "${verbose}" ] ; then
65                 echo Keeping ${sky_files}
66         fi
67 else
68         lose_these_too="${sky_files} ${lose_these_too}"
69         if [ -n "${verbose}" ] ; then
70                 echo Deleting ${sky_files}
71         fi
72 fi
73
74 java_files="jv-exp.y jv-lang.c jv-lang.h jv-typeprint.c jv-valprint.c"
75
76 if ( echo $* | grep keep\-java > /dev/null ) ; then
77         keep_these_too="${java_files} ${keep_these_too}"
78         if [ -n "${verbose}" ] ; then
79                 echo Keeping ${java_files}
80         fi
81 else
82         lose_these_too="${java_files} ${lose_these_too}"
83         if [ -n "${verbose}" ] ; then
84                 echo Deleting ${java_files}
85         fi
86 fi
87
88 vr4111_files="nec4102rom.c"
89
90 if ( echo $* | grep keep\-vr4111 > /dev/null ) ; then
91         keep_these_too="${vr4111_files} ${keep_these_too}"
92         if [ -n "${verbose}" ] ; then
93                 echo Keeping ${vr4111_files}
94         fi
95 else
96         lose_these_too="${vr4111_files} ${lose_these_too}"
97         if [ -n "${verbose}" ] ; then
98                 echo Deleting ${vr4111_files}
99         fi
100 fi
101
102 carp_files="carp-tdep.c"
103
104 if ( echo $* | grep keep\-carp > /dev/null ) ; then
105         keep_these_too="${carp_files} ${keep_these_too}"
106         if [ -n "${verbose}" ] ; then
107                 echo Keeping ${carp_files}
108         fi
109 else
110         lose_these_too="${carp_files} ${lose_these_too}"
111         if [ -n "${verbose}" ] ; then
112                 echo Deleting ${carp_files}
113         fi
114 fi
115
116 # All files listed between the "Things-to-keep:" line and the
117 # "Files-to-sed:" line will be kept.  All other files will be removed.
118 # Directories listed in this section will have their own Sanitize
119 # called.  Directories not listed will be removed in their entirety
120 # with rm -rf.
121
122 Things-to-keep:
123
124 29k-share
125 COPYING
126 ChangeLog
127 ChangeLog-3.x
128 ChangeLog-9091
129 ChangeLog-92
130 ChangeLog-93
131 ChangeLog-94
132 ChangeLog-95
133 ChangeLog-96
134 ChangeLog-97
135 ChangeLog-98
136 Makefile.in
137 NEWS
138 README
139 TODO
140 a29k-tdep.c
141 a68v-nat.c
142 abug-rom.c
143 acconfig.h
144 acinclude.m4
145 aclocal.m4
146 alpha-nat.c
147 alpha-tdep.c
148 altos-xdep.c
149 annotate.c
150 annotate.h
151 arc-tdep.c
152 arm-convert.s
153 arm-tdep.c
154 arm-xdep.c
155 ax-gdb.c
156 ax-gdb.h
157 ax-general.c
158 ax.h
159 bcache.c
160 bcache.h
161 blockframe.c
162 breakpoint.c
163 breakpoint.h
164 buildsym.c
165 buildsym.h
166 c-exp.y
167 c-lang.c
168 c-lang.h
169 c-typeprint.c
170 c-valprint.c
171 call-cmds.h
172 ch-exp.c
173 ch-lang.c
174 ch-lang.h
175 ch-typeprint.c
176 ch-valprint.c
177 coff-solib.c
178 coff-solib.h
179 coffread.c
180 command.c
181 command.h
182 complaints.c
183 complaints.h
184 config
185 config.in
186 configure
187 configure.host
188 configure.in
189 configure.tgt
190 convex-tdep.c
191 convex-xdep.c
192 copying.awk
193 copying.c
194 core-aout.c
195 core-regset.c
196 core-sol2.c
197 corefile.c
198 corelow.c
199 cp-valprint.c
200 cpu32bug-rom.c
201 cxux-nat.c
202 d10v-tdep.c
203 d30v-tdep.c
204 dbug-rom.c
205 dbxread.c
206 dcache.c
207 dcache.h
208 debugify.c
209 debugify.h
210 defs.h
211 delta68-nat.c
212 demangle.c
213 dink32-rom.c
214 doc
215 dpx2-nat.c
216 dsrec.c
217 dst.h
218 dstread.c
219 dve3900-rom.c
220 dwarf2read.c
221 dwarfread.c
222 elfread.c
223 environ.c
224 environ.h
225 eval.c
226 exc_request.defs
227 exec.c
228 expprint.c
229 expression.h
230 f-exp.y
231 f-lang.c
232 f-lang.h
233 f-typeprint.c
234 f-valprint.c
235 findvar.c
236 fork-child.c
237 fr30-tdep.c
238 frame.h
239 gdb-stabs.h
240 gdb.1
241 gdb.gdb
242 gdb_stat.h
243 gdb_string.h
244 gdba.el
245 gdbarch.c
246 gdbarch.h
247 gdbcmd.h
248 gdbcore.h
249 gdbinit.in
250 gdbserver
251 gdbthread.h
252 gdbtypes.c
253 gdbtypes.h
254 gnu-nat.c
255 gnu-nat.h
256 gnu-regex.c
257 gnu-regex.h
258 go32-xdep.c
259 gould-tdep.c
260 gould-xdep.c
261 h8300-tdep.c
262 h8500-tdep.c
263 hp-psymtab-read.c
264 hp-symtab-read.c
265 hp300ux-nat.c
266 hppa-tdep.c
267 hppab-nat.c
268 hppah-nat.c
269 hppam3-nat.c
270 hpread.c
271 hpread.h
272 hpux-thread.c
273 i386-stub.c
274 i386-tdep.c
275 i386aix-nat.c
276 i386b-nat.c
277 i386gnu-nat.c
278 i386ly-tdep.c
279 i386m3-nat.c
280 i386mach-nat.c
281 i386v-nat.c
282 i386v4-nat.c
283 i387-tdep.c
284 i960-tdep.c
285 infcmd.c
286 inferior.h
287 inflow.c
288 infptrace.c
289 infrun.c
290 inftarg.c
291 infttrace.c
292 irix4-nat.c
293 irix5-nat.c
294 isi-xdep.c
295 kdb-start.c
296 language.c
297 language.h
298 lynx-nat.c
299 m2-exp.y
300 m2-lang.c
301 m2-lang.h
302 m2-typeprint.c
303 m2-valprint.c
304 m3-nat.c
305 m32r-rom.c
306 m32r-stub.c
307 m32r-tdep.c
308 m68k-stub.c
309 m68k-tdep.c
310 m68klinux-nat.c
311 m68knbsd-nat.c
312 m88k-nat.c
313 m88k-tdep.c
314 mac-defs.h
315 mac-gdb.r
316 mac-nat.c
317 mac-xdep.c
318 main.c
319 maint.c
320 mdebugread.c
321 mem-break.c
322 minimon.h
323 minsyms.c
324 mips-nat.c
325 mips-tdep.c
326 mipsm3-nat.c
327 mipsread.c
328 mipsv4-nat.c
329 mn10200-tdep.c
330 mn10300-tdep.c
331 mon960-rom.c
332 monitor.c
333 monitor.h
334 mpw-config.in
335 mpw-make.sed
336 msg.defs
337 msg_reply.defs
338 news-xdep.c
339 nindy-share
340 nindy-tdep.c
341 nlm
342 nlmread.c
343 notify.defs
344 ns32k-tdep.c
345 ns32km3-nat.c
346 ns32knbsd-nat.c
347 objfiles.c
348 objfiles.h
349 ocd.c
350 ocd.h
351 op50-rom.c
352 os9kread.c
353 osf-share
354 osfsolib.c
355 parse.c
356 parser-defs.h
357 partial-stab.h
358 ppc-bdm.c
359 ppcbug-rom.c
360 printcmd.c
361 process_reply.defs
362 procfs.c
363 ptx4-nat.c
364 pyr-tdep.c
365 pyr-xdep.c
366 rdi-share
367 remote-adapt.c
368 remote-array.c
369 remote-bug.c
370 remote-d10v.c
371 remote-e7000.c
372 remote-eb.c
373 remote-es.c
374 remote-est.c
375 remote-hms.c
376 remote-mips.c
377 remote-mm.c
378 remote-nindy.c
379 remote-nrom.c
380 remote-os9k.c
381 remote-rdi.c
382 remote-rdp.c
383 remote-sds.c
384 remote-sim.c
385 remote-st.c
386 remote-udi.c
387 remote-utils.c
388 remote-utils.h
389 remote-vx.c
390 remote-vx29k.c
391 remote-vx68.c
392 remote-vx960.c
393 remote-vxmips.c
394 remote-vxsparc.c
395 remote.c
396 reply_mig_hack.awk
397 rom68k-rom.c
398 rs6000-nat.c
399 rs6000-tdep.c
400 saber.suppress
401 scm-exp.c
402 scm-lang.c
403 scm-lang.h
404 scm-tags.h
405 scm-valprint.c
406 ser-e7kpc.c
407 ser-go32.c
408 ser-mac.c
409 ser-ocd.c
410 ser-tcp.c
411 ser-unix.c
412 serial.c
413 serial.h
414 sh-stub.c
415 sh-tdep.c
416 sh3-rom.c
417 signals.h
418 sol-thread.c
419 solib.c
420 solib.h
421 somread.c
422 somsolib.c
423 somsolib.h
424 source.c
425 sparc-nat.c
426 sparc-stub.c
427 sparc-tdep.c
428 sparcl-stub.c
429 sparcl-tdep.c
430 sparclet-rom.c
431 sparclet-stub.c
432 srec.h
433 stabsread.c
434 stabsread.h
435 stack.c
436 standalone.c
437 stop-gdb.c
438 stuff.c
439 sun3-nat.c
440 sun386-nat.c
441 symfile.c
442 symfile.h
443 symm-nat.c
444 symm-tdep.c
445 symmisc.c
446 symtab.c
447 symtab.h
448 tahoe-tdep.c
449 target.c
450 target.h
451 terminal.h
452 testsuite
453 thread.c
454 top.c
455 top.h
456 tracepoint.c
457 tracepoint.h
458 tui
459 typeprint.c
460 typeprint.h
461 ultra3-nat.c
462 ultra3-xdep.c
463 umax-xdep.c
464 utils.c
465 v850-tdep.c
466 v850ice.c
467 valarith.c
468 valops.c
469 valprint.c
470 valprint.h
471 value.h
472 values.c
473 vax-tdep.c
474 vx-share
475 w65-tdep.c
476 w89k-rom.c
477 win32-nat.c
478 xcoffread.c
479 xcoffsolib.c
480 xcoffsolib.h
481 xmodem.c
482 xmodem.h
483 z8k-tdep.c
484
485 # Things which are explicitly *not* kept, for now.
486
487 Things-to-lose:
488
489 GDB-HACK-RULES
490 HOW_TO_RELEASE
491 gdbcfgxref
492
493 Do-last:
494
495 # Don't try to clean directories here, as the 'mv' command will fail.
496 # Also, grep fails on NFS mounted directories.
497 if ( echo $* | grep lose\-gdbtk > /dev/null ) ; then
498         echo Catering to RMS by removing traces of \"gdbtk\"...
499         for i in * ; do
500                 if test ! -d $i && (grep sanitize-gdbtk $i > /dev/null) ; then
501                         echo Removing traces of \"gdbtk\" out of $i...
502                         cp $i new
503                         sed '/start\-sanitize\-gdbtk/,/end-\sanitize\-gdbtk/d' < $i > new
504                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
505                                 echo Caching $i in .Recover...
506                                 mv $i .Recover
507                         fi
508                         mv new $i
509                 fi
510         done
511 else
512         echo Leaving \"gdbtk\" in the sources...
513         for i in * ; do
514                 if test ! -d $i && (grep sanitize-gdbtk $i > /dev/null) ; then
515                         echo Keeping \"gdbtk\" stuff in $i, but editing out sanitize lines...
516                         cp $i new
517                         sed -e '/start\-sanitize\-gdbtk/d' -e '/end\-sanitize\-gdbtk/d' < $i > new
518                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
519                                 echo Caching $i in .Recover...
520                                 mv $i .Recover
521                         fi
522                         mv new $i
523                 fi
524         done
525 fi
526
527 if ( echo $* | grep keep\-v850e > /dev/null ) ; then
528         for i in * ; do
529                 if test ! -d $i && (grep sanitize-v850e $i > /dev/null) ; then
530                         if [ -n "${verbose}" ] ; then
531                                 echo Keeping v850e stuff in $i
532                         fi
533                 fi
534         done
535 else
536         for i in * ; do
537                 if test ! -d $i && (grep sanitize-v850e $i > /dev/null) ; then
538                         if [ -n "${verbose}" ] ; then
539                                 echo Removing traces of \"v850e\" from $i...
540                         fi
541                         cp $i new
542                         sed '/start\-sanitize\-v850e/,/end-\sanitize\-v850e/d' < $i > new
543                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
544                                 if [ -n "${verbose}" ] ; then
545                                         echo Caching $i in .Recover...
546                                 fi
547                                 mv $i .Recover
548                         fi
549                         mv new $i
550                 fi
551         done
552 fi
553
554 if ( echo $* | grep keep\-vr4xxx > /dev/null ) ; then
555         for i in * ; do
556                 if test ! -d $i && (grep sanitize-vr4xxx $i > /dev/null) ; then
557                         if [ -n "${verbose}" ] ; then
558                                 echo Keeping vr4xxx stuff in $i
559                         fi
560                 fi
561         done
562 else
563         for i in * ; do
564                 if test ! -d $i && (grep sanitize-vr4xxx $i > /dev/null) ; then
565                         if [ -n "${verbose}" ] ; then
566                                 echo Removing traces of \"vr4xxx\" from $i...
567                         fi
568                         cp $i new
569                         sed '/start\-sanitize\-vr4xxx/,/end-\sanitize\-vr4xxx/d' < $i > new
570                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
571                                 if [ -n "${verbose}" ] ; then
572                                         echo Caching $i in .Recover...
573                                 fi
574                                 mv $i .Recover
575                         fi
576                         mv new $i
577                 fi
578         done
579 fi
580
581 if ( echo $* | grep keep\-vr4320 > /dev/null ) ; then
582         for i in * ; do
583                 if test ! -d $i && (grep sanitize-vr4320 $i > /dev/null) ; then
584                         if [ -n "${verbose}" ] ; then
585                                 echo Keeping vr4320 stuff in $i
586                         fi
587                 fi
588         done
589 else
590         for i in * ; do
591                 if test ! -d $i && (grep sanitize-vr4320 $i > /dev/null) ; then
592                         if [ -n "${verbose}" ] ; then
593                                 echo Removing traces of \"vr4320\" from $i...
594                         fi
595                         cp $i new
596                         sed '/start\-sanitize\-vr4320/,/end-\sanitize\-vr4320/d' < $i > new
597                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
598                                 if [ -n "${verbose}" ] ; then
599                                         echo Caching $i in .Recover...
600                                 fi
601                                 mv $i .Recover
602                         fi
603                         mv new $i
604                 fi
605         done
606 fi
607
608 if ( echo $* | grep keep\-r5900 > /dev/null ) ; then
609         for i in * ; do
610                 if test ! -d $i && (grep sanitize-r5900 $i > /dev/null) ; then
611                         if [ -n "${verbose}" ] ; then
612                                 echo Keeping r5900 stuff in $i
613                         fi
614                 fi
615         done
616 else
617         for i in * ; do
618                 if test ! -d $i && (grep sanitize-r5900 $i > /dev/null) ; then
619                         if [ -n "${verbose}" ] ; then
620                                 echo Removing traces of \"r5900\" from $i...
621                         fi
622                         cp $i new
623                         sed '/start\-sanitize\-r5900/,/end-\sanitize\-r5900/d' < $i > new
624                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
625                                 if [ -n "${verbose}" ] ; then
626                                         echo Caching $i in .Recover...
627                                 fi
628                                 mv $i .Recover
629                         fi
630                         mv new $i
631                 fi
632         done
633 fi
634
635 if ( echo $* | grep keep\-tx19 > /dev/null ) ; then
636         for i in * ; do
637                 if test ! -d $i && (grep sanitize-tx19 $i > /dev/null) ; then
638                         if [ -n "${verbose}" ] ; then
639                                 echo Keeping tx19 stuff in $i
640                         fi
641                 fi
642         done
643 else
644         for i in * ; do
645                 if test ! -d $i && (grep sanitize-tx19 $i > /dev/null) ; then
646                         if [ -n "${verbose}" ] ; then
647                                 echo Removing traces of \"tx19\" from $i...
648                         fi
649                         cp $i new
650                         sed '/start\-sanitize\-tx19/,/end-\sanitize\-tx19/d' < $i > new
651                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
652                                 if [ -n "${verbose}" ] ; then
653                                         echo Caching $i in .Recover...
654                                 fi
655                                 mv $i .Recover
656                         fi
657                         mv new $i
658                 fi
659         done
660 fi
661
662 if ( echo $* | grep keep\-tx49 > /dev/null ) ; then
663         for i in * ; do
664                 if test ! -d $i && (grep sanitize-tx49 $i > /dev/null) ; then
665                         if [ -n "${verbose}" ] ; then
666                                 echo Keeping tx49 stuff in $i
667                         fi
668                 fi
669         done
670 else
671         for i in * ; do
672                 if test ! -d $i && (grep sanitize-tx49 $i > /dev/null) ; then
673                         if [ -n "${verbose}" ] ; then
674                                 echo Removing traces of \"tx49\" from $i...
675                         fi
676                         cp $i new
677                         sed '/start\-sanitize\-tx49/,/end-\sanitize\-tx49/d' < $i > new
678                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
679                                 if [ -n "${verbose}" ] ; then
680                                         echo Caching $i in .Recover...
681                                 fi
682                                 mv $i .Recover
683                         fi
684                         mv new $i
685                 fi
686         done
687 fi
688
689 if ( echo $* | grep keep\-sky > /dev/null ) ; then
690         for i in * ; do
691                 if test ! -d $i && (grep sanitize-sky $i > /dev/null) ; then
692                         if [ -n "${verbose}" ] ; then
693                                 echo Keeping sky stuff in $i
694                         fi
695                 fi
696         done
697 else
698         for i in * ; do
699                 if test ! -d $i && (grep sanitize-sky $i > /dev/null) ; then
700                         if [ -n "${verbose}" ] ; then
701                                 echo Removing traces of \"sky\" from $i...
702                         fi
703                         cp $i new
704                         sed '/start\-sanitize\-sky/,/end-\sanitize\-sky/d' < $i > new
705                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
706                                 if [ -n "${verbose}" ] ; then
707                                         echo Caching $i in .Recover...
708                                 fi
709                                 mv $i .Recover
710                         fi
711                         mv new $i
712                 fi
713         done
714 fi
715
716 if ( echo $* | grep keep\-cygnus > /dev/null ) ; then
717         for i in * ; do
718                 if test ! -d $i && (grep sanitize-cygnus $i > /dev/null) ; then
719                         if [ -n "${verbose}" ] ; then
720                                 echo Keeping cygnus stuff in $i
721                         fi
722                 fi
723         done
724 else
725         for i in * ; do
726                 if test ! -d $i && (grep sanitize-cygnus $i > /dev/null) ; then
727                         if [ -n "${verbose}" ] ; then
728                                 echo Removing traces of \"cygnus\" from $i...
729                         fi
730                         cp $i new
731                         sed '/start\-sanitize\-cygnus/,/end-\sanitize\-cygnus/d' < $i > new
732                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
733                                 if [ -n "${verbose}" ] ; then
734                                         echo Caching $i in .Recover...
735                                 fi
736                                 mv $i .Recover
737                         fi
738                         mv new $i
739                 fi
740         done
741 fi
742
743 if ( echo $* | grep keep\-tic80 > /dev/null ) ; then
744         for i in * ; do
745                 if test ! -d $i && (grep sanitize-tic80 $i > /dev/null) ; then
746                         if [ -n "${verbose}" ] ; then
747                                 echo Keeping tic80 stuff in $i
748                         fi
749                 fi
750         done
751 else
752         for i in * ; do
753                 if test ! -d $i && (grep sanitize-tic80 $i > /dev/null) ; then
754                         if [ -n "${verbose}" ] ; then
755                                 echo Removing traces of \"tic80\" from $i...
756                         fi
757                         cp $i new
758                         sed '/start\-sanitize\-tic80/,/end-\sanitize\-tic80/d' < $i > new
759                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
760                                 if [ -n "${verbose}" ] ; then
761                                         echo Caching $i in .Recover...
762                                 fi
763                                 mv $i .Recover
764                         fi
765                         mv new $i
766                 fi
767         done
768 fi
769
770 if ( echo $* | grep keep\-vr4111 > /dev/null ) ; then
771         for i in * ; do
772                 if test ! -d $i && (grep sanitize-vr4111 $i > /dev/null) ; then
773                         if [ -n "${verbose}" ] ; then
774                                 echo Keeping vr4111 stuff in $i
775                         fi
776                 fi
777         done
778 else
779         for i in * ; do
780                 if test ! -d $i && (grep sanitize-vr4111 $i > /dev/null) ; then
781                         if [ -n "${verbose}" ] ; then
782                                 echo Removing traces of \"vr4111\" from $i...
783                         fi
784                         cp $i new
785                         sed '/start\-sanitize\-vr4111/,/end-\sanitize\-vr4111/d' < $i > new
786                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
787                                 if [ -n "${verbose}" ] ; then
788                                         echo Caching $i in .Recover...
789                                 fi
790                                 mv $i .Recover
791                         fi
792                         mv new $i
793                 fi
794         done
795 fi
796
797 if ( echo $* | grep keep\-ide > /dev/null ) ; then
798         for i in * ; do
799                 if test ! -d $i && (grep sanitize-ide $i > /dev/null) ; then
800                         if [ -n "${verbose}" ] ; then
801                                 echo Keeping ide stuff in $i
802                         fi
803                 fi
804         done
805 else
806         for i in * ; do
807                 if test ! -d $i && (grep sanitize-ide $i > /dev/null) ; then
808                         if [ -n "${verbose}" ] ; then
809                                 echo Removing traces of \"ide\" from $i...
810                         fi
811                         cp $i new
812                         sed '/start\-sanitize\-ide/,/end-\sanitize\-ide/d' < $i > new
813                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
814                                 if [ -n "${verbose}" ] ; then
815                                         echo Caching $i in .Recover...
816                                 fi
817                                 mv $i .Recover
818                         fi
819                         mv new $i
820                 fi
821         done
822 fi
823
824 if ( echo $* | grep keep\-kod > /dev/null ) ; then
825         for i in * ; do
826                 if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then
827                         if [ -n "${verbose}" ] ; then
828                                 echo Keeping kod stuff in $i
829                         fi
830                 fi
831         done
832 else
833         for i in * ; do
834                 if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then
835                         if [ -n "${verbose}" ] ; then
836                                 echo Removing traces of \"kod\" from $i...
837                         fi
838                         cp $i new
839                         sed '/start\-sanitize\-kod/,/end-\sanitize\-kod/d' < $i > new
840                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
841                                 if [ -n "${verbose}" ] ; then
842                                         echo Caching $i in .Recover...
843                                 fi
844                                 mv $i .Recover
845                         fi
846                         mv new $i
847                 fi
848         done
849 fi
850
851 # This is a temporary measure to sanitize out references to the
852 # startup code need by the TclPro debugger.  When that goes out
853 # of alpha, we can remove this.
854
855 if ( echo $* | grep keep\-tclpro > /dev/null ) ; then
856         for i in * ; do
857                 if test ! -d $i && (grep sanitize-tclpro $i > /dev/null) ; then
858                         echo Keeping \"tclpro\" stuff in $i, but editing out sanitize lines...
859                         cp $i new
860                         sed -e '/start\-sanitize\-tclpro/d' -e '/end\-sanitize\-tclpro/d' < $i > new
861                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
862                                 echo Caching $i in .Recover...
863                                 mv $i .Recover
864                         fi
865                         mv new $i
866                 fi
867         done
868 else
869         for i in * ; do
870                 if test ! -d $i && (grep sanitize-tclpro $i > /dev/null) ; then
871                         if [ -n "${verbose}" ] ; then
872                                 echo Removing traces of \"tclpro\" from $i...
873                         fi
874                         cp $i new
875                         sed '/start\-sanitize\-tclpro/,/end-\sanitize\-tclpro/d' < $i > new
876                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
877                                 if [ -n "${verbose}" ] ; then
878                                         echo Caching $i in .Recover...
879                                 fi
880                                 mv $i .Recover
881                         fi
882                         mv new $i
883                 fi
884         done
885 fi
886
887 if ( echo $* | grep keep\-java > /dev/null ) ; then
888         for i in * ; do
889                 if test ! -d $i && (grep sanitize-java $i > /dev/null) ; then
890                         if [ -n "${verbose}" ] ; then
891                                 echo Keeping java stuff in $i
892                         fi
893                 fi
894         done
895 else
896         for i in * ; do
897                 if test ! -d $i && (grep sanitize-java $i > /dev/null) ; then
898                         if [ -n "${verbose}" ] ; then
899                                 echo Removing traces of \"java\" from $i...
900                         fi
901                         cp $i new
902                         sed '/start\-sanitize\-java/,/end-\sanitize\-java/d' < $i > new
903                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
904                                 if [ -n "${verbose}" ] ; then
905                                         echo Caching $i in .Recover...
906                                 fi
907                                 mv $i .Recover
908                         fi
909                         mv new $i
910                 fi
911         done
912 fi
913
914 if ( echo $* | grep keep\-carp > /dev/null ) ; then
915         for i in * ; do
916                 if test ! -d $i && (grep sanitize-carp $i > /dev/null) ; then
917                         if [ -n "${verbose}" ] ; then
918                                 echo Keeping carp stuff in $i
919                         fi
920                 fi
921         done
922 else
923         for i in * ; do
924                 if test ! -d $i && (grep sanitize-carp $i > /dev/null) ; then
925                         if [ -n "${verbose}" ] ; then
926                                 echo Removing traces of \"carp\" from $i...
927                         fi
928                         cp $i new
929                         sed '/start\-sanitize\-carp/,/end-\sanitize\-carp/d' < $i > new
930                         if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
931                                 if [ -n "${verbose}" ] ; then
932                                         echo Caching $i in .Recover...
933                                 fi
934                                 mv $i .Recover
935                         fi
936                         mv new $i
937                 fi
938         done
939 fi
940
941 for i in * ; do
942         if test ! -d $i && (grep sanitize $i > /dev/null) ; then
943                 echo '***' Some mentions of Sanitize are still left in $i! 1>&2
944         fi
945 done
946
947 #
948 # End of file.