pidl:Samba3/ServerNDR: export CallWithStructExported()

Signed-off-by: Stefan Metzmacher <metze@samba.org>

diff --git a/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm b/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
index fa7303b854340976fc9b34d253ccfcd3f08eb89e..26e582cd6c039936249e3275821975162a4ebfcf 100644 (file)
--- a/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
+++ b/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
@@ -8,7 +8,7 @@ package Parse::Pidl::Samba3::ServerNDR;
 
 use Exporter;
 @ISA = qw(Exporter);
-@EXPORT_OK = qw(DeclLevel);
+@EXPORT_OK = qw(DeclLevel CallWithStructExported);
 
 use strict;
 use Parse::Pidl qw(warning error fatal);
@@ -138,6 +138,18 @@ sub CallWithStruct($$$$$$)
        pidl "$ret;";
 }
 
+sub CallWithStructExported($$$$$$)
+{
+       my ($pipes_struct, $mem_ctx, $fn, $check, $cleanup, $return) = @_;
+
+       pidl_reset();
+       indent;
+
+       CallWithStruct($pipes_struct, $mem_ctx, $fn, $check, $cleanup, $return);
+
+       return pidl_return();
+}
+
 sub ParseFunction($$)
 {
        my ($if,$fn) = @_;