summaryrefslogtreecommitdiff
path: root/source4/build/pidl/idl.yp
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2005-02-11 15:49:15 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:09:44 -0500
commit3f68161741e5213d462b491612ba39c56c083f4b (patch)
tree35b1aac6c4b8c2aa29afb67f9ee14bd24a6fc944 /source4/build/pidl/idl.yp
parent4180eedd6d8a926d7a2f25b14b7a2cad084b44a9 (diff)
downloadsamba-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.yp')
-rw-r--r--source4/build/pidl/idl.yp8
1 files changed, 4 insertions, 4 deletions
diff --git a/source4/build/pidl/idl.yp b/source4/build/pidl/idl.yp
index ae13c29543..4ee1703602 100644
--- a/source4/build/pidl/idl.yp
+++ b/source4/build/pidl/idl.yp
@@ -82,7 +82,7 @@ function: property_list type identifier '(' element_list2 ')' ';'
"NAME" => $_[3],
"RETURN_TYPE" => $_[2],
"PROPERTIES" => $_[1],
- "DATA" => $_[5]
+ "ELEMENTS" => $_[5]
}}
;
@@ -376,17 +376,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' },