r3861: - Put ndr and rpc client code in seperate files

- Add some const
(This used to be commit a00bda88e1b6abdc36e5aa8c2a35f64855f67c96)

1 files changed, 29 insertions, 0 deletions

diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl
index bb7f1f8ed6..8388bcfd4c 100755
--- a/source4/build/pidl/pidl.pl
+++ b/source4/build/pidl/pidl.pl
@@ -17,6 +17,8 @@ use idl;
 use dump;
 use header;
 use server;
+use client;
+use proxy;
 use stub;
 use parser;
 use eparser;
@@ -31,6 +33,7 @@ my($opt_dump) = 0;
 my($opt_diff) = 0;
 my($opt_header) = 0;
 my($opt_template) = 0;
+my($opt_client) = 0;
 my($opt_server) = 0;
 my($opt_parser) = 0;
 my($opt_eparser) = 0;
@@ -68,6 +71,7 @@ sub ShowHelp()
              --dump                dump a pidl file back to idl
              --header              create a C header file
              --parser              create a C parser
+             --client              create a C client
              --server              create server boilerplate
              --template            print a template for a pipe
              --eparser             create an ethereal parser
@@ -88,6 +92,7 @@ GetOptions (
 	    'server' => \$opt_server,
 	    'template' => \$opt_template,
 	    'parser' => \$opt_parser,
+        'client' => \$opt_client,
 	    'eparser' => \$opt_eparser,
 	    'diff' => \$opt_diff,
 	    'keep' => \$opt_keep,
@@ -138,6 +143,30 @@ sub process_file($)
 		util::FileSave($header, IdlHeader::Parse($pidl));
 	}
 
+	if ($opt_client) {
+		my ($client) = util::ChangeExtension($output, "_c.c");
+		my $res = "";
+		my $h_filename = util::ChangeExtension($output, ".h");
+		my $need_dcom_register = 0;
+
+		$res .= "#include \"includes.h\"\n";
+		$res .= "#include \"$h_filename\"\n\n";
+
+		foreach my $x (@{$pidl}) {
+			if (util::has_property($x, "object")) {
+				$res .= IdlProxy::ParseInterface($x);
+				$need_dcom_register = 1;
+			} else {
+				$res .= IdlClient::ParseInterface($x);
+			}
+		}
+
+		if ($need_dcom_register) {
+			$res .= IdlProxy::RegistrationFunction($pidl, $basename);
+		}
+		util::FileSave($client, $res);
+	}
+
 	if ($opt_server) {
 		my($server) = util::ChangeExtension($output, "_s.c");
 		my $res = "";