Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(706)

Side by Side Diff: openssl/util/clean-depend.pl

Issue 9254031: Upgrade chrome's OpenSSL to same version Android ships with. (Closed) Base URL: http://src.chromium.org/svn/trunk/deps/third_party/openssl/
Patch Set: '' Created 8 years, 11 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View unified diff | Download patch | Annotate | Revision Log
« no previous file with comments | « openssl/util/ck_errf.pl ('k') | openssl/util/copy.pl » ('j') | no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
OLDNEW
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
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";
OLDNEW
« no previous file with comments | « openssl/util/ck_errf.pl ('k') | openssl/util/copy.pl » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698