svn commit: samba r24592 - in branches/SAMBA_4_0/source/pidl: lib/Parse/Pidl/Samba3 tests

[metze at samba.org]

Author: metze
Date: 2007-08-21 12:19:56 +0000 (Tue, 21 Aug 2007)
New Revision: 24592

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=24592

Log:
pass down the ndr_interface_table in the samba3 client bindings
instead of the pull and push functions

metze
Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
   branches/SAMBA_4_0/source/pidl/tests/samba3-cli.pl


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm	2007-08-21 11:51:54 UTC (rev 24591)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm	2007-08-21 12:19:56 UTC (rev 24592)
@@ -36,10 +36,11 @@
 
 sub ParseFunction($$$)
 {
-	my ($self, $uif, $fn) = @_;
+	my ($self, $if, $fn) = @_;
 
 	my $inargs = "";
 	my $defargs = "";
+	my $uif = uc($if);
 	my $ufn = "NDR_".uc($fn->{NAME});
 
 	foreach (@{$fn->{ELEMENTS}}) {
@@ -63,7 +64,7 @@
 	$self->pidl("if (DEBUGLEVEL >= 10)");
 	$self->pidl("\tNDR_PRINT_IN_DEBUG($fn->{NAME}, &r);");
 	$self->pidl("");
-	$self->pidl("status = cli_do_rpc_ndr(cli, mem_ctx, PI_$uif, $ufn, &r, (ndr_pull_flags_fn_t)ndr_pull_$fn->{NAME}, (ndr_push_flags_fn_t)ndr_push_$fn->{NAME});");
+	$self->pidl("status = cli_do_rpc_ndr(cli, mem_ctx, PI_$uif, &ndr_table_$if, $ufn, &r);");
 	$self->pidl("");
 
 	$self->pidl("if (!NT_STATUS_IS_OK(status)) {");
@@ -141,7 +142,7 @@
 
 	$self->pidl_hdr("#ifndef __CLI_$uif\__");
 	$self->pidl_hdr("#define __CLI_$uif\__");
-	$self->ParseFunction(uc($if->{NAME}), $_) foreach (@{$if->{FUNCTIONS}});
+	$self->ParseFunction($if->{NAME}, $_) foreach (@{$if->{FUNCTIONS}});
 	$self->pidl_hdr("#endif /* __CLI_$uif\__ */");
 }
 

Modified: branches/SAMBA_4_0/source/pidl/tests/samba3-cli.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/samba3-cli.pl	2007-08-21 11:51:54 UTC (rev 24591)
+++ branches/SAMBA_4_0/source/pidl/tests/samba3-cli.pl	2007-08-21 12:19:56 UTC (rev 24592)
@@ -39,7 +39,7 @@
 \tif (DEBUGLEVEL >= 10)
 \t\tNDR_PRINT_IN_DEBUG(bar, &r);
 \t
-\tstatus = cli_do_rpc_ndr(cli, mem_ctx, PI_foo, NDR_BAR, &r, (ndr_pull_flags_fn_t)ndr_pull_bar, (ndr_push_flags_fn_t)ndr_push_bar);
+\tstatus = cli_do_rpc_ndr(cli, mem_ctx, PI_FOO, &ndr_table_foo, NDR_BAR, &r);
 \t
 \tif (!NT_STATUS_IS_OK(status)) {
 \t\treturn status;