diff options
| author | Stefan Metzmacher <metze@samba.org> | 2009-07-31 08:58:36 +0200 |
|---|---|---|
| committer | Stefan Metzmacher <metze@samba.org> | 2009-07-31 12:49:46 +0200 |
| commit | 9e4cf82b74486e64caad963c3da330326ea99167 (patch) | |
| tree | 577179a9f4f137c9f59733da23dad7e55524d56a | |
| parent | dcdefc17b9840ae8a3175da80070dd27bd81a5c7 (diff) | |
| download | samba-9e4cf82b74486e64caad963c3da330326ea99167.tar.gz samba-9e4cf82b74486e64caad963c3da330326ea99167.tar.bz2 samba-9e4cf82b74486e64caad963c3da330326ea99167.zip | |
pidl/Samba4.pm: allow an optional prefix passed to DeclLong()
metze
| -rw-r--r-- | pidl/lib/Parse/Pidl/Samba4.pm | 7 |
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; |