Rev 11342: Generate parameters in structs for the server side Samba 3 code. The current code in Samba 3 is already generated using this pidl patch. in file:///home/jelmer/bzr.samba/SAMBA_4_0/

[Jelmer Vernooij]

At file:///home/jelmer/bzr.samba/SAMBA_4_0/

------------------------------------------------------------
revno: 11342
revision-id: jelmer at samba.org-20070131114337-338gu8exsw3ai5jh
parent: svn-v2:21066 at 0c0555d6-39d7-0310-84fc-f1cc0bd64818-branches%2fSAMBA_4_0
committer: Jelmer Vernooij <jelmer at samba.org>
branch nick: SAMBA_4_0
timestamp: Wed 2007-01-31 12:43:37 +0100
message:
  Generate parameters in structs for the server side Samba 3 code. The current code in Samba 3 is already generated using this pidl patch.
modified:
  source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm svn-v2:18475 at 0c0555d6-39d7-0310-84fc-f1cc0bd64818-branches%2fSAMBA_4_0-source%2fpidl%2flib%2fParse%2fPidl%2fSamba3%2fServerNDR.pm
=== modified file 'source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm'
--- a/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm	2007-01-16 17:45:33 +0000
+++ b/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm	2007-01-31 11:43:37 +0000
@@ -133,8 +133,8 @@
 
 	pidl "ZERO_STRUCT(r.out);" if ($hasout);
 
-	my $proto = "_$fn->{NAME}(pipes_struct *p";
-	my $ret = "_$fn->{NAME}(p";
+	my $proto = "_$fn->{NAME}(pipes_struct *p, struct $fn->{NAME} *r";
+	my $ret = "_$fn->{NAME}(p, &r";
 	foreach (@{$fn->{ELEMENTS}}) {
 		my @dir = @{$_->{DIRECTION}};
 		if (grep(/in/, @dir) and grep(/out/, @dir)) {
@@ -143,10 +143,6 @@
 				 has_property($_, "represent_as")) {
 			AllocOutVar($_, "mem_ctx", "r.out.$_->{NAME}", \%env);
 		}
-		if (grep(/in/, @dir)) { $ret .= ", r.in.$_->{NAME}"; }
-		else { $ret .= ", r.out.$_->{NAME}"; }
-
-		$proto .= ", " . DeclLong($_);
 	}
 	$ret .= ")";
 	$proto .= ");";