Rev 11232: Use structs in server side calls for Samba3 in file:///home/jelmer/bzr.samba/SAMBA_4_0/

[Jelmer Vernooij]

------------------------------------------------------------
revno: 11232
revision-id: [EMAIL PROTECTED]
parent: svn-v2:[EMAIL PROTECTED]
committer: Jelmer Vernooij <[EMAIL PROTECTED]>
branch nick: SAMBA_4_0
timestamp: Thu 2007-01-18 11:06:37 +0100
message:
  Use structs in server side calls for Samba3
modified:
  source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm svn-v2:[EMAIL PROTECTED]
=== 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-18 10:06: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 .= ");";