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 |