diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-02-11 15:49:15 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:09:44 -0500 |
| commit | 3f68161741e5213d462b491612ba39c56c083f4b (patch) | |
| tree | 35b1aac6c4b8c2aa29afb67f9ee14bd24a6fc944 /source4/build/pidl/idl.pm | |
| parent | 4180eedd6d8a926d7a2f25b14b7a2cad084b44a9 (diff) | |
| download | samba-3f68161741e5213d462b491612ba39c56c083f4b.tar.gz samba-3f68161741e5213d462b491612ba39c56c083f4b.tar.bz2 samba-3f68161741e5213d462b491612ba39c56c083f4b.zip | |
r5338: More efforts to handle types similarly.
(This used to be commit 95c4f3149925ee71e74ea36fae3a65d2eebf717c)
Diffstat (limited to 'source4/build/pidl/idl.pm')
| -rw-r--r-- | source4/build/pidl/idl.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/source4/build/pidl/idl.pm b/source4/build/pidl/idl.pm index 99db357062..b18215ed34 100644 --- a/source4/build/pidl/idl.pm +++ b/source4/build/pidl/idl.pm @@ -1893,7 +1893,7 @@ sub "NAME" => $_[3], "RETURN_TYPE" => $_[2], "PROPERTIES" => $_[1], - "DATA" => $_[5] + "ELEMENTS" => $_[5] }} ], [#Rule 19 @@ -2385,17 +2385,17 @@ sub parse_idl($$) foreach my $x (@{$idl}) { # Add [in] ORPCTHIS *this, [out] ORPCTHAT *that # for 'object' interfaces - if (defined($x->{PROPERTIES}->{object})) { + if (util::has_property($x, "object")) { foreach my $e (@{$x->{DATA}}) { if($e->{TYPE} eq "FUNCTION") { $e->{PROPERTIES}->{object} = 1; - unshift(@{$e->{DATA}}, + unshift(@{$e->{ELEMENTS}}, { 'NAME' => 'ORPCthis', 'POINTERS' => 0, 'PROPERTIES' => { 'in' => '1' }, 'TYPE' => 'ORPCTHIS' }); - unshift(@{$e->{DATA}}, + unshift(@{$e->{ELEMENTS}}, { 'NAME' => 'ORPCthat', 'POINTERS' => 0, 'PROPERTIES' => { 'out' => '1' }, |