Line
Link Here
|
0 |
-- webkit-1.2.7/WebCore/dom/make_names.pl |
0 |
++ webkit-1.2.7/WebCore/dom/make_names.pl |
Lines 29-41
Link Here
|
29 |
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
29 |
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
30 |
|
30 |
|
31 |
use strict; |
31 |
use strict; |
|
|
32 |
use 5.010; |
32 |
|
33 |
|
33 |
use Config; |
34 |
use Config; |
34 |
use Getopt::Long; |
35 |
use Getopt::Long; |
35 |
use File::Path; |
36 |
use File::Path; |
36 |
use IO::File; |
37 |
use IO::File; |
37 |
use InFilesParser; |
38 |
use InFilesParser; |
38 |
use Switch; |
|
|
39 |
|
39 |
|
40 |
my $printFactory = 0; |
40 |
my $printFactory = 0; |
41 |
my $printWrapperFactory = 0; |
41 |
my $printWrapperFactory = 0; |
Lines 206-219
Link Here
|
206 |
|
206 |
|
207 |
my $InParser = InFilesParser->new(); |
207 |
my $InParser = InFilesParser->new(); |
208 |
|
208 |
|
209 |
switch ($type) { |
209 |
given ($type) { |
210 |
case "tags" { |
210 |
when ("tags") { |
211 |
$InParser->parse($names, \¶metersHandler, \&tagsHandler); |
211 |
$InParser->parse($names, \¶metersHandler, \&tagsHandler); |
212 |
} |
212 |
} |
213 |
case "attrs" { |
213 |
when ("attrs") { |
214 |
$InParser->parse($names, \¶metersHandler, \&attrsHandler); |
214 |
$InParser->parse($names, \¶metersHandler, \&attrsHandler); |
215 |
} |
215 |
} |
216 |
else { |
216 |
default { |
217 |
die "Do not know how to parse $type"; |
217 |
die "Do not know how to parse $type"; |
218 |
} |
218 |
} |
219 |
} |
219 |
} |