mirror of
https://github.com/RPCS3/llvm-mirror.git
synced 2024-11-22 02:33:06 +01:00
8d4eac3a03
Allow users to use a non-system version of perl, python and awk, which is useful in certain package managers. Reviewed By: JDevlieghere, MaskRay Differential Revision: https://reviews.llvm.org/D95119
36 lines
848 B
Perl
Executable File
36 lines
848 B
Perl
Executable File
#!/usr/bin/env perl
|
|
#
|
|
# Program: findsym.pl
|
|
#
|
|
# Synopsis: Generate a list of the libraries in which a symbol is defined or
|
|
# referenced.
|
|
#
|
|
# Syntax: findsym.pl <directory_with_libraries_in_it> <symbol>
|
|
#
|
|
|
|
use warnings;
|
|
|
|
# Give first option a name.
|
|
my $Directory = $ARGV[0];
|
|
my $Symbol = $ARGV[1];
|
|
|
|
# Open the directory and read its contents, sorting by name and differentiating
|
|
# by whether its a library (.a) or an object file (.o)
|
|
opendir DIR,$Directory;
|
|
my @files = readdir DIR;
|
|
closedir DIR;
|
|
@objects = grep(/l?i?b?LLVM.*\.[oa]$/,sort(@files));
|
|
|
|
# Gather definitions from the libraries
|
|
foreach $lib (@objects) {
|
|
my $head = 0;
|
|
open SYMS,
|
|
"nm $Directory/$lib | grep '$Symbol' | sort --key=3 | uniq |";
|
|
while (<SYMS>) {
|
|
if (!$head) { print "$lib:\n"; $head = 1; }
|
|
chomp($_);
|
|
print " $_\n";
|
|
}
|
|
close SYMS;
|
|
}
|