sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-11-18 00:23:50 +03:00
Code Activity

r12574: Bring tables.pl back to life and move registration of interfaces

Browse Source 
now completely to a new subsystem.
This commit is contained in:
Jelmer Vernooij
2005-12-29 16:04:34 +00:00
committed by Gerald (Jerry) Carter
parent 33012dc015
commit bbacfaaea5
6 changed files with 140 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
source/pidl/lib/Parse/Pidl/Samba4/NDR/Parser.pm
View File

@@ -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);
}