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='$opt_L $opt_l'\n");
  29     }
  30     elsif (/^libdir='(.*)'/)
  31     {
  32         print("libdir='$ARGV[1]'\n");
  33     }
  34     else
  35     {
  36         print($_);
  37     }
  38 }