sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-02-04 17:47:26 +03:00
Code

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

Browse Source 
metze
This commit is contained in:
Stefan Metzmacher 2009-07-31 08:58:36 +02:00
parent dcdefc17b9
commit 9e4cf82b74
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pidl/lib/Parse/Pidl/Samba4.pm
View File

@ -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;