svn commit: samba r9463 - in branches/SAMBA_4_0: packaging/debian
source/pidl source/pidl/lib/Parse/Pidl
jelmer at samba.org
jelmer at samba.org
Mon Aug 22 00:22:22 GMT 2005
Author: jelmer
Date: 2005-08-22 00:22:21 +0000 (Mon, 22 Aug 2005)
New Revision: 9463
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=9463
Log:
Fix DumpFunction() (was ignoring elements)
Fix use of pidl for people that don't have it installed...
Generate documentation for pidl debian package
Modified:
branches/SAMBA_4_0/packaging/debian/rules
branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Dump.pm
branches/SAMBA_4_0/source/pidl/pidl
Changeset:
Modified: branches/SAMBA_4_0/packaging/debian/rules
===================================================================
--- branches/SAMBA_4_0/packaging/debian/rules 2005-08-22 00:06:35 UTC (rev 9462)
+++ branches/SAMBA_4_0/packaging/debian/rules 2005-08-22 00:22:21 UTC (rev 9463)
@@ -32,7 +32,7 @@
$(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:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Dump.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Dump.pm 2005-08-22 00:06:35 UTC (rev 9462)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Dump.pm 2005-08-22 00:22:21 UTC (rev 9463)
@@ -208,9 +208,9 @@
$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";
Modified: branches/SAMBA_4_0/source/pidl/pidl
===================================================================
--- branches/SAMBA_4_0/source/pidl/pidl 2005-08-22 00:06:35 UTC (rev 9462)
+++ branches/SAMBA_4_0/source/pidl/pidl 2005-08-22 00:22:21 UTC (rev 9463)
@@ -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;
More information about the samba-cvs
mailing list