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 |