diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2005-05-30 23:59:29 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:17:19 -0500 |
commit | 6bdb915e275a90f3efc3e7c7bde003fa6aeaca05 (patch) | |
tree | ecaab3e4ec7dd4d424aa94648ba4ecd9f0f177be /source4/build/pidl/odl.pm | |
parent | fe5510e453cf2b46afc143e06f893452798a6b19 (diff) | |
download | samba-6bdb915e275a90f3efc3e7c7bde003fa6aeaca05.tar.gz samba-6bdb915e275a90f3efc3e7c7bde003fa6aeaca05.tar.bz2 samba-6bdb915e275a90f3efc3e7c7bde003fa6aeaca05.zip |
r7122: Some cleanups, simplification of the code.
(This used to be commit 277f26edacccb3a3f7a90629fd6ea1f21d9f6530)
Diffstat (limited to 'source4/build/pidl/odl.pm')
-rw-r--r-- | source4/build/pidl/odl.pm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/source4/build/pidl/odl.pm b/source4/build/pidl/odl.pm index 5ed508dc93..d40f8fbcca 100644 --- a/source4/build/pidl/odl.pm +++ b/source4/build/pidl/odl.pm @@ -6,6 +6,20 @@ package ODL; use strict; +##################################################################### +# 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; +} + sub FunctionAddObjArgs($) { my $e = shift; @@ -60,7 +74,7 @@ sub ODL2IDL($) } if ($x->{BASE}) { - my $base = util::get_interface($odl, $x->{BASE}); + my $base = get_interface($odl, $x->{BASE}); foreach my $fn (reverse @{$base->{DATA}}) { next unless ($fn->{TYPE} eq "FUNCTION"); |