pidl:Samba3/ServerNDR: simplify CallWithStruct()

Signed-off-by: Stefan Metzmacher <metze@samba.org>
Reviewed-by: Guenther Deschner <gd@samba.org>

diff --git a/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm b/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
index bff23e2747c441af99b47d55b24fcea660b9b703..7670941d1d614ec7b115175787902a04d2f28cea 100644 (file)
--- a/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
+++ b/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
@@ -100,8 +100,6 @@ sub CallWithStruct($$$$)
 
        pidl "ZERO_STRUCT(r->out);" if ($hasout);
 
-       my $proto = "_$fn->{NAME}(struct pipes_struct *p, struct $fn->{NAME} *r";
-       my $ret = "_$fn->{NAME}($pipes_struct, r";
        foreach (@{$fn->{ELEMENTS}}) {
                my @dir = @{$_->{DIRECTION}};
                if (grep(/in/, @dir) and grep(/out/, @dir)) {
@@ -119,8 +117,9 @@ sub CallWithStruct($$$$)
                        AllocOutVar($_, $mem_ctx, "r->out.$_->{NAME}", $env, $fail);
                }
        }
-       $ret .= ")";
-       $proto .= ");";
+
+       my $proto = "_$fn->{NAME}(struct pipes_struct *p, struct $fn->{NAME} *r)";
+       my $ret = "_$fn->{NAME}($pipes_struct, r)";
 
        if ($fn->{RETURN_TYPE}) {
                $ret = "r->out.result = $ret";
@@ -129,7 +128,7 @@ sub CallWithStruct($$$$)
                $proto = "void $proto";
        }
 
-       pidl_hdr "$proto";
+       pidl_hdr "$proto;";
        pidl "$ret;";
 }