From 1f2fa49b200b0cceb79b52f5deca973476028ac1 Mon Sep 17 00:00:00 2001
From: Tim Potter <tpot@samba.org>
Date: Sun, 9 May 2004 10:55:54 +0000
Subject: r604: Better dumping of in,out,ref properties. (This used to be
 commit 209f5a25a950e8780e9512b71fbb12b1cdbe1a17)

---
 source4/build/pidl/dump.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'source4/build')

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})] ";
 	}
     }
-- 
cgit