summaryrefslogtreecommitdiff
path: root/pidl/lib/Parse/Pidl
diff options
context:
space:
mode:
authorStefan Metzmacher <metze@samba.org>2009-07-31 08:58:36 +0200
committerStefan Metzmacher <metze@samba.org>2009-07-31 12:49:46 +0200
commit9e4cf82b74486e64caad963c3da330326ea99167 (patch)
tree577179a9f4f137c9f59733da23dad7e55524d56a /pidl/lib/Parse/Pidl
parentdcdefc17b9840ae8a3175da80070dd27bd81a5c7 (diff)
downloadsamba-9e4cf82b74486e64caad963c3da330326ea99167.tar.gz
samba-9e4cf82b74486e64caad963c3da330326ea99167.tar.bz2
samba-9e4cf82b74486e64caad963c3da330326ea99167.zip
pidl/Samba4.pm: allow an optional prefix passed to DeclLong()
metze
Diffstat (limited to 'pidl/lib/Parse/Pidl')
-rw-r--r--pidl/lib/Parse/Pidl/Samba4.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/pidl/lib/Parse/Pidl/Samba4.pm b/pidl/lib/Parse/Pidl/Samba4.pm
index 20c518dceb..1deb708689 100644
--- 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;