1 #!/usr/local/bin/perl -w
2 # Clean the dependency list in a makefile of standard includes...
3 # Written by Ben Laurie <ben@algroup.co.uk> 19 Jan 1999
9 last if /^# DO NOT DELETE THIS LINE/;
14 # Fetch all the dependency output first
17 my ($dummy, $file,$deps)=/^((.*):)? (.*)$/;
18 $thisfile=$file if defined $file;
19 next if !defined $deps;
20 my @deps=split ' ',$deps;
21 @deps=grep(!/^\\$/,@deps);
22 push @{$files{$thisfile}},@deps;
27 # Time to clean out possible system directories and normalise quirks
28 # from different makedepend methods
29 foreach $file (sort keys %files) {
30 # This gets around a quirk with gcc, which removes all directory
31 # information from the original file
34 (my $origfile)=grep(/(^|\/)${tmpfile}$/,@{$files{$file}});
35 my $newfile=$origfile;
37 if ($newfile ne $file) {
38 $files{$newfile} = $files{$file};
45 grep(!/^$origfile$/, @{$files{$file}}));
48 foreach $file (sort keys %files) {
52 $origfile=~s/\.o$/.c/;
54 push @{$files{$file}},$origfile;
57 # Remove leading ./ before sorting
58 my @deps = map { $_ =~ s/^\.\///; $_ } @{$files{$file}};
60 foreach $dep (sort @deps) {
62 next if $prevdep eq $dep; # to exterminate duplicates...
64 $len=0 if $len+length($dep)+1 >= 80;