diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2004-08-11 19:48:36 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 12:57:51 -0500 |
commit | 1d3b81e6c0c4c654c7395fe84b053cd77ef7d81a (patch) | |
tree | 3b193a8d482844dbdd05ae335882c800908bdd0f /source4/build/pidl/dump.pm | |
parent | ca72bdfecbea2e332821bc292b4bb34f6c96ac2e (diff) | |
download | samba-1d3b81e6c0c4c654c7395fe84b053cd77ef7d81a.tar.gz samba-1d3b81e6c0c4c654c7395fe84b053cd77ef7d81a.tar.bz2 samba-1d3b81e6c0c4c654c7395fe84b053cd77ef7d81a.zip |
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)
Diffstat (limited to 'source4/build/pidl/dump.pm')
-rw-r--r-- | source4/build/pidl/dump.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm index e74ffe6203..640bc3a120 100644 --- a/source4/build/pidl/dump.pm +++ b/source4/build/pidl/dump.pm @@ -183,7 +183,7 @@ sub DumpFunction($) ##################################################################### # dump a module header -sub DumpModuleHeader($) +sub DumpInterfaceProperties($) { my($header) = shift; my($data) = $header->{DATA}; @@ -208,6 +208,8 @@ sub DumpInterface($) my($data) = $interface->{DATA}; my($res); + $res .= DumpInterfaceProperties($interface->{PROPERTIES}); + $res .= "interface $interface->{NAME}\n{\n"; foreach my $d (@{$data}) { ($d->{TYPE} eq "TYPEDEF") && @@ -230,8 +232,6 @@ sub Dump($) $res = "/* Dumped by pidl */\n\n"; foreach my $x (@{$idl}) { - ($x->{TYPE} eq "MODULEHEADER") && - ($res .= DumpModuleHeader($x)); ($x->{TYPE} eq "INTERFACE") && ($res .= DumpInterface($x)); } |