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.
12my $Directory = $ARGV[0];
13my $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)
17opendir DIR,$Directory;
18my @files = readdir DIR;
19closedir DIR;
20@objects = grep(/l?i?b?LLVM.*\.[oa]$/,sort(@files));
21
22# Gather definitions from the libraries
23foreach $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}
34