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