From 9e4cf82b74486e64caad963c3da330326ea99167 Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Fri, 31 Jul 2009 08:58:36 +0200
Subject: pidl/Samba4.pm: allow an optional prefix passed to DeclLong()

metze
---
 pidl/lib/Parse/Pidl/Samba4.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'pidl')

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