Apple-2-SW/contiki
1
0
Fork 0
mirror of https://github.com/oliverschmidt/contiki.git synced 2024-11-10 21:05:04 +00:00
Code Issues Projects Releases Wiki Activity

add jim's map2dot tool

Browse Source
This commit is contained in:
Mariano Alvira 2010-03-01 18:02:46 -05:00
parent 58561f5b71
commit ff146c7e9f
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
tools/map2dot.pl Executable file
View File

@ -0,0 +1,31 @@
#!/usr/bin/perl
# Try:
# gcc -static -o test test.c -Wl,--print-map | perl parse-map.pl | unflatten -l 3 | dot -Tpng > map.png
#
# This won't show all edges! An archive member is only listed the first
# time it needs to get included. But this shows at least one reason why each
# archive member appears in the final object.
my $flag = 0;
my $line = "";
print "digraph map {\n";
print "rankdir = LR;";
while(<>)
{
$flag++ if /^Archive member included because of file \(symbol\)$/;
$flag++ if /^$/;
next unless $flag == 2;
chomp ($line .= $_);
if ($line =~ /^(\S+)\s+(\S+)\s+\(([^)]+)\)$/s) {
$line = "";
my $archive_member = $1;
my $because_file = $2;
my $because_symbol = $3;
$archive_member =~ s|.*/([^/]+)|$1|;
$because_file =~ s|.*/([^/]+)|$1|;
print "\"$because_file\" -> \"$archive_member\";\n";
}
}
print "}\n";