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
14 last if /^# DO NOT DELETE THIS LINE/;
19 # Fetch all the dependency output first
22 my ($dummy, $file,$deps)=/^((.*):)? (.*)$/;
23 $thisfile=$file if defined $file;
24 next if !defined $deps;
25 my @deps=split ' ',$deps;
26 @deps=grep(!/^\\$/,@deps);
27 push @{$files{$thisfile}},@deps;
32 # Time to clean out possible system directories and normalise quirks
33 # from different makedepend methods
34 foreach $file (sort keys %files) {
35 # This gets around a quirk with gcc, which removes all directory
36 # information from the original file
39 (my $origfile)=grep(/(^|\/)${tmpfile}$/,@{$files{$file}});
40 my $newfile=$origfile;
42 if ($newfile ne $file) {
43 $files{$newfile} = $files{$file};
50 grep(!/^$origfile$/, @{$files{$file}}));
53 foreach $file (sort keys %files) {
57 $origfile=~s/\.o$/.c/;
59 push @{$files{$file}},$origfile;
62 # Remove leading ./ before sorting
63 my @deps = map { $_ =~ s/^\.\///; $_ } @{$files{$file}};
65 @deps = map { $_ =~ s|^../$path/||; $_ } @deps;
67 foreach $dep (sort @deps) {
69 next if $prevdep eq $dep; # to exterminate duplicates...
71 $len=0 if $len+length($dep)+1 >= 80;