summaryrefslogtreecommitdiff
path: root/source4/pidl/lib
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2008-01-12 22:15:12 +0100
committerJelmer Vernooij <jelmer@samba.org>2008-01-12 22:15:12 +0100
commit97ad5d5d80d0967c3ca7dbcd424883d3ad613138 (patch)
treefb0b3a74d4bdf9e2798a29c9c97f39aae8ca74c8 /source4/pidl/lib
parentc9e39b1d908e88fb6c6f3ff245827050a60ba851 (diff)
downloadsamba-97ad5d5d80d0967c3ca7dbcd424883d3ad613138.tar.gz
samba-97ad5d5d80d0967c3ca7dbcd424883d3ad613138.tar.bz2
samba-97ad5d5d80d0967c3ca7dbcd424883d3ad613138.zip
pidl: Add ability to write type metadata to a file.
(This used to be commit e8ab241ff47f2c3e6f80f9c62373139e4c9f5a1e)
Diffstat (limited to 'source4/pidl/lib')
-rw-r--r--source4/pidl/lib/Parse/Pidl/Typelist.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Typelist.pm b/source4/pidl/lib/Parse/Pidl/Typelist.pm
index 8fb7448070..3721800b97 100644
--- a/source4/pidl/lib/Parse/Pidl/Typelist.pm
+++ b/source4/pidl/lib/Parse/Pidl/Typelist.pm
@@ -238,7 +238,7 @@ sub mapTypeName($)
sub LoadIdl($)
{
- my $idl = shift;
+ my ($idl) = @_;
foreach my $x (@{$idl}) {
next if $x->{TYPE} ne "INTERFACE";
@@ -254,6 +254,11 @@ sub LoadIdl($)
}
}
+sub GenerateTypeLib()
+{
+ return Parse::Pidl::Util::MyDumper(\%types);
+}
+
RegisterScalars();
1;