diff options
Diffstat (limited to 'pidl/lib/Parse/Pidl/Samba4')
-rw-r--r-- | pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm | 44 |
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; } |