| OLD | NEW |
| 1 | 1 |
| 2 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org> | 2 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org> |
| 3 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com> | 3 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com> |
| 4 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com> | 4 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com> |
| 5 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org> | 5 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org> |
| 6 # Copyright (C) 2006 Apple Computer, Inc. | 6 # Copyright (C) 2006 Apple Computer, Inc. |
| 7 # Copyright (C) 2007, 2008, 2009 Google Inc. | 7 # Copyright (C) 2007, 2008, 2009 Google Inc. |
| 8 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au> | 8 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au> |
| 9 # | 9 # |
| 10 # This library is free software; you can redistribute it and/or | 10 # This library is free software; you can redistribute it and/or |
| (...skipping 2504 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 2515 { | 2515 { |
| 2516 # FIXME: Consider making this an .idl attribute. | 2516 # FIXME: Consider making this an .idl attribute. |
| 2517 my $type = shift; | 2517 my $type = shift; |
| 2518 return 1 if $type eq "EventSource"; | 2518 return 1 if $type eq "EventSource"; |
| 2519 return 1 if $type eq "MessagePort"; | 2519 return 1 if $type eq "MessagePort"; |
| 2520 return 1 if $type eq "XMLHttpRequest"; | 2520 return 1 if $type eq "XMLHttpRequest"; |
| 2521 return 1 if $type eq "WebSocket"; | 2521 return 1 if $type eq "WebSocket"; |
| 2522 return 1 if $type eq "Worker"; | 2522 return 1 if $type eq "Worker"; |
| 2523 return 1 if $type eq "SharedWorker"; | 2523 return 1 if $type eq "SharedWorker"; |
| 2524 return 1 if $type eq "IDBRequest"; | 2524 return 1 if $type eq "IDBRequest"; |
| 2525 return 1 if $type eq "FileReader"; |
| 2525 return 0; | 2526 return 0; |
| 2526 } | 2527 } |
| 2527 | 2528 |
| 2528 sub GetNativeTypeForConversions | 2529 sub GetNativeTypeForConversions |
| 2529 { | 2530 { |
| 2530 my $type = shift; | 2531 my $type = shift; |
| 2531 return "FloatRect" if $type eq "SVGRect"; | 2532 return "FloatRect" if $type eq "SVGRect"; |
| 2532 return "FloatPoint" if $type eq "SVGPoint"; | 2533 return "FloatPoint" if $type eq "SVGPoint"; |
| 2533 return "AffineTransform" if $type eq "SVGMatrix"; | 2534 return "AffineTransform" if $type eq "SVGMatrix"; |
| 2534 return "float" if $type eq "SVGNumber"; | 2535 return "float" if $type eq "SVGNumber"; |
| (...skipping 821 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 3356 } | 3357 } |
| 3357 } | 3358 } |
| 3358 | 3359 |
| 3359 sub DebugPrint | 3360 sub DebugPrint |
| 3360 { | 3361 { |
| 3361 my $output = shift; | 3362 my $output = shift; |
| 3362 | 3363 |
| 3363 print $output; | 3364 print $output; |
| 3364 print "\n"; | 3365 print "\n"; |
| 3365 } | 3366 } |
| OLD | NEW |