From 94793b80d7fbd6121bb30e36b25e63abe078feee Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Sun, 25 Dec 2005 17:12:52 +0000
Subject: r12484: Initial work on supporting non-typedeffed types (This used to
 be commit e7ac6c708dde7afb4c92a8cc4dea7a95b7054e3e)

---
 source4/pidl/lib/Parse/Pidl/Samba3/Header.pm | 2 +-
 source4/pidl/lib/Parse/Pidl/Samba3/Parser.pm | 2 +-
 source4/pidl/lib/Parse/Pidl/Samba3/Types.pm  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm b/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm
index b49e64c337..fb02120a42 100644
--- a/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm
@@ -183,7 +183,7 @@ sub ParseInterface($)
 
 	pidl "";
 
-	foreach (@{$if->{TYPEDEFS}}) {
+	foreach (@{$if->{TYPES}}) {
 		ParseStruct($if, $_->{DATA}, $_->{NAME}) if ($_->{DATA}->{TYPE} eq "STRUCT");
 		ParseEnum($if, $_->{DATA}, $_->{NAME}) if ($_->{DATA}->{TYPE} eq "ENUM");
 		ParseBitmap($if, $_->{DATA}, $_->{NAME}) if ($_->{DATA}->{TYPE} eq "BITMAP");
diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/Parser.pm b/source4/pidl/lib/Parse/Pidl/Samba3/Parser.pm
index 9ef8f09dc4..c12f7554e9 100644
--- a/source4/pidl/lib/Parse/Pidl/Samba3/Parser.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba3/Parser.pm
@@ -566,7 +566,7 @@ sub ParseInterface($)
 
 	# Structures first 
 	pidl "/* $if->{NAME} structures */";
-	foreach (@{$if->{TYPEDEFS}}) {
+	foreach (@{$if->{TYPES}}) {
 		ParseStruct($if, $_->{DATA}, $_->{NAME}) if ($_->{DATA}->{TYPE} eq "STRUCT");
 		ParseUnion($if, $_->{DATA}, $_->{NAME}) if ($_->{DATA}->{TYPE} eq "UNION");
 	}
diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/Types.pm b/source4/pidl/lib/Parse/Pidl/Samba3/Types.pm
index 3f7e8ae134..d1f1032714 100644
--- a/source4/pidl/lib/Parse/Pidl/Samba3/Types.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba3/Types.pm
@@ -350,7 +350,7 @@ sub LoadTypes($)
 	foreach my $if (@{$ndr}) {
 		next unless ($if->{TYPE} eq "INTERFACE");
 
-		foreach my $td (@{$if->{TYPEDEFS}}) {
+		foreach my $td (@{$if->{TYPES}}) {
 			my $decl = uc("$if->{NAME}_$td->{NAME}");
 
 			my $init = sub {
-- 
cgit