1 ###################################################
2 # server boilerplate generator
3 # Copyright tridge@samba.org 2003
4 # Copyright metze@samba.org 2004
5 # released under the GNU GPL
19 #####################################################
20 # generate the switch statement for function dispatch
21 sub gen_dispatch_switch($)
26 foreach my $d (@{$data}) {
27 next if ($d->{TYPE} ne "FUNCTION");
29 pidl "\tcase $count: {\n";
30 pidl "\t\tstruct $d->{NAME} *r2 = r;\n";
31 pidl "\t\tif (DEBUGLEVEL > 10) {\n";
32 pidl "\t\t\tNDR_PRINT_FUNCTION_DEBUG($d->{NAME}, NDR_IN, r2);\n";
34 if ($d->{RETURN_TYPE} && $d->{RETURN_TYPE} ne "void") {
35 pidl "\t\tr2->out.result = $d->{NAME}(dce_call, mem_ctx, r2);\n";
37 pidl "\t\t$d->{NAME}(dce_call, mem_ctx, r2);\n";
39 pidl "\t\tif (DEBUGLEVEL > 10 && dce_call->fault_code == 0) {\n";
40 pidl "\t\t\tNDR_PRINT_FUNCTION_DEBUG($d->{NAME}, NDR_OUT | NDR_SET_VALUES, r2);\n";
42 pidl "\t\tif (dce_call->fault_code != 0) {\n";
43 pidl "\t\t\tDEBUG(2,(\"dcerpc_fault 0x%x in $d->{NAME}\\n\", dce_call->fault_code));\n";
45 pidl "\t\tbreak;\n\t}\n";
51 #####################################################################
52 # produce boilerplate code for a interface
53 sub Boilerplate_Iface($)
55 my($interface) = shift;
56 my($data) = $interface->{DATA};
58 my $name = $interface->{NAME};
61 foreach my $d (@{$data}) {
62 if ($d->{TYPE} eq "FUNCTION") { $count++; }
70 static NTSTATUS $name\__op_bind(struct dcesrv_call_state *dce_call, const struct dcesrv_interface *iface)
72 #ifdef DCESRV_INTERFACE_$uname\_BIND
73 return DCESRV_INTERFACE_$uname\_BIND(dce_call,iface);
79 static void $name\__op_unbind(struct dcesrv_connection *dce_conn, const struct dcesrv_interface *iface)
81 #ifdef DCESRV_INTERFACE_$uname\_UNBIND
82 DCESRV_INTERFACE_$uname\_UNBIND(dce_conn,iface);
88 static NTSTATUS $name\__op_dispatch(struct dcesrv_call_state *dce_call, TALLOC_CTX *mem_ctx, void *r)
90 uint16 opnum = dce_call->pkt.u.request.opnum;
92 dce_call->fault_code = 0;
96 gen_dispatch_switch($data);
100 dce_call->fault_code = DCERPC_FAULT_OP_RNG_ERROR;
104 if (dce_call->fault_code != 0) {
105 return NT_STATUS_NET_WRITE_FAULT;
110 static const struct dcesrv_interface $name\_interface = {
120 #####################################################################
121 # produce boilerplate code for an endpoint server
122 sub Boilerplate_Ep_Server($)
124 my($interface) = shift;
125 my($data) = $interface->{DATA};
127 my $name = $interface->{NAME};
128 my $uname = uc $name;
130 foreach my $d (@{$data}) {
131 if ($d->{TYPE} eq "FUNCTION") { $count++; }
139 static NTSTATUS $name\__op_init_server(struct dcesrv_context *dce_ctx, const struct dcesrv_endpoint_server *ep_server)
143 for (i=0;i<$name\_interface.ndr->endpoints->count;i++) {
145 const char *name = $name\_interface.ndr->endpoints->names[i];
147 ret = dcesrv_interface_register(dce_ctx, name, &$name\_interface, NULL);
148 if (!NT_STATUS_IS_OK(ret)) {
149 DEBUG(1,(\"$name\_op_init_server: failed to register endpoint \'%s\'\\n\",name));
157 static BOOL $name\__op_interface_by_uuid(struct dcesrv_interface *iface, const char *uuid, uint32 if_version)
159 if ($name\_interface.ndr->if_version == if_version &&
160 strcmp($name\_interface.ndr->uuid, uuid)==0) {
161 memcpy(iface,&$name\_interface, sizeof(*iface));
168 static BOOL $name\__op_interface_by_name(struct dcesrv_interface *iface, const char *name)
170 if (strcmp($name\_interface.ndr->name, name)==0) {
171 memcpy(iface,&$name\_interface, sizeof(*iface));
178 NTSTATUS dcerpc_server_$name\_init(void)
181 struct dcesrv_endpoint_server ep_server;
183 /* fill in our name */
184 ep_server.name = \"$name\";
186 /* fill in all the operations */
187 ep_server.init_server = $name\__op_init_server;
189 ep_server.interface_by_uuid = $name\__op_interface_by_uuid;
190 ep_server.interface_by_name = $name\__op_interface_by_name;
192 /* register ourselves with the DCERPC subsystem. */
193 ret = dcerpc_register_ep_server(&ep_server);
195 if (!NT_STATUS_IS_OK(ret)) {
196 DEBUG(0,(\"Failed to register \'$name\' endpoint server!\\n\"));
206 #####################################################################
207 # parse a parsed IDL structure back into an IDL file
208 sub ParseInterface($)
210 my($interface) = shift;
211 $res = "/* dcerpc server boilerplate generated by pidl */\n\n";
212 Boilerplate_Iface($interface);
213 Boilerplate_Ep_Server($interface);