OLD | NEW |
1 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org> | 1 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org> |
2 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com> | 2 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com> |
3 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com> | 3 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com> |
4 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org> | 4 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org> |
5 # Copyright (C) 2006 Apple Computer, Inc. | 5 # Copyright (C) 2006 Apple Computer, Inc. |
6 # Copyright (C) 2007, 2008, 2009, 2012 Google Inc. | 6 # Copyright (C) 2007, 2008, 2009, 2012 Google Inc. |
7 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au> | 7 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au> |
8 # Copyright (C) Research In Motion Limited 2010. All rights reserved. | 8 # Copyright (C) Research In Motion Limited 2010. All rights reserved. |
9 # Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies) | 9 # Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies) |
10 # Copyright (C) 2012 Ericsson AB. All rights reserved. | 10 # Copyright (C) 2012 Ericsson AB. All rights reserved. |
(...skipping 5984 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
5995 } | 5995 } |
5996 return @checks; | 5996 return @checks; |
5997 } | 5997 } |
5998 | 5998 |
5999 sub ExtendedAttributeContains | 5999 sub ExtendedAttributeContains |
6000 { | 6000 { |
6001 my $callWith = shift; | 6001 my $callWith = shift; |
6002 return 0 unless $callWith; | 6002 return 0 unless $callWith; |
6003 my $keyword = shift; | 6003 my $keyword = shift; |
6004 | 6004 |
6005 my @callWithKeywords = split /\s*\|\s*/, $callWith; | 6005 my @callWithKeywords = split /\s*\&\s*/, $callWith; |
6006 return grep { $_ eq $keyword } @callWithKeywords; | 6006 return grep { $_ eq $keyword } @callWithKeywords; |
6007 } | 6007 } |
6008 | 6008 |
6009 sub InheritsInterface | 6009 sub InheritsInterface |
6010 { | 6010 { |
6011 my $interface = shift; | 6011 my $interface = shift; |
6012 my $interfaceName = shift; | 6012 my $interfaceName = shift; |
6013 my $found = 0; | 6013 my $found = 0; |
6014 | 6014 |
6015 return 1 if $interfaceName eq $interface->name; | 6015 return 1 if $interfaceName eq $interface->name; |
(...skipping 20 matching lines...) Expand all Loading... |
6036 if ($currentInterface->extendedAttributes->{$extendedAttribute}) { | 6036 if ($currentInterface->extendedAttributes->{$extendedAttribute}) { |
6037 $found = 1; | 6037 $found = 1; |
6038 } | 6038 } |
6039 return 1 if $found; | 6039 return 1 if $found; |
6040 }, 0); | 6040 }, 0); |
6041 | 6041 |
6042 return $found; | 6042 return $found; |
6043 } | 6043 } |
6044 | 6044 |
6045 1; | 6045 1; |
OLD | NEW |