From: Jelmer Vernooij <jelmer@samba.org>
Date: Mon, 22 Aug 2005 00:22:21 +0000 (+0000)
Subject: r9463: Fix DumpFunction() (was ignoring elements)
X-Git-Tag: samba-misc-tags/initial-v4-0-unstable~7572
X-Git-Url: http://git.samba.org/?p=samba.git;a=commitdiff_plain;h=de66450c242b943cfb226187b0ad14f380f08479

r9463: Fix DumpFunction() (was ignoring elements)
Fix use of pidl for people that don't have it installed...
Generate documentation for pidl debian package
---

diff --git a/packaging/debian/rules b/packaging/debian/rules
index 8c62eed660f..61002f4a32e 100755
--- a/packaging/debian/rules
+++ b/packaging/debian/rules
@@ -32,7 +32,7 @@ build: configure
 	$(MAKE) -C $(SOURCEPATH) proto 
 	-$(MAKE) -C $(SOURCEPATH) pch
 	$(MAKE) -C $(SOURCEPATH) all
-	$(MAKE) -C $(SOURCEPATH)/pidl all
+	$(MAKE) -C $(SOURCEPATH)/pidl all doc
 	touch $@
 
 clean:
diff --git a/source/pidl/lib/Parse/Pidl/Dump.pm b/source/pidl/lib/Parse/Pidl/Dump.pm
index bca599262aa..7f426c1c0bd 100644
--- a/source/pidl/lib/Parse/Pidl/Dump.pm
+++ b/source/pidl/lib/Parse/Pidl/Dump.pm
@@ -208,9 +208,9 @@ sub DumpFunction($)
 
     $res .= DumpType($function->{RETURN_TYPE});
     $res .= " $function->{NAME}(\n";
-    for my $d (@{$function->{DATA}}) {
-	$first || ($res .= ",\n"); $first = 0;
-	$res .= DumpElement($d);
+    for my $d (@{$function->{ELEMENTS}}) {
+		unless ($first) { $res .= ",\n"; } $first = 0;
+		$res .= DumpElement($d);
     }
     $res .= "\n);\n\n";
 
diff --git a/source/pidl/pidl b/source/pidl/pidl
index 14be05c042d..1cc2ee44cbb 100755
--- a/source/pidl/pidl
+++ b/source/pidl/pidl
@@ -8,8 +8,9 @@
 # released under the GNU GPL
 
 use strict;
-
-use lib "lib";
+use FindBin qw($RealBin);
+use lib "$RealBin";
+use lib "$RealBin/lib";
 use Getopt::Long;
 use File::Basename;
 use Parse::Pidl;