gcc-optimize-la.pl

   1 #!/usr/bin/perl
   2
   3 sub trim
   4 {
   5     my $string = shift;
   6     $string =~ s/^\s+//;
   7     $string =~ s/\s+$//;
   8     return $string;
   9 }
  10
  11 open(F, $ARGV[0]) or die("cannot open file: $ARGV[0]\n");
  12 @lines = <F>;
  13 close(F);
  14
  15 @deps = ();
  16
  17 foreach (@lines)
  18 {
  19     if (/(^dependency_libs='(.*)')/)
  20     {
  21         @libs = split(/[\ \t\n]+/, trim($2));
  22         %seen = ();
  23         @uniqs = sort(grep { ! $seen{$_} ++ } @libs);
  24         @L = grep(/^-L.*gcc\/.*\/\d\.\d\.\d$/, @uniqs);
  25         @l = grep(/^-l.*/, @uniqs);
  26         $opt_L = join(' ', @L);
  27         $opt_l = join(' ', @l);
  28         print("dependency_libs='");
  29         print($opt_L);
  30         if (scalar(@L))
  31         {
  32             print(" ");
  33         }
  34         print($opt_l);
  35         print("'\n");
  36     }
  37     elsif (/^libdir='(.*)'/)
  38     {
  39         print("libdir='$ARGV[1]'\n");
  40     }
  41     else
  42     {
  43         print($_);
  44     }
  45 }