079c805b7aaf895a110ce58e9889e52980f8bc80
[WebKit-https.git] / WebKitTools / Scripts / do-webcore-rename
1 #!/usr/bin/perl -w
2
3 # Copyright (C) 2006 Apple Computer, 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 Computer, 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 a rename in WebCore. It's sort of a "one time use" script,
30 # but we might change it around for other uses later.
31
32 use strict;
33 use FindBin;
34 use lib $FindBin::Bin;
35 use webkitdirs;
36 use File::Find;
37
38 setConfiguration();
39 chdirWebKit();
40
41 my %words;
42
43 # find all files in WebCore we want to process
44
45 my @paths;
46 find(\&wanted, "WebCore");
47
48 sub wanted
49 {
50     my $file = $_;
51
52     if ($file eq "icu") {
53         $File::Find::prune = 1;
54         return;
55     }
56
57     if ($file =~ /^\../) {
58         $File::Find::prune = 1;
59         return;
60     }
61
62     return if $file =~ /^ChangeLog/;
63     return if -d $file;
64
65     push @paths, $File::Find::name;
66 }
67
68 my %renames = (
69     "CachedObject" => "CachedResource",
70     "CachedObjectClient" => "CachedResourceClient",
71     "CachedObjectClientWalker" => "CachedResourceClientWalker",
72     "CachedObjectClientWalker_h" => "CachedResourceClientWalker_h",
73     "CachedObject_h" => "CachedResource_h",
74     "LOADER_CACHED_OBJECT_CLIENT_H" => "CachedResourceClient_h",
75     "AccessibilityObjectCache" => "AXObjectCache",
76     "AccessibilityObjectCache_h" => "AXObjectCache_h",
77     "m_accCache" => "m_axObjectCache",
78     "getAccObjectCache" => "axObjectCache",
79 );
80
81 # rename files
82
83 my %newFile;
84 for my $file (sort @paths) {
85     my $f = $file;
86     $f = "$1$renames{$2}$3" if $f =~ /^(.*\/)(\w+)(\.\w+)$/ && $renames{$2};
87     if ($f ne $file) {
88         $newFile{$file} = $f;
89     }
90 }
91
92 for my $file (sort @paths) {
93     if ($newFile{$file}) {
94         my $newFile = $newFile{$file};
95         print "Renaming $file to $newFile\n";
96         system "svn move $file $newFile";
97     }
98 }
99
100 # change all file contents
101
102 for my $file (sort @paths) {
103     $file = $newFile{$file} if $newFile{$file};
104     my $contents;
105     {
106         local $/;
107         open FILE, $file or die;
108         $contents = <FILE>;
109         close FILE;
110     }
111     my $newContents = $contents;
112
113     for my $from (keys %renames) {
114         $newContents =~ s/\b$from(?!["\w])/$renames{$from}/g; # this " unconfuses Xcode syntax highlighting
115     }
116
117     if ($newContents ne $contents) {
118         open FILE, ">", $file or die;
119         print FILE $newContents;
120         close FILE;
121     }
122 }