git.oblomov.eu Git - wine/blob - dlls/rpcrt4/rpc_binding.c

   1 /*
   2  * RPC binding API
   3  *
   4  * Copyright 2001 Ove Kåven, TransGaming Technologies
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  *
  20  * TODO:
  21  *  - a whole lot
  22  */
  23
  24 #include <stdio.h>
  25 #include <string.h>
  26
  27 #include "windef.h"
  28 #include "winbase.h"
  29 #include "winnls.h"
  30 #include "winerror.h"
  31 #include "winreg.h"
  32 #include "wine/unicode.h"
  33
  34 #include "rpc.h"
  35
  36 #include "wine/debug.h"
  37
  38 #include "rpc_binding.h"
  39
  40 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  41
  42 LPSTR RPCRT4_strndupA(LPSTR src, INT slen)
  43 {
  44   DWORD len;
  45   LPSTR s;
  46   if (!src) return NULL;
  47   if (slen == -1) slen = strlen(src);
  48   len = slen;
  49   s = HeapAlloc(GetProcessHeap(), 0, len+1);
  50   memcpy(s, src, len);
  51   s[len] = 0;
  52   return s;
  53 }
  54
  55 LPSTR RPCRT4_strdupWtoA(LPWSTR src)
  56 {
  57   DWORD len;
  58   LPSTR s;
  59   if (!src) return NULL;
  60   len = WideCharToMultiByte(CP_ACP, 0, src, -1, NULL, 0, NULL, NULL);
  61   s = HeapAlloc(GetProcessHeap(), 0, len);
  62   WideCharToMultiByte(CP_ACP, 0, src, -1, s, len, NULL, NULL);
  63   return s;
  64 }
  65
  66 LPWSTR RPCRT4_strdupAtoW(LPSTR src)
  67 {
  68   DWORD len;
  69   LPWSTR s;
  70   if (!src) return NULL;
  71   len = MultiByteToWideChar(CP_ACP, 0, src, -1, NULL, 0);
  72   s = HeapAlloc(GetProcessHeap(), 0, len*sizeof(WCHAR));
  73   MultiByteToWideChar(CP_ACP, 0, src, -1, s, len);
  74   return s;
  75 }
  76
  77 LPWSTR RPCRT4_strndupW(LPWSTR src, INT slen)
  78 {
  79   DWORD len;
  80   LPWSTR s;
  81   if (!src) return NULL;
  82   if (slen == -1) slen = strlenW(src);
  83   len = slen;
  84   s = HeapAlloc(GetProcessHeap(), 0, (len+1)*sizeof(WCHAR));
  85   memcpy(s, src, len*sizeof(WCHAR));
  86   s[len] = 0;
  87   return s;
  88 }
  89
  90 void RPCRT4_strfree(LPSTR src)
  91 {
  92   if (src) HeapFree(GetProcessHeap(), 0, src);
  93 }
  94
  95 RPC_STATUS RPCRT4_CreateBindingA(RpcBinding** Binding, BOOL server, LPSTR Protseq)
  96 {
  97   RpcBinding* NewBinding;
  98
  99   NewBinding = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(RpcBinding));
 100   NewBinding->refs = 1;
 101   NewBinding->server = server;
 102   NewBinding->Protseq = RPCRT4_strdupA(Protseq);
 103
 104   TRACE("binding: %p\n", NewBinding);
 105   *Binding = NewBinding;
 106
 107   return RPC_S_OK;
 108 }
 109
 110 RPC_STATUS RPCRT4_CreateBindingW(RpcBinding** Binding, BOOL server, LPWSTR Protseq)
 111 {
 112   RpcBinding* NewBinding;
 113   if (Binding)
 114     TRACE("  (*Binding == ^%p, server == %s, Protseq == \"%s\")\n", *Binding, server ? "Yes" : "No", debugstr_w(Protseq));
 115   else {
 116     ERR("!RpcBinding?\n");
 117     *((char *)0) = 0; /* we will crash below anyhow... */
 118   }
 119
 120   NewBinding = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(RpcBinding));
 121   NewBinding->refs = 1;
 122   NewBinding->server = server;
 123   NewBinding->Protseq = RPCRT4_strdupWtoA(Protseq);
 124
 125   TRACE("binding: %p\n", NewBinding);
 126   *Binding = NewBinding;
 127
 128   return RPC_S_OK;
 129 }
 130
 131 RPC_STATUS RPCRT4_CompleteBindingA(RpcBinding* Binding, LPSTR NetworkAddr,  LPSTR Endpoint,  LPSTR NetworkOptions)
 132 {
 133
 134   TRACE("  (RpcBinding == ^%p, NetworkAddr == \"%s\", EndPoint == \"%s\", NetworkOptions == \"%s\")\n", Binding, NetworkAddr, Endpoint, NetworkOptions);
 135
 136   RPCRT4_strfree(Binding->NetworkAddr);
 137   Binding->NetworkAddr = RPCRT4_strdupA(NetworkAddr);
 138   RPCRT4_strfree(Binding->Endpoint);
 139   if (Binding->Endpoint) {
 140     Binding->Endpoint = RPCRT4_strdupA(Endpoint);
 141   } else {
 142     Binding->Endpoint = RPCRT4_strdupA("");
 143   }
 144
 145   return RPC_S_OK;
 146 }
 147
 148 RPC_STATUS RPCRT4_CompleteBindingW(RpcBinding* Binding, LPWSTR NetworkAddr, LPWSTR Endpoint, LPWSTR NetworkOptions)
 149 {
 150
 151   TRACE("  (RpcBinding == ^%p, NetworkAddr == \"%s\", EndPoint == \"%s\", NetworkOptions == \"%s\")\n", Binding,
 152    debugstr_w(NetworkAddr), debugstr_w(Endpoint), debugstr_w(NetworkOptions));
 153
 154   RPCRT4_strfree(Binding->NetworkAddr);
 155   Binding->NetworkAddr = RPCRT4_strdupWtoA(NetworkAddr);
 156   RPCRT4_strfree(Binding->Endpoint);
 157   if (Binding->Endpoint) {
 158     Binding->Endpoint = RPCRT4_strdupWtoA(Endpoint);
 159   } else {
 160     Binding->Endpoint = RPCRT4_strdupA("");
 161   }
 162
 163   return RPC_S_OK;
 164 }
 165
 166 RPC_STATUS RPCRT4_ResolveBinding(RpcBinding* Binding, LPSTR Endpoint)
 167 {
 168   RPCRT4_strfree(Binding->Endpoint);
 169   Binding->Endpoint = RPCRT4_strdupA(Endpoint);
 170
 171   return RPC_S_OK;
 172 }
 173
 174 RPC_STATUS RPCRT4_SetBindingObject(RpcBinding* Binding, UUID* ObjectUuid)
 175 {
 176   TRACE("  (*RpcBinding == ^%p, UUID == %s)\n", Binding, debugstr_guid(ObjectUuid));
 177   if (ObjectUuid) memcpy(&Binding->ObjectUuid, ObjectUuid, sizeof(UUID));
 178   else UuidCreateNil(&Binding->ObjectUuid);
 179   return RPC_S_OK;
 180 }
 181
 182 RPC_STATUS RPCRT4_SpawnBinding(RpcBinding** Binding, RpcBinding* OldBinding)
 183 {
 184   RpcBinding* NewBinding;
 185   if (Binding)
 186     TRACE("  (*RpcBinding == ^%p, OldBinding == ^%p)\n", *Binding, OldBinding);
 187   else {
 188     ERR("!RpcBinding?");
 189     /* we will crash below anyhow... */
 190     *((char *)0) = 0;
 191   }
 192
 193   NewBinding = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(RpcBinding));
 194   NewBinding->refs = 1;
 195   NewBinding->server = OldBinding->server;
 196   NewBinding->Protseq = RPCRT4_strdupA(OldBinding->Protseq);
 197   NewBinding->NetworkAddr = RPCRT4_strdupA(OldBinding->NetworkAddr);
 198   NewBinding->Endpoint = RPCRT4_strdupA(OldBinding->Endpoint);
 199   /* because of the way named pipes work, we'll transfer the connected pipe
 200    * to the child, then reopen the server binding to continue listening */
 201   NewBinding->conn = OldBinding->conn;
 202   NewBinding->ovl = OldBinding->ovl;
 203   OldBinding->conn = 0;
 204   memset(&OldBinding->ovl, 0, sizeof(OldBinding->ovl));
 205   *Binding = NewBinding;
 206   RPCRT4_OpenBinding(OldBinding);
 207
 208   return RPC_S_OK;
 209 }
 210
 211 RPC_STATUS RPCRT4_ExportBinding(RpcBinding** Binding, RpcBinding* OldBinding)
 212 {
 213   InterlockedIncrement(&OldBinding->refs);
 214   *Binding = OldBinding;
 215   return RPC_S_OK;
 216 }
 217
 218 RPC_STATUS RPCRT4_DestroyBinding(RpcBinding* Binding)
 219 {
 220   if (InterlockedDecrement(&Binding->refs))
 221     return RPC_S_OK;
 222
 223   TRACE("binding: %p\n", Binding);
 224   RPCRT4_CloseBinding(Binding);
 225   RPCRT4_strfree(Binding->Endpoint);
 226   RPCRT4_strfree(Binding->NetworkAddr);
 227   RPCRT4_strfree(Binding->Protseq);
 228   HeapFree(GetProcessHeap(), 0, Binding);
 229   return RPC_S_OK;
 230 }
 231
 232 RPC_STATUS RPCRT4_OpenBinding(RpcBinding* Binding)
 233 {
 234   TRACE("  (Binding == ^%p)\n", Binding);
 235   if (!Binding->conn) {
 236     if (Binding->server) { /* server */
 237       /* protseq=ncalrpc: supposed to use NT LPC ports,
 238        * but we'll implement it with named pipes for now */
 239       if (strcmp(Binding->Protseq, "ncalrpc") == 0) {
 240         static LPSTR prefix = "\\\\.\\pipe\\lrpc\\";
 241         LPSTR pname;
 242         pname = HeapAlloc(GetProcessHeap(), 0, strlen(prefix) + strlen(Binding->Endpoint) + 1);
 243         strcat(strcpy(pname, prefix), Binding->Endpoint);
 244        TRACE("listening on %s\n", pname);
 245         Binding->conn = CreateNamedPipeA(pname, PIPE_ACCESS_DUPLEX | FILE_FLAG_OVERLAPPED,
 246                                          0, PIPE_UNLIMITED_INSTANCES, 0, 0, 5000, NULL);
 247         HeapFree(GetProcessHeap(), 0, pname);
 248         memset(&Binding->ovl, 0, sizeof(Binding->ovl));
 249         Binding->ovl.hEvent = CreateEventA(NULL, TRUE, FALSE, NULL);
 250         if (!ConnectNamedPipe(Binding->conn, &Binding->ovl)) {
 251           DWORD err = GetLastError();
 252           if (err == ERROR_PIPE_CONNECTED) {
 253             SetEvent(Binding->ovl.hEvent);
 254             return RPC_S_OK;
 255           }
 256           return err;
 257         }
 258       }
 259       /* protseq=ncacn_np: named pipes */
 260       else if (strcmp(Binding->Protseq, "ncacn_np") == 0) {
 261         static LPSTR prefix = "\\\\.";
 262         LPSTR pname;
 263         pname = HeapAlloc(GetProcessHeap(), 0, strlen(prefix) + strlen(Binding->Endpoint) + 1);
 264         strcat(strcpy(pname, prefix), Binding->Endpoint);
 265        TRACE("listening on %s\n", pname);
 266         Binding->conn = CreateNamedPipeA(pname, PIPE_ACCESS_DUPLEX | FILE_FLAG_OVERLAPPED,
 267                                          0, PIPE_UNLIMITED_INSTANCES, 0, 0, 5000, NULL);
 268         HeapFree(GetProcessHeap(), 0, pname);
 269         memset(&Binding->ovl, 0, sizeof(Binding->ovl));
 270         Binding->ovl.hEvent = CreateEventA(NULL, TRUE, FALSE, NULL);
 271         if (!ConnectNamedPipe(Binding->conn, &Binding->ovl)) {
 272           DWORD err = GetLastError();
 273           if (err == ERROR_PIPE_CONNECTED) {
 274             SetEvent(Binding->ovl.hEvent);
 275             return RPC_S_OK;
 276           }
 277           return err;
 278         }
 279       }
 280       else {
 281        ERR("protseq %s not supported\n", Binding->Protseq);
 282        return RPC_S_PROTSEQ_NOT_SUPPORTED;
 283       }
 284     }
 285     else { /* client */
 286       /* protseq=ncalrpc: supposed to use NT LPC ports,
 287        * but we'll implement it with named pipes for now */
 288       if (strcmp(Binding->Protseq, "ncalrpc") == 0) {
 289         static LPSTR prefix = "\\\\.\\pipe\\lrpc\\";
 290         LPSTR pname;
 291        HANDLE conn;
 292        DWORD err;
 293
 294         pname = HeapAlloc(GetProcessHeap(), 0, strlen(prefix) + strlen(Binding->Endpoint) + 1);
 295         strcat(strcpy(pname, prefix), Binding->Endpoint);
 296        TRACE("connecting to %s\n", pname);
 297        while (TRUE) {
 298          if (WaitNamedPipeA(pname, NMPWAIT_WAIT_FOREVER)) {
 299            conn = CreateFileA(pname, GENERIC_READ|GENERIC_WRITE, 0, NULL,
 300                               OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
 301            if (conn != INVALID_HANDLE_VALUE) break;
 302            err = GetLastError();
 303            if (err == ERROR_PIPE_BUSY) continue;
 304            TRACE("connection failed, error=%lx\n", err);
 305            HeapFree(GetProcessHeap(), 0, pname);
 306            return err;
 307          }
 308          else {
 309            err = GetLastError();
 310            TRACE("connection failed, error=%lx\n", err);
 311            HeapFree(GetProcessHeap(), 0, pname);
 312            return err;
 313          }
 314        }
 315
 316        /* success */
 317        HeapFree(GetProcessHeap(), 0, pname);
 318         memset(&Binding->ovl, 0, sizeof(Binding->ovl));
 319         Binding->ovl.hEvent = CreateEventA(NULL, TRUE, FALSE, NULL);
 320        Binding->conn = conn;
 321       }
 322       /* protseq=ncacn_np: named pipes */
 323       else if (strcmp(Binding->Protseq, "ncacn_np") == 0) {
 324         static LPSTR prefix = "\\\\.";
 325         LPSTR pname;
 326        HANDLE conn;
 327        DWORD err;
 328
 329         pname = HeapAlloc(GetProcessHeap(), 0, strlen(prefix) + strlen(Binding->Endpoint) + 1);
 330         strcat(strcpy(pname, prefix), Binding->Endpoint);
 331        TRACE("connecting to %s\n", pname);
 332        conn = CreateFileA(pname, GENERIC_READ|GENERIC_WRITE, 0, NULL,
 333                           OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
 334        if (conn == INVALID_HANDLE_VALUE) {
 335          err = GetLastError();
 336          /* we don't need to handle ERROR_PIPE_BUSY here,
 337           * the doc says that it is returned to the app */
 338          TRACE("connection failed, error=%lx\n", err);
 339          HeapFree(GetProcessHeap(), 0, pname);
 340          return err;
 341        }
 342
 343        /* success */
 344        HeapFree(GetProcessHeap(), 0, pname);
 345         memset(&Binding->ovl, 0, sizeof(Binding->ovl));
 346         Binding->ovl.hEvent = CreateEventA(NULL, TRUE, FALSE, NULL);
 347        Binding->conn = conn;
 348       }
 349       else {
 350        ERR("protseq %s not supported\n", Binding->Protseq);
 351        return RPC_S_PROTSEQ_NOT_SUPPORTED;
 352       }
 353     }
 354   }
 355   return RPC_S_OK;
 356 }
 357
 358 RPC_STATUS RPCRT4_CloseBinding(RpcBinding* Binding)
 359 {
 360   TRACE("  (Binding == ^%p)\n", Binding);
 361   if (Binding->conn) {
 362     CancelIo(Binding->conn);
 363     CloseHandle(Binding->conn);
 364     Binding->conn = 0;
 365   }
 366   if (Binding->ovl.hEvent) {
 367     CloseHandle(Binding->ovl.hEvent);
 368     Binding->ovl.hEvent = 0;
 369   }
 370   return RPC_S_OK;
 371 }
 372
 373 /* utility functions for string composing and parsing */
 374 static unsigned RPCRT4_strcopyA(LPSTR data, LPCSTR src)
 375 {
 376   unsigned len = strlen(src);
 377   memcpy(data, src, len*sizeof(CHAR));
 378   return len;
 379 }
 380
 381 static unsigned RPCRT4_strcopyW(LPWSTR data, LPCWSTR src)
 382 {
 383   unsigned len = strlenW(src);
 384   memcpy(data, src, len*sizeof(WCHAR));
 385   return len;
 386 }
 387
 388 static LPSTR RPCRT4_strconcatA(LPSTR dst, LPCSTR src)
 389 {
 390   DWORD len = strlen(dst), slen = strlen(src);
 391   LPSTR ndst = HeapReAlloc(GetProcessHeap(), 0, dst, (len+slen+2)*sizeof(CHAR));
 392   if (!ndst) HeapFree(GetProcessHeap(), 0, dst);
 393   ndst[len] = ',';
 394   memcpy(ndst+len+1, src, slen*sizeof(CHAR));
 395   ndst[len+slen+1] = 0;
 396   return ndst;
 397 }
 398
 399 static LPWSTR RPCRT4_strconcatW(LPWSTR dst, LPCWSTR src)
 400 {
 401   DWORD len = strlenW(dst), slen = strlenW(src);
 402   LPWSTR ndst = HeapReAlloc(GetProcessHeap(), 0, dst, (len+slen+2)*sizeof(WCHAR));
 403   if (!ndst) HeapFree(GetProcessHeap(), 0, dst);
 404   ndst[len] = ',';
 405   memcpy(ndst+len+1, src, slen*sizeof(WCHAR));
 406   ndst[len+slen+1] = 0;
 407   return ndst;
 408 }
 409
 410
 411 /***********************************************************************
 412  *             RpcStringBindingComposeA (RPCRT4.@)
 413  */
 414 RPC_STATUS WINAPI RpcStringBindingComposeA( LPSTR ObjUuid, LPSTR Protseq,
 415                                            LPSTR NetworkAddr, LPSTR Endpoint,
 416                                            LPSTR Options, LPSTR* StringBinding )
 417 {
 418   DWORD len = 1;
 419   LPSTR data;
 420
 421   TRACE( "(%s,%s,%s,%s,%s,%p)\n",
 422         debugstr_a( ObjUuid ), debugstr_a( Protseq ),
 423         debugstr_a( NetworkAddr ), debugstr_a( Endpoint ),
 424         debugstr_a( Options ), StringBinding );
 425
 426   if (ObjUuid && *ObjUuid) len += strlen(ObjUuid) + 1;
 427   if (Protseq && *Protseq) len += strlen(Protseq) + 1;
 428   if (NetworkAddr && *NetworkAddr) len += strlen(NetworkAddr);
 429   if (Endpoint && *Endpoint) len += strlen(Endpoint) + 2;
 430   if (Options && *Options) len += strlen(Options) + 2;
 431
 432   data = HeapAlloc(GetProcessHeap(), 0, len);
 433   *StringBinding = data;
 434
 435   if (ObjUuid && *ObjUuid) {
 436     data += RPCRT4_strcopyA(data, ObjUuid);
 437     *data++ = '@';
 438   }
 439   if (Protseq && *Protseq) {
 440     data += RPCRT4_strcopyA(data, Protseq);
 441     *data++ = ':';
 442   }
 443   if (NetworkAddr && *NetworkAddr) {
 444     data += RPCRT4_strcopyA(data, NetworkAddr);
 445   }
 446   if ((Endpoint && *Endpoint) ||
 447       (Options && *Options)) {
 448     *data++ = '[';
 449     if (Endpoint && *Endpoint) {
 450       data += RPCRT4_strcopyA(data, Endpoint);
 451       if (Options && *Options) *data++ = ',';
 452     }
 453     if (Options && *Options) {
 454       data += RPCRT4_strcopyA(data, Options);
 455     }
 456     *data++ = ']';
 457   }
 458   *data = 0;
 459
 460   return RPC_S_OK;
 461 }
 462
 463 /***********************************************************************
 464  *             RpcStringBindingComposeW (RPCRT4.@)
 465  */
 466 RPC_STATUS WINAPI RpcStringBindingComposeW( LPWSTR ObjUuid, LPWSTR Protseq,
 467                                             LPWSTR NetworkAddr, LPWSTR Endpoint,
 468                                             LPWSTR Options, LPWSTR* StringBinding )
 469 {
 470   DWORD len = 1;
 471   LPWSTR data;
 472
 473   TRACE("(%s,%s,%s,%s,%s,%p)\n",
 474        debugstr_w( ObjUuid ), debugstr_w( Protseq ),
 475        debugstr_w( NetworkAddr ), debugstr_w( Endpoint ),
 476        debugstr_w( Options ), StringBinding);
 477
 478   if (ObjUuid && *ObjUuid) len += strlenW(ObjUuid) + 1;
 479   if (Protseq && *Protseq) len += strlenW(Protseq) + 1;
 480   if (NetworkAddr && *NetworkAddr) len += strlenW(NetworkAddr);
 481   if (Endpoint && *Endpoint) len += strlenW(Endpoint) + 2;
 482   if (Options && *Options) len += strlenW(Options) + 2;
 483
 484   data = HeapAlloc(GetProcessHeap(), 0, len*sizeof(WCHAR));
 485   *StringBinding = data;
 486
 487   if (ObjUuid && *ObjUuid) {
 488     data += RPCRT4_strcopyW(data, ObjUuid);
 489     *data++ = '@';
 490   }
 491   if (Protseq && *Protseq) {
 492     data += RPCRT4_strcopyW(data, Protseq);
 493     *data++ = ':';
 494   }
 495   if (NetworkAddr && *NetworkAddr) {
 496     data += RPCRT4_strcopyW(data, NetworkAddr);
 497   }
 498   if ((Endpoint && *Endpoint) ||
 499       (Options && *Options)) {
 500     *data++ = '[';
 501     if (Endpoint && *Endpoint) {
 502       data += RPCRT4_strcopyW(data, Endpoint);
 503       if (Options && *Options) *data++ = ',';
 504     }
 505     if (Options && *Options) {
 506       data += RPCRT4_strcopyW(data, Options);
 507     }
 508     *data++ = ']';
 509   }
 510   *data = 0;
 511
 512   return RPC_S_OK;
 513 }
 514
 515
 516 /***********************************************************************
 517  *             RpcStringBindingParseA (RPCRT4.@)
 518  */
 519 RPC_STATUS WINAPI RpcStringBindingParseA( LPSTR StringBinding, LPSTR *ObjUuid,
 520                                           LPSTR *Protseq, LPSTR *NetworkAddr,
 521                                           LPSTR *Endpoint, LPSTR *Options)
 522 {
 523   CHAR *data, *next;
 524   static const char ep_opt[] = "endpoint=";
 525
 526   TRACE("(%s,%p,%p,%p,%p,%p)\n", debugstr_a(StringBinding),
 527        ObjUuid, Protseq, NetworkAddr, Endpoint, Options);
 528
 529   if (ObjUuid) *ObjUuid = NULL;
 530   if (Protseq) *Protseq = NULL;
 531   if (NetworkAddr) *NetworkAddr = NULL;
 532   if (Endpoint) *Endpoint = NULL;
 533   if (Options) *Options = NULL;
 534
 535   data = StringBinding;
 536
 537   next = strchr(data, '@');
 538   if (next) {
 539     if (ObjUuid) *ObjUuid = RPCRT4_strndupA(data, next - data);
 540     data = next+1;
 541   }
 542
 543   next = strchr(data, ':');
 544   if (next) {
 545     if (Protseq) *Protseq = RPCRT4_strndupA(data, next - data);
 546     data = next+1;
 547   }
 548
 549   next = strchr(data, '[');
 550   if (next) {
 551     CHAR *close, *opt;
 552
 553     if (NetworkAddr) *NetworkAddr = RPCRT4_strndupA(data, next - data);
 554     data = next+1;
 555     close = strchr(data, ']');
 556     if (!close) goto fail;
 557
 558     /* tokenize options */
 559     while (data < close) {
 560       next = strchr(data, ',');
 561       if (!next || next > close) next = close;
 562       /* FIXME: this is kind of inefficient */
 563       opt = RPCRT4_strndupA(data, next - data);
 564       data = next+1;
 565
 566       /* parse option */
 567       next = strchr(opt, '=');
 568       if (!next) {
 569        /* not an option, must be an endpoint */
 570        if (*Endpoint) goto fail;
 571        *Endpoint = opt;
 572       }
 573       else {
 574        if (strncmp(opt, ep_opt, strlen(ep_opt)) == 0) {
 575          /* endpoint option */
 576          if (*Endpoint) goto fail;
 577          *Endpoint = RPCRT4_strdupA(next+1);
 578          HeapFree(GetProcessHeap(), 0, opt);
 579        }
 580        else {
 581          /* network option */
 582          if (*Options) {
 583             /* FIXME: this is kind of inefficient */
 584            *Options = RPCRT4_strconcatA(*Options, opt);
 585            HeapFree(GetProcessHeap(), 0, opt);
 586          }
 587          else *Options = opt;
 588        }
 589       }
 590     }
 591
 592     data = close+1;
 593     if (*data) goto fail;
 594   }
 595   else if (NetworkAddr) *NetworkAddr = RPCRT4_strdupA(data);
 596   return RPC_S_OK;
 597
 598 fail:
 599   if (ObjUuid) RpcStringFreeA(ObjUuid);
 600   if (Protseq) RpcStringFreeA(Protseq);
 601   if (NetworkAddr) RpcStringFreeA(NetworkAddr);
 602   if (Endpoint) RpcStringFreeA(Endpoint);
 603   if (Options) RpcStringFreeA(Options);
 604   return RPC_S_INVALID_STRING_BINDING;
 605 }
 606
 607 /***********************************************************************
 608  *             RpcStringBindingParseW (RPCRT4.@)
 609  */
 610 RPC_STATUS WINAPI RpcStringBindingParseW( LPWSTR StringBinding, LPWSTR *ObjUuid,
 611                                           LPWSTR *Protseq, LPWSTR *NetworkAddr,
 612                                           LPWSTR *Endpoint, LPWSTR *Options)
 613 {
 614   WCHAR *data, *next;
 615   static const WCHAR ep_opt[] = {'e','n','d','p','o','i','n','t','=',0};
 616
 617   TRACE("(%s,%p,%p,%p,%p,%p)\n", debugstr_w(StringBinding),
 618        ObjUuid, Protseq, NetworkAddr, Endpoint, Options);
 619
 620   if (ObjUuid) *ObjUuid = NULL;
 621   if (Protseq) *Protseq = NULL;
 622   if (NetworkAddr) *NetworkAddr = NULL;
 623   if (Endpoint) *Endpoint = NULL;
 624   if (Options) *Options = NULL;
 625
 626   data = StringBinding;
 627
 628   next = strchrW(data, '@');
 629   if (next) {
 630     if (ObjUuid) *ObjUuid = RPCRT4_strndupW(data, next - data);
 631     data = next+1;
 632   }
 633
 634   next = strchrW(data, ':');
 635   if (next) {
 636     if (Protseq) *Protseq = RPCRT4_strndupW(data, next - data);
 637     data = next+1;
 638   }
 639
 640   next = strchrW(data, '[');
 641   if (next) {
 642     WCHAR *close, *opt;
 643
 644     if (NetworkAddr) *NetworkAddr = RPCRT4_strndupW(data, next - data);
 645     data = next+1;
 646     close = strchrW(data, ']');
 647     if (!close) goto fail;
 648
 649     /* tokenize options */
 650     while (data < close) {
 651       next = strchrW(data, ',');
 652       if (!next || next > close) next = close;
 653       /* FIXME: this is kind of inefficient */
 654       opt = RPCRT4_strndupW(data, next - data);
 655       data = next+1;
 656
 657       /* parse option */
 658       next = strchrW(opt, '=');
 659       if (!next) {
 660        /* not an option, must be an endpoint */
 661        if (*Endpoint) goto fail;
 662        *Endpoint = opt;
 663       }
 664       else {
 665        if (strncmpW(opt, ep_opt, strlenW(ep_opt)) == 0) {
 666          /* endpoint option */
 667          if (*Endpoint) goto fail;
 668          *Endpoint = RPCRT4_strdupW(next+1);
 669          HeapFree(GetProcessHeap(), 0, opt);
 670        }
 671        else {
 672          /* network option */
 673          if (*Options) {
 674             /* FIXME: this is kind of inefficient */
 675            *Options = RPCRT4_strconcatW(*Options, opt);
 676            HeapFree(GetProcessHeap(), 0, opt);
 677          }
 678          else *Options = opt;
 679        }
 680       }
 681     }
 682
 683     data = close+1;
 684     if (*data) goto fail;
 685   }
 686   else if (NetworkAddr) *NetworkAddr = RPCRT4_strdupW(data);
 687
 688   return RPC_S_OK;
 689 fail:
 690   if (ObjUuid) RpcStringFreeW(ObjUuid);
 691   if (Protseq) RpcStringFreeW(Protseq);
 692   if (NetworkAddr) RpcStringFreeW(NetworkAddr);
 693   if (Endpoint) RpcStringFreeW(Endpoint);
 694   if (Options) RpcStringFreeW(Options);
 695   return RPC_S_INVALID_STRING_BINDING;
 696 }
 697
 698 /***********************************************************************
 699  *             RpcBindingFree (RPCRT4.@)
 700  */
 701 RPC_STATUS WINAPI RpcBindingFree( RPC_BINDING_HANDLE* Binding )
 702 {
 703   RPC_STATUS status;
 704   TRACE("(%p) = %p\n", Binding, *Binding);
 705   status = RPCRT4_DestroyBinding(*Binding);
 706   if (status == RPC_S_OK) *Binding = 0;
 707   return status;
 708 }
 709
 710 /***********************************************************************
 711  *             RpcBindingVectorFree (RPCRT4.@)
 712  */
 713 RPC_STATUS WINAPI RpcBindingVectorFree( RPC_BINDING_VECTOR** BindingVector )
 714 {
 715   RPC_STATUS status;
 716   unsigned long c;
 717
 718   TRACE("(%p)\n", BindingVector);
 719   for (c=0; c<(*BindingVector)->Count; c++) {
 720     status = RpcBindingFree(&(*BindingVector)->BindingH[c]);
 721   }
 722   HeapFree(GetProcessHeap(), 0, *BindingVector);
 723   *BindingVector = NULL;
 724   return RPC_S_OK;
 725 }
 726
 727 /***********************************************************************
 728  *             RpcBindingInqObject (RPCRT4.@)
 729  */
 730 RPC_STATUS WINAPI RpcBindingInqObject( RPC_BINDING_HANDLE Binding, UUID* ObjectUuid )
 731 {
 732   RpcBinding* bind = (RpcBinding*)Binding;
 733
 734   TRACE("(%p,%p) = %s\n", Binding, ObjectUuid, debugstr_guid(&bind->ObjectUuid));
 735   memcpy(ObjectUuid, &bind->ObjectUuid, sizeof(UUID));
 736   return RPC_S_OK;
 737 }
 738
 739 /***********************************************************************
 740  *             RpcBindingSetObject (RPCRT4.@)
 741  */
 742 RPC_STATUS WINAPI RpcBindingSetObject( RPC_BINDING_HANDLE Binding, UUID* ObjectUuid )
 743 {
 744   RpcBinding* bind = (RpcBinding*)Binding;
 745
 746   TRACE("(%p,%s)\n", Binding, debugstr_guid(ObjectUuid));
 747   if (bind->server) return RPC_S_WRONG_KIND_OF_BINDING;
 748   return RPCRT4_SetBindingObject(Binding, ObjectUuid);
 749 }
 750
 751 /***********************************************************************
 752  *             RpcBindingFromStringBindingA (RPCRT4.@)
 753  */
 754 RPC_STATUS WINAPI RpcBindingFromStringBindingA( LPSTR StringBinding, RPC_BINDING_HANDLE* Binding )
 755 {
 756   RPC_STATUS ret;
 757   RpcBinding* bind = NULL;
 758   LPSTR ObjectUuid, Protseq, NetworkAddr, Endpoint, Options;
 759   UUID Uuid;
 760
 761   TRACE("(%s,%p)\n", debugstr_a(StringBinding), Binding);
 762
 763   ret = RpcStringBindingParseA(StringBinding, &ObjectUuid, &Protseq,
 764                               &NetworkAddr, &Endpoint, &Options);
 765   if (ret != RPC_S_OK) return ret;
 766
 767   ret = UuidFromStringA(ObjectUuid, &Uuid);
 768
 769   if (ret == RPC_S_OK)
 770     ret = RPCRT4_CreateBindingA(&bind, FALSE, Protseq);
 771   if (ret == RPC_S_OK)
 772     ret = RPCRT4_SetBindingObject(bind, &Uuid);
 773   if (ret == RPC_S_OK)
 774     ret = RPCRT4_CompleteBindingA(bind, NetworkAddr, Endpoint, Options);
 775
 776   RpcStringFreeA(&Options);
 777   RpcStringFreeA(&Endpoint);
 778   RpcStringFreeA(&NetworkAddr);
 779   RpcStringFreeA(&Protseq);
 780   RpcStringFreeA(&ObjectUuid);
 781
 782   if (ret == RPC_S_OK) *Binding = (RPC_BINDING_HANDLE)bind;
 783   else RPCRT4_DestroyBinding(bind);
 784
 785   return ret;
 786 }
 787
 788 /***********************************************************************
 789  *             RpcBindingFromStringBindingW (RPCRT4.@)
 790  */
 791 RPC_STATUS WINAPI RpcBindingFromStringBindingW( LPWSTR StringBinding, RPC_BINDING_HANDLE* Binding )
 792 {
 793   RPC_STATUS ret;
 794   RpcBinding* bind = NULL;
 795   LPWSTR ObjectUuid, Protseq, NetworkAddr, Endpoint, Options;
 796   UUID Uuid;
 797
 798   TRACE("(%s,%p)\n", debugstr_w(StringBinding), Binding);
 799
 800   ret = RpcStringBindingParseW(StringBinding, &ObjectUuid, &Protseq,
 801                               &NetworkAddr, &Endpoint, &Options);
 802   if (ret != RPC_S_OK) return ret;
 803
 804   ret = UuidFromStringW(ObjectUuid, &Uuid);
 805
 806   if (ret == RPC_S_OK)
 807     ret = RPCRT4_CreateBindingW(&bind, FALSE, Protseq);
 808   if (ret == RPC_S_OK)
 809     ret = RPCRT4_SetBindingObject(bind, &Uuid);
 810   if (ret == RPC_S_OK)
 811     ret = RPCRT4_CompleteBindingW(bind, NetworkAddr, Endpoint, Options);
 812
 813   RpcStringFreeW(&Options);
 814   RpcStringFreeW(&Endpoint);
 815   RpcStringFreeW(&NetworkAddr);
 816   RpcStringFreeW(&Protseq);
 817   RpcStringFreeW(&ObjectUuid);
 818
 819   if (ret == RPC_S_OK) *Binding = (RPC_BINDING_HANDLE)bind;
 820   else RPCRT4_DestroyBinding(bind);
 821
 822   return ret;
 823 }
 824
 825 /***********************************************************************
 826  *             RpcBindingToStringBindingA (RPCRT4.@)
 827  */
 828 RPC_STATUS WINAPI RpcBindingToStringBindingA( RPC_BINDING_HANDLE Binding, LPSTR* StringBinding )
 829 {
 830   RPC_STATUS ret;
 831   RpcBinding* bind = (RpcBinding*)Binding;
 832   LPSTR ObjectUuid;
 833
 834   TRACE("(%p,%p)\n", Binding, StringBinding);
 835
 836   ret = UuidToStringA(&bind->ObjectUuid, &ObjectUuid);
 837   if (ret != RPC_S_OK) return ret;
 838
 839   ret = RpcStringBindingComposeA(ObjectUuid, bind->Protseq, bind->NetworkAddr,
 840                                  bind->Endpoint, NULL, StringBinding);
 841
 842   RpcStringFreeA(&ObjectUuid);
 843
 844   return ret;
 845 }
 846
 847 /***********************************************************************
 848  *             RpcBindingToStringBindingW (RPCRT4.@)
 849  */
 850 RPC_STATUS WINAPI RpcBindingToStringBindingW( RPC_BINDING_HANDLE Binding, LPWSTR* StringBinding )
 851 {
 852   RPC_STATUS ret;
 853   LPSTR str = NULL;
 854   TRACE("(%p,%p)\n", Binding, StringBinding);
 855   ret = RpcBindingToStringBindingA(Binding, &str);
 856   *StringBinding = RPCRT4_strdupAtoW(str);
 857   RpcStringFreeA(&str);
 858   return ret;
 859 }
 860
 861 /***********************************************************************
 862  *             I_RpcBindingSetAsync (RPCRT4.@)
 863  * NOTES
 864  *  Exists in win9x and winNT, but with different number of arguments
 865  *  (9x version has 3 arguments, NT has 2).
 866  */
 867 RPC_STATUS WINAPI I_RpcBindingSetAsync( RPC_BINDING_HANDLE Binding, RPC_BLOCKING_FN BlockingFn, unsigned long ServerTid )
 868 {
 869   RpcBinding* bind = (RpcBinding*)Binding;
 870
 871   TRACE( "(%p,%p,%ld): stub\n", Binding, BlockingFn, ServerTid );
 872
 873   bind->BlockingFn = BlockingFn;
 874   bind->ServerTid = ServerTid;
 875
 876   return RPC_S_OK;
 877 }