diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2004-11-18 20:53:23 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:05:58 -0500 |
commit | a0fa682faa309bda812008ea3a084cf54f65310b (patch) | |
tree | 5841de49e8c7c212a9ac97cd82c06e7b4d9591c3 /source4/build/pidl/parser.pm | |
parent | be01250d1a5ef9611164e5ca741e07255f770b4d (diff) | |
download | samba-a0fa682faa309bda812008ea3a084cf54f65310b.tar.gz samba-a0fa682faa309bda812008ea3a084cf54f65310b.tar.bz2 samba-a0fa682faa309bda812008ea3a084cf54f65310b.zip |
r3861: - Put ndr and rpc client code in seperate files
- Add some const
(This used to be commit a00bda88e1b6abdc36e5aa8c2a35f64855f67c96)
Diffstat (limited to 'source4/build/pidl/parser.pm')
-rw-r--r-- | source4/build/pidl/parser.pm | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/source4/build/pidl/parser.pm b/source4/build/pidl/parser.pm index 5be538b2cf..cec983724d 100644 --- a/source4/build/pidl/parser.pm +++ b/source4/build/pidl/parser.pm @@ -8,8 +8,6 @@ package IdlParser; use strict; -use client; -use proxy; use needed; # the list of needed functions @@ -853,7 +851,7 @@ sub ParseStructNdrSize($) my $static = fn_prefix($t); my $sizevar; - pidl $static . "size_t ndr_size_$t->{NAME}(int ret, struct $t->{NAME} *r, int flags)\n"; + pidl $static . "size_t ndr_size_$t->{NAME}(int ret, const struct $t->{NAME} *r, int flags)\n"; pidl "{\n"; if (util::has_property($t->{DATA}, "flag")) { @@ -1062,7 +1060,7 @@ sub ParseUnionNdrSize($) my $t = shift; my $static = fn_prefix($t); - pidl $static . "size_t ndr_size_$t->{NAME}(int ret, union $t->{NAME} *data, uint16 level, int flags)\n"; + pidl $static . "size_t ndr_size_$t->{NAME}(int ret, const union $t->{NAME} *data, uint16 level, int flags)\n"; pidl "{\n"; if (util::has_property($t->{DATA}, "flag")) { pidl "\tflags = flags | " . $t->{DATA}->{PROPERTIES}->{flag} . ";\n"; @@ -1599,13 +1597,6 @@ sub RegistrationFunction($$) pidl "\tif (NT_STATUS_IS_ERR(status)) {\n"; pidl "\t\treturn status;\n"; pidl "\t}\n\n"; - - if (util::has_property($interface, "object")) { - pidl "\tstatus = dcom_$interface->{NAME}_init();\n"; - pidl "\tif (NT_STATUS_IS_ERR(status)) {\n"; - pidl "\t\treturn status;\n"; - pidl "\t}\n\n"; - } } pidl "\treturn status;\n"; pidl "}\n\n"; @@ -1633,12 +1624,6 @@ sub Parse($$) if ($x->{TYPE} eq "INTERFACE") { needed::BuildNeeded($x); ParseInterface($x); - - if (util::has_property($x, "object")) { - pidl IdlProxy::ParseInterface($x); - } else { - pidl IdlClient::ParseInterface($x); - } } } |