mirrors/mc
1
0
Fork 0
mirror of https://github.com/MidnightCommander/mc synced 2024-12-22 20:36:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Discard libraries with absolute path.

Browse Source 
Sort the output and group by object files.
This commit is contained in:
Pavel Roskin 2003-10-15 16:51:21 +00:00
parent 26ce05dfa3
commit dffb87e481
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
maint/unrefglobals.pl
View File

@ -7,6 +7,10 @@
use strict;
my %symbols;
my %syms;
my %objs;
if ($#ARGV != 0) {
print "Usage: unrefglobals.pl mapfile\n";
exit 1;
@ -24,10 +28,20 @@ while (1) {
$line = $next_line;
$next_line = <MAP>;
next unless ($line =~ m{^[A-Za-z_][A-Za-z0-9_]* +[^ /][^ ]+\.o$} or
$line =~ m{^[A-Za-z_][A-Za-z0-9_]* +[^ ]+\.a\([^ ]+\.o\)$});
$line =~ m{^[A-Za-z_][A-Za-z0-9_]* +[^ /][^ ]+\.a\([^ ]+\.o\)$});
if (!$next_line or ($next_line !~ /^ /)) {
print $line;
my @arr = split (' ', $line);
$symbols{$arr[0]} = $arr[1];
$syms{$arr[0]} = 1;
$objs{$arr[1]} = 1;
}
}
close(MAP);
foreach my $obj (sort keys %objs) {
print "$obj\n";
foreach my $sym (sort keys %syms) {
print " $sym\n" if ($symbols{$sym} eq $obj);
}
}