solenv/bin/concat-deps.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

#! /usr/bin/env perl

# reads a list of dependency files from a file, opens and
# concatenates them, while eliding duplicate nop rules.

sub read_depfiles($)
{
    my $name = shift;
    my $depfh;
    my @files;
    open ($depfh, $name) || die "Can't open list of dependencies: $name: $!";
    while (<$depfh>) {
	push @files, split(/\s+/, $_);
    }
    close ($depfh);

#    print STDERR "dep files: " . join ("'", @files) . "\n";
    return @files;
}

my @depfiles = read_depfiles (shift @ARGV);

my %rules;
print "# concatenated, reduced dependencies generated by solenv/bin/concat-deps.pl\n";

for my $fname (@depfiles) {
    my $fileh;

    next if ($fname eq '');
    open ($fileh, $fname) || die "Can't open $fname: $!\n";

    my $last = '';
    while (<$fileh>) {
	my $line = $_;
	if ($line eq "\n") {
	    if ($last =~ /^(.*):\s*$/) {
		if (defined $rules{$1}) {
		    $last = '';
		    next;
		}
		$rules{$1} = 1;
	    }
	}
	print $last;
	$last = $line;
    }
    print $last;

    close ($fileh);
}