[apple/icu.git] / icuSources / tools / cpysearch / cpyscan.pl

#!/usr/bin/perl -w
#  ***********************************************************************
#  * COPYRIGHT:
#  * Copyright (c) 2002-2004, International Business Machines Corporation
#  * and others. All Rights Reserved.
#  ***********************************************************************
use strict;

my $icuSource = $ARGV[0];
my $ignore = "data/out/build|CVS|\\~|\\#|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";

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";
  }
}
Commit	Line	Data
374ca955 A	1	#!/usr/bin/perl -w
	2	# ***********************************************************************
	3	# * COPYRIGHT:
	4	# * Copyright (c) 2002-2004, International Business Machines Corporation
	5	# * and others. All Rights Reserved.
	6	# ***********************************************************************
	7	use strict;
	8
	9	my $icuSource = $ARGV[0];
	10	my $ignore = "data/out/build\|CVS\|\\~\|\\#\|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";
	11
	12	my $command = "find $icuSource -type f \| fgrep -v -f cpyskip.txt";
	13	my @files = `$command`;
	14	@files = grep(!/$ignore/, @files);
	15	my $file;
	16	foreach $file (@files) {
	17	chomp $file;
	18	my @lines = `head -n 20 "$file"`;
	19	if (grep(/copyright.*(international\|ibm)/i, @lines) == 0) {
	20	print "$file\n";
	21	}
	22	}