diff options
author | Andrew Tridgell <tridge@samba.org> | 2003-11-09 08:28:47 +0000 |
---|---|---|
committer | Andrew Tridgell <tridge@samba.org> | 2003-11-09 08:28:47 +0000 |
commit | 5eb907f1d4d093f79998688a00c15b907e5d249a (patch) | |
tree | ba76c1c0420f3abb29b52078ab3e07c693a8f493 /source4/build/pidl/client.pm | |
parent | adf6142953c4fa81493f133d45eb80d91b069e47 (diff) | |
download | samba-5eb907f1d4d093f79998688a00c15b907e5d249a.tar.gz samba-5eb907f1d4d093f79998688a00c15b907e5d249a.tar.bz2 samba-5eb907f1d4d093f79998688a00c15b907e5d249a.zip |
added a module for auto-generating the client calls. We can now go
from IDL file to working Samba4 RPC client library in a completely
automated fashion.
(This used to be commit 566476b3ff91eaa02c4f3c494afbf9ac7c200461)
Diffstat (limited to 'source4/build/pidl/client.pm')
-rw-r--r-- | source4/build/pidl/client.pm | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/source4/build/pidl/client.pm b/source4/build/pidl/client.pm new file mode 100644 index 0000000000..b3afb2573a --- /dev/null +++ b/source4/build/pidl/client.pm @@ -0,0 +1,76 @@ +################################################### +# client calls generator +# Copyright tridge@samba.org 2003 +# released under the GNU GPL + +package IdlClient; + +use Data::Dumper; + +my($res); + +##################################################################### +# parse a function +sub ParseFunction($) +{ + my $fn = shift; + my $name = $fn->{NAME}; + my $uname = uc $name; + + if ($fn->{RETURN_TYPE} eq "void") { + $res .= " +NTSTATUS dcerpc_$name(struct dcerpc_pipe *p, TALLOC_CTX *mem_ctx, struct $name *r) +{ + return dcerpc_ndr_request(p, DCERPC_$uname, mem_ctx, + (ndr_push_fn_t) ndr_push_$name, + (ndr_pull_fn_t) ndr_pull_$name, + r); +} +"; + } else { + $res .= " +NTSTATUS dcerpc_$name(struct dcerpc_pipe *p, TALLOC_CTX *mem_ctx, struct $name *r) +{ + NTSTATUS status; + status = dcerpc_ndr_request(p, DCERPC_$uname, mem_ctx, + (ndr_push_fn_t) ndr_push_$name, + (ndr_pull_fn_t) ndr_pull_$name, + r); + if (!NT_STATUS_IS_OK(status)) { + return status; + } + + return r->out.result; +} +"; +} +} + +##################################################################### +# parse the interface definitions +sub ParseInterface($) +{ + my($interface) = shift; + my($data) = $interface->{DATA}; + foreach my $d (@{$data}) { + ($d->{TYPE} eq "FUNCTION") && + ParseFunction($d); + } +} + + +##################################################################### +# parse a parsed IDL structure back into an IDL file +sub Parse($) +{ + my($idl) = shift; + $res = "/* dcerpc client calls auto-generated by pidl */\n\n"; + $res .= "#include \"includes.h\"\n\n"; + foreach my $x (@{$idl}) { + ($x->{TYPE} eq "INTERFACE") && + ParseInterface($x); + } + return $res; +} + +1; |