1 ###################################################
2 # server boilerplate generator
3 # Copyright tridge@samba.org 2003
4 # Copyright metze@samba.org 2004
5 # released under the GNU GPL
18 #####################################################################
19 # produce boilerplate code for a interface
20 sub Boilerplate_Iface($)
22 my($interface) = shift;
23 my($data) = $interface->{DATA};
25 my $name = $interface->{NAME};
28 foreach my $d (@{$data}) {
29 if ($d->{TYPE} eq "FUNCTION") { $count++; }
36 pidl "static const dcesrv_dispatch_fn_t $name\_dispatch_table[] = {\n";
37 foreach my $d (@{$data}) {
38 if ($d->{TYPE} eq "FUNCTION") {
39 pidl "\t(dcesrv_dispatch_fn_t)$d->{NAME},\n";
45 static NTSTATUS $name\__op_bind(struct dcesrv_call_state *dce_call, const struct dcesrv_interface *iface)
47 #ifdef DCESRV_INTERFACE_$uname\_BIND
48 return DCESRV_INTERFACE_$uname\_BIND(dce_call,iface);
54 static void $name\__op_unbind(struct dcesrv_connection *dce_conn, const struct dcesrv_interface *iface)
56 #ifdef DCESRV_INTERFACE_$uname\_UNBIND
57 DCESRV_INTERFACE_$uname\_UNBIND(dce_conn,iface);
63 static NTSTATUS $name\__op_dispatch(struct dcesrv_call_state *dce_call, TALLOC_CTX *mem_ctx, void *r)
65 uint16 opnum = dce_call->pkt.u.request.opnum;
67 return $name\_dispatch_table[opnum](dce_call, mem_ctx, r);
70 static const struct dcesrv_interface $name\_interface = {
80 #####################################################################
81 # produce boilerplate code for an endpoint server
82 sub Boilerplate_Ep_Server($)
84 my($interface) = shift;
85 my($data) = $interface->{DATA};
87 my $name = $interface->{NAME};
90 foreach my $d (@{$data}) {
91 if ($d->{TYPE} eq "FUNCTION") { $count++; }
99 static NTSTATUS $name\__op_init_server(struct dcesrv_context *dce_ctx, const struct dcesrv_endpoint_server *ep_server)
103 for (i=0;i<$name\_interface.ndr->endpoints->count;i++) {
105 const char *name = $name\_interface.ndr->endpoints->names[i];
107 ret = dcesrv_interface_register(dce_ctx, name, &$name\_interface, NULL);
108 if (!NT_STATUS_IS_OK(ret)) {
109 DEBUG(1,(\"$name\_op_init_server: failed to register endpoint \'%s\'\\n\",name));
117 static BOOL $name\__op_interface_by_uuid(struct dcesrv_interface *iface, const char *uuid, uint32 if_version)
119 if ($name\_interface.ndr->if_version == if_version &&
120 strcmp($name\_interface.ndr->uuid, uuid)==0) {
121 memcpy(iface,&$name\_interface, sizeof(*iface));
128 static BOOL $name\__op_interface_by_name(struct dcesrv_interface *iface, const char *name)
130 if (strcmp($name\_interface.ndr->name, name)==0) {
131 memcpy(iface,&$name\_interface, sizeof(*iface));
138 NTSTATUS dcerpc_$name\_init(void)
141 struct dcesrv_endpoint_server ep_server;
143 /* fill in our name */
144 ep_server.name = \"$name\";
146 /* fill in all the operations */
147 ep_server.init_server = $name\__op_init_server;
149 ep_server.interface_by_uuid = $name\__op_interface_by_uuid;
150 ep_server.interface_by_name = $name\__op_interface_by_name;
152 /* register ourselves with the DCERPC subsystem. */
153 ret = register_backend(\"dcerpc\", &ep_server);
155 if (!NT_STATUS_IS_OK(ret)) {
156 DEBUG(0,(\"Failed to register \'$name\' endpoint server!\\n\"));
167 #####################################################################
168 # parse a parsed IDL structure back into an IDL file
172 $res = "/* dcerpc server boilerplate generated by pidl */\n\n";
173 foreach my $x (@{$idl}) {
174 if ($x->{TYPE} eq "INTERFACE") {
175 Boilerplate_Iface($x);
176 Boilerplate_Ep_Server($x);