| OLD | NEW | 
|---|
| 1 #!/usr/local/bin/perl -w | 1 #!/usr/local/bin/perl -w | 
| 2 # Clean the dependency list in a makefile of standard includes... | 2 # Clean the dependency list in a makefile of standard includes... | 
| 3 # Written by Ben Laurie <ben@algroup.co.uk> 19 Jan 1999 | 3 # Written by Ben Laurie <ben@algroup.co.uk> 19 Jan 1999 | 
| 4 | 4 | 
| 5 use strict; | 5 use strict; | 
| 6 | 6 | 
| 7 while(<STDIN>) { | 7 while(<STDIN>) { | 
| 8     print; | 8     print; | 
| 9     last if /^# DO NOT DELETE THIS LINE/; | 9     last if /^# DO NOT DELETE THIS LINE/; | 
| 10 } | 10 } | 
| (...skipping 24 matching lines...) Expand all  Loading... | 
| 35     my $origfile=$file; | 35     my $origfile=$file; | 
| 36     $origfile=~s/\.o$/.c/; | 36     $origfile=~s/\.o$/.c/; | 
| 37     $file=~s/^\.\///; | 37     $file=~s/^\.\///; | 
| 38     push @{$files{$file}},$origfile; | 38     push @{$files{$file}},$origfile; | 
| 39     my $prevdep=""; | 39     my $prevdep=""; | 
| 40 | 40 | 
| 41     # Remove leading ./ before sorting | 41     # Remove leading ./ before sorting | 
| 42     my @deps = map { $_ =~ s/^\.\///; $_ } @{$files{$file}}; | 42     my @deps = map { $_ =~ s/^\.\///; $_ } @{$files{$file}}; | 
| 43 | 43 | 
| 44     foreach $dep (sort @deps) { | 44     foreach $dep (sort @deps) { | 
|  | 45         $dep=~s/^\.\///; | 
| 45         next if $prevdep eq $dep; # to exterminate duplicates... | 46         next if $prevdep eq $dep; # to exterminate duplicates... | 
| 46         $prevdep = $dep; | 47         $prevdep = $dep; | 
| 47         $len=0 if $len+length($dep)+1 >= 80; | 48         $len=0 if $len+length($dep)+1 >= 80; | 
| 48         if($len == 0) { | 49         if($len == 0) { | 
| 49             print "\n$file:"; | 50             print "\n$file:"; | 
| 50             $len=length($file)+1; | 51             $len=length($file)+1; | 
| 51         } | 52         } | 
| 52         print " $dep"; | 53         print " $dep"; | 
| 53         $len+=length($dep)+1; | 54         $len+=length($dep)+1; | 
| 54     } | 55     } | 
| 55 } | 56 } | 
| 56 | 57 | 
| 57 print "\n"; | 58 print "\n"; | 
| OLD | NEW | 
|---|