diff options
Diffstat (limited to 'source4/build/pidl/util.pm')
-rw-r--r-- | source4/build/pidl/util.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index f822222b45..1341d77ccc 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -154,6 +154,20 @@ sub SaveStructure($$) } ##################################################################### +# find an interface in an array of interfaces +sub get_interface($$) +{ + my($if) = shift; + my($n) = shift; + + foreach(@{$if}) { + if($_->{NAME} eq $n) { return $_; } + } + + return 0; +} + +##################################################################### # see if a pidl property list contains a give property sub has_property($$) { |