#!/usr/bin/perl -w # # Program: GenLibDeps.pl # # Synopsis: Generate HTML output that shows the dependencies between a set of # libraries. The output of this script should periodically replace # the similar content in the UsingLibraries.html document. # # Syntax: GenLibDeps.pl [-flat] [path_to_nm_binary] # use strict; use warnings; # Parse arguments... my $FLAT = 0; my $WHY = 0; my $PEROBJ = 0; my $PEROBJINCL = 0; while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) { shift; last if /^--$/; # Stop processing arguments on -- # List command line options here... if (/^-flat$/) { $FLAT = 1; next; } if (/^-why/) { $WHY = 1; $FLAT = 1; next; } if (/^-perobj$/) { $PEROBJ = 1; next; } if (/^-perobjincl/) { $PEROBJINCL = 1; next;} print "Unknown option: $_ : ignoring!\n"; } # Give first option a name. my $Directory = $ARGV[0]; if (!defined($Directory) || ! -d "$Directory") { die "First argument must specify the directory containing LLVM libs\n"; } my $nmPath = $ARGV[1]; # Find the "dot" program my $DotPath=""; if (!$FLAT) { chomp($DotPath = `which dot`); die "Can't find 'dot'" if (! -x "$DotPath"); } if (defined($ENV{NM})) { chomp($nmPath=$ENV{NM}); } if (!defined($nmPath) || $nmPath eq "") { chomp($nmPath=`which nm`); die "Can't find 'nm'" if (! -x "$nmPath"); } my $ranlibPath; if ($PEROBJ) { $ranlibPath = $ARGV[2]; if (defined($ENV{RANLIB})) { chomp($ranlibPath=$ENV{RANLIB}); } if (!defined($ranlibPath) || $ranlibPath eq "") { chomp($ranlibPath=`which ranlib`); die "Can't find 'ranlib'" if (! -x "$ranlibPath"); } } # 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; my @libs = grep(/libLLVM.*\.(dylib|so|a)$/,sort(@files)); my @objs = grep(/LLVM.*\.o$/,sort(@files)); # Declare the hashes we will use to keep track of the library and object file # symbol definitions. my %libdefs; my %objdefs; my %libobjs; my %objdeps=(); # Gather library definitions at object file granularity (optional) if ($PEROBJ) { foreach my $lib (@libs ) { `$ranlibPath $Directory/$lib`; my $libpath = $lib; $libpath =~ s/^libLLVM(.*)\.a/$1/; $libpath =~ s/(.+)CodeGen$/Target\/$1/; $libpath =~ s/(.+)AsmPrinter$/Target\/$1\/AsmPrinter/; $libpath =~ s/(.+)AsmParser$/Target\/$1\/AsmParser/; $libpath =~ s/(.+)Info$/Target\/$1\/TargetInfo/; $libpath =~ s/(.+)Disassembler$/Target\/$1\/Disassembler/; $libpath =~ s/SelectionDAG/CodeGen\/SelectionDAG/; $libpath =~ s/^AsmPrinter/CodeGen\/AsmPrinter/; $libpath =~ s/^BitReader/Bitcode\/Reader/; $libpath =~ s/^BitWriter/Bitcode\/Writer/; $libpath =~ s/^CBackend/Target\/CBackend/; $libpath =~ s/^CppBackend/Target\/CppBackend/; $libpath =~ s/^MSIL/Target\/MSIL/; $libpath =~ s/^Core/VMCore/; $libpath =~ s/^Instrumentation/Transforms\/Instrumentation/; $libpath =~ s/^Interpreter/ExecutionEngine\/Interpreter/; $libpath =~ s/^JIT/ExecutionEngine\/JIT/; $libpath =~ s/^ScalarOpts/Transforms\/Scalar/; $libpath =~ s/^TransformUtils/Transforms\/Utils/; $libpath =~ s/^ipa/Analysis\/IPA/; $libpath =~ s/^ipo/Transforms\/IPO/; $libpath =~ s/^pic16passes/Target\/PIC16\/PIC16Passes/; $libpath = "lib/".$libpath."/"; open DEFS, "$nmPath -sg $Directory/$lib|"; while () { chomp; if (/^([^ ]*) in ([^ ]*)/) { my $objfile = $libpath.$2; $objdefs{$1} = $objfile; $objdeps{$objfile} = {}; $libobjs{$lib}{$objfile}=1; # my $p = "../llvm/".$objfile; # $p =~ s/Support\/reg(.*).o/Support\/reg$1.c/; # $p =~ s/.o$/.cpp/; # unless (-e $p) { # die "$p\n" # } } } close DEFS or die "nm failed"; } foreach my $lib (@libs ) { my $libpath = $lib; $libpath =~ s/^libLLVM(.*)\.a/$1/; $libpath =~ s/(.+)CodeGen$/Target\/$1/; $libpath =~ s/(.+)AsmPrinter$/Target\/$1\/AsmPrinter/; $libpath =~ s/(.+)AsmParser$/Target\/$1\/AsmParser/; $libpath =~ s/(.+)Info$/Target\/$1\/TargetInfo/; $libpath =~ s/(.+)Disassembler$/Target\/$1\/Disassembler/; $libpath =~ s/SelectionDAG/CodeGen\/SelectionDAG/; $libpath =~ s/^AsmPrinter/CodeGen\/AsmPrinter/; $libpath =~ s/^BitReader/Bitcode\/Reader/; $libpath =~ s/^BitWriter/Bitcode\/Writer/; $libpath =~ s/^CBackend/Target\/CBackend/; $libpath =~ s/^CppBackend/Target\/CppBackend/; $libpath =~ s/^MSIL/Target\/MSIL/; $libpath =~ s/^Core/VMCore/; $libpath =~ s/^Instrumentation/Transforms\/Instrumentation/; $libpath =~ s/^Interpreter/ExecutionEngine\/Interpreter/; $libpath =~ s/^JIT/ExecutionEngine\/JIT/; $libpath =~ s/^ScalarOpts/Transforms\/Scalar/; $libpath =~ s/^TransformUtils/Transforms\/Utils/; $libpath =~ s/^ipa/Analysis\/IPA/; $libpath =~ s/^ipo/Transforms\/IPO/; $libpath =~ s/^pic16passes/Target\/PIC16\/PIC16Passes/; $libpath = "lib/".$libpath."/"; open UDEFS, "$nmPath -Aup $Directory/$lib|"; while () { chomp; if (/:([^:]+):/) { my $obj = $libpath.$1; s/[^ ]+: *U //; if (defined($objdefs{$_})) { $objdeps{$obj}{$objdefs{$_}}=1; } } } close UDEFS or die "nm failed" } } else { # Gather definitions from the libraries foreach my $lib (@libs ) { open DEFS, "$nmPath -g $Directory/$lib|"; while () { next if (! / [ABCDGRST] /); s/^[^ ]* [ABCDGRST] //; s/\015?\012//; # not sure if is in binmode and uses LF or CRLF. # this strips both LF and CRLF. $libdefs{$_} = $lib; } close DEFS or die "nm failed"; } } # Gather definitions from the object files. foreach my $obj (@objs ) { open DEFS, "$nmPath -g $Directory/$obj |"; while () { next if (! / [ABCDGRST] /); s/^[^ ]* [ABCDGRST] //; s/\015?\012//; # not sure if is in binmode and uses LF or CRLF. # this strips both LF and CRLF. $objdefs{$_} = $obj; } close DEFS or die "nm failed"; } # Generate one entry in the
list. This generates the
and
elements # for one library or object file. The
provides the name of the library or # object. The
provides a list of the libraries/objects it depends on. sub gen_one_entry { my $lib = $_[0]; my $lib_ns = $lib; $lib_ns =~ s/(.*)\.[oa]/$1/; if ($FLAT) { print "$lib:"; if ($WHY) { print "\n"; } } else { print "
$lib
    \n"; } open UNDEFS, "$nmPath -u $Directory/$lib | sed -e 's/^[ 0]* U //' | sort | uniq |"; my %DepLibs; while () { chomp; my $lib_printed = 0; if (defined($libdefs{$_}) && $libdefs{$_} ne $lib) { $DepLibs{$libdefs{$_}} = [] unless exists $DepLibs{$libdefs{$_}}; push(@{$DepLibs{$libdefs{$_}}}, $_); } elsif (defined($objdefs{$_}) && $objdefs{$_} ne $lib) { if ($PEROBJ && !$PEROBJINCL) { # -perobjincl makes .a files depend on .o files they contain themselves # default is don't depend on these. next if defined $libobjs{$lib}{$objdefs{$_}}; } my $libroot = $lib; $libroot =~ s/lib(.*).a/$1/; if ($objdefs{$_} ne "$libroot.o") { $DepLibs{$objdefs{$_}} = [] unless exists $DepLibs{$objdefs{$_}}; push(@{$DepLibs{$objdefs{$_}}}, $_); } } } close UNDEFS or die "nm failed"; unless(keys %DepLibs) { # above failed open UNDEFS, "$nmPath -u $Directory/$lib |"; while () { # to bypass non-working sed if (' ' eq substr($_,0,2) and index($_,'U ')) { $_ = substr($_,index($_,'U ')+2) }; $_ = substr($_,index($_,' *U ')+5) if -1!=index($_,' *U '); chomp; my $lib_printed = 0; if (defined($libdefs{$_}) && $libdefs{$_} ne $lib) { $DepLibs{$libdefs{$_}} = [] unless exists $DepLibs{$libdefs{$_}}; push(@{$DepLibs{$libdefs{$_}}}, $_); } elsif (defined($objdefs{$_}) && $objdefs{$_} ne $lib) { my $libroot = $lib; $libroot =~ s/lib(.*).a/$1/; if ($objdefs{$_} ne "$libroot.o") { $DepLibs{$objdefs{$_}} = [] unless exists $DepLibs{$objdefs{$_}}; push(@{$DepLibs{$objdefs{$_}}}, $_); } } } close UNDEFS or die "nm failed"; } if ($PEROBJINCL) { # include the .a's objects for my $obj (keys %{$libobjs{$lib}}) { $DepLibs{$obj} = ["<.a object>"] unless exists $DepLibs{$obj}; } my $madechange = 1; while($madechange) { $madechange = 0; my %temp = %DepLibs; foreach my $obj (keys %DepLibs) { foreach my $objdeps (keys %{$objdeps{$obj}}) { next if defined $temp{$objdeps}; push(@{$temp{$objdeps}}, $obj); $madechange = 1; } } %DepLibs = %temp; } } for my $key (sort keys %DepLibs) { if ($FLAT) { print " $key"; if ($WHY) { print "\n"; my @syms = @{$DepLibs{$key}}; foreach my $sym (@syms) { print " $sym\n"; } } } else { print "
  • $key
  • \n"; } my $suffix = substr($key,length($key)-1,1); $key =~ s/(.*)\.[oa]/$1/; if ($suffix eq "a") { if (!$FLAT) { print DOT "$lib_ns -> $key [ weight=0 ];\n" }; } else { if (!$FLAT) { print DOT "$lib_ns -> $key [ weight=10];\n" }; } } if ($FLAT) { if (!$WHY) { print "\n"; } } else { print "
\n"; } } # Make sure we flush on write. This is slower but correct based on the way we # write I/O in gen_one_entry. $| = 1; # Print the definition list tag if (!$FLAT) { print "
\n"; open DOT, "| $DotPath -Tgif > libdeps.gif"; print DOT "digraph LibDeps {\n"; print DOT " size=\"40,15\"; \n"; print DOT " ratio=\"1.33333\"; \n"; print DOT " margin=\"0.25\"; \n"; print DOT " rankdir=\"LR\"; \n"; print DOT " mclimit=\"50.0\"; \n"; print DOT " ordering=\"out\"; \n"; print DOT " center=\"1\";\n"; print DOT "node [shape=\"box\",\n"; print DOT " color=\"#000088\",\n"; print DOT " fillcolor=\"#FFFACD\",\n"; print DOT " fontcolor=\"#3355BB\",\n"; print DOT " style=\"filled\",\n"; print DOT " fontname=\"sans\",\n"; print DOT " fontsize=\"24\"\n"; print DOT "];\n"; print DOT "edge [dir=\"forward\",style=\"solid\",color=\"#000088\"];\n"; } # Print libraries first foreach my $lib (@libs) { gen_one_entry($lib); } if ($PEROBJ) { foreach my $obj (keys %objdeps) { print "$obj:"; if (!$PEROBJINCL) { foreach my $dep (keys %{$objdeps{$obj}}) { print " $dep"; } } print "\n"; } } if (!$FLAT) { print DOT "}\n"; close DOT; open DOT, "| $DotPath -Tgif > objdeps.gif"; print DOT "digraph ObjDeps {\n"; print DOT " size=\"8,10\";\n"; print DOT " margin=\"0.25\";\n"; print DOT " rankdir=\"LR\";\n"; print DOT " mclimit=\"50.0\";\n"; print DOT " ordering=\"out\";\n"; print DOT " center=\"1\";\n"; print DOT "node [shape=\"box\",\n"; print DOT " color=\"#000088\",\n"; print DOT " fillcolor=\"#FFFACD\",\n"; print DOT " fontcolor=\"#3355BB\",\n"; print DOT " fontname=\"sans\",\n"; print DOT " style=\"filled\",\n"; print DOT " fontsize=\"24\"\n"; print DOT "];\n"; print DOT "edge [dir=\"forward\",style=\"solid\",color=\"#000088\"];\n"; } # Print objects second foreach my $obj (@objs) { gen_one_entry($obj); } if (!$FLAT) { print DOT "}\n"; close DOT; # Print end tag of definition list element print "
\n"; }