From 87fd7b5484b10ccdece6152f2a2a9adb4ea5fc78 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Thu, 29 Dec 2005 16:04:34 +0000
Subject: r12574: Bring tables.pl back to life and move registration of
 interfaces now completely to a new subsystem. (This used to be commit
 bbacfaaea5819e0ecadf81e8fbb424916284c809)

---
 source4/pidl/lib/Parse/Pidl.pm                   |  2 +-
 source4/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm | 35 ------------------------
 2 files changed, 1 insertion(+), 36 deletions(-)

(limited to 'source4/pidl')

diff --git a/source4/pidl/lib/Parse/Pidl.pm b/source4/pidl/lib/Parse/Pidl.pm
index 465f3409ad..c60fc59aba 100644
--- a/source4/pidl/lib/Parse/Pidl.pm
+++ b/source4/pidl/lib/Parse/Pidl.pm
@@ -11,6 +11,6 @@ use strict;
 
 use vars qw ( $VERSION );
 
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 1;
diff --git a/source4/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm b/source4/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm
index f294fa1b9b..5d01531eb7 100644
--- a/source4/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm
@@ -2225,11 +2225,6 @@ sub FunctionTable($)
 	pidl "};";
 	pidl "";
 
-	pidl "static NTSTATUS dcerpc_ndr_$interface->{NAME}_init(void)";
-	pidl "{";
-	pidl "\treturn librpc_register_interface(&dcerpc_table_$interface->{NAME});";
-	pidl "}";
-	pidl "";
 }
 
 #####################################################################
@@ -2336,34 +2331,6 @@ sub ParseInterface($$)
 	FunctionTable($interface);
 }
 
-sub RegistrationFunction($$)
-{
-	my ($idl,$basename) = @_;
-
-	my $body = "";
-
-	foreach my $interface (@{$idl}) {
-		next if $interface->{TYPE} ne "INTERFACE";
-		next if ($#{$interface->{FUNCTIONS}}+1 == 0);
-		next unless defined ($interface->{PROPERTIES}->{uuid});
-
-		$body .= "\tstatus = dcerpc_ndr_$interface->{NAME}_init();\n";
-		$body .= "\tif (NT_STATUS_IS_ERR(status)) {\n";
-		$body .= "\t\treturn status;\n";
-		$body .= "\t}\n";
-		$body .= "\n";
-	}
-
-	return unless $body;
-
-	pidl "NTSTATUS dcerpc_$basename\_init(void)";
-	pidl "{";
-	pidl "\tNTSTATUS status = NT_STATUS_OK;";
-	pidl "$body\treturn status;";
-	pidl "}";
-	pidl "";
-}
-
 #####################################################################
 # parse a parsed IDL structure back into an IDL file
 sub Parse($$)
@@ -2390,8 +2357,6 @@ sub Parse($$)
 		($_->{TYPE} eq "INTERFACE") && ParseInterface($_, \%needed);
 	}
 
-	RegistrationFunction($ndr, $basename);
-
 	return ($res_hdr, $res);
 }
 
-- 
cgit