4 * Copyright 2002 Greg Turner
5 * Copyright 2001 Ove Kåven, TransGaming Technologies
6 * Copyright 2008 Robert Shearman (for CodeWeavers)
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
31 #include "wine/debug.h"
32 #include "wine/exception.h"
34 #include "rpc_binding.h"
36 #include "epm_towers.h"
38 WINE_DEFAULT_DEBUG_CHANNEL(ole);
40 /* The "real" RPC portmapper endpoints that I know of are:
44 * ncacn_np: \\pipe\epmapper
48 * If the user's machine ran a DCE RPC daemon, it would
49 * probably be possible to connect to it, but there are many
50 * reasons not to, like:
51 * - the user probably does *not* run one, and probably
52 * shouldn't be forced to run one just for local COM
53 * - very few Unix systems use DCE RPC... if they run a RPC
54 * daemon at all, it's usually Sun RPC
55 * - DCE RPC registrations are persistent and saved on disk,
56 * while MS-RPC registrations are documented as non-persistent
57 * and stored only in RAM, and auto-destroyed when the process
58 * dies (something DCE RPC can't do)
60 * Of course, if the user *did* want to run a DCE RPC daemon anyway,
61 * there would be interoperability advantages, like the possibility
62 * of running a fully functional DCOM server using Wine...
65 static const struct epm_endpoints
71 { "ncacn_np", "\\pipe\\epmapper" },
72 { "ncacn_ip_tcp", "135" },
73 { "ncacn_ip_udp", "135" },
74 { "ncalrpc", "epmapper" },
75 { "ncacn_http", "593" },
78 static BOOL start_rpcss(void)
80 PROCESS_INFORMATION pi;
83 static const WCHAR rpcss[] = {'r','p','c','s','s',0};
88 ZeroMemory(&pi, sizeof(PROCESS_INFORMATION));
89 ZeroMemory(&si, sizeof(STARTUPINFOA));
90 si.cb = sizeof(STARTUPINFOA);
92 memcpy(cmd, rpcss, sizeof(rpcss));
94 rslt = CreateProcessW(
95 NULL, /* executable */
96 cmd, /* command line */
97 NULL, /* process security attributes */
98 NULL, /* primary thread security attributes */
99 FALSE, /* inherit handles */
100 0, /* creation flags */
101 NULL, /* use parent's environment */
102 NULL, /* use parent's current directory */
103 &si, /* STARTUPINFO pointer */
104 &pi /* PROCESS_INFORMATION */
109 CloseHandle(pi.hProcess);
110 CloseHandle(pi.hThread);
117 static inline BOOL is_epm_destination_local(RPC_BINDING_HANDLE handle)
119 RpcBinding *bind = (RpcBinding *)handle;
120 const char *protseq = bind->Protseq;
121 const char *network_addr = bind->NetworkAddr;
123 return ((!strcmp(protseq, "ncalrpc") && !network_addr) ||
124 (!strcmp(protseq, "ncacn_np") &&
125 (!network_addr || !strcmp(network_addr, "."))));
128 static RPC_STATUS get_epm_handle_client(RPC_BINDING_HANDLE handle, RPC_BINDING_HANDLE *epm_handle)
130 RpcBinding *bind = (RpcBinding *)handle;
131 const char * pszEndpoint = NULL;
133 RpcBinding* epm_bind;
137 return RPC_S_INVALID_BINDING;
139 for (i = 0; i < sizeof(epm_endpoints)/sizeof(epm_endpoints[0]); i++)
140 if (!strcmp(bind->Protseq, epm_endpoints[i].protseq))
141 pszEndpoint = epm_endpoints[i].endpoint;
145 FIXME("no endpoint for the endpoint-mapper found for protseq %s\n", debugstr_a(bind->Protseq));
146 return RPC_S_PROTSEQ_NOT_SUPPORTED;
149 status = RpcBindingCopy(handle, epm_handle);
150 if (status != RPC_S_OK) return status;
152 epm_bind = (RpcBinding*)*epm_handle;
153 if (epm_bind->AuthInfo)
155 /* don't bother with authenticating against the EPM by default
156 * (see EnableAuthEpResolution registry value) */
157 RpcAuthInfo_Release(epm_bind->AuthInfo);
158 epm_bind->AuthInfo = NULL;
160 RPCRT4_ResolveBinding(epm_bind, pszEndpoint);
165 static RPC_STATUS get_epm_handle_server(RPC_BINDING_HANDLE *epm_handle)
167 unsigned char string_binding[] = "ncacn_np:.[\\\\pipe\\\\epmapper]";
169 return RpcBindingFromStringBindingA(string_binding, epm_handle);
172 static LONG WINAPI rpc_filter(EXCEPTION_POINTERS *__eptr)
174 switch (GetExceptionCode())
176 case EXCEPTION_ACCESS_VIOLATION:
177 case EXCEPTION_ILLEGAL_INSTRUCTION:
178 return EXCEPTION_CONTINUE_SEARCH;
180 return EXCEPTION_EXECUTE_HANDLER;
184 /***********************************************************************
185 * RpcEpRegisterA (RPCRT4.@)
187 RPC_STATUS WINAPI RpcEpRegisterA( RPC_IF_HANDLE IfSpec, RPC_BINDING_VECTOR *BindingVector,
188 UUID_VECTOR *UuidVector, RPC_CSTR Annotation )
190 PRPC_SERVER_INTERFACE If = (PRPC_SERVER_INTERFACE)IfSpec;
192 RPC_STATUS status = RPC_S_OK;
193 error_status_t status2;
194 ept_entry_t *entries;
197 TRACE("(%p,%p,%p,%s)\n", IfSpec, BindingVector, UuidVector, debugstr_a((char*)Annotation));
198 TRACE(" ifid=%s\n", debugstr_guid(&If->InterfaceId.SyntaxGUID));
199 for (i=0; i<BindingVector->Count; i++) {
200 RpcBinding* bind = (RpcBinding*)(BindingVector->BindingH[i]);
201 TRACE(" protseq[%ld]=%s\n", i, debugstr_a(bind->Protseq));
202 TRACE(" endpoint[%ld]=%s\n", i, debugstr_a(bind->Endpoint));
205 for (i=0; i<UuidVector->Count; i++)
206 TRACE(" obj[%ld]=%s\n", i, debugstr_guid(UuidVector->Uuid[i]));
209 if (!BindingVector->Count) return RPC_S_OK;
211 entries = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*entries) * BindingVector->Count * (UuidVector ? UuidVector->Count : 1));
213 return RPC_S_OUT_OF_MEMORY;
215 status = get_epm_handle_server(&handle);
216 if (status != RPC_S_OK)
218 HeapFree(GetProcessHeap(), 0, entries);
222 for (i = 0; i < BindingVector->Count; i++)
225 RpcBinding* bind = (RpcBinding*)(BindingVector->BindingH[i]);
226 for (j = 0; j < (UuidVector ? UuidVector->Count : 1); j++)
228 int len = strlen((char *)Annotation);
229 status = TowerConstruct(&If->InterfaceId, &If->TransferSyntax,
230 bind->Protseq, bind->Endpoint,
232 &entries[i*(UuidVector ? UuidVector->Count : 1) + j].tower);
233 if (status != RPC_S_OK) break;
236 memcpy(&entries[i * UuidVector->Count].object, &UuidVector->Uuid[j], sizeof(GUID));
238 memset(&entries[i].object, 0, sizeof(entries[i].object));
239 memcpy(entries[i].annotation, Annotation, min(len + 1, ept_max_annotation_size));
243 if (status == RPC_S_OK)
249 ept_insert(handle, BindingVector->Count * (UuidVector ? UuidVector->Count : 1),
250 entries, TRUE, &status2);
254 status2 = GetExceptionCode();
257 if (status2 == RPC_S_SERVER_UNAVAILABLE &&
258 is_epm_destination_local(handle))
263 if (status2 != RPC_S_OK)
264 ERR("ept_insert failed with error %d\n", status2);
265 status = status2; /* FIXME: convert status? */
269 RpcBindingFree(&handle);
271 for (i = 0; i < BindingVector->Count; i++)
274 for (j = 0; j < (UuidVector ? UuidVector->Count : 1); j++)
275 I_RpcFree(entries[i*(UuidVector ? UuidVector->Count : 1) + j].tower);
278 HeapFree(GetProcessHeap(), 0, entries);
283 /***********************************************************************
284 * RpcEpUnregister (RPCRT4.@)
286 RPC_STATUS WINAPI RpcEpUnregister( RPC_IF_HANDLE IfSpec, RPC_BINDING_VECTOR *BindingVector,
287 UUID_VECTOR *UuidVector )
289 PRPC_SERVER_INTERFACE If = (PRPC_SERVER_INTERFACE)IfSpec;
291 RPC_STATUS status = RPC_S_OK;
292 error_status_t status2;
293 ept_entry_t *entries;
296 TRACE("(%p,%p,%p)\n", IfSpec, BindingVector, UuidVector);
297 TRACE(" ifid=%s\n", debugstr_guid(&If->InterfaceId.SyntaxGUID));
298 for (i=0; i<BindingVector->Count; i++) {
299 RpcBinding* bind = (RpcBinding*)(BindingVector->BindingH[i]);
300 TRACE(" protseq[%ld]=%s\n", i, debugstr_a(bind->Protseq));
301 TRACE(" endpoint[%ld]=%s\n", i, debugstr_a(bind->Endpoint));
304 for (i=0; i<UuidVector->Count; i++)
305 TRACE(" obj[%ld]=%s\n", i, debugstr_guid(UuidVector->Uuid[i]));
308 entries = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*entries) * BindingVector->Count * (UuidVector ? UuidVector->Count : 1));
310 return RPC_S_OUT_OF_MEMORY;
312 status = get_epm_handle_server(&handle);
313 if (status != RPC_S_OK)
315 HeapFree(GetProcessHeap(), 0, entries);
319 for (i = 0; i < BindingVector->Count; i++)
322 RpcBinding* bind = (RpcBinding*)(BindingVector->BindingH[i]);
323 for (j = 0; j < (UuidVector ? UuidVector->Count : 1); j++)
325 status = TowerConstruct(&If->InterfaceId, &If->TransferSyntax,
326 bind->Protseq, bind->Endpoint,
328 &entries[i*(UuidVector ? UuidVector->Count : 1) + j].tower);
329 if (status != RPC_S_OK) break;
332 memcpy(&entries[i * UuidVector->Count + j].object, &UuidVector->Uuid[j], sizeof(GUID));
334 memset(&entries[i].object, 0, sizeof(entries[i].object));
338 if (status == RPC_S_OK)
342 ept_insert(handle, BindingVector->Count * (UuidVector ? UuidVector->Count : 1),
343 entries, TRUE, &status2);
347 status2 = GetExceptionCode();
350 if (status2 == RPC_S_SERVER_UNAVAILABLE)
351 status2 = EPT_S_NOT_REGISTERED;
352 if (status2 != RPC_S_OK)
353 ERR("ept_insert failed with error %d\n", status2);
354 status = status2; /* FIXME: convert status? */
356 RpcBindingFree(&handle);
358 for (i = 0; i < BindingVector->Count; i++)
361 for (j = 0; j < (UuidVector ? UuidVector->Count : 1); j++)
362 I_RpcFree(entries[i*(UuidVector ? UuidVector->Count : 1) + j].tower);
365 HeapFree(GetProcessHeap(), 0, entries);
370 /***********************************************************************
371 * RpcEpResolveBinding (RPCRT4.@)
373 RPC_STATUS WINAPI RpcEpResolveBinding( RPC_BINDING_HANDLE Binding, RPC_IF_HANDLE IfSpec )
375 PRPC_CLIENT_INTERFACE If = (PRPC_CLIENT_INTERFACE)IfSpec;
376 RpcBinding* bind = (RpcBinding*)Binding;
378 error_status_t status2;
380 ept_lookup_handle_t entry_handle = NULL;
382 twr_t *towers[4] = { NULL };
383 unsigned32 num_towers, i;
384 GUID uuid = GUID_NULL;
385 char *resolved_endpoint = NULL;
387 TRACE("(%p,%p)\n", Binding, IfSpec);
388 TRACE(" protseq=%s\n", debugstr_a(bind->Protseq));
389 TRACE(" obj=%s\n", debugstr_guid(&bind->ObjectUuid));
390 TRACE(" networkaddr=%s\n", debugstr_a(bind->NetworkAddr));
391 TRACE(" ifid=%s\n", debugstr_guid(&If->InterfaceId.SyntaxGUID));
393 /* just return for fully bound handles */
394 if (bind->Endpoint && (bind->Endpoint[0] != '\0'))
397 status = get_epm_handle_client(Binding, &handle);
398 if (status != RPC_S_OK) return status;
400 status = TowerConstruct(&If->InterfaceId, &If->TransferSyntax, bind->Protseq,
401 ((RpcBinding *)handle)->Endpoint,
402 bind->NetworkAddr, &tower);
403 if (status != RPC_S_OK)
405 WARN("couldn't get tower\n");
406 RpcBindingFree(&handle);
414 ept_map(handle, &uuid, tower, &entry_handle, sizeof(towers)/sizeof(towers[0]), &num_towers, towers, &status2);
415 /* FIXME: translate status2? */
419 status2 = GetExceptionCode();
422 if (status2 == RPC_S_SERVER_UNAVAILABLE &&
423 is_epm_destination_local(handle))
431 RpcBindingFree(&handle);
434 if (status2 != RPC_S_OK)
436 ERR("ept_map failed for ifid %s, protseq %s, networkaddr %s\n", debugstr_guid(&If->TransferSyntax.SyntaxGUID), bind->Protseq, bind->NetworkAddr);
440 for (i = 0; i < num_towers; i++)
442 /* only parse the tower if we haven't already found a suitable
443 * endpoint, otherwise just free the tower */
444 if (!resolved_endpoint)
446 status = TowerExplode(towers[i], NULL, NULL, NULL, &resolved_endpoint, NULL);
447 TRACE("status = %ld\n", status);
449 I_RpcFree(towers[i]);
452 if (resolved_endpoint)
454 RPCRT4_ResolveBinding(Binding, resolved_endpoint);
455 I_RpcFree(resolved_endpoint);
459 WARN("couldn't find an endpoint\n");
460 return EPT_S_NOT_REGISTERED;
463 /*****************************************************************************
464 * TowerExplode (RPCRT4.@)
466 RPC_STATUS WINAPI TowerExplode(
467 const twr_t *tower, PRPC_SYNTAX_IDENTIFIER object, PRPC_SYNTAX_IDENTIFIER syntax,
468 char **protseq, char **endpoint, char **address)
472 const unsigned char *p;
474 const twr_uuid_floor_t *object_floor;
475 const twr_uuid_floor_t *syntax_floor;
477 TRACE("(%p, %p, %p, %p, %p, %p)\n", tower, object, syntax, protseq,
487 tower_size = tower->tower_length;
489 if (tower_size < sizeof(u_int16))
490 return EPT_S_NOT_REGISTERED;
492 p = &tower->tower_octet_string[0];
494 floor_count = *(const u_int16 *)p;
495 p += sizeof(u_int16);
496 tower_size -= sizeof(u_int16);
497 TRACE("floor_count: %d\n", floor_count);
498 /* FIXME: should we do something with the floor count? at the moment we don't */
500 if (tower_size < sizeof(*object_floor) + sizeof(*syntax_floor))
501 return EPT_S_NOT_REGISTERED;
503 object_floor = (const twr_uuid_floor_t *)p;
504 p += sizeof(*object_floor);
505 tower_size -= sizeof(*object_floor);
506 syntax_floor = (const twr_uuid_floor_t *)p;
507 p += sizeof(*syntax_floor);
508 tower_size -= sizeof(*syntax_floor);
510 if ((object_floor->count_lhs != sizeof(object_floor->protid) +
511 sizeof(object_floor->uuid) + sizeof(object_floor->major_version)) ||
512 (object_floor->protid != EPM_PROTOCOL_UUID) ||
513 (object_floor->count_rhs != sizeof(object_floor->minor_version)))
514 return EPT_S_NOT_REGISTERED;
516 if ((syntax_floor->count_lhs != sizeof(syntax_floor->protid) +
517 sizeof(syntax_floor->uuid) + sizeof(syntax_floor->major_version)) ||
518 (syntax_floor->protid != EPM_PROTOCOL_UUID) ||
519 (syntax_floor->count_rhs != sizeof(syntax_floor->minor_version)))
520 return EPT_S_NOT_REGISTERED;
522 status = RpcTransport_ParseTopOfTower(p, tower_size, protseq, address, endpoint);
523 if ((status == RPC_S_OK) && syntax && object)
525 syntax->SyntaxGUID = syntax_floor->uuid;
526 syntax->SyntaxVersion.MajorVersion = syntax_floor->major_version;
527 syntax->SyntaxVersion.MinorVersion = syntax_floor->minor_version;
528 object->SyntaxGUID = object_floor->uuid;
529 object->SyntaxVersion.MajorVersion = object_floor->major_version;
530 object->SyntaxVersion.MinorVersion = object_floor->minor_version;
535 /***********************************************************************
536 * TowerConstruct (RPCRT4.@)
538 RPC_STATUS WINAPI TowerConstruct(
539 const RPC_SYNTAX_IDENTIFIER *object, const RPC_SYNTAX_IDENTIFIER *syntax,
540 const char *protseq, const char *endpoint, const char *address,
546 twr_uuid_floor_t *object_floor;
547 twr_uuid_floor_t *syntax_floor;
549 TRACE("(%p, %p, %s, %s, %s, %p)\n", object, syntax, debugstr_a(protseq),
550 debugstr_a(endpoint), debugstr_a(address), tower);
554 status = RpcTransport_GetTopOfTower(NULL, &tower_size, protseq, address, endpoint);
556 if (status != RPC_S_OK)
559 tower_size += sizeof(u_int16) + sizeof(*object_floor) + sizeof(*syntax_floor);
560 *tower = I_RpcAllocate(FIELD_OFFSET(twr_t, tower_octet_string[tower_size]));
562 return RPC_S_OUT_OF_RESOURCES;
564 (*tower)->tower_length = tower_size;
565 p = &(*tower)->tower_octet_string[0];
566 *(u_int16 *)p = 5; /* number of floors */
567 p += sizeof(u_int16);
568 object_floor = (twr_uuid_floor_t *)p;
569 p += sizeof(*object_floor);
570 syntax_floor = (twr_uuid_floor_t *)p;
571 p += sizeof(*syntax_floor);
573 object_floor->count_lhs = sizeof(object_floor->protid) + sizeof(object_floor->uuid) +
574 sizeof(object_floor->major_version);
575 object_floor->protid = EPM_PROTOCOL_UUID;
576 object_floor->count_rhs = sizeof(object_floor->minor_version);
577 object_floor->uuid = object->SyntaxGUID;
578 object_floor->major_version = object->SyntaxVersion.MajorVersion;
579 object_floor->minor_version = object->SyntaxVersion.MinorVersion;
581 syntax_floor->count_lhs = sizeof(syntax_floor->protid) + sizeof(syntax_floor->uuid) +
582 sizeof(syntax_floor->major_version);
583 syntax_floor->protid = EPM_PROTOCOL_UUID;
584 syntax_floor->count_rhs = sizeof(syntax_floor->minor_version);
585 syntax_floor->uuid = syntax->SyntaxGUID;
586 syntax_floor->major_version = syntax->SyntaxVersion.MajorVersion;
587 syntax_floor->minor_version = syntax->SyntaxVersion.MinorVersion;
589 status = RpcTransport_GetTopOfTower(p, &tower_size, protseq, address, endpoint);
590 if (status != RPC_S_OK)
599 void __RPC_FAR * __RPC_USER MIDL_user_allocate(size_t len)
601 return HeapAlloc(GetProcessHeap(), 0, len);
604 void __RPC_USER MIDL_user_free(void __RPC_FAR * ptr)
606 HeapFree(GetProcessHeap(), 0, ptr);