diff options
author | Jonathan Kew <jfkthame@googlemail.com> | 2008-03-04 13:21:23 +0000 |
---|---|---|
committer | Jonathan Kew <jfkthame@googlemail.com> | 2008-03-04 13:21:23 +0000 |
commit | f483a5de9331a257f597282e611ecfb63f5ab118 (patch) | |
tree | 756baa5a727dd0438448eb380bb6ca81fb41d534 /Build/source/libs/icu-xetex/tools/cpysearch/cpyscan.pl | |
parent | e2603863b071e717675b6a69e97c45a42e55bf2c (diff) |
remove old icu version
git-svn-id: svn://tug.org/texlive/trunk@6841 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/libs/icu-xetex/tools/cpysearch/cpyscan.pl')
-rw-r--r-- | Build/source/libs/icu-xetex/tools/cpysearch/cpyscan.pl | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/Build/source/libs/icu-xetex/tools/cpysearch/cpyscan.pl b/Build/source/libs/icu-xetex/tools/cpysearch/cpyscan.pl deleted file mode 100644 index eab4f36a272..00000000000 --- a/Build/source/libs/icu-xetex/tools/cpysearch/cpyscan.pl +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl -w -# *********************************************************************** -# * COPYRIGHT: -# * Copyright (c) 2002-2005, 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|\\~|\\#|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"; - } -} |