solenv/bin/concat-deps.pl

   1 #! /usr/bin/env perl
   2
   3 # reads a list of dependency files from a file, opens and
   4 # concatenates them, while eliding duplicate nop rules.
   5 use File::Spec;
   6
   7 sub read_depfiles($)
   8 {
   9     my $name = shift;
  10     my $depfh;
  11     my @files;
  12     open ($depfh, $name) || die "Can't open list of dependencies: $name: $!";
  13     while (<$depfh>) {
  14         push @files, split(/\s+/, $_);
  15     }
  16     close ($depfh);
  17
  18 #    print STDERR "dep files: " . join ("'", @files) . "\n";
  19     return @files;
  20 }
  21
  22 my @depfiles = read_depfiles (shift @ARGV);
  23
  24 my %rules;
  25 print "# concatenated, reduced dependencies generated by solenv/bin/concat-deps.pl\n";
  26 print "# generated with \$(SRCDIR) = $ENV{SRCDIR}\n";
  27
  28 sub canonicalize_path($)
  29 {
  30     my $line = shift;
  31     $line =~ /^(\s*)([^\s\n:]*)(.*\n?)$/;
  32     my $pre = $1;
  33     my $path = $2;
  34     my $post =$3;
  35     if (length($path) > 0 && index($path,$ENV{SRCDIR}) == 0) {
  36         $path = File::Spec->rel2abs($2);
  37         $path = "\$(SRCDIR)" . substr($path, length($ENV{SRCDIR}));
  38     }
  39     #print "## $pre$path$post";
  40     return "$pre$path$post";
  41 }
  42
  43 for my $fname (@depfiles) {
  44     my $fileh;
  45
  46     next if ($fname eq '');
  47     open ($fileh, $fname) || die "Can't open $fname: $!\n";
  48
  49     my $last = '';
  50     while (<$fileh>) {
  51         my $line = canonicalize_path($_);
  52 #        print "# $line";
  53         if ($line eq "\n") {
  54             if ($last =~ /^(.*):\s*$/) {
  55                 if (defined $rules{$1}) {
  56                     $last = '';
  57                     next;
  58                 }
  59                 $rules{$1} = 1;
  60             }
  61         }
  62         print $last;
  63         $last = $line;
  64     }
  65     print "$last\n"; # in case of missing newline
  66
  67     close ($fileh);
  68 }