utils/findsym.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # Program:  findsym.pl
   4 #
   5 # Synopsis: Generate a list of the libraries in which a symbol is defined or
   6 #           referenced.
   7 #
   8 # Syntax:   findsym.pl <directory_with_libraries_in_it> <symbol>
   9 #
  10
  11 # Give first option a name.
  12 my $Directory = $ARGV[0];
  13 my $Symbol = $ARGV[1];
  14
  15 # Open the directory and read its contents, sorting by name and differentiating
  16 # by whether its a library (.a) or an object file (.o)
  17 opendir DIR,$Directory;
  18 my @files = readdir DIR;
  19 closedir DIR;
  20 @objects = grep(/l?i?b?LLVM.*\.[oa]$/,sort(@files));
  21
  22 # Gather definitions from the libraries
  23 foreach $lib (@objects) {
  24   my $head = 0;
  25   open SYMS,
  26     "nm $Directory/$lib | grep '$Symbol' | sort --key=3 | uniq |";
  27   while (<SYMS>) {
  28     if (!$head) { print "$lib:\n"; $head = 1; }
  29     chomp($_);
  30     print "  $_\n";
  31   }
  32   close SYMS;
  33 }