diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2008-01-12 22:15:12 +0100 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2008-01-12 22:15:12 +0100 |
| commit | 97ad5d5d80d0967c3ca7dbcd424883d3ad613138 (patch) | |
| tree | fb0b3a74d4bdf9e2798a29c9c97f39aae8ca74c8 /source4/pidl/lib | |
| parent | c9e39b1d908e88fb6c6f3ff245827050a60ba851 (diff) | |
| download | samba-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.pm | 7 |
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; |