| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -w |
| 2 # | 2 # |
| 3 # Copyright (C) 2005 Apple Computer, Inc. | 3 # Copyright (C) 2005 Apple Computer, Inc. |
| 4 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com> | 4 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com> |
| 5 # | 5 # |
| 6 # This file is part of WebKit | 6 # This file is part of WebKit |
| 7 # | 7 # |
| 8 # This library is free software; you can redistribute it and/or | 8 # This library is free software; you can redistribute it and/or |
| 9 # modify it under the terms of the GNU Library General Public | 9 # modify it under the terms of the GNU Library General Public |
| 10 # License as published by the Free Software Foundation; either | 10 # License as published by the Free Software Foundation; either |
| (...skipping 282 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 293 | 293 |
| 294 my $error; | 294 my $error; |
| 295 OUTER: for my $name (keys %$extendedAttributes) { | 295 OUTER: for my $name (keys %$extendedAttributes) { |
| 296 if (!exists $idlAttributes->{$name}) { | 296 if (!exists $idlAttributes->{$name}) { |
| 297 $error = "Unknown IDL attribute [$name] is found at $idlFile."; | 297 $error = "Unknown IDL attribute [$name] is found at $idlFile."; |
| 298 last OUTER; | 298 last OUTER; |
| 299 } | 299 } |
| 300 if ($idlAttributes->{$name}{"*"}) { | 300 if ($idlAttributes->{$name}{"*"}) { |
| 301 next; | 301 next; |
| 302 } | 302 } |
| 303 for my $rightValue (split /\s*\|\s*/, $extendedAttributes->{$name}) { | 303 for my $rightValue (split /\s*[|&]\s*/, $extendedAttributes->{$name}) { |
| 304 if (!exists $idlAttributes->{$name}{$rightValue}) { | 304 if (!exists $idlAttributes->{$name}{$rightValue}) { |
| 305 $error = "Unknown IDL attribute [$name=" . $extendedAttributes->
{$name} . "] is found at $idlFile."; | 305 $error = "Unknown IDL attribute [$name=" . $extendedAttributes->
{$name} . "] is found at $idlFile."; |
| 306 last OUTER; | 306 last OUTER; |
| 307 } | 307 } |
| 308 } | 308 } |
| 309 } | 309 } |
| 310 if ($error) { | 310 if ($error) { |
| 311 die "IDL ATTRIBUTE CHECKER ERROR: $error | 311 die "IDL ATTRIBUTE CHECKER ERROR: $error |
| 312 If you want to add a new IDL attribute, you need to add it to bindings/scripts/I
DLAttributes.txt and add explanations to the Blink IDL document (http://chromium
.org/blink/webidl). | 312 If you want to add a new IDL attribute, you need to add it to bindings/scripts/I
DLAttributes.txt and add explanations to the Blink IDL document (http://chromium
.org/blink/webidl). |
| 313 "; | 313 "; |
| 314 } | 314 } |
| 315 } | 315 } |
| OLD | NEW |