From de512e88a905a7075e876127c252c010319d47d3 Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Fri, 17 Aug 2007 08:47:38 +0000
Subject: r24508: add HeaderTypeNew() which will go if everything is converted

metze
(This used to be commit 0eba05b6a67eb5b119e9054af3fe9db855cb9fbe)
---
 source4/pidl/lib/Parse/Pidl/Samba4/Header.pm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'source4/pidl/lib/Parse')

diff --git a/source4/pidl/lib/Parse/Pidl/Samba4/Header.pm b/source4/pidl/lib/Parse/Pidl/Samba4/Header.pm
index 76034109b7..d7cfdd8e9f 100644
--- a/source4/pidl/lib/Parse/Pidl/Samba4/Header.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba4/Header.pm
@@ -217,13 +217,30 @@ sub HeaderType($$$)
 		pidl mapTypeName($e->{TYPE});
 	}
 }
+sub HeaderTypeNew($$$)
+{
+	my($e,$data,$name) = @_;
+	if (ref($data) eq "HASH") {
+		($data->{TYPE} eq "ENUM") && HeaderEnum($data->{ORIGINAL}, $name);
+		($data->{TYPE} eq "BITMAP") && HeaderBitmap($data->{ORIGINAL}, $name);
+		($data->{TYPE} eq "STRUCT") && HeaderStruct($data->{ORIGINAL}, $name);
+		($data->{TYPE} eq "UNION") && HeaderUnion($data->{ORIGINAL}, $name);
+		return;
+	}
+
+	if (has_property($e, "charset")) {
+		pidl "const char";
+	} else {
+		pidl mapTypeName($e->{TYPE});
+	}
+}
 
 #####################################################################
 # parse a typedef
 sub HeaderTypedef($)
 {
 	my($typedef) = shift;
-	HeaderType($typedef, $typedef->{DATA}->{ORIGINAL}, $typedef->{NAME});
+	HeaderTypeNew($typedef, $typedef->{DATA}, $typedef->{NAME});
 }
 
 #####################################################################
-- 
cgit