| | 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 = "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 ($sec, $min, $hour, , $day, $mon, $year, $wday, $yday, $isdst) = localtime; |
| | 13 | $year += 1900; |
| | 14 | |
| | 15 | my $command = "find $icuSource -type f -mtime -$yday | fgrep -v -f cpyskip.txt"; |
| | 16 | my @files = `$command`; |
| | 17 | @files = grep(!/$ignore/, @files); |
| | 18 | my $file; |
| | 19 | foreach $file (@files) { |
| | 20 | chomp $file; |
| | 21 | my @lines = `head -n 20 "$file"`; |
| | 22 | if (grep(/copyright.*$year/i, @lines) == 0) { |
| | 23 | print "$file\n"; |
| | 24 | } |
| | 25 | } |
projects / apple / icu.git / blame_incremental