From 1d3b81e6c0c4c654c7395fe84b053cd77ef7d81a Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Wed, 11 Aug 2004 19:48:36 +0000
Subject: r1736: - Pidl updates:  - Support for "object oriented" interfaces in
 pidl  - Support for inherited interfaces in pidl  - Simplification of the
 support for properties on an interface - Start on dcom rpc torture tests
 (This used to be commit 45c3d0036b8510102816f9cdff9210098259cc5f)

---
 source4/build/pidl/util.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'source4/build/pidl/util.pm')

diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm
index f822222b45..1341d77ccc 100644
--- a/source4/build/pidl/util.pm
+++ b/source4/build/pidl/util.pm
@@ -153,6 +153,20 @@ sub SaveStructure($$)
 	FileSave($filename, MyDumper($v));
 }
 
+#####################################################################
+# find an interface in an array of interfaces
+sub get_interface($$)
+{
+	my($if) = shift;
+	my($n) = shift;
+
+	foreach(@{$if}) {
+		if($_->{NAME} eq $n) { return $_; }
+	}
+	
+	return 0;
+}
+
 #####################################################################
 # see if a pidl property list contains a give property
 sub has_property($$)
-- 
cgit