summaryrefslogtreecommitdiff
path: root/pidl/lib
diff options
context:
space:
mode:
Diffstat (limited to 'pidl/lib')
-rw-r--r--pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm44
1 files changed, 22 insertions, 22 deletions
diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
index 8b5330b50c..0672d101b6 100644
--- a/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
+++ b/pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm
@@ -18,7 +18,7 @@ my($res,$res_hdr);
sub ParseFunction_r_State($$$)
{
- my ($interface, $fn, $name) = @_;
+ my ($if, $fn, $name) = @_;
my $uname = uc $name;
if (has_property($fn, "todo")) {
@@ -35,7 +35,7 @@ sub ParseFunction_r_State($$$)
sub ParseFunction_r_Send($$$)
{
- my ($interface, $fn, $name) = @_;
+ my ($if, $fn, $name) = @_;
my $uname = uc $name;
if (has_property($fn, "todo")) {
@@ -84,7 +84,7 @@ sub ParseFunction_r_Send($$$)
}
$res .= "\tsubreq = dcerpc_binding_handle_call_send(state, ev, h,\n";
- $res .= "\t\t\tNULL, &ndr_table_$interface->{NAME},\n";
+ $res .= "\t\t\tNULL, &ndr_table_$if->{NAME},\n";
$res .= "\t\t\tNDR_$uname, $submem, r);\n";
$res .= "\tif (tevent_req_nomem(subreq, req)) {\n";
$res .= "\t\treturn tevent_req_post(req, ev);\n";
@@ -99,7 +99,7 @@ sub ParseFunction_r_Send($$$)
sub ParseFunction_r_Done($$$)
{
- my ($interface, $fn, $name) = @_;
+ my ($if, $fn, $name) = @_;
my $uname = uc $name;
if (has_property($fn, "todo")) {
@@ -131,7 +131,7 @@ sub ParseFunction_r_Done($$$)
sub ParseFunction_r_Recv($$$)
{
- my ($interface, $fn, $name) = @_;
+ my ($if, $fn, $name) = @_;
my $uname = uc $name;
if (has_property($fn, "todo")) {
@@ -167,7 +167,7 @@ sub ParseFunction_r_Recv($$$)
sub ParseFunction_r_Sync($$$)
{
- my ($interface, $fn, $name) = @_;
+ my ($if, $fn, $name) = @_;
my $uname = uc $name;
if (has_property($fn, "todo")) {
@@ -182,7 +182,7 @@ sub ParseFunction_r_Sync($$$)
$res .= "\n";
$res .= "\tstatus = dcerpc_binding_handle_call(h,\n";
- $res .= "\t\t\tNULL, &ndr_table_$interface->{NAME},\n";
+ $res .= "\t\t\tNULL, &ndr_table_$if->{NAME},\n";
$res .= "\t\t\tNDR_$uname, mem_ctx, r);\n";
$res .= "\n";
$res .= "\treturn status;\n";
@@ -195,13 +195,13 @@ sub ParseFunction_r_Sync($$$)
# parse a function
sub ParseFunction($$)
{
- my ($interface, $fn) = @_;
+ my ($if, $fn) = @_;
- ParseFunction_r_State($interface, $fn, $fn->{NAME});
- ParseFunction_r_Send($interface, $fn, $fn->{NAME});
- ParseFunction_r_Done($interface, $fn, $fn->{NAME});
- ParseFunction_r_Recv($interface, $fn, $fn->{NAME});
- ParseFunction_r_Sync($interface, $fn, $fn->{NAME});
+ ParseFunction_r_State($if, $fn, $fn->{NAME});
+ ParseFunction_r_Send($if, $fn, $fn->{NAME});
+ ParseFunction_r_Done($if, $fn, $fn->{NAME});
+ ParseFunction_r_Recv($if, $fn, $fn->{NAME});
+ ParseFunction_r_Sync($if, $fn, $fn->{NAME});
}
my %done;
@@ -210,25 +210,25 @@ my %done;
# parse the interface definitions
sub ParseInterface($)
{
- my($interface) = shift;
+ my($if) = shift;
- $res_hdr .= "#ifndef _HEADER_RPC_$interface->{NAME}\n";
- $res_hdr .= "#define _HEADER_RPC_$interface->{NAME}\n\n";
+ $res_hdr .= "#ifndef _HEADER_RPC_$if->{NAME}\n";
+ $res_hdr .= "#define _HEADER_RPC_$if->{NAME}\n\n";
- if (defined $interface->{PROPERTIES}->{uuid}) {
- $res_hdr .= "extern const struct ndr_interface_table ndr_table_$interface->{NAME};\n";
+ if (defined $if->{PROPERTIES}->{uuid}) {
+ $res_hdr .= "extern const struct ndr_interface_table ndr_table_$if->{NAME};\n";
}
- $res .= "/* $interface->{NAME} - client functions generated by pidl */\n\n";
+ $res .= "/* $if->{NAME} - client functions generated by pidl */\n\n";
- foreach my $fn (@{$interface->{FUNCTIONS}}) {
+ foreach my $fn (@{$if->{FUNCTIONS}}) {
next if not defined($fn->{OPNUM});
next if defined($done{$fn->{NAME}});
- ParseFunction($interface, $fn);
+ ParseFunction($if, $fn);
$done{$fn->{NAME}} = 1;
}
- $res_hdr .= "#endif /* _HEADER_RPC_$interface->{NAME} */\n";
+ $res_hdr .= "#endif /* _HEADER_RPC_$if->{NAME} */\n";
return $res;
}