summaryrefslogtreecommitdiff
path: root/source4/build/pidl
diff options
context:
space:
mode:
authorTim Potter <tpot@samba.org>2004-05-09 10:55:54 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 12:51:50 -0500
commit1f2fa49b200b0cceb79b52f5deca973476028ac1 (patch)
treeaa9dbe60b17594deeb2eeda9ae764c29ab6b3900 /source4/build/pidl
parent0221717a625b384801f08600046c738aecb56275 (diff)
downloadsamba-1f2fa49b200b0cceb79b52f5deca973476028ac1.tar.gz
samba-1f2fa49b200b0cceb79b52f5deca973476028ac1.tar.bz2
samba-1f2fa49b200b0cceb79b52f5deca973476028ac1.zip
r604: Better dumping of in,out,ref properties.
(This used to be commit 209f5a25a950e8780e9512b71fbb12b1cdbe1a17)
Diffstat (limited to 'source4/build/pidl')
-rw-r--r--source4/build/pidl/dump.pm12
1 files changed, 12 insertions, 0 deletions
diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm
index 435866029e..d895863536 100644
--- a/source4/build/pidl/dump.pm
+++ b/source4/build/pidl/dump.pm
@@ -18,6 +18,18 @@ sub DumpProperties($)
foreach my $d ($props) {
foreach my $k (keys %{$d}) {
+ if ($k eq "in") {
+ $res .= "[in] ";
+ next;
+ }
+ if ($k eq "out") {
+ $res .= "[out] ";
+ next;
+ }
+ if ($k eq "ref") {
+ $res .= "[ref] ";
+ next;
+ }
$res .= "[$k($d->{$k})] ";
}
}