diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-10-04 21:25:18 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:39:24 -0500 |
| commit | 3d6279402caa862db4a7bc4697c667fbd1faa83d (patch) | |
| tree | 1c90f7a429576915c8c3c79ccbc60ff786942805 /source4/pidl/lib/Parse/Pidl/Samba3/Client.pm | |
| parent | 9879bc6aa6c7997220079b3501b9a4fb3682c813 (diff) | |
| download | samba-3d6279402caa862db4a7bc4697c667fbd1faa83d.tar.gz samba-3d6279402caa862db4a7bc4697c667fbd1faa83d.tar.bz2 samba-3d6279402caa862db4a7bc4697c667fbd1faa83d.zip | |
r10718: Another large set of small improvements. All generated files compile
without warnings now. The only things left to do that are
required for DFS:
- add allocation of arrays in marshalling phase
- handling primitive and deferred data in embedded structures / unions.
Example output is again available from http://samba.org/~jelmer/pidl_samba3/
(This used to be commit 9fe724f6fb026d95306587f696c065f348aaf219)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Samba3/Client.pm')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/Samba3/Client.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/Client.pm b/source4/pidl/lib/Parse/Pidl/Samba3/Client.pm index d79aede138..b48a1b519f 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba3/Client.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba3/Client.pm @@ -58,6 +58,14 @@ sub ParseFunction($$) pidl "\t$if->{NAME}_io_r_$fn->{NAME},"; pidl "\tNT_STATUS_UNSUCCESSFUL);"; pidl ""; + pidl "/* Return variables */"; + foreach (@{$fn->{ELEMENTS}}) { + next unless (grep(/out/, @{$_->{DIRECTION}})); + + pidl "*$_->{NAME} = r.$_->{NAME};"; + } + + pidl""; pidl "/* Return result */"; if (not $fn->{RETURN_TYPE}) { pidl "return NT_STATUS_OK;"; |