mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-18 12:29:21 +00:00
both input and output to render everything in C++, but that will be the next patch. For now, it just runs nm and greps each .o or .a file for the desired symbol. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@27003 91177308-0d34-0410-b5e6-96231b3b80d8
35 lines
836 B
Perl
Executable File
35 lines
836 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
#
|
|
# Program: findsym.pl
|
|
#
|
|
# Synopsis: Generate a list of the libraries in which a symbol is defined or
|
|
# referenced.
|
|
#
|
|
# Syntax: GenLibDeps.pl <directory_with_libraries_in_it> <symbol>
|
|
#
|
|
|
|
# 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;
|
|
}
|