From d79fb9098bc3ce37daa8ab6d51dc62ad0bc2ad26 Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Tue, 21 Sep 2010 01:44:38 +0200
Subject: pidl: add support for 'pipe' at the NDR layer

metze
---
 pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm')

diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
index 8f43702ad5..ab4f524b9f 100644
--- a/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
+++ b/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
@@ -101,10 +101,11 @@ sub ParseFunction_r_Send($$$$)
 	$self->pidl("");
 
 	my $out_params = 0;
-	foreach (@{$fn->{ELEMENTS}}) {
-		if (grep(/out/, @{$_->{DIRECTION}})) {
-			$out_params++;
-		}
+	foreach my $e (@{$fn->{ELEMENTS}}) {
+		next unless grep(/out/, @{$e->{DIRECTION}});
+		next if ContainsPipe($e, $e->{LEVELS}[0]);
+		$out_params++;
+
 	}
 
 	my $submem;
@@ -490,6 +491,9 @@ sub ParseFunction_Send($$$$)
 		next unless grep(/out/, @{$e->{DIRECTION}});
 
 		$self->ParseCopyArgument($fn, $e, "state->orig.out.", "_");
+
+		next if ContainsPipe($e, $e->{LEVELS}[0]);
+
 		$out_params++;
 	}
 	$self->pidl("");
@@ -569,6 +573,7 @@ sub ParseFunction_Done($$$$)
 
 	$self->pidl("/* Copy out parameters */");
 	foreach my $e (@{$fn->{ELEMENTS}}) {
+		next if ContainsPipe($e, $e->{LEVELS}[0]);
 		next unless (grep(/out/, @{$e->{DIRECTION}}));
 
 		$self->ParseOutputArgument($fn, $e,
@@ -698,6 +703,7 @@ sub ParseFunction_Sync($$$$)
 
 	$self->pidl("/* Return variables */");
 	foreach my $e (@{$fn->{ELEMENTS}}) {
+		next if ContainsPipe($e, $e->{LEVELS}[0]);
 		next unless (grep(/out/, @{$e->{DIRECTION}}));
 
 		$self->ParseOutputArgument($fn, $e, "r.", "_", "sync");
-- 
cgit