diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/miscellany/tools/8limit

   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.$$