Rev 11490: Change warning to pidl warning, fix uppercasing. in file:///home/jelmer/bzr.samba/SAMBA_4_0/

[Jelmer Vernooij]

At file:///home/jelmer/bzr.samba/SAMBA_4_0/

------------------------------------------------------------
revno: 11490
revision-id: [EMAIL PROTECTED]
parent: svn-v2:[EMAIL PROTECTED]
committer: Jelmer Vernooij <[EMAIL PROTECTED]>
branch nick: SAMBA_4_0
timestamp: Fri 2007-02-16 15:10:29 +0100
message:
  Change warning to pidl warning, fix uppercasing.
modified:
  source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm svn-v2:[EMAIL PROTECTED]
=== modified file 'source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm'
--- a/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm    2007-02-14 14:23:59 
+0000
+++ b/source/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm    2007-02-16 14:10:29 
+0000
@@ -129,7 +129,7 @@
        } elsif ($fn->{RETURN_TYPE} eq "WERROR") {
                pidl "return werror_to_ntstatus(r.out.result);";
        } else {
-               pidl "#warning Sorry, don't know how to convert 
$fn->{RETURN_TYPE} to NTSTATUS";
+               warning($fn->{ORIGINAL}, "Unable to convert $fn->{RETURN_TYPE} 
to NTSTATUS");
                pidl "return NT_STATUS_OK;";
        }
 
@@ -146,7 +146,7 @@
 
        pidl_hdr "#ifndef __CLI_$uif\__";
        pidl_hdr "#define __CLI_$uif\__";
-       ParseFunction($if->{NAME}, $_) foreach (@{$if->{FUNCTIONS}});
+       ParseFunction(uc($if->{NAME}), $_) foreach (@{$if->{FUNCTIONS}});
        pidl_hdr "#endif /* __CLI_$uif\__ */";
 }