diff options
Diffstat (limited to 'Build/source/libs/icu/icu-xetex/tools/cpysearch/cpyscan.pl')
-rwxr-xr-x | Build/source/libs/icu/icu-xetex/tools/cpysearch/cpyscan.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/Build/source/libs/icu/icu-xetex/tools/cpysearch/cpyscan.pl b/Build/source/libs/icu/icu-xetex/tools/cpysearch/cpyscan.pl new file mode 100755 index 00000000000..b386bfde974 --- /dev/null +++ b/Build/source/libs/icu/icu-xetex/tools/cpysearch/cpyscan.pl @@ -0,0 +1,25 @@ +#!/usr/bin/perl -w +# *********************************************************************** +# * COPYRIGHT: +# * Copyright (c) 2002-2007, 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; + +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"; + +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"; + } +} |