summaryrefslogtreecommitdiff
path: root/source4/pidl/lib/Parse
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2005-12-29 16:04:34 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:48:56 -0500
commit87fd7b5484b10ccdece6152f2a2a9adb4ea5fc78 (patch)
treed51e9094115a4717e6c29f0c95c112fd588756d3 /source4/pidl/lib/Parse
parent1690ae449a6189d38a1d63dba22bf0ec774201f8 (diff)
downloadsamba-87fd7b5484b10ccdece6152f2a2a9adb4ea5fc78.tar.gz
samba-87fd7b5484b10ccdece6152f2a2a9adb4ea5fc78.tar.bz2
samba-87fd7b5484b10ccdece6152f2a2a9adb4ea5fc78.zip
r12574: Bring tables.pl back to life and move registration of interfaces
now completely to a new subsystem. (This used to be commit bbacfaaea5819e0ecadf81e8fbb424916284c809)
Diffstat (limited to 'source4/pidl/lib/Parse')
-rw-r--r--source4/pidl/lib/Parse/Pidl.pm2
-rw-r--r--source4/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm35
2 files changed, 1 insertions, 36 deletions
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);
}