Update tools and configurations after renaming Source/WebKit to Source/WebKitLegacy.
[WebKit-https.git] / Tools / Scripts / do-file-rename
1 #!/usr/bin/perl -w
2
3 # Copyright (C) 2006, 2008 Apple Inc. All rights reserved.
4 #
5 # Redistribution and use in source and binary forms, with or without
6 # modification, are permitted provided that the following conditions
7 # are met:
8 #
9 # 1.  Redistributions of source code must retain the above copyright
10 #     notice, this list of conditions and the following disclaimer. 
11 # 2.  Redistributions in binary form must reproduce the above copyright
12 #     notice, this list of conditions and the following disclaimer in the
13 #     documentation and/or other materials provided with the distribution. 
14 # 3.  Neither the name of Apple Inc. ("Apple") nor the names of
15 #     its contributors may be used to endorse or promote products derived
16 #     from this software without specific prior written permission. 
17 #
18 # THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY
19 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
20 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
21 # DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY
22 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
23 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
24 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
25 # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28
29 # Script to do file renaming.
30
31 use strict;
32 use File::Find;
33 use FindBin;
34 use lib $FindBin::Bin;
35 use webkitdirs;
36 use VCSUtils;
37
38 setConfiguration();
39 chdirWebKit();
40
41 my %words;
42
43 # find all files we want to process
44
45 my @paths;
46 find(\&wanted, "Source/JavaScriptCore");
47 find(\&wanted, "Source/WebCore");
48 find(\&wanted, "Source/WebKitLegacy");
49 find(\&wanted, "Source/WebKit2");
50
51 sub wanted
52 {
53     my $file = $_;
54
55     if ($file eq "icu") {
56         $File::Find::prune = 1;
57         return;
58     }
59
60     if ($file =~ /^\../) {
61         $File::Find::prune = 1;
62         return;
63     }
64
65     return if $file =~ /^ChangeLog/;
66     return if -d $file;
67
68     push @paths, $File::Find::name;
69 }
70
71 my %renames = (
72 );
73
74 my %renamesContemplatedForTheFuture = (
75 );
76
77 # rename files
78
79 my %newFile;
80 for my $file (sort @paths) {
81     my $f = $file;
82     $f = "$1$renames{$2}" if $f =~ /^(.*\/)(\w+\.\w+)$/ && $renames{$2};
83     $newFile{$file} = $f if $f ne $file;
84 }
85
86 for my $file (sort @paths) {
87     if ($newFile{$file}) {
88         my $newFile = $newFile{$file};
89         print "Renaming $file to $newFile\n";
90         scmMoveOrRenameFile($file, $newFile);
91     }
92 }
93
94 # change all file contents
95
96 for my $file (sort @paths) {
97     $file = $newFile{$file} if $newFile{$file};
98     my $contents;
99     {
100         local $/;
101         open FILE, $file or die;
102         $contents = <FILE>;
103         close FILE;
104     }
105     my $newContents = $contents;
106
107     for my $from (keys %renames) {
108         $newContents =~ s/\b\Q$from\E(?!\w)/$renames{$from}/g; # this " unconfuses Xcode syntax highlighting
109     }
110
111     if ($newContents ne $contents) {
112         open FILE, ">", $file or die;
113         print FILE $newContents;
114         close FILE;
115     }
116 }