diff options
Diffstat (limited to 'WebKitTools/Scripts/do-webcore-rename')
| -rwxr-xr-x | WebKitTools/Scripts/do-webcore-rename | 199 |
1 files changed, 0 insertions, 199 deletions
diff --git a/WebKitTools/Scripts/do-webcore-rename b/WebKitTools/Scripts/do-webcore-rename deleted file mode 100755 index edfe2dc..0000000 --- a/WebKitTools/Scripts/do-webcore-rename +++ /dev/null @@ -1,199 +0,0 @@ -#!/usr/bin/perl -w - -# Copyright (C) 2006, 2007, 2008 Apple Inc. All rights reserved. -# -# Redistribution and use in source and binary forms, with or without -# modification, are permitted provided that the following conditions -# are met: -# -# 1. Redistributions of source code must retain the above copyright -# notice, this list of conditions and the following disclaimer. -# 2. Redistributions in binary form must reproduce the above copyright -# notice, this list of conditions and the following disclaimer in the -# documentation and/or other materials provided with the distribution. -# 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of -# its contributors may be used to endorse or promote products derived -# from this software without specific prior written permission. -# -# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY -# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE -# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY -# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES -# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; -# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND -# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF -# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -# Script to do a rename in JavaScriptCore, WebCore, and WebKit. - -use strict; -use FindBin; -use lib $FindBin::Bin; -use webkitdirs; -use File::Find; - -setConfiguration(); -chdirWebKit(); - -my %words; - -# find all files we want to process - -my @paths; -find(\&wanted, "JavaScriptCore"); -find(\&wanted, "JavaScriptGlue"); -find(\&wanted, "WebCore"); -find(\&wanted, "WebKit"); - -sub wanted -{ - my $file = $_; - - if ($file eq "icu") { - $File::Find::prune = 1; - return; - } - - if ($file =~ /^\../) { - $File::Find::prune = 1; - return; - } - - return if $file =~ /^ChangeLog/; - return if -d $file; - - push @paths, $File::Find::name; -} - -my %renames = ( -); - -my %renamesContemplatedForTheFuture = ( - "StructureID" => "Structure", - "StructureIDChain" => "StructureChain", - "StructureIDs" => "Structures", - "StructureID_h" => "Structure_h", - "StructureIDChain_h" => "StructureChain_h", - "activationStructureID" => "activationStructure", - "createStructureID" => "createStructure", - "currStructureID" => "currStructure", - "derefStructureIDs" => "derefStructures", - "liveStructureIDSet" => "liveStructureSet", - "m_structureID" => "mm_structure", - "newStructureID" => "newStructureID", - "numberStructureID" => "numberStructure", - "oldStructureID" => "oldStructure", - "printStructureIDs" => "printStructures", - "refStructureIDs" => "refStructures", - "repatchGetByIdDefaultStructureID" => "repatchGetByIdDefaultStructure", - "repatchOffsetGetByIdStructureID" => "repatchOffsetGetByIdStructure", - "repatchOffsetPutByIdStructureID" => "repatchOffsetPutByIdStructure", - "sIDC" => "chain", - "setCachedStructureID" => "setCachedStructureID", - "staticScopeStructureID" => "staticScopeStructure", - "stringStructureID" => "stringStructure", - "structureID" => "structure", - "structureIDAddr" => "structureAddress", - "structureIDChain" => "structureChain", - "structureIDCounter" => "structureCounter", - "structureIDInstructionIndex" => "structureInstructionIndex", - "structureIDInstructions" => "structureInstructions", - - "DOMObject" => "JSDOMObject", - - "runtimeObjectGetter" => "pluginElementGetter", - "runtimeObjectPropertyGetter" => "pluginElementPropertyGetter", - "runtimeObjectCustomGetOwnPropertySlot" => "pluginElementCustomGetOwnPropertySlot", - "runtimeObjectCustomPut" => "pluginElementCustomPut", - "runtimeObjectImplementsCall" => "pluginElementImplementsCall", - "runtimeObjectCallAsFunction" => "pluginElementCallAsFunction", - - "CLONE_CONTENTS" => "Clone", - "DELETE_CONTENTS" => "Delete", - "EXTRACT_CONTENTS" => "Extract", - - "DateInstance" => "JSDate", - "ErrorInstance" => "JSError", - - "ImageConstructorImp" => "JSImageConstructor", - "Navigator" => "JSNavigator", - - "JSHTMLOptionElementConstructor" => "JSOptionConstructor", - "XSLTProcessorPrototypeTable" => "JSXSLTProcessorPrototypeTable", - - "KURL" => "URL", - "KURLCFNet" => "URLCF", - "KURLHash" => "URLHash", - "KURLMac" => "URLMac", - "KURL_H_" => "URL_h", - - "ThreadSafeShared" => "ThreadSafeRefCounted", - "TreeShared" => "TreeRefCounted", - - "StringImpl" => "SharedString", - - "RenderView" => "RenderViewport", - - "ObjcFallbackObjectImp" => "ObjCFallbackObject", - "RuntimeObjectImp" => "ForeignObject", - - "equalIgnoringCase" => "equalFoldingCase", - - "FTPDirectoryTokenizer" => "FTPDirectoryDocumentBuilder", - "HTMLTokenizer" => "HTMLDocumentBuilder", - "ImageTokenizer" => "ImageDocumentBuilder", - "PluginTokenizer" => "PluginDocumentBuilder", - "TextTokenizer" => "TextDocumentBuilder", - "Tokenizer" => "DocumentBuilder", - "Tokenizer_h" => "DocumentBuilder_h", - "XMLTokenizer" => "XMLDocumentBuilder", - "isHTMLTokenizer" => "isHTMLDocumentBuilder", - "m_tokenizer" => "m_builder", - "createTokenizer" => "createBuilder", - "tokenizerProcessedData" => "documentBuilderProcessedData", -); - -# rename files - -my %newFile; -for my $file (sort @paths) { - my $f = $file; - $f = "$1$renames{$2}$3" if $f =~ /^(.*\/)(\w+)(\.\w+)$/ && $renames{$2}; - if ($f ne $file) { - $newFile{$file} = $f; - } -} - -for my $file (sort @paths) { - if ($newFile{$file}) { - my $newFile = $newFile{$file}; - print "Renaming $file to $newFile\n"; - system "svn move $file $newFile"; - } -} - -# change all file contents - -for my $file (sort @paths) { - $file = $newFile{$file} if $newFile{$file}; - my $contents; - { - local $/; - open FILE, $file or die; - $contents = <FILE>; - close FILE; - } - my $newContents = $contents; - - for my $from (keys %renames) { - $newContents =~ s/\b$from(?!["\w])/$renames{$from}/g; # this " unconfuses Xcode syntax highlighting - } - - if ($newContents ne $contents) { - open FILE, ">", $file or die; - print FILE $newContents; - close FILE; - } -} |