pidl/Samba4.pm: allow an optional prefix passed to DeclLong()

metze

diff --git a/pidl/lib/Parse/Pidl/Samba4.pm b/pidl/lib/Parse/Pidl/Samba4.pm
index 20c518dcebf66beddd2a319a491819ca7c412445..1deb7086894e20946c4dad4ad86b8e4556e4f8d7 100644 (file)
--- a/pidl/lib/Parse/Pidl/Samba4.pm
+++ b/pidl/lib/Parse/Pidl/Samba4.pm
@@ -102,10 +102,11 @@ sub ArrayBrackets($)
        return $res;
 }
 
-sub DeclLong($)
+sub DeclLong($;$)
 {
-       my ($e) = shift;
+       my ($e, $p) = @_;
        my $res = "";
+       $p = "" unless defined($p);
 
        if (has_property($e, "represent_as")) {
                $res .= mapTypeName($e->{PROPERTIES}->{represent_as})." ";
@@ -118,7 +119,7 @@ sub DeclLong($)
 
                $res .= ElementStars($e);
        }
-       $res .= $e->{NAME};
+       $res .= $p.$e->{NAME};
        $res .= ArrayBrackets($e);
 
        return $res;