Index: Source/bindings/scripts/CodeGenerator.pm |
diff --git a/Source/bindings/scripts/CodeGenerator.pm b/Source/bindings/scripts/CodeGenerator.pm |
index afbeb7d410cd4aa0c2c0145f774a7b7a49049855..4bb49b6612a90f59fa372a7f1d059898c85de251 100644 |
--- a/Source/bindings/scripts/CodeGenerator.pm |
+++ b/Source/bindings/scripts/CodeGenerator.pm |
@@ -6,6 +6,7 @@ |
# Copyright (C) 2007, 2008, 2009, 2010 Apple Inc. All rights reserved. |
# Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au> |
# Copyright (C) Research In Motion Limited 2010. All rights reserved. |
+# Copyright (C) 2013 Samsung Electronics. All rights reserved. |
# |
# This library is free software; you can redistribute it and/or |
# modify it under the terms of the GNU Library General Public |
@@ -87,4 +88,20 @@ sub ProcessDocument |
} |
} |
+sub IsCallbackInterfaceFromFile |
+{ |
+ my $object = shift; |
+ my $interfaceName = shift; |
+ |
+ my $idlFile = $object->IDLFileForInterface($interfaceName) |
+ or die("Could NOT find IDL file for interface \"$interfaceName\"!\n"); |
+ |
+ open FILE, "<", $idlFile; |
+ my @lines = <FILE>; |
+ close FILE; |
+ |
+ my $fileContents = join('', @lines); |
+ return ($fileContents =~ /callback\s+interface\s+(\w+)/gs); |
+} |
+ |
1; |