pidl:Samba4/NDR/Client: s/interface/if/
authorStefan Metzmacher <metze@samba.org>
Thu, 5 Aug 2010 10:59:46 +0000 (12:59 +0200)
committerStefan Metzmacher <metze@samba.org>
Thu, 12 Aug 2010 12:31:19 +0000 (14:31 +0200)
metze

pidl/lib/Parse/Pidl/Samba4/NDR/Client.pm

index 8b5330b..0672d10 100644 (file)
@@ -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;
 }