1563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark#!/usr/bin/perl -w 2563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 3563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# Copyright (C) 2006 Apple Computer, Inc. All rights reserved. 4563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 5563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# Redistribution and use in source and binary forms, with or without 6563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# modification, are permitted provided that the following conditions 7563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# are met: 8563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 9563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 1. Redistributions of source code must retain the above copyright 10563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# notice, this list of conditions and the following disclaimer. 11563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 2. Redistributions in binary form must reproduce the above copyright 12563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# notice, this list of conditions and the following disclaimer in the 13563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# documentation and/or other materials provided with the distribution. 14563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of 15563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# its contributors may be used to endorse or promote products derived 16563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# from this software without specific prior written permission. 17563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# 18563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY 19563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 20563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 21563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY 22563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 23563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 24563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND 25563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 26563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 27563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 28563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 29563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# Used for splitting a single file into multiple class files 30563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark# Usage: split-class <header file> 31563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 32563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkuse strict; 33563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkuse File::Copy; 34563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkuse FindBin; 35563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkuse lib $FindBin::Bin; 36563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkuse SpacingHeuristics; 37563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 38563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 39563af33bc48281d19dce701398dbb88cb54fd7ecCary Clarkfor my $filename (@ARGV) { 40563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 41563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $filename =~ m/^(\w+)\.h$/ or die "Command line args must be .h files.\n"; 42563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $basename = $1; 43563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 44563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark open(OLDFILE, "<", $filename) or die "File does not exist: $filename\n"; 45563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print "Splitting class $filename.{h,cpp}:\n"; 46563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 47563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $currentClassName = ""; 48563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $classIndent = ""; 49563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $fileContent = ""; 50563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my %classDefs = (); 51563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark while (my $line = <OLDFILE>) { 52563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if ($currentClassName) { 53563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $classDefs{$currentClassName} .= $line; 54563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if ($line =~ /^$classIndent};\s*$/) { 55563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $currentClassName = ""; 56563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 57563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } else { 58563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if ($line =~ /^(\s*)class\s+(\w+)\s+[^;]*$/) { 59563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $classIndent = $1; 60563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $currentClassName = $2; 61563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $classDefs{$currentClassName} .= $line; 62563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $fileContent .= "###CLASS###$currentClassName\n"; 63563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } else { 64563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $fileContent .= $line; 65563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 66563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 67563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 68563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark close(OLDFILE); 69563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 70563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if (scalar(keys(%classDefs)) == 1) { # degenerate case 71563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my ($classname) = keys(%classDefs); 72563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if (!($classname eq $basename)) { 73563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print "Skipping $filename, already correctly named.\n"; 74563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } else { 75563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print "$filename only includes one class, renaming to $classname.h\n"; 76563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark system("svn rm --force $classname.h") if (-r "$classname.h"); 77563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark system "svn mv $basename.h $classname.h"; 78563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 79563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } else { 80563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark while (my ($classname, $classDef) = each(%classDefs)) { 81563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if (($classname eq $basename)) { 82563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print "Skipping $filename, already correctly named.\n"; 83563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } else { 84563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print "Using SVN to copy $basename.{h,cpp} to $classname.{h,cpp}\n"; 85563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 86563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark system("svn rm --force $classname.h") if (-r "$classname.h"); 87563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark system "svn cp $basename.h $classname.h"; 88563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 89563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark system("svn rm --force $classname.cpp") if (-r "$classname.cpp"); 90563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark system "svn cp $basename.cpp $classname.cpp"; 91563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 92563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 93563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print "Fixing $classname.h as much as possible.\n"; 94563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark open(NEWHEADER, ">", "$classname.h") or die "File does not exist: $filename\n"; 95563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my @lines = split("\n", $fileContent); 96563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark foreach my $line (@lines) { 97563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if ($line =~ /^###CLASS###(\w+)/) { 98563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if ($1 eq $classname) { 99563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print NEWHEADER $classDef . "\n"; 100563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 101563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } else { 102563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print NEWHEADER $line . "\n"; 103563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 104563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 105563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark close(NEWHEADER); 106563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 107563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print "Fixing $classname.cpp as much as possible.\n"; 108563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark copy("$classname.cpp", "$classname.cpp.original"); 109563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark open(OLDCPP, "<", "$classname.cpp.original") or die "Failed to copy file for reading: $filename\n"; 110563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark open(NEWCPP, ">", "$classname.cpp") or die "File does not exist: $filename\n"; 111563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $insideMemberFunction = 0; 112563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark my $shouldPrintMemberFunction = 0; 113563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark resetSpacingHeuristics(); 114563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark while (my $line = <OLDCPP>) { 115563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if ($insideMemberFunction) { 116563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if ($shouldPrintMemberFunction) { 117563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print NEWCPP $line; 118563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark #setPreviousAllowedLine($line); 119563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } else { 120563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark ignoringLine($line); 121563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 122563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if ($line =~ /^}\s*$/) { 123563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $insideMemberFunction = 0; 124563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 125563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } elsif ($line =~ /$filename/) { 126563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print NEWCPP "#include \"config.h\"\n"; 127563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print NEWCPP "#include \"$classname.h\"\n"; 128563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } elsif ($line =~ /#include/ || $line =~ /#import/) { 129563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark next; # skip includes, they're generally wrong or unecessary anyway. 130563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } else { 131563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $line =~ s/DOM:://; 132563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $line =~ s/khtml:://; 133563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $line =~ s/namespace DOM/namespace WebCore/; 134563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $line =~ s/namespace khtml/namespace WebCore/; 135563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 136563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if ($line =~ /^(.*?\s+)?(\*|&)?(\w+)::(~)?\w+\s*\(/) { 137563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $insideMemberFunction = 1; 138563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark $shouldPrintMemberFunction = ($classname eq $3); 139563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark if ($shouldPrintMemberFunction) { 140563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark printPendingEmptyLines(*NEWCPP, $line); 141563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print NEWCPP $line; 142563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 143563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } else { 144563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark next if isOnlyWhiteSpace($line); 145563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark next if ($line =~ m/------------/); 146563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark printPendingEmptyLines(*NEWCPP, $line); 147563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark applySpacingHeuristicsAndPrint(*NEWCPP, $line); 148563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 149563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 150563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 151563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark close(NEWCPP); 152563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark close(OLDCPP); 153563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark unlink("$classname.cpp.original"); 154563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 155563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark } 156563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark 157563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark print "Opening new files...\n"; 158563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark system("open " . join(".* ", keys(%classDefs)) . ".*"); 159563af33bc48281d19dce701398dbb88cb54fd7ecCary Clark}