r7098: - make use of the NDR table instead of the IDL table in the client and server generation

- add 'noid' property to allow functions to be not present in the function table,
  and not generate client and server functions for them
- print out a warning about [id()] not being correctly supported yet

metze
(This used to be commit 189730d1430e7f728d62dd5dc52f2a90c1a556d7)

1 files changed, 2 insertions, 15 deletions

diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl
index 478c7a273a..a1089f90b1 100755
--- a/source4/build/pidl/pidl.pl
+++ b/source4/build/pidl/pidl.pl
@@ -220,22 +220,13 @@ sub process_file($)
 
 	if ($opt_client) {
 		my ($client) = util::ChangeExtension($output, "_c.c");
-		my $res = "";
 		my $h_filename = util::ChangeExtension($output, ".h");
 
-		$res .= "#include \"includes.h\"\n";
-		$res .= "#include \"$h_filename\"\n\n";
-
-		foreach my $x (@{$pidl}) {
-			$res .= NdrClient::ParseInterface($x);
-		}
-
-		util::FileSave($client, $res);
+		util::FileSave($client, NdrClient::Parse($ndr,$h_filename));
 	}
 
 	if ($opt_server) {
 		my $h_filename = util::ChangeExtension($output, ".h");
-		my $plain = "";
 		my $dcom = "";
 
 		foreach my $x (@{$pidl}) {
@@ -243,14 +234,10 @@ sub process_file($)
 
 			if (util::has_property($x, "object")) {
 				$dcom .= DCOMStub::ParseInterface($x);
-			} else {
-				$plain .= IdlServer::ParseInterface($x);
 			}
 		}
 
-		if ($plain ne "") {
-			util::FileSave(util::ChangeExtension($output, "_s.c"), $plain);
-		}
+		util::FileSave(util::ChangeExtension($output, "_s.c"), NdrServer::Parse($ndr,$h_filename));
 
 		if ($dcom ne "") {
 			$dcom = "