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         @L = grep(/^-L.*gcc\/.*\/\d\.\d\.\d(\/32)*$/, @libs);
  23         @l = grep(/^-l.*/, @libs);
  24         $opt_L = join(' ', @L);
  25         $opt_l = join(' ', @l);
  26         print("dependency_libs='");
  27         print($opt_L);
  28         if (scalar(@L))
  29         {
  30             print(" ");
  31         }
  32         print($opt_l);
  33         print("'\n");
  34     }
  35     elsif (/^libdir='(.*)'/)
  36     {
  37         print("libdir='$ARGV[1]'\n");
  38     }
  39     else
  40     {
  41         print($_);
  42     }
  43 }