|
|
1.1 ! root 1: : Check names differ over first 8 chars ! 2: : Steven Pemberton, CWI, Amsterdam, steven@mcvax ! 3: case $# in ! 4: 0) echo Usage: $0 object-files ... ; exit 1;; ! 5: *) ;; ! 6: esac ! 7: ! 8: trap 'rm -f /tmp/lim1.$$ /tmp/lim2.$$; exit 1' 1 2 15 ! 9: for f ! 10: do ! 11: nm $f | sed "s/^...........//" | grep "^_" | sed "s/^_//" >/tmp/lim1.$$ ! 12: sed "s/^\(........\).*/\1/" </tmp/lim1.$$ | uniq -d | sed "s/.*/grep \"^&\" \/tmp\/lim1.$$/" >/tmp/lim2.$$ ! 13: if test -s /tmp/lim2.$$ ! 14: then ! 15: echo $f: ! 16: sh /tmp/lim2.$$ ! 17: fi ! 18: done ! 19: rm -f /tmp/lim1.$$ /tmp/lim2.$$
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.