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 # Used for splitting a single file into multiple class files 30 # Usage: split-class <header file> 31 32 use strict; 33 use File::Copy; 34 use FindBin; 35 use lib $FindBin::Bin; 36 use SpacingHeuristics; 37 38 39 for my $filename (@ARGV) { 40 41 $filename =~ m/^(\w+)\.h$/ or die "Command line args must be .h files.\n"; 42 my $basename = $1; 43 44 open(OLDFILE, "<", $filename) or die "File does not exist: $filename\n"; 45 print "Splitting class $filename.{h,cpp}:\n"; 46 47 my $currentClassName = ""; 48 my $classIndent = ""; 49 my $fileContent = ""; 50 my %classDefs = (); 51 while (my $line = <OLDFILE>) { 52 if ($currentClassName) { 53 $classDefs{$currentClassName} .= $line; 54 if ($line =~ /^$classIndent};\s*$/) { 55 $currentClassName = ""; 56 } 57 } else { 58 if ($line =~ /^(\s*)class\s+(\w+)\s+[^;]*$/) { 59 $classIndent = $1; 60 $currentClassName = $2; 61 $classDefs{$currentClassName} .= $line; 62 $fileContent .= "###CLASS###$currentClassName\n"; 63 } else { 64 $fileContent .= $line; 65 } 66 } 67 } 68 close(OLDFILE); 69 70 if (scalar(keys(%classDefs)) == 1) { # degenerate case 71 my ($classname) = keys(%classDefs); 72 if (!($classname eq $basename)) { 73 print "Skipping $filename, already correctly named.\n"; 74 } else { 75 print "$filename only includes one class, renaming to $classname.h\n"; 76 system("svn rm --force $classname.h") if (-r "$classname.h"); 77 system "svn mv $basename.h $classname.h"; 78 } 79 } else { 80 while (my ($classname, $classDef) = each(%classDefs)) { 81 if (($classname eq $basename)) { 82 print "Skipping $filename, already correctly named.\n"; 83 } else { 84 print "Using SVN to copy $basename.{h,cpp} to $classname.{h,cpp}\n"; 85 86 system("svn rm --force $classname.h") if (-r "$classname.h"); 87 system "svn cp $basename.h $classname.h"; 88 89 system("svn rm --force $classname.cpp") if (-r "$classname.cpp"); 90 system "svn cp $basename.cpp $classname.cpp"; 91 } 92 93 print "Fixing $classname.h as much as possible.\n"; 94 open(NEWHEADER, ">", "$classname.h") or die "File does not exist: $filename\n"; 95 my @lines = split("\n", $fileContent); 96 foreach my $line (@lines) { 97 if ($line =~ /^###CLASS###(\w+)/) { 98 if ($1 eq $classname) { 99 print NEWHEADER $classDef . "\n"; 100 } 101 } else { 102 print NEWHEADER $line . "\n"; 103 } 104 } 105 close(NEWHEADER); 106 107 print "Fixing $classname.cpp as much as possible.\n"; 108 copy("$classname.cpp", "$classname.cpp.original"); 109 open(OLDCPP, "<", "$classname.cpp.original") or die "Failed to copy file for reading: $filename\n"; 110 open(NEWCPP, ">", "$classname.cpp") or die "File does not exist: $filename\n"; 111 my $insideMemberFunction = 0; 112 my $shouldPrintMemberFunction = 0; 113 resetSpacingHeuristics(); 114 while (my $line = <OLDCPP>) { 115 if ($insideMemberFunction) { 116 if ($shouldPrintMemberFunction) { 117 print NEWCPP $line; 118 #setPreviousAllowedLine($line); 119 } else { 120 ignoringLine($line); 121 } 122 if ($line =~ /^}\s*$/) { 123 $insideMemberFunction = 0; 124 } 125 } elsif ($line =~ /$filename/) { 126 print NEWCPP "#include \"config.h\"\n"; 127 print NEWCPP "#include \"$classname.h\"\n"; 128 } elsif ($line =~ /#include/ || $line =~ /#import/) { 129 next; # skip includes, they're generally wrong or unecessary anyway. 130 } else { 131 $line =~ s/DOM:://; 132 $line =~ s/khtml:://; 133 $line =~ s/namespace DOM/namespace WebCore/; 134 $line =~ s/namespace khtml/namespace WebCore/; 135 136 if ($line =~ /^(.*?\s+)?(\*|&)?(\w+)::(~)?\w+\s*\(/) { 137 $insideMemberFunction = 1; 138 $shouldPrintMemberFunction = ($classname eq $3); 139 if ($shouldPrintMemberFunction) { 140 printPendingEmptyLines(*NEWCPP, $line); 141 print NEWCPP $line; 142 } 143 } else { 144 next if isOnlyWhiteSpace($line); 145 next if ($line =~ m/------------/); 146 printPendingEmptyLines(*NEWCPP, $line); 147 applySpacingHeuristicsAndPrint(*NEWCPP, $line); 148 } 149 } 150 } 151 close(NEWCPP); 152 close(OLDCPP); 153 unlink("$classname.cpp.original"); 154 } 155 } 156 157 print "Opening new files...\n"; 158 system("open " . join(".* ", keys(%classDefs)) . ".*"); 159 }
