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