From 485df40bf96abbd80d69ff2a9fdca86516a4eae7 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Sun, 7 Nov 2004 16:47:46 +0000
Subject: r3601: Lots of smaller DCOM updates and fixes. Adds oxid tables,
 proper use of contexts. (This used to be commit
 93eb3cd99c4fb065a69eabcead0c33804259c976)

---
 source4/build/pidl/client.pm | 58 ++++++++++++++++++++++++++++++++++----------
 source4/build/pidl/header.pm | 10 +++-----
 2 files changed, 49 insertions(+), 19 deletions(-)

(limited to 'source4/build/pidl')

diff --git a/source4/build/pidl/client.pm b/source4/build/pidl/client.pm
index 10ae81ec18..d9d2a0ca14 100644
--- a/source4/build/pidl/client.pm
+++ b/source4/build/pidl/client.pm
@@ -19,22 +19,35 @@ sub ParseFunction($)
 
 	return if (util::has_property($fn, "local"));
 
-	my $objargdef = "";
-	my $objarg = ", NULL";
+	my $objarg;
 	if (util::has_property($fn, "object")) {
-		$objargdef = ", struct GUID *object";
-		$objarg = ", object";
+		$objarg = "&d->objref->u_objref.u_standard.std.ipid";
+		# FIXME: Support custom marshalling
+		
+		$res .= "
+struct rpc_request *dcerpc_$name\_send(struct dcom_interface *d, TALLOC_CTX *mem_ctx, struct $name *r)
+{
+	struct dcerpc_pipe *p;
+	NTSTATUS status = dcom_get_pipe(d, &p);
+
+	if (NT_STATUS_IS_ERR(status)) {
+		return NULL;
 	}
 
-	$res .= 
-"
-struct rpc_request *dcerpc_$name\_send(struct dcerpc_pipe *p$objargdef, TALLOC_CTX *mem_ctx, struct $name *r)
-{
-        if (p->flags & DCERPC_DEBUG_PRINT_IN) {
+";
+	} else {
+		$objarg = "NULL";
+		$res .= "
+struct rpc_request *dcerpc_$name\_send(struct dcerpc_pipe *p, TALLOC_CTX *mem_ctx, struct $name *r)
+{";
+	}
+
+	$res.="
+    if (p->flags & DCERPC_DEBUG_PRINT_IN) {
 		NDR_PRINT_IN_DEBUG($name, r);		
 	}
 
-	return dcerpc_ndr_request_send(p$objarg, DCERPC_$uname, mem_ctx,
+	return dcerpc_ndr_request_send(p, $objarg, DCERPC_$uname, mem_ctx,
 				    (ndr_push_flags_fn_t) ndr_push_$name,
 				    (ndr_pull_flags_fn_t) ndr_pull_$name,
 				    r, sizeof(*r));
@@ -42,13 +55,32 @@ struct rpc_request *dcerpc_$name\_send(struct dcerpc_pipe *p$objargdef, TALLOC_C
 
 ";
 
-	$objarg = "" unless (util::has_property($fn, "object"));
+	if (util::has_property($fn, "object")) {
 	$res .= 
 "
-NTSTATUS dcerpc_$name(struct dcerpc_pipe *p$objargdef, TALLOC_CTX *mem_ctx, struct $name *r)
+NTSTATUS dcerpc_$name(struct dcom_interface *d, TALLOC_CTX *mem_ctx, struct $name *r)
 {
-	struct rpc_request *req = dcerpc_$name\_send(p$objarg, mem_ctx, r);
+	struct dcerpc_pipe *p;
+	NTSTATUS status = dcom_get_pipe(d, &p);
+	struct rpc_request *req;
+	
+	if (NT_STATUS_IS_ERR(status)) {
+		return status;
+	}
+	
+	";
+	} else {
+	$res .= 
+"
+NTSTATUS dcerpc_$name(struct dcerpc_pipe *p, TALLOC_CTX *mem_ctx, struct $name *r)
+{
+	struct rpc_request *req;
 	NTSTATUS status;
+	";
+	}
+
+	$res .= "
+	req = dcerpc_$name\_send(p, mem_ctx, r);
 	if (req == NULL) return NT_STATUS_NO_MEMORY;
 
 	status = dcerpc_ndr_request_recv(req);
diff --git a/source4/build/pidl/header.pm b/source4/build/pidl/header.pm
index d1eb1d1630..0c4c5df425 100644
--- a/source4/build/pidl/header.pm
+++ b/source4/build/pidl/header.pm
@@ -303,16 +303,14 @@ sub HeaderFnProto($)
     my $fn = shift;
     my $name = $fn->{NAME};
 	
-	return if (util::has_property($fn, "call_as") );
-
-	my $objarg = "";
+	my $firstarg = "dcerpc_pipe";
 	if (util::has_property($fn, "object")) {
-		$objarg = ", struct GUID *";
+		$firstarg = "dcom_interface"; 
 	}
 	
     $res .= "void ndr_print_$name(struct ndr_print *, const char *, int, struct $name *);\n";
-    $res .= "struct rpc_request *dcerpc_$name\_send(struct dcerpc_pipe *$objarg, TALLOC_CTX *, struct $name *);\n";
-    $res .= "NTSTATUS dcerpc_$name(struct dcerpc_pipe *$objarg, TALLOC_CTX *, struct $name *);\n";
+    $res .= "struct rpc_request *dcerpc_$name\_send(struct $firstarg *, TALLOC_CTX *, struct $name *);\n";
+    $res .= "NTSTATUS dcerpc_$name(struct $firstarg *, TALLOC_CTX *, struct $name *);\n";
     $res .= "\n";
 }
 
-- 
cgit