mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add -s option to show a sorted list of symbols by size instead

Browse Source 
Change-Id: I2c6c46f4f570f4999154daa7e0f84f6ecd6f2d79
This commit is contained in:
Tor Lillqvist 2014-04-25 09:06:50 +03:00
parent 5d55ebe884
commit 48201fc93d
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
bin/ios-mapfile-statistics
View File

@ -2,9 +2,16 @@
use strict;
use Getopt::Std;
my %args;
getopts('s', \%args);
my $state = 0;
my %libofnumber;
my %sizeoflib;
my %sizeofsym;
while (<>) {
if ($state == 0 && m!^# Object files:!) {
@ -19,9 +26,18 @@ while (<>) {
if (defined($libofnumber{$2})) {
$sizeoflib{$libofnumber{$2}} += hex($1);
}
$sizeofsym{$3} = hex($1);
}
}
foreach (sort keys(%sizeoflib)) {
print $_, ": ", $sizeoflib{$_}, "\n";
if ($args{'s'}) {
# Print symbols in reverse size order
foreach (sort { $sizeofsym{$b} <=> $sizeofsym{$a} } keys(%sizeofsym)) {
print $_, ": ", $sizeofsym{$_}, "\n";
}
} else {
# Print libraries in reverse size order
foreach (sort { $sizeoflib{$b} <=> $sizeoflib{$a} } keys(%sizeoflib)) {
print $_, ": ", $sizeoflib{$_}, "\n";
}
}