diff options
| author | Tim Potter <tpot@samba.org> | 2004-05-09 10:55:54 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 12:51:50 -0500 |
| commit | 1f2fa49b200b0cceb79b52f5deca973476028ac1 (patch) | |
| tree | aa9dbe60b17594deeb2eeda9ae764c29ab6b3900 /source4/build/pidl/dump.pm | |
| parent | 0221717a625b384801f08600046c738aecb56275 (diff) | |
| download | samba-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/dump.pm')
| -rw-r--r-- | source4/build/pidl/dump.pm | 12 |
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})] "; } } |