summaryrefslogtreecommitdiff
path: root/pidl/lib/Parse/Pidl/Samba4
diff options
context:
space:
mode:
authorStefan Metzmacher <metze@samba.org>2010-03-10 11:12:17 +0100
committerStefan Metzmacher <metze@samba.org>2010-03-12 15:25:49 +0100
commitd0662ac4d01a5de34a368504b63f03a5ab43c398 (patch)
treeeb3f0ad127ee77df323e48f9aebda69282ef2474 /pidl/lib/Parse/Pidl/Samba4
parentd4f143258b61055864d8bb61ec180284a8b68e71 (diff)
downloadsamba-d0662ac4d01a5de34a368504b63f03a5ab43c398.tar.gz
samba-d0662ac4d01a5de34a368504b63f03a5ab43c398.tar.bz2
samba-d0662ac4d01a5de34a368504b63f03a5ab43c398.zip
pidl:Samba4/NDR/Client: make the old rpc_request style async functions static
metze
Diffstat (limited to 'pidl/lib/Parse/Pidl/Samba4')
-rw-r--r--pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm32
1 files changed, 14 insertions, 18 deletions
diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
index 95125c6807..aa9dad9d52 100644
--- a/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
+++ b/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
@@ -16,21 +16,20 @@ use strict;
my($res,$res_hdr);
-sub ParseFunctionSend($$$)
+sub ParseFunctionOldSend($$$)
{
my ($interface, $fn, $name) = @_;
my $uname = uc $name;
- my $proto = "struct rpc_request *dcerpc_$name\_send(struct dcerpc_pipe *p, TALLOC_CTX *mem_ctx, struct $name *r)";
+ if (has_property($fn, "todo")) {
+ return;
+ }
- $res_hdr .= "\n$proto;\n";
+ my $proto = "static struct rpc_request *dcerpc_$name\_send(struct dcerpc_pipe *p, TALLOC_CTX *mem_ctx, struct $name *r)";
$res .= "$proto\n{\n";
- if (has_property($fn, "todo")) {
- $res .= "\treturn NULL;\n";
- } else {
- $res .= "
+ $res .= "
if (p->conn->flags & DCERPC_DEBUG_PRINT_IN) {
NDR_PRINT_IN_DEBUG($name, r);
}
@@ -38,26 +37,24 @@ sub ParseFunctionSend($$$)
return dcerpc_ndr_request_send(p, NULL, &ndr_table_$interface->{NAME},
NDR_$uname, true, mem_ctx, r);
";
- }
$res .= "}\n\n";
}
-sub ParseFunctionRecv($$$)
+sub ParseFunctionOldRecv($$$)
{
my ($interface, $fn, $name) = @_;
my $uname = uc $name;
- my $proto = "NTSTATUS dcerpc_$name\_recv(struct rpc_request *rreq)";
+ if (has_property($fn, "todo")) {
+ return;
+ }
- $res_hdr .= "\n$proto;\n";
+ my $proto = "static NTSTATUS dcerpc_$name\_recv(struct rpc_request *rreq)";
$res .= "$proto\n{\n";
- if (has_property($fn, "todo")) {
- $res .= "\treturn NT_STATUS_NOT_IMPLEMENTED;\n";
- } else {
- $res .= "NTSTATUS status;
+ $res .= "NTSTATUS status;
struct dcerpc_pipe *p = rreq->p;
struct $name *r = (struct $name *)rreq->ndr.struct_ptr;
@@ -69,7 +66,6 @@ sub ParseFunctionRecv($$$)
return status;
";
- }
$res .= "}\n\n";
}
@@ -295,10 +291,10 @@ sub ParseFunction($$)
{
my ($interface, $fn) = @_;
- ParseFunctionSend($interface, $fn, $fn->{NAME});
- ParseFunctionRecv($interface, $fn, $fn->{NAME});
ParseFunctionSync($interface, $fn, $fn->{NAME});
+ ParseFunctionOldSend($interface, $fn, $fn->{NAME});
+ ParseFunctionOldRecv($interface, $fn, $fn->{NAME});
ParseFunction_r_State($interface, $fn, $fn->{NAME});
ParseFunction_r_Send($interface, $fn, $fn->{NAME});
ParseFunction_r_Done($interface, $fn, $fn->{NAME});