[Libreoffice-commits] core.git: bin/ios-mapfile-statistics

[jan Iversen]

 bin/ios-mapfile-statistics |   78 ---------------------------------------------
 1 file changed, 78 deletions(-)

New commits:
commit b140f92531396c1087b997852d7ece18429b79d1
Author: jan Iversen <jani at libreoffice.org>
Date:   Wed Nov 22 18:58:31 2017 +0100

    iOS, remove unused script.
    
    This script is no longer used for the iOS development,
    and in order to prevent anybody wasting time porting it,
    it is nuked.
    
    Change-Id: I46d520fa9b8aeabee78cfe1f02a25e4d1ead3d7f

diff --git a/bin/ios-mapfile-statistics b/bin/ios-mapfile-statistics
deleted file mode 100755
index 07f3f0aa68b4..000000000000
--- a/bin/ios-mapfile-statistics
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-use Getopt::Std;
-$Getopt::Std::STANDARD_HELP_VERSION++;
-
-my %args;
-
-getopts('f:s', \%args);
-
-sub VERSION_MESSAGE {
-  # Nothing
-}
-
-sub HELP_MESSAGE {
-  print <<EOS
-This program parses a linker map file, especially one produced when linking an iOS executable.
-
-Input is read from a map file provided as command-line argument
-
-By default a list of libraries used and the size of code and data
-linked in from each library is printed, in reverse order of size.
-
-The following options are available:
--s                Print a list of symbols instead.
--f 'filter'       Filter which libraries are handled. The filter can be
-                  a regular expression, typically several library names
-                  combined with the '|' operator. Makes sense only when
-                  -s is used too.
-EOS
-}
-
-die "The -f switch makes sense only if -s is also used\n" if defined($args{'f'}) && !defined($args{'s'});
-
-die "Please provide one map file name\n" if !defined($ARGV[0]);
-
-die "Just one argument please\n" if defined($ARGV[1]);
-
-my $state = 0;
-my %libofnumber;
-my %sizeoflib;
-my %sizeofsym;
-
-open(INPUT, '<', $ARGV[0]) || die "Could not open $ARGV[0]: $!\n";
-
-while (<INPUT>) {
-  if ($state == 0 && m!^# Object files:!) {
-    $state = 1;
-  } elsif ($state == 1 && m!^\[ *([0-9]+)\] .*/([-_a-z0-9]+\.a)\(.*!i) {
-    $libofnumber{$1} = $2;
-  } elsif ($state == 1 && m!^# Sections:!) {
-    $state = 2;
-  } elsif ($state == 2 && m!^# Address\s+Size\s+File\s+Name!) {
-    $state = 3;
-  } elsif ($state == 3 && m!^0x[0-9A-F]+\s+(0x[0-9A-F]+)\s+\[ *([0-9]+)\] (.*)!) {
-    my ($size,$libnum,$symbol) = ($1, $2, $3);
-    if (defined($libofnumber{$libnum})) {
-      $sizeoflib{$libofnumber{$libnum}} += hex($size);
-      if (!defined($args{'f'}) || $libofnumber{$libnum} =~ /$args{'f'}/) {
-	  $sizeofsym{$symbol} = hex($size);
-	}
-    }
-  }
-}
-
-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";
-  }
-}
-