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 file renaming.

    30 

    31 use strict;

    32 use FindBin;

    33 use lib $FindBin::Bin;

    34 use webkitdirs;

    35 use File::Find;

    36 

    37 setConfiguration();

    38 chdirWebKit();

    39 

    40 my %words;

    41 

    42 # find all files we want to process

    43 

    44 my @paths;

    45 find(\&wanted, "WebCore");

    46 

    47 sub wanted

    48 {

    49     my $file = $_;

    50 

    51     if ($file eq "icu") {

    52         $File::Find::prune = 1;

    53         return;

    54     }

    55 

    56     if ($file =~ /^\../) {

    57         $File::Find::prune = 1;

    58         return;

    59     }

    60 

    61     return if $file =~ /^ChangeLog/;

    62     return if -d $file;

    63 

    64     push @paths, $File::Find::name;

    65 }

    66 

    67 my %renames = (

    68     "xxx.mm" => "yyy.mm",

    69 );

    70 

    71 # rename files

    72 

    73 my %newFile;

    74 for my $file (sort @paths) {

    75     my $f = $file;

    76     $f = "$1$renames{$2}" if $f =~ /^(.*\/)(\w+\.\w+)$/ && $renames{$2};

    77     $newFile{$file} = $f if $f ne $file;

    78 }

    79 

    80 for my $file (sort @paths) {

    81     if ($newFile{$file}) {

    82         my $newFile = $newFile{$file};

    83         print "Renaming $file to $newFile\n";

    84         system "svn move $file $newFile";

    85     }

    86 }

    87 

    88 # change all file contents

    89 

    90 for my $file (sort @paths) {

    91     $file = $newFile{$file} if $newFile{$file};

    92     my $contents;

    93     {

    94         local $/;

    95         open FILE, $file or die;

    96         $contents = <FILE>;

    97         close FILE;

    98     }

    99     my $newContents = $contents;

   100 

   101     for my $from (keys %renames) {

   102         $newContents =~ s/\b\Q$from\E(?!["\w])/$renames{$from}/g; # this " unconfuses Xcode syntax highlighting

   103     }

   104 

   105     if ($newContents ne $contents) {

   106         open FILE, ">", $file or die;

   107         print FILE $newContents;

   108         close FILE;

   109     }

   110 }