Fix trailing whitespace in scripts and misc. files

Tools/Scripts/split-file-by-class

 #!/usr/bin/perl -w
 
 # Copyright (C) 2006 Apple Computer, 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. 
+#     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. 
+#     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. 
+#     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.
 
 # Used for splitting a single file into multiple class files
 # Usage: split-class <header file>
 
 use strict;
 use File::Copy;
 use FindBin;
 use lib $FindBin::Bin;
 use SpacingHeuristics;
 
 
 for my $filename (@ARGV) {
 
     $filename =~ m/^(\w+)\.h$/ or die "Command line args must be .h files.\n";
     my $basename = $1;
 
     open(OLDFILE, "<", $filename) or die "File does not exist: $filename\n";
     print "Splitting class $filename.{h,cpp}:\n";
-    
+
     my $currentClassName = "";
     my $classIndent = "";
     my $fileContent = "";
     my %classDefs = ();
     while (my $line = <OLDFILE>) {
         if ($currentClassName) {
             $classDefs{$currentClassName} .= $line;
             if ($line =~ /^$classIndent};\s*$/) {
                 $currentClassName = "";
             }
         } else {
             if ($line =~ /^(\s*)class\s+(\w+)\s+[^;]*$/) {
                 $classIndent = $1;
                 $currentClassName = $2;
                 $classDefs{$currentClassName} .= $line;
                 $fileContent .= "###CLASS###$currentClassName\n";
             } else {
                 $fileContent .= $line;
             }
         }
     }
     close(OLDFILE);
-    
+
     if (scalar(keys(%classDefs)) == 1) { # degenerate case
         my ($classname) = keys(%classDefs);
         if (!($classname eq $basename)) {
             print "Skipping $filename, already correctly named.\n";
         } else {
             print "$filename only includes one class, renaming to $classname.h\n";
             system("svn rm --force $classname.h") if (-r "$classname.h");
             system "svn mv $basename.h $classname.h";
         }
     } else {
         while (my ($classname, $classDef) = each(%classDefs)) {
             if (($classname eq $basename)) {
                 print "Skipping $filename, already correctly named.\n";
             } else {
                 print "Using SVN to copy $basename.{h,cpp} to $classname.{h,cpp}\n";
-                
+
                 system("svn rm --force $classname.h") if (-r "$classname.h");
                 system "svn cp $basename.h $classname.h";
-                
+
                 system("svn rm --force $classname.cpp") if (-r "$classname.cpp");
                 system "svn cp $basename.cpp $classname.cpp";
             }
-            
+
             print "Fixing $classname.h as much as possible.\n";
             open(NEWHEADER, ">", "$classname.h") or die "File does not exist: $filename\n";
             my @lines = split("\n", $fileContent);
             foreach my $line (@lines) {
                 if ($line =~ /^###CLASS###(\w+)/) {
                     if ($1 eq $classname) {
                         print NEWHEADER $classDef . "\n";
                     }
                 } else {
                     print NEWHEADER $line . "\n";
                 }
             }
             close(NEWHEADER);
-            
+
             print "Fixing $classname.cpp as much as possible.\n";
             copy("$classname.cpp", "$classname.cpp.original");
             open(OLDCPP, "<", "$classname.cpp.original") or die "Failed to copy file for reading: $filename\n";
             open(NEWCPP, ">", "$classname.cpp") or die "File does not exist: $filename\n";
             my $insideMemberFunction = 0;
             my $shouldPrintMemberFunction = 0;
             resetSpacingHeuristics();
             while (my $line = <OLDCPP>) {
                 if ($insideMemberFunction) {
                     if ($shouldPrintMemberFunction) {
                         print NEWCPP $line;
                         #setPreviousAllowedLine($line);
                     } else {
                         ignoringLine($line);
                     }
                     if ($line =~ /^}\s*$/) {
                         $insideMemberFunction = 0;
                     }
                 } elsif ($line =~ /$filename/) {
                     print NEWCPP "#include \"config.h\"\n";
                     print NEWCPP "#include \"$classname.h\"\n";
                 } elsif ($line =~ /#include/ || $line =~ /#import/) {
                     next; # skip includes, they're generally wrong or unecessary anyway.
                 } else {
                     $line =~ s/DOM:://;
                     $line =~ s/khtml:://;
                     $line =~ s/namespace DOM/namespace WebCore/;
                     $line =~ s/namespace khtml/namespace WebCore/;
-                    
+
                     if ($line =~ /^(.*?\s+)?(\*|&)?(\w+)::(~)?\w+\s*\(/) {
                         $insideMemberFunction = 1;
                         $shouldPrintMemberFunction = ($classname eq $3);
                         if ($shouldPrintMemberFunction) {
                             printPendingEmptyLines(*NEWCPP, $line);
                             print NEWCPP $line;
                         }
                     } else {
                         next if isOnlyWhiteSpace($line);
                         next if ($line =~ m/------------/);
                         printPendingEmptyLines(*NEWCPP, $line);
                         applySpacingHeuristicsAndPrint(*NEWCPP, $line);
                     }
                 }
             }
             close(NEWCPP);
             close(OLDCPP);
             unlink("$classname.cpp.original");
         }
     }
-    
+
     print "Opening new files...\n";
     system("open " . join(".* ", keys(%classDefs)) . ".*");
 }