organicmaps/icu
13
Fork 0
mirror of https://github.com/unicode-org/icu.git synced 2025-04-06 14:05:32 +00:00
Code Issues 1 Projects Releases Wiki Activity Actions 8

ICU-8863 fix cpyscan.pl

Browse source 
X-SVN-Rev: 30780
This commit is contained in:
Abhinav Gupta 2011-10-03 19:09:39 +00:00
parent 701769facf
commit 6655716bad
1 changed files with 21 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
tools/scripts/cpysearch/cpyscan.pl
View file

@ -1,25 +1,32 @@
#!/usr/bin/perl -w
# ***********************************************************************
# * COPYRIGHT:
# * Copyright (c) 2002-2007, International Business Machines Corporation
# * Copyright (c) 2002-2011, International Business Machines Corporation
# * and others. All Rights Reserved.
# ***********************************************************************
#
# Search for and list files which don't have a copyright notice, and should.
#
use strict;
use warnings;
use File::Find;
my $icuSource = $ARGV[0];
my $ignore = "data/out/build|CVS|\\.svn|\\~|\\#|Debug|Release|\\.dll|\\.ilk|\\.idb|\\.pdb|\\.dsp|\\.dsw|\\.opt|\\.ncb|\\.vcproj|\\.sln|\\.suo|\\.cvsignore|\\.cnv|\\.res|\\.icu|\\.exe|\\.obj|\\.bin|\\.exp|\\.lib|\\.out|\\.plg|positions|unidata|\\.jar|\\.spp|\\.stub|\\.policy|\\.otf|\\.ttf|\\.TTF";
use FindBin qw($Bin);
use lib $Bin;
my $command = "find $icuSource -type f | fgrep -v -f cpyskip.txt";
my @files = `$command`;
@files = grep(!/$ignore/, @files);
my $file;
foreach $file (@files) {
chomp $file;
my @lines = `head -n 20 "$file"`;
if (grep(/copyright.*(international|ibm)/i, @lines) == 0) {
print "$file\n";
}
}
use Cpy;
my $icu_src = $ARGV[0] || ".";
die "Can't open ICU directory: $icu_src" unless -d $icu_src;
find({
wanted => sub {
return unless -f;
return if should_ignore($_);
open F, "<$_" or die "Error opening '$_'.";
my $result = any { $_ =~ /copyright.*(international|ibm)/i } <F>;
close F;
print "$_\n" unless $result;
},
no_chdir => 1,
}, $icu_src);