6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-01-12 02:33:33 +00:00
Code Issues Projects Releases Wiki Activity

Add a -flat option for generating the library dependencies in a flat

Browse Source 
format with one library per line, similar to a makefile dependency list.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@26873 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Reid Spencer 2006-03-19 22:08:01 +00:00
parent 273f202890
commit 0bf1177f6f
1 changed files with 31 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
utils/GenLibDeps.pl
View File

@ -9,6 +9,16 @@
# Syntax: GenLibDeps.pl <directory_with_libraries_in_it>
#
# Parse arguments...
while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) {
shift;
last if /^--$/; # Stop processing arguments on --
# List command line options here...
if (/^-flat$/) { $FLAT = 1; next; }
print "Unknown option: $_ : ignoring!\n";
}
# Give first option a name.
my $Directory = $ARGV[0];
@ -58,7 +68,11 @@ sub gen_one_entry {
my $lib = $_[0];
my $lib_ns = $lib;
$lib_ns =~ s/(.*)\.[oa]/$1/;
print " <dt><b>$lib</b</dt><dd><ul>\n";
if ($FLAT) {
print "$lib:";
} else {
print " <dt><b>$lib</b</dt><dd><ul>\n";
}
open UNDEFS,
"nm -u $Directory/$lib | grep ' U ' | sed -e 's/ U //' | sort | uniq |";
open DEPENDS,
@ -80,7 +94,11 @@ sub gen_one_entry {
open DF, "<GenLibDeps.out";
while (<DF>) {
chomp;
print " <li>$_</li>\n";
if ($FLAT) {
print " $_";
} else {
print " <li>$_</li>\n";
}
$suffix = substr($_,length($_)-1,1);
$_ =~ s/(.*)\.[oa]/$1/;
if ($suffix eq "a") {
@ -90,7 +108,11 @@ sub gen_one_entry {
}
}
close DF;
print " </ul></dd>\n";
if ($FLAT) {
print "\n";
} else {
print " </ul></dd>\n";
}
}
# Make sure we flush on write. This is slower but correct based on the way we
@ -98,7 +120,9 @@ sub gen_one_entry {
$| = 1;
# Print the definition list tag
print "<dl>\n";
if (!$FLAT) {
print "<dl>\n";
}
open DOT, "| $DotPath -Tgif > libdeps.gif";
@ -125,4 +149,6 @@ print DOT "}\n";
close DOT;
# Print end tag of definition list element
print "</dl>\n";
if (!$FLAT) {
print "</dl>\n";
}