git.oblomov.eu Git - wine/blob - dlls/ole32/usrmarshal.c

   1 /*
   2  * Miscellaneous Marshaling Routines
   3  *
   4  * Copyright 2005 Robert Shearman
   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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <stdio.h>
  22 #include <stdarg.h>
  23 #include <string.h>
  24
  25 #define COBJMACROS
  26 #define NONAMELESSUNION
  27 #define NONAMELESSSTRUCT
  28
  29 #include "windef.h"
  30 #include "winbase.h"
  31 #include "wingdi.h"
  32 #include "winuser.h"
  33 #include "winerror.h"
  34
  35 #include "ole2.h"
  36 #include "oleauto.h"
  37 #include "rpcproxy.h"
  38
  39 #include "wine/unicode.h"
  40 #include "wine/debug.h"
  41
  42 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  43
  44 #define ALIGNED_LENGTH(_Len, _Align) (((_Len)+(_Align))&~(_Align))
  45 #define ALIGNED_POINTER(_Ptr, _Align) ((LPVOID)ALIGNED_LENGTH((ULONG_PTR)(_Ptr), _Align))
  46 #define ALIGN_LENGTH(_Len, _Align) _Len = ALIGNED_LENGTH(_Len, _Align)
  47 #define ALIGN_POINTER(_Ptr, _Align) _Ptr = ALIGNED_POINTER(_Ptr, _Align)
  48
  49 #define USER_MARSHAL_PTR_PREFIX \
  50   ( (DWORD)'U'         | ( (DWORD)'s' << 8 ) | \
  51   ( (DWORD)'e' << 16 ) | ( (DWORD)'r' << 24 ) )
  52
  53 static const char* debugstr_user_flags(ULONG *pFlags)
  54 {
  55     char buf[12];
  56     const char* loword;
  57     switch (LOWORD(*pFlags))
  58     {
  59     case MSHCTX_LOCAL:
  60         loword="MSHCTX_LOCAL";
  61         break;
  62     case MSHCTX_NOSHAREDMEM:
  63         loword="MSHCTX_NOSHAREDMEM";
  64         break;
  65     case MSHCTX_DIFFERENTMACHINE:
  66         loword="MSHCTX_DIFFERENTMACHINE";
  67         break;
  68     case MSHCTX_INPROC:
  69         loword="MSHCTX_INPROC";
  70         break;
  71     default:
  72         sprintf(buf, "%d", LOWORD(*pFlags));
  73         loword=buf;
  74     }
  75
  76     if (HIWORD(*pFlags) == NDR_LOCAL_DATA_REPRESENTATION)
  77         return wine_dbg_sprintf("MAKELONG(NDR_LOCAL_REPRESENTATION, %s)", loword);
  78     else
  79         return wine_dbg_sprintf("MAKELONG(0x%04x, %s)", HIWORD(*pFlags), loword);
  80 }
  81
  82 /******************************************************************************
  83  *           CLIPFORMAT_UserSize [OLE32.@]
  84  *
  85  * Calculates the buffer size required to marshal a clip format.
  86  *
  87  * PARAMS
  88  *  pFlags       [I] Flags. See notes.
  89  *  StartingSize [I] Starting size of the buffer. This value is added on to
  90  *                   the buffer size required for the clip format.
  91  *  pCF          [I] Clip format to size.
  92  *
  93  * RETURNS
  94  *  The buffer size required to marshal a clip format plus the starting size.
  95  *
  96  * NOTES
  97  *  Even though the function is documented to take a pointer to an unsigned
  98  *  long in pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
  99  *  the first parameter is an unsigned long.
 100  *  This function is only intended to be called by the RPC runtime.
 101  */
 102 ULONG __RPC_USER CLIPFORMAT_UserSize(ULONG *pFlags, ULONG StartingSize, CLIPFORMAT *pCF)
 103 {
 104     ULONG size = StartingSize;
 105
 106     TRACE("(%s, %d, %p\n", debugstr_user_flags(pFlags), StartingSize, pCF);
 107
 108     size += sizeof(userCLIPFORMAT);
 109
 110     /* only need to marshal the name if it is not a pre-defined type and
 111      * we are going remote */
 112     if ((*pCF >= 0xc000) && (LOWORD(*pFlags) == MSHCTX_DIFFERENTMACHINE))
 113     {
 114         WCHAR format[255];
 115         INT ret;
 116         size += 3 * sizeof(INT);
 117         /* urg! this function is badly designed because it won't tell us how
 118          * much space is needed without doing a dummy run of storing the
 119          * name into a buffer */
 120         ret = GetClipboardFormatNameW(*pCF, format, sizeof(format)/sizeof(format[0])-1);
 121         if (!ret)
 122             RaiseException(DV_E_CLIPFORMAT, 0, 0, NULL);
 123         size += (ret + 1) * sizeof(WCHAR);
 124     }
 125     return size;
 126 }
 127
 128 /******************************************************************************
 129  *           CLIPFORMAT_UserMarshal [OLE32.@]
 130  *
 131  * Marshals a clip format into a buffer.
 132  *
 133  * PARAMS
 134  *  pFlags  [I] Flags. See notes.
 135  *  pBuffer [I] Buffer to marshal the clip format into.
 136  *  pCF     [I] Clip format to marshal.
 137  *
 138  * RETURNS
 139  *  The end of the marshaled data in the buffer.
 140  *
 141  * NOTES
 142  *  Even though the function is documented to take a pointer to an unsigned
 143  *  long in pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 144  *  the first parameter is an unsigned long.
 145  *  This function is only intended to be called by the RPC runtime.
 146  */
 147 unsigned char * __RPC_USER CLIPFORMAT_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, CLIPFORMAT *pCF)
 148 {
 149     wireCLIPFORMAT wirecf = (wireCLIPFORMAT)pBuffer;
 150
 151     TRACE("(%s, %p, &0x%04x\n", debugstr_user_flags(pFlags), pBuffer, *pCF);
 152
 153     wirecf->u.dwValue = *pCF;
 154     pBuffer += sizeof(*wirecf);
 155
 156     /* only need to marshal the name if it is not a pre-defined type and
 157      * we are going remote */
 158     if ((*pCF >= 0xc000) && (LOWORD(*pFlags) == MSHCTX_DIFFERENTMACHINE))
 159     {
 160         WCHAR format[255];
 161         INT len;
 162         wirecf->fContext = WDT_REMOTE_CALL;
 163         len = GetClipboardFormatNameW(*pCF, format, sizeof(format)/sizeof(format[0])-1);
 164         if (!len)
 165             RaiseException(DV_E_CLIPFORMAT, 0, 0, NULL);
 166         len += 1;
 167         *(INT *)pBuffer = len;
 168         pBuffer += sizeof(INT);
 169         *(INT *)pBuffer = 0;
 170         pBuffer += sizeof(INT);
 171         *(INT *)pBuffer = len;
 172         pBuffer += sizeof(INT);
 173         TRACE("marshaling format name %s\n", debugstr_wn(format, len-1));
 174         lstrcpynW((LPWSTR)pBuffer, format, len);
 175         pBuffer += len * sizeof(WCHAR);
 176         *(WCHAR *)pBuffer = '\0';
 177         pBuffer += sizeof(WCHAR);
 178     }
 179     else
 180         wirecf->fContext = WDT_INPROC_CALL;
 181
 182     return pBuffer;
 183 }
 184
 185 /******************************************************************************
 186  *           CLIPFORMAT_UserUnmarshal [OLE32.@]
 187  *
 188  * Unmarshals a clip format from a buffer.
 189  *
 190  * PARAMS
 191  *  pFlags  [I] Flags. See notes.
 192  *  pBuffer [I] Buffer to marshal the clip format from.
 193  *  pCF     [O] Address that receive the unmarshaled clip format.
 194  *
 195  * RETURNS
 196  *  The end of the marshaled data in the buffer.
 197  *
 198  * NOTES
 199  *  Even though the function is documented to take a pointer to an unsigned
 200  *  long in pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 201  *  the first parameter is an unsigned long.
 202  *  This function is only intended to be called by the RPC runtime.
 203  */
 204 unsigned char * __RPC_USER CLIPFORMAT_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, CLIPFORMAT *pCF)
 205 {
 206     wireCLIPFORMAT wirecf = (wireCLIPFORMAT)pBuffer;
 207
 208     TRACE("(%s, %p, %p\n", debugstr_user_flags(pFlags), pBuffer, pCF);
 209
 210     pBuffer += sizeof(*wirecf);
 211     if (wirecf->fContext == WDT_INPROC_CALL)
 212         *pCF = (CLIPFORMAT)wirecf->u.dwValue;
 213     else if (wirecf->fContext == WDT_REMOTE_CALL)
 214     {
 215         CLIPFORMAT cf;
 216         INT len = *(INT *)pBuffer;
 217         pBuffer += sizeof(INT);
 218         if (*(INT *)pBuffer != 0)
 219             RaiseException(RPC_S_INVALID_BOUND, 0, 0, NULL);
 220         pBuffer += sizeof(INT);
 221         if (*(INT *)pBuffer != len)
 222             RaiseException(RPC_S_INVALID_BOUND, 0, 0, NULL);
 223         pBuffer += sizeof(INT);
 224         if (((WCHAR *)pBuffer)[len] != '\0')
 225             RaiseException(RPC_S_INVALID_BOUND, 0, 0, NULL);
 226         TRACE("unmarshaling clip format %s\n", debugstr_w((LPCWSTR)pBuffer));
 227         cf = RegisterClipboardFormatW((LPCWSTR)pBuffer);
 228         pBuffer += (len + 1) * sizeof(WCHAR);
 229         if (!cf)
 230             RaiseException(DV_E_CLIPFORMAT, 0, 0, NULL);
 231         *pCF = cf;
 232     }
 233     else
 234         /* code not really appropriate, but nearest I can find */
 235         RaiseException(RPC_S_INVALID_TAG, 0, 0, NULL);
 236     return pBuffer;
 237 }
 238
 239 /******************************************************************************
 240  *           CLIPFORMAT_UserFree [OLE32.@]
 241  *
 242  * Frees an unmarshaled clip format.
 243  *
 244  * PARAMS
 245  *  pFlags  [I] Flags. See notes.
 246  *  pCF     [I] Clip format to free.
 247  *
 248  * RETURNS
 249  *  The end of the marshaled data in the buffer.
 250  *
 251  * NOTES
 252  *  Even though the function is documented to take a pointer to an unsigned
 253  *  long in pFlags, it actually takes a pointer to a USER_MARSHAL_CB
 254  *  structure, of which the first parameter is an unsigned long.
 255  *  This function is only intended to be called by the RPC runtime.
 256  */
 257 void __RPC_USER CLIPFORMAT_UserFree(ULONG *pFlags, CLIPFORMAT *pCF)
 258 {
 259     /* there is no inverse of the RegisterClipboardFormat function,
 260      * so nothing to do */
 261 }
 262
 263 static ULONG __RPC_USER handle_UserSize(ULONG *pFlags, ULONG StartingSize, HANDLE *handle)
 264 {
 265     if (LOWORD(*pFlags) == MSHCTX_DIFFERENTMACHINE)
 266     {
 267         ERR("can't remote a local handle\n");
 268         RaiseException(RPC_S_INVALID_TAG, 0, 0, NULL);
 269         return StartingSize;
 270     }
 271     return StartingSize + sizeof(RemotableHandle);
 272 }
 273
 274 static unsigned char * __RPC_USER handle_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, HANDLE *handle)
 275 {
 276     RemotableHandle *remhandle = (RemotableHandle *)pBuffer;
 277     if (LOWORD(*pFlags) == MSHCTX_DIFFERENTMACHINE)
 278     {
 279         ERR("can't remote a local handle\n");
 280         RaiseException(RPC_S_INVALID_TAG, 0, 0, NULL);
 281         return pBuffer;
 282     }
 283     remhandle->fContext = WDT_INPROC_CALL;
 284     remhandle->u.hInproc = (LONG_PTR)*handle;
 285     return pBuffer + sizeof(RemotableHandle);
 286 }
 287
 288 static unsigned char * __RPC_USER handle_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, HANDLE *handle)
 289 {
 290     RemotableHandle *remhandle = (RemotableHandle *)pBuffer;
 291     if (remhandle->fContext != WDT_INPROC_CALL)
 292         RaiseException(RPC_X_BAD_STUB_DATA, 0, 0, NULL);
 293     *handle = (HANDLE)remhandle->u.hInproc;
 294     return pBuffer + sizeof(RemotableHandle);
 295 }
 296
 297 static void __RPC_USER handle_UserFree(ULONG *pFlags, HANDLE *phMenu)
 298 {
 299     /* nothing to do */
 300 }
 301
 302 #define IMPL_WIREM_HANDLE(type) \
 303     ULONG __RPC_USER type##_UserSize(ULONG *pFlags, ULONG StartingSize, type *handle) \
 304     { \
 305         TRACE("(%s, %d, %p\n", debugstr_user_flags(pFlags), StartingSize, handle); \
 306         return handle_UserSize(pFlags, StartingSize, (HANDLE *)handle); \
 307     } \
 308     \
 309     unsigned char * __RPC_USER type##_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, type *handle) \
 310     { \
 311         TRACE("(%s, %p, &%p\n", debugstr_user_flags(pFlags), pBuffer, *handle); \
 312         return handle_UserMarshal(pFlags, pBuffer, (HANDLE *)handle); \
 313     } \
 314     \
 315     unsigned char * __RPC_USER type##_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, type *handle) \
 316     { \
 317         TRACE("(%s, %p, %p\n", debugstr_user_flags(pFlags), pBuffer, handle); \
 318         return handle_UserUnmarshal(pFlags, pBuffer, (HANDLE *)handle); \
 319     } \
 320     \
 321     void __RPC_USER type##_UserFree(ULONG *pFlags, type *handle) \
 322     { \
 323         TRACE("(%s, &%p\n", debugstr_user_flags(pFlags), *handle); \
 324         handle_UserFree(pFlags, (HANDLE *)handle); \
 325     }
 326
 327 IMPL_WIREM_HANDLE(HACCEL)
 328 IMPL_WIREM_HANDLE(HMENU)
 329 IMPL_WIREM_HANDLE(HWND)
 330
 331 /******************************************************************************
 332  *           HGLOBAL_UserSize [OLE32.@]
 333  *
 334  * Calculates the buffer size required to marshal an HGLOBAL.
 335  *
 336  * PARAMS
 337  *  pFlags       [I] Flags. See notes.
 338  *  StartingSize [I] Starting size of the buffer. This value is added on to
 339  *                   the buffer size required for the clip format.
 340  *  phGlobal     [I] HGLOBAL to size.
 341  *
 342  * RETURNS
 343  *  The buffer size required to marshal an HGLOBAL plus the starting size.
 344  *
 345  * NOTES
 346  *  Even though the function is documented to take a pointer to a ULONG in
 347  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 348  *  the first parameter is a ULONG.
 349  *  This function is only intended to be called by the RPC runtime.
 350  */
 351 ULONG __RPC_USER HGLOBAL_UserSize(ULONG *pFlags, ULONG StartingSize, HGLOBAL *phGlobal)
 352 {
 353     ULONG size = StartingSize;
 354
 355     TRACE("(%s, %d, %p\n", debugstr_user_flags(pFlags), StartingSize, phGlobal);
 356
 357     ALIGN_LENGTH(size, 3);
 358
 359     size += sizeof(ULONG);
 360
 361     if (LOWORD(*pFlags == MSHCTX_INPROC))
 362         size += sizeof(HGLOBAL);
 363     else
 364     {
 365         size += sizeof(ULONG);
 366         if (*phGlobal)
 367         {
 368             SIZE_T ret;
 369             size += 3 * sizeof(ULONG);
 370             ret = GlobalSize(*phGlobal);
 371             size += (ULONG)ret;
 372         }
 373     }
 374
 375     return size;
 376 }
 377
 378 /******************************************************************************
 379  *           HGLOBAL_UserMarshal [OLE32.@]
 380  *
 381  * Marshals an HGLOBAL into a buffer.
 382  *
 383  * PARAMS
 384  *  pFlags   [I] Flags. See notes.
 385  *  pBuffer  [I] Buffer to marshal the clip format into.
 386  *  phGlobal [I] HGLOBAL to marshal.
 387  *
 388  * RETURNS
 389  *  The end of the marshaled data in the buffer.
 390  *
 391  * NOTES
 392  *  Even though the function is documented to take a pointer to a ULONG in
 393  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 394  *  the first parameter is a ULONG.
 395  *  This function is only intended to be called by the RPC runtime.
 396  */
 397 unsigned char * __RPC_USER HGLOBAL_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, HGLOBAL *phGlobal)
 398 {
 399     TRACE("(%s, %p, &%p\n", debugstr_user_flags(pFlags), pBuffer, *phGlobal);
 400
 401     ALIGN_POINTER(pBuffer, 3);
 402
 403     if (LOWORD(*pFlags == MSHCTX_INPROC))
 404     {
 405         if (sizeof(*phGlobal) == 8)
 406             *(ULONG *)pBuffer = WDT_INPROC64_CALL;
 407         else
 408             *(ULONG *)pBuffer = WDT_INPROC_CALL;
 409         pBuffer += sizeof(ULONG);
 410         *(HGLOBAL *)pBuffer = *phGlobal;
 411         pBuffer += sizeof(HGLOBAL);
 412     }
 413     else
 414     {
 415         *(ULONG *)pBuffer = WDT_REMOTE_CALL;
 416         pBuffer += sizeof(ULONG);
 417         *(ULONG *)pBuffer = (ULONG)*phGlobal;
 418         pBuffer += sizeof(ULONG);
 419         if (*phGlobal)
 420         {
 421             const unsigned char *memory;
 422             SIZE_T size = GlobalSize(*phGlobal);
 423             *(ULONG *)pBuffer = (ULONG)size;
 424             pBuffer += sizeof(ULONG);
 425             *(ULONG *)pBuffer = (ULONG)*phGlobal;
 426             pBuffer += sizeof(ULONG);
 427             *(ULONG *)pBuffer = (ULONG)size;
 428             pBuffer += sizeof(ULONG);
 429
 430             memory = GlobalLock(*phGlobal);
 431             memcpy(pBuffer, memory, size);
 432             pBuffer += size;
 433             GlobalUnlock(*phGlobal);
 434         }
 435     }
 436
 437     return pBuffer;
 438 }
 439
 440 /******************************************************************************
 441  *           HGLOBAL_UserUnmarshal [OLE32.@]
 442  *
 443  * Unmarshals an HGLOBAL from a buffer.
 444  *
 445  * PARAMS
 446  *  pFlags   [I] Flags. See notes.
 447  *  pBuffer  [I] Buffer to marshal the clip format from.
 448  *  phGlobal [O] Address that receive the unmarshaled HGLOBAL.
 449  *
 450  * RETURNS
 451  *  The end of the marshaled data in the buffer.
 452  *
 453  * NOTES
 454  *  Even though the function is documented to take a pointer to an ULONG in
 455  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 456  *  the first parameter is an ULONG.
 457  *  This function is only intended to be called by the RPC runtime.
 458  */
 459 unsigned char * __RPC_USER HGLOBAL_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, HGLOBAL *phGlobal)
 460 {
 461     ULONG fContext;
 462
 463     TRACE("(%s, %p, &%p\n", debugstr_user_flags(pFlags), pBuffer, *phGlobal);
 464
 465     ALIGN_POINTER(pBuffer, 3);
 466
 467     fContext = *(ULONG *)pBuffer;
 468     pBuffer += sizeof(ULONG);
 469
 470     if (((fContext == WDT_INPROC_CALL) && (sizeof(*phGlobal) < 8)) ||
 471         ((fContext == WDT_INPROC64_CALL) && (sizeof(*phGlobal) == 8)))
 472     {
 473         *phGlobal = *(HGLOBAL *)pBuffer;
 474         pBuffer += sizeof(*phGlobal);
 475     }
 476     else if (fContext == WDT_REMOTE_CALL)
 477     {
 478         ULONG handle;
 479
 480         handle = *(ULONG *)pBuffer;
 481         pBuffer += sizeof(ULONG);
 482
 483         if (handle)
 484         {
 485             ULONG size;
 486             void *memory;
 487
 488             size = *(ULONG *)pBuffer;
 489             pBuffer += sizeof(ULONG);
 490             /* redundancy is bad - it means you have to check consistency like
 491              * this: */
 492             if (*(ULONG *)pBuffer != handle)
 493             {
 494                 RaiseException(RPC_X_BAD_STUB_DATA, 0, 0, NULL);
 495                 return pBuffer;
 496             }
 497             pBuffer += sizeof(ULONG);
 498             /* redundancy is bad - it means you have to check consistency like
 499              * this: */
 500             if (*(ULONG *)pBuffer != size)
 501             {
 502                 RaiseException(RPC_X_BAD_STUB_DATA, 0, 0, NULL);
 503                 return pBuffer;
 504             }
 505             pBuffer += sizeof(ULONG);
 506
 507             /* FIXME: check size is not too big */
 508
 509             *phGlobal = GlobalAlloc(GMEM_MOVEABLE, size);
 510             memory = GlobalLock(*phGlobal);
 511             memcpy(memory, pBuffer, size);
 512             pBuffer += size;
 513             GlobalUnlock(*phGlobal);
 514         }
 515         else
 516             *phGlobal = NULL;
 517     }
 518     else
 519         RaiseException(RPC_S_INVALID_TAG, 0, 0, NULL);
 520
 521     return pBuffer;
 522 }
 523
 524 /******************************************************************************
 525  *           HGLOBAL_UserFree [OLE32.@]
 526  *
 527  * Frees an unmarshaled HGLOBAL.
 528  *
 529  * PARAMS
 530  *  pFlags   [I] Flags. See notes.
 531  *  phGlobal [I] HGLOBAL to free.
 532  *
 533  * RETURNS
 534  *  The end of the marshaled data in the buffer.
 535  *
 536  * NOTES
 537  *  Even though the function is documented to take a pointer to a ULONG in
 538  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of
 539  *  which the first parameter is a ULONG.
 540  *  This function is only intended to be called by the RPC runtime.
 541  */
 542 void __RPC_USER HGLOBAL_UserFree(ULONG *pFlags, HGLOBAL *phGlobal)
 543 {
 544     TRACE("(%s, &%p\n", debugstr_user_flags(pFlags), *phGlobal);
 545
 546     if (LOWORD(*pFlags != MSHCTX_INPROC) && *phGlobal)
 547         GlobalFree(*phGlobal);
 548 }
 549
 550 /******************************************************************************
 551  *           HBITMAP_UserSize [OLE32.@]
 552  *
 553  * Calculates the buffer size required to marshal a bitmap.
 554  *
 555  * PARAMS
 556  *  pFlags       [I] Flags. See notes.
 557  *  StartingSize [I] Starting size of the buffer. This value is added on to
 558  *                   the buffer size required for the clip format.
 559  *  phBmp        [I] Bitmap to size.
 560  *
 561  * RETURNS
 562  *  The buffer size required to marshal an bitmap plus the starting size.
 563  *
 564  * NOTES
 565  *  Even though the function is documented to take a pointer to a ULONG in
 566  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 567  *  the first parameter is a ULONG.
 568  *  This function is only intended to be called by the RPC runtime.
 569  */
 570 ULONG __RPC_USER HBITMAP_UserSize(ULONG *pFlags, ULONG StartingSize, HBITMAP *phBmp)
 571 {
 572     FIXME(":stub\n");
 573     return StartingSize;
 574 }
 575
 576 /******************************************************************************
 577 *           HBITMAP_UserMarshal [OLE32.@]
 578 *
 579 * Marshals a bitmap into a buffer.
 580 *
 581 * PARAMS
 582 *  pFlags  [I] Flags. See notes.
 583 *  pBuffer [I] Buffer to marshal the clip format into.
 584 *  phBmp   [I] Bitmap to marshal.
 585 *
 586 * RETURNS
 587 *  The end of the marshaled data in the buffer.
 588 *
 589 * NOTES
 590 *  Even though the function is documented to take a pointer to a ULONG in
 591 *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 592 *  the first parameter is a ULONG.
 593 *  This function is only intended to be called by the RPC runtime.
 594 */
 595 unsigned char * __RPC_USER HBITMAP_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, HBITMAP *phBmp)
 596 {
 597     FIXME(":stub\n");
 598     return pBuffer;
 599 }
 600
 601 /******************************************************************************
 602  *           HBITMAP_UserUnmarshal [OLE32.@]
 603  *
 604  * Unmarshals a bitmap from a buffer.
 605  *
 606  * PARAMS
 607  *  pFlags   [I] Flags. See notes.
 608  *  pBuffer  [I] Buffer to marshal the clip format from.
 609  *  phBmp    [O] Address that receive the unmarshaled bitmap.
 610  *
 611  * RETURNS
 612  *  The end of the marshaled data in the buffer.
 613  *
 614  * NOTES
 615  *  Even though the function is documented to take a pointer to an ULONG in
 616  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 617  *  the first parameter is an ULONG.
 618  *  This function is only intended to be called by the RPC runtime.
 619  */
 620 unsigned char * __RPC_USER HBITMAP_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, HBITMAP *phBmp)
 621 {
 622     FIXME(":stub\n");
 623     return pBuffer;
 624 }
 625
 626 /******************************************************************************
 627  *           HBITMAP_UserFree [OLE32.@]
 628  *
 629  * Frees an unmarshaled bitmap.
 630  *
 631  * PARAMS
 632  *  pFlags   [I] Flags. See notes.
 633  *  phBmp    [I] Bitmap to free.
 634  *
 635  * RETURNS
 636  *  The end of the marshaled data in the buffer.
 637  *
 638  * NOTES
 639  *  Even though the function is documented to take a pointer to a ULONG in
 640  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of
 641  *  which the first parameter is a ULONG.
 642  *  This function is only intended to be called by the RPC runtime.
 643  */
 644 void __RPC_USER HBITMAP_UserFree(ULONG *pFlags, HBITMAP *phBmp)
 645 {
 646     FIXME(":stub\n");
 647 }
 648
 649 /******************************************************************************
 650  *           HDC_UserSize [OLE32.@]
 651  *
 652  * Calculates the buffer size required to marshal an HDC.
 653  *
 654  * PARAMS
 655  *  pFlags       [I] Flags. See notes.
 656  *  StartingSize [I] Starting size of the buffer. This value is added on to
 657  *                   the buffer size required for the clip format.
 658  *  phGlobal     [I] HDC to size.
 659  *
 660  * RETURNS
 661  *  The buffer size required to marshal an HDC plus the starting size.
 662  *
 663  * NOTES
 664  *  Even though the function is documented to take a pointer to a ULONG in
 665  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 666  *  the first parameter is a ULONG.
 667  *  This function is only intended to be called by the RPC runtime.
 668  */
 669 ULONG __RPC_USER HDC_UserSize(ULONG *pFlags, ULONG StartingSize, HDC *phdc)
 670 {
 671     FIXME(":stub\n");
 672     return StartingSize;
 673 }
 674
 675 /******************************************************************************
 676  *           HDC_UserMarshal [OLE32.@]
 677  *
 678  * Marshals an HDC into a buffer.
 679  *
 680  * PARAMS
 681  *  pFlags  [I] Flags. See notes.
 682  *  pBuffer [I] Buffer to marshal the clip format into.
 683  *  phdc    [I] HDC to marshal.
 684  *
 685  * RETURNS
 686  *  The end of the marshaled data in the buffer.
 687  *
 688  * NOTES
 689  *  Even though the function is documented to take a pointer to a ULONG in
 690  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 691  *  the first parameter is a ULONG.
 692  *  This function is only intended to be called by the RPC runtime.
 693  */
 694 unsigned char * __RPC_USER HDC_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, HDC *phdc)
 695 {
 696     FIXME(":stub\n");
 697     return pBuffer;
 698 }
 699
 700 /******************************************************************************
 701  *           HDC_UserUnmarshal [OLE32.@]
 702  *
 703  * Unmarshals an HDC from a buffer.
 704  *
 705  * PARAMS
 706  *  pFlags   [I] Flags. See notes.
 707  *  pBuffer  [I] Buffer to marshal the clip format from.
 708  *  phdc     [O] Address that receive the unmarshaled HDC.
 709  *
 710  * RETURNS
 711  *  The end of the marshaled data in the buffer.
 712  *
 713  * NOTES
 714  *  Even though the function is documented to take a pointer to an ULONG in
 715  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 716  *  the first parameter is an ULONG.
 717  *  This function is only intended to be called by the RPC runtime.
 718  */
 719 unsigned char * __RPC_USER HDC_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, HDC *phdc)
 720 {
 721     FIXME(":stub\n");
 722     return pBuffer;
 723 }
 724
 725 /******************************************************************************
 726  *           HDC_UserFree [OLE32.@]
 727  *
 728  * Frees an unmarshaled HDC.
 729  *
 730  * PARAMS
 731  *  pFlags   [I] Flags. See notes.
 732  *  phdc     [I] HDC to free.
 733  *
 734  * RETURNS
 735  *  The end of the marshaled data in the buffer.
 736  *
 737  * NOTES
 738  *  Even though the function is documented to take a pointer to a ULONG in
 739  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of
 740  *  which the first parameter is a ULONG.
 741  *  This function is only intended to be called by the RPC runtime.
 742  */
 743 void __RPC_USER HDC_UserFree(ULONG *pFlags, HDC *phdc)
 744 {
 745     FIXME(":stub\n");
 746 }
 747
 748 /******************************************************************************
 749  *           HPALETTE_UserSize [OLE32.@]
 750  *
 751  * Calculates the buffer size required to marshal a palette.
 752  *
 753  * PARAMS
 754  *  pFlags       [I] Flags. See notes.
 755  *  StartingSize [I] Starting size of the buffer. This value is added on to
 756  *                   the buffer size required for the clip format.
 757  *  phPal        [I] Palette to size.
 758  *
 759  * RETURNS
 760  *  The buffer size required to marshal a palette plus the starting size.
 761  *
 762  * NOTES
 763  *  Even though the function is documented to take a pointer to a ULONG in
 764  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 765  *  the first parameter is a ULONG.
 766  *  This function is only intended to be called by the RPC runtime.
 767  */
 768 ULONG __RPC_USER HPALETTE_UserSize(ULONG *pFlags, ULONG StartingSize, HPALETTE *phPal)
 769 {
 770     FIXME(":stub\n");
 771     return StartingSize;
 772 }
 773
 774 /******************************************************************************
 775  *           HPALETTE_UserMarshal [OLE32.@]
 776  *
 777  * Marshals a palette into a buffer.
 778  *
 779  * PARAMS
 780  *  pFlags  [I] Flags. See notes.
 781  *  pBuffer [I] Buffer to marshal the clip format into.
 782  *  phPal   [I] Palette to marshal.
 783  *
 784  * RETURNS
 785  *  The end of the marshaled data in the buffer.
 786  *
 787  * NOTES
 788  *  Even though the function is documented to take a pointer to a ULONG in
 789  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 790  *  the first parameter is a ULONG.
 791  *  This function is only intended to be called by the RPC runtime.
 792  */
 793 unsigned char * __RPC_USER HPALETTE_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, HPALETTE *phPal)
 794 {
 795     FIXME(":stub\n");
 796     return pBuffer;
 797 }
 798
 799 /******************************************************************************
 800  *           HPALETTE_UserUnmarshal [OLE32.@]
 801  *
 802  * Unmarshals a palette from a buffer.
 803  *
 804  * PARAMS
 805  *  pFlags   [I] Flags. See notes.
 806  *  pBuffer  [I] Buffer to marshal the clip format from.
 807  *  phPal    [O] Address that receive the unmarshaled palette.
 808  *
 809  * RETURNS
 810  *  The end of the marshaled data in the buffer.
 811  *
 812  * NOTES
 813  *  Even though the function is documented to take a pointer to an ULONG in
 814  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 815  *  the first parameter is an ULONG.
 816  *  This function is only intended to be called by the RPC runtime.
 817  */
 818 unsigned char * __RPC_USER HPALETTE_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, HPALETTE *phPal)
 819 {
 820     FIXME(":stub\n");
 821     return pBuffer;
 822 }
 823
 824 /******************************************************************************
 825  *           HPALETTE_UserFree [OLE32.@]
 826  *
 827  * Frees an unmarshaled palette.
 828  *
 829  * PARAMS
 830  *  pFlags   [I] Flags. See notes.
 831  *  phPal    [I] Palette to free.
 832  *
 833  * RETURNS
 834  *  The end of the marshaled data in the buffer.
 835  *
 836  * NOTES
 837  *  Even though the function is documented to take a pointer to a ULONG in
 838  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of
 839  *  which the first parameter is a ULONG.
 840  *  This function is only intended to be called by the RPC runtime.
 841  */
 842 void __RPC_USER HPALETTE_UserFree(ULONG *pFlags, HPALETTE *phPal)
 843 {
 844     FIXME(":stub\n");
 845 }
 846
 847
 848 /******************************************************************************
 849  *           HMETAFILE_UserSize [OLE32.@]
 850  *
 851  * Calculates the buffer size required to marshal a metafile.
 852  *
 853  * PARAMS
 854  *  pFlags       [I] Flags. See notes.
 855  *  StartingSize [I] Starting size of the buffer. This value is added on to
 856  *                   the buffer size required for the clip format.
 857  *  phmf         [I] Metafile to size.
 858  *
 859  * RETURNS
 860  *  The buffer size required to marshal a metafile plus the starting size.
 861  *
 862  * NOTES
 863  *  Even though the function is documented to take a pointer to a ULONG in
 864  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 865  *  the first parameter is a ULONG.
 866  *  This function is only intended to be called by the RPC runtime.
 867  */
 868 ULONG __RPC_USER HMETAFILE_UserSize(ULONG *pFlags, ULONG StartingSize, HMETAFILE *phmf)
 869 {
 870     ULONG size = StartingSize;
 871
 872     TRACE("(%s, %d, &%p\n", debugstr_user_flags(pFlags), StartingSize, *phmf);
 873
 874     ALIGN_LENGTH(size, 3);
 875
 876     size += sizeof(ULONG);
 877     if (LOWORD(*pFlags) == MSHCTX_INPROC)
 878         size += sizeof(ULONG_PTR);
 879     else
 880     {
 881         size += sizeof(ULONG);
 882
 883         if (*phmf)
 884         {
 885             UINT mfsize;
 886
 887             size += 2 * sizeof(ULONG);
 888             mfsize = GetMetaFileBitsEx(*phmf, 0, NULL);
 889             size += mfsize;
 890         }
 891     }
 892
 893     return size;
 894 }
 895
 896 /******************************************************************************
 897  *           HMETAFILE_UserMarshal [OLE32.@]
 898  *
 899  * Marshals a metafile into a buffer.
 900  *
 901  * PARAMS
 902  *  pFlags  [I] Flags. See notes.
 903  *  pBuffer [I] Buffer to marshal the clip format into.
 904  *  phEmf   [I] Metafile to marshal.
 905  *
 906  * RETURNS
 907  *  The end of the marshaled data in the buffer.
 908  *
 909  * NOTES
 910  *  Even though the function is documented to take a pointer to a ULONG in
 911  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 912  *  the first parameter is a ULONG.
 913  *  This function is only intended to be called by the RPC runtime.
 914  */
 915 unsigned char * __RPC_USER HMETAFILE_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, HMETAFILE *phmf)
 916 {
 917     TRACE("(%s, %p, &%p\n", debugstr_user_flags(pFlags), pBuffer, *phmf);
 918
 919     ALIGN_POINTER(pBuffer, 3);
 920
 921     if (LOWORD(*pFlags) == MSHCTX_INPROC)
 922     {
 923         if (sizeof(*phmf) == 8)
 924             *(ULONG *)pBuffer = WDT_INPROC64_CALL;
 925         else
 926             *(ULONG *)pBuffer = WDT_INPROC_CALL;
 927         pBuffer += sizeof(ULONG);
 928         *(HMETAFILE *)pBuffer = *phmf;
 929         pBuffer += sizeof(HMETAFILE);
 930     }
 931     else
 932     {
 933         *(ULONG *)pBuffer = WDT_REMOTE_CALL;
 934         pBuffer += sizeof(ULONG);
 935         *(ULONG *)pBuffer = (ULONG)(ULONG_PTR)*phmf;
 936         pBuffer += sizeof(ULONG);
 937
 938         if (*phmf)
 939         {
 940             UINT mfsize = GetMetaFileBitsEx(*phmf, 0, NULL);
 941
 942             *(ULONG *)pBuffer = mfsize;
 943             pBuffer += sizeof(ULONG);
 944             *(ULONG *)pBuffer = mfsize;
 945             pBuffer += sizeof(ULONG);
 946             GetMetaFileBitsEx(*phmf, mfsize, pBuffer);
 947             pBuffer += mfsize;
 948         }
 949     }
 950
 951     return pBuffer;
 952 }
 953
 954 /******************************************************************************
 955  *           HMETAFILE_UserUnmarshal [OLE32.@]
 956  *
 957  * Unmarshals a metafile from a buffer.
 958  *
 959  * PARAMS
 960  *  pFlags   [I] Flags. See notes.
 961  *  pBuffer  [I] Buffer to marshal the clip format from.
 962  *  phmf     [O] Address that receive the unmarshaled metafile.
 963  *
 964  * RETURNS
 965  *  The end of the marshaled data in the buffer.
 966  *
 967  * NOTES
 968  *  Even though the function is documented to take a pointer to an ULONG in
 969  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
 970  *  the first parameter is an ULONG.
 971  *  This function is only intended to be called by the RPC runtime.
 972  */
 973 unsigned char * __RPC_USER HMETAFILE_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, HMETAFILE *phmf)
 974 {
 975     ULONG fContext;
 976
 977     TRACE("(%s, %p, %p\n", debugstr_user_flags(pFlags), pBuffer, phmf);
 978
 979     ALIGN_POINTER(pBuffer, 3);
 980
 981     fContext = *(ULONG *)pBuffer;
 982     pBuffer += sizeof(ULONG);
 983
 984     if (((fContext == WDT_INPROC_CALL) && (sizeof(*phmf) < 8)) ||
 985         ((fContext == WDT_INPROC64_CALL) && (sizeof(*phmf) == 8)))
 986     {
 987         *phmf = *(HMETAFILE *)pBuffer;
 988         pBuffer += sizeof(*phmf);
 989     }
 990     else if (fContext == WDT_REMOTE_CALL)
 991     {
 992         ULONG handle;
 993
 994         handle = *(ULONG *)pBuffer;
 995         pBuffer += sizeof(ULONG);
 996
 997         if (handle)
 998         {
 999             ULONG size;
1000             size = *(ULONG *)pBuffer;
1001             pBuffer += sizeof(ULONG);
1002             if (size != *(ULONG *)pBuffer)
1003             {
1004                 RaiseException(RPC_X_BAD_STUB_DATA, 0, 0, NULL);
1005                 return pBuffer;
1006             }
1007             pBuffer += sizeof(ULONG);
1008             *phmf = SetMetaFileBitsEx(size, pBuffer);
1009             pBuffer += size;
1010         }
1011         else
1012             *phmf = NULL;
1013     }
1014     else
1015         RaiseException(RPC_S_INVALID_TAG, 0, 0, NULL);
1016
1017     return pBuffer;
1018 }
1019
1020 /******************************************************************************
1021  *           HMETAFILE_UserFree [OLE32.@]
1022  *
1023  * Frees an unmarshaled metafile.
1024  *
1025  * PARAMS
1026  *  pFlags   [I] Flags. See notes.
1027  *  phmf     [I] Metafile to free.
1028  *
1029  * RETURNS
1030  *  The end of the marshaled data in the buffer.
1031  *
1032  * NOTES
1033  *  Even though the function is documented to take a pointer to a ULONG in
1034  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of
1035  *  which the first parameter is a ULONG.
1036  *  This function is only intended to be called by the RPC runtime.
1037  */
1038 void __RPC_USER HMETAFILE_UserFree(ULONG *pFlags, HMETAFILE *phmf)
1039 {
1040     TRACE("(%s, &%p\n", debugstr_user_flags(pFlags), *phmf);
1041
1042     if (LOWORD(*pFlags) != MSHCTX_INPROC)
1043         DeleteMetaFile(*phmf);
1044 }
1045
1046 /******************************************************************************
1047 *           HENHMETAFILE_UserSize [OLE32.@]
1048 *
1049 * Calculates the buffer size required to marshal an enhanced metafile.
1050 *
1051 * PARAMS
1052 *  pFlags       [I] Flags. See notes.
1053 *  StartingSize [I] Starting size of the buffer. This value is added on to
1054 *                   the buffer size required for the clip format.
1055 *  phEmf        [I] Enhanced metafile to size.
1056 *
1057 * RETURNS
1058 *  The buffer size required to marshal an enhanced metafile plus the starting size.
1059 *
1060 * NOTES
1061 *  Even though the function is documented to take a pointer to a ULONG in
1062 *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
1063 *  the first parameter is a ULONG.
1064 *  This function is only intended to be called by the RPC runtime.
1065 */
1066 ULONG __RPC_USER HENHMETAFILE_UserSize(ULONG *pFlags, ULONG StartingSize, HENHMETAFILE *phEmf)
1067 {
1068     ULONG size = StartingSize;
1069
1070     TRACE("(%s, %d, %p\n", debugstr_user_flags(pFlags), StartingSize, *phEmf);
1071
1072     size += sizeof(ULONG);
1073     if (LOWORD(*pFlags) == MSHCTX_INPROC)
1074         size += sizeof(ULONG_PTR);
1075     else
1076     {
1077         size += sizeof(ULONG);
1078
1079         if (*phEmf)
1080         {
1081             UINT emfsize;
1082
1083             size += 2 * sizeof(ULONG);
1084             emfsize = GetEnhMetaFileBits(*phEmf, 0, NULL);
1085             size += emfsize;
1086         }
1087     }
1088
1089     return size;
1090 }
1091
1092 /******************************************************************************
1093  *           HENHMETAFILE_UserMarshal [OLE32.@]
1094  *
1095  * Marshals an enhance metafile into a buffer.
1096  *
1097  * PARAMS
1098  *  pFlags  [I] Flags. See notes.
1099  *  pBuffer [I] Buffer to marshal the clip format into.
1100  *  phEmf   [I] Enhanced metafile to marshal.
1101  *
1102  * RETURNS
1103  *  The end of the marshaled data in the buffer.
1104  *
1105  * NOTES
1106  *  Even though the function is documented to take a pointer to a ULONG in
1107  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
1108  *  the first parameter is a ULONG.
1109  *  This function is only intended to be called by the RPC runtime.
1110  */
1111 unsigned char * __RPC_USER HENHMETAFILE_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, HENHMETAFILE *phEmf)
1112 {
1113     TRACE("(%s, %p, &%p\n", debugstr_user_flags(pFlags), pBuffer, *phEmf);
1114
1115     if (LOWORD(*pFlags) == MSHCTX_INPROC)
1116     {
1117         if (sizeof(*phEmf) == 8)
1118             *(ULONG *)pBuffer = WDT_INPROC64_CALL;
1119         else
1120             *(ULONG *)pBuffer = WDT_INPROC_CALL;
1121         pBuffer += sizeof(ULONG);
1122         *(HENHMETAFILE *)pBuffer = *phEmf;
1123         pBuffer += sizeof(HENHMETAFILE);
1124     }
1125     else
1126     {
1127         *(ULONG *)pBuffer = WDT_REMOTE_CALL;
1128         pBuffer += sizeof(ULONG);
1129         *(ULONG *)pBuffer = (ULONG)(ULONG_PTR)*phEmf;
1130         pBuffer += sizeof(ULONG);
1131
1132         if (*phEmf)
1133         {
1134             UINT emfsize = GetEnhMetaFileBits(*phEmf, 0, NULL);
1135
1136             *(ULONG *)pBuffer = emfsize;
1137             pBuffer += sizeof(ULONG);
1138             *(ULONG *)pBuffer = emfsize;
1139             pBuffer += sizeof(ULONG);
1140             GetEnhMetaFileBits(*phEmf, emfsize, pBuffer);
1141             pBuffer += emfsize;
1142         }
1143     }
1144
1145     return pBuffer;
1146 }
1147
1148 /******************************************************************************
1149  *           HENHMETAFILE_UserUnmarshal [OLE32.@]
1150  *
1151  * Unmarshals an enhanced metafile from a buffer.
1152  *
1153  * PARAMS
1154  *  pFlags   [I] Flags. See notes.
1155  *  pBuffer  [I] Buffer to marshal the clip format from.
1156  *  phEmf    [O] Address that receive the unmarshaled enhanced metafile.
1157  *
1158  * RETURNS
1159  *  The end of the marshaled data in the buffer.
1160  *
1161  * NOTES
1162  *  Even though the function is documented to take a pointer to an ULONG in
1163  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
1164  *  the first parameter is an ULONG.
1165  *  This function is only intended to be called by the RPC runtime.
1166  */
1167 unsigned char * __RPC_USER HENHMETAFILE_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, HENHMETAFILE *phEmf)
1168 {
1169     ULONG fContext;
1170
1171     TRACE("(%s, %p, %p\n", debugstr_user_flags(pFlags), pBuffer, phEmf);
1172
1173     fContext = *(ULONG *)pBuffer;
1174     pBuffer += sizeof(ULONG);
1175
1176     if (((fContext == WDT_INPROC_CALL) && (sizeof(*phEmf) < 8)) ||
1177         ((fContext == WDT_INPROC64_CALL) && (sizeof(*phEmf) == 8)))
1178     {
1179         *phEmf = *(HENHMETAFILE *)pBuffer;
1180         pBuffer += sizeof(*phEmf);
1181     }
1182     else if (fContext == WDT_REMOTE_CALL)
1183     {
1184         ULONG handle;
1185
1186         handle = *(ULONG *)pBuffer;
1187         pBuffer += sizeof(ULONG);
1188
1189         if (handle)
1190         {
1191             ULONG size;
1192             size = *(ULONG *)pBuffer;
1193             pBuffer += sizeof(ULONG);
1194             if (size != *(ULONG *)pBuffer)
1195             {
1196                 RaiseException(RPC_X_BAD_STUB_DATA, 0, 0, NULL);
1197                 return pBuffer;
1198             }
1199             pBuffer += sizeof(ULONG);
1200             *phEmf = SetEnhMetaFileBits(size, pBuffer);
1201             pBuffer += size;
1202         }
1203         else
1204             *phEmf = NULL;
1205     }
1206     else
1207         RaiseException(RPC_S_INVALID_TAG, 0, 0, NULL);
1208
1209     return pBuffer;
1210 }
1211
1212 /******************************************************************************
1213  *           HENHMETAFILE_UserFree [OLE32.@]
1214  *
1215  * Frees an unmarshaled enhanced metafile.
1216  *
1217  * PARAMS
1218  *  pFlags   [I] Flags. See notes.
1219  *  phEmf    [I] Enhanced metafile to free.
1220  *
1221  * RETURNS
1222  *  The end of the marshaled data in the buffer.
1223  *
1224  * NOTES
1225  *  Even though the function is documented to take a pointer to a ULONG in
1226  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of
1227  *  which the first parameter is a ULONG.
1228  *  This function is only intended to be called by the RPC runtime.
1229  */
1230 void __RPC_USER HENHMETAFILE_UserFree(ULONG *pFlags, HENHMETAFILE *phEmf)
1231 {
1232     TRACE("(%s, &%p\n", debugstr_user_flags(pFlags), *phEmf);
1233
1234     if (LOWORD(*pFlags) != MSHCTX_INPROC)
1235         DeleteEnhMetaFile(*phEmf);
1236 }
1237
1238 /******************************************************************************
1239  *           HMETAFILEPICT_UserSize [OLE32.@]
1240  *
1241  * Calculates the buffer size required to marshal an metafile pict.
1242  *
1243  * PARAMS
1244  *  pFlags       [I] Flags. See notes.
1245  *  StartingSize [I] Starting size of the buffer. This value is added on to
1246  *                   the buffer size required for the clip format.
1247  *  phMfp        [I] Metafile pict to size.
1248  *
1249  * RETURNS
1250  *  The buffer size required to marshal a metafile pict plus the starting size.
1251  *
1252  * NOTES
1253  *  Even though the function is documented to take a pointer to a ULONG in
1254  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
1255  *  the first parameter is a ULONG.
1256  *  This function is only intended to be called by the RPC runtime.
1257  */
1258 ULONG __RPC_USER HMETAFILEPICT_UserSize(ULONG *pFlags, ULONG StartingSize, HMETAFILEPICT *phMfp)
1259 {
1260     ULONG size = StartingSize;
1261
1262     TRACE("(%s, %d, &%p)\n", debugstr_user_flags(pFlags), StartingSize, *phMfp);
1263
1264     size += sizeof(ULONG);
1265     size += sizeof(HMETAFILEPICT);
1266
1267     if ((LOWORD(*pFlags) != MSHCTX_INPROC) && *phMfp)
1268     {
1269         METAFILEPICT *mfpict = GlobalLock(*phMfp);
1270
1271         /* FIXME: raise an exception if mfpict is NULL? */
1272         size += FIELD_OFFSET(remoteMETAFILEPICT, hMF);
1273         size += sizeof(ULONG);
1274
1275         size = HMETAFILE_UserSize(pFlags, size, &mfpict->hMF);
1276
1277         GlobalUnlock(*phMfp);
1278     }
1279
1280     return size;
1281 }
1282
1283 /******************************************************************************
1284  *           HMETAFILEPICT_UserMarshal [OLE32.@]
1285  *
1286  * Marshals a metafile pict into a buffer.
1287  *
1288  * PARAMS
1289  *  pFlags  [I] Flags. See notes.
1290  *  pBuffer [I] Buffer to marshal the clip format into.
1291  *  phMfp   [I] Metafile pict to marshal.
1292  *
1293  * RETURNS
1294  *  The end of the marshaled data in the buffer.
1295  *
1296  * NOTES
1297  *  Even though the function is documented to take a pointer to a ULONG in
1298  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
1299  *  the first parameter is a ULONG.
1300  *  This function is only intended to be called by the RPC runtime.
1301  */
1302 unsigned char * __RPC_USER HMETAFILEPICT_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, HMETAFILEPICT *phMfp)
1303 {
1304     TRACE("(%s, %p, &%p)\n", debugstr_user_flags(pFlags), pBuffer, *phMfp);
1305
1306     if (LOWORD(*pFlags) == MSHCTX_INPROC)
1307         *(ULONG *)pBuffer = WDT_INPROC_CALL;
1308     else
1309         *(ULONG *)pBuffer = WDT_REMOTE_CALL;
1310     pBuffer += sizeof(ULONG);
1311
1312     *(HMETAFILEPICT *)pBuffer = *phMfp;
1313     pBuffer += sizeof(HMETAFILEPICT);
1314
1315     if ((LOWORD(*pFlags) != MSHCTX_INPROC) && *phMfp)
1316     {
1317         METAFILEPICT *mfpict = GlobalLock(*phMfp);
1318         remoteMETAFILEPICT * remmfpict = (remoteMETAFILEPICT *)pBuffer;
1319
1320         /* FIXME: raise an exception if mfpict is NULL? */
1321         remmfpict->mm = mfpict->mm;
1322         remmfpict->xExt = mfpict->xExt;
1323         remmfpict->yExt = mfpict->yExt;
1324         pBuffer += FIELD_OFFSET(remoteMETAFILEPICT, hMF);
1325         *(ULONG *)pBuffer = USER_MARSHAL_PTR_PREFIX;
1326         pBuffer += sizeof(ULONG);
1327
1328         pBuffer = HMETAFILE_UserMarshal(pFlags, pBuffer, &mfpict->hMF);
1329
1330         GlobalUnlock(*phMfp);
1331     }
1332
1333     return pBuffer;
1334 }
1335
1336 /******************************************************************************
1337  *           HMETAFILEPICT_UserUnmarshal [OLE32.@]
1338  *
1339  * Unmarshals an metafile pict from a buffer.
1340  *
1341  * PARAMS
1342  *  pFlags   [I] Flags. See notes.
1343  *  pBuffer  [I] Buffer to marshal the clip format from.
1344  *  phMfp    [O] Address that receive the unmarshaled metafile pict.
1345  *
1346  * RETURNS
1347  *  The end of the marshaled data in the buffer.
1348  *
1349  * NOTES
1350  *  Even though the function is documented to take a pointer to an ULONG in
1351  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
1352  *  the first parameter is an ULONG.
1353  *  This function is only intended to be called by the RPC runtime.
1354  */
1355 unsigned char * __RPC_USER HMETAFILEPICT_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, HMETAFILEPICT *phMfp)
1356 {
1357     ULONG fContext;
1358
1359     TRACE("(%s, %p, %p)\n", debugstr_user_flags(pFlags), pBuffer, phMfp);
1360
1361     fContext = *(ULONG *)pBuffer;
1362     pBuffer += sizeof(ULONG);
1363
1364     if ((fContext == WDT_INPROC_CALL) || !*(HMETAFILEPICT *)pBuffer)
1365     {
1366         *phMfp = *(HMETAFILEPICT *)pBuffer;
1367         pBuffer += sizeof(HMETAFILEPICT);
1368     }
1369     else
1370     {
1371         METAFILEPICT *mfpict;
1372         const remoteMETAFILEPICT *remmfpict;
1373         ULONG user_marshal_prefix;
1374
1375         pBuffer += sizeof(HMETAFILEPICT);
1376         remmfpict = (const remoteMETAFILEPICT *)pBuffer;
1377
1378         *phMfp = GlobalAlloc(GMEM_MOVEABLE, sizeof(METAFILEPICT));
1379         if (!*phMfp)
1380             RpcRaiseException(E_OUTOFMEMORY);
1381
1382         mfpict = GlobalLock(*phMfp);
1383         mfpict->mm = remmfpict->mm;
1384         mfpict->xExt = remmfpict->xExt;
1385         mfpict->yExt = remmfpict->yExt;
1386         pBuffer += FIELD_OFFSET(remoteMETAFILEPICT, hMF);
1387         user_marshal_prefix = *(ULONG *)pBuffer;
1388         pBuffer += sizeof(ULONG);
1389
1390         if (user_marshal_prefix != USER_MARSHAL_PTR_PREFIX)
1391             RpcRaiseException(RPC_X_INVALID_TAG);
1392
1393         pBuffer = HMETAFILE_UserUnmarshal(pFlags, pBuffer, &mfpict->hMF);
1394
1395         GlobalUnlock(*phMfp);
1396     }
1397
1398     return pBuffer;
1399 }
1400
1401 /******************************************************************************
1402  *           HMETAFILEPICT_UserFree [OLE32.@]
1403  *
1404  * Frees an unmarshaled metafile pict.
1405  *
1406  * PARAMS
1407  *  pFlags   [I] Flags. See notes.
1408  *  phMfp    [I] Metafile pict to free.
1409  *
1410  * RETURNS
1411  *  The end of the marshaled data in the buffer.
1412  *
1413  * NOTES
1414  *  Even though the function is documented to take a pointer to a ULONG in
1415  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of
1416  *  which the first parameter is a ULONG.
1417  *  This function is only intended to be called by the RPC runtime.
1418  */
1419 void __RPC_USER HMETAFILEPICT_UserFree(ULONG *pFlags, HMETAFILEPICT *phMfp)
1420 {
1421     TRACE("(%s, &%p)\n", debugstr_user_flags(pFlags), *phMfp);
1422
1423     if ((LOWORD(*pFlags) == MSHCTX_INPROC) && *phMfp)
1424     {
1425         METAFILEPICT *mfpict;
1426
1427         mfpict = GlobalLock(*phMfp);
1428         /* FIXME: raise an exception if mfpict is NULL? */
1429
1430         GlobalUnlock(*phMfp);
1431     }
1432 }
1433
1434 /******************************************************************************
1435 *           STGMEDIUM_UserSize [OLE32.@]
1436 *
1437 * Calculates the buffer size required to marshal an STGMEDIUM.
1438 *
1439 * PARAMS
1440 *  pFlags       [I] Flags. See notes.
1441 *  StartingSize [I] Starting size of the buffer. This value is added on to
1442 *                   the buffer size required for the clip format.
1443 *  pStgMedium   [I] STGMEDIUM to size.
1444 *
1445 * RETURNS
1446 *  The buffer size required to marshal an STGMEDIUM plus the starting size.
1447 *
1448 * NOTES
1449 *  Even though the function is documented to take a pointer to a ULONG in
1450 *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
1451 *  the first parameter is a ULONG.
1452 *  This function is only intended to be called by the RPC runtime.
1453 */
1454 ULONG __RPC_USER STGMEDIUM_UserSize(ULONG *pFlags, ULONG StartingSize, STGMEDIUM *pStgMedium)
1455 {
1456     ULONG size = StartingSize;
1457
1458     TRACE("(%s, %d, %p\n", debugstr_user_flags(pFlags), StartingSize, pStgMedium);
1459
1460     ALIGN_LENGTH(size, 3);
1461
1462     size += 2 * sizeof(DWORD);
1463     if (pStgMedium->tymed != TYMED_NULL)
1464         size += sizeof(DWORD);
1465
1466     switch (pStgMedium->tymed)
1467     {
1468     case TYMED_NULL:
1469         TRACE("TYMED_NULL\n");
1470         break;
1471     case TYMED_HGLOBAL:
1472         TRACE("TYMED_HGLOBAL\n");
1473         if (pStgMedium->u.hGlobal)
1474             size = HGLOBAL_UserSize(pFlags, size, &pStgMedium->u.hGlobal);
1475         break;
1476     case TYMED_FILE:
1477         TRACE("TYMED_FILE\n");
1478         if (pStgMedium->u.lpszFileName)
1479         {
1480             TRACE("file name is %s\n", debugstr_w(pStgMedium->u.lpszFileName));
1481             size += 3 * sizeof(DWORD) +
1482                 (strlenW(pStgMedium->u.lpszFileName) + 1) * sizeof(WCHAR);
1483         }
1484         break;
1485     case TYMED_ISTREAM:
1486         TRACE("TYMED_ISTREAM\n");
1487         if (pStgMedium->u.pstm)
1488         {
1489             FIXME("not implemented for IStream %p\n", pStgMedium->u.pstm);
1490         }
1491         break;
1492     case TYMED_ISTORAGE:
1493         TRACE("TYMED_ISTORAGE\n");
1494         if (pStgMedium->u.pstg)
1495         {
1496             FIXME("not implemented for IStorage %p\n", pStgMedium->u.pstg);
1497         }
1498         break;
1499     case TYMED_GDI:
1500         TRACE("TYMED_GDI\n");
1501         if (pStgMedium->u.hBitmap)
1502         {
1503             FIXME("not implemented for GDI object %p\n", pStgMedium->u.hBitmap);
1504         }
1505         break;
1506     case TYMED_MFPICT:
1507         TRACE("TYMED_MFPICT\n");
1508         if (pStgMedium->u.hMetaFilePict)
1509             size = HMETAFILEPICT_UserSize(pFlags, size, &pStgMedium->u.hMetaFilePict);
1510         break;
1511     case TYMED_ENHMF:
1512         TRACE("TYMED_ENHMF\n");
1513         if (pStgMedium->u.hEnhMetaFile)
1514             size = HENHMETAFILE_UserSize(pFlags, size, &pStgMedium->u.hEnhMetaFile);
1515         break;
1516     default:
1517         RaiseException(DV_E_TYMED, 0, 0, NULL);
1518     }
1519
1520     if (pStgMedium->pUnkForRelease)
1521         FIXME("buffer size pUnkForRelease\n");
1522
1523     return size;
1524 }
1525
1526 /******************************************************************************
1527  *           STGMEDIUM_UserMarshal [OLE32.@]
1528  *
1529  * Marshals a STGMEDIUM into a buffer.
1530  *
1531  * PARAMS
1532  *  pFlags  [I] Flags. See notes.
1533  *  pBuffer [I] Buffer to marshal the clip format into.
1534  *  pCF     [I] STGMEDIUM to marshal.
1535  *
1536  * RETURNS
1537  *  The end of the marshaled data in the buffer.
1538  *
1539  * NOTES
1540  *  Even though the function is documented to take a pointer to a ULONG in
1541  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
1542  *  the first parameter is a ULONG.
1543  *  This function is only intended to be called by the RPC runtime.
1544  */
1545 unsigned char * __RPC_USER STGMEDIUM_UserMarshal(ULONG *pFlags, unsigned char *pBuffer, STGMEDIUM *pStgMedium)
1546 {
1547     TRACE("(%s, %p, %p\n", debugstr_user_flags(pFlags), pBuffer, pStgMedium);
1548
1549     ALIGN_POINTER(pBuffer, 3);
1550
1551     *(DWORD *)pBuffer = pStgMedium->tymed;
1552     pBuffer += sizeof(DWORD);
1553     if (pStgMedium->tymed != TYMED_NULL)
1554     {
1555         *(DWORD *)pBuffer = (DWORD)(DWORD_PTR)pStgMedium->u.pstg;
1556         pBuffer += sizeof(DWORD);
1557     }
1558     *(DWORD *)pBuffer = (DWORD)(DWORD_PTR)pStgMedium->pUnkForRelease;
1559     pBuffer += sizeof(DWORD);
1560
1561     switch (pStgMedium->tymed)
1562     {
1563     case TYMED_NULL:
1564         TRACE("TYMED_NULL\n");
1565         break;
1566     case TYMED_HGLOBAL:
1567         TRACE("TYMED_HGLOBAL\n");
1568         if (pStgMedium->u.hGlobal)
1569             pBuffer = HGLOBAL_UserMarshal(pFlags, pBuffer, &pStgMedium->u.hGlobal);
1570         break;
1571     case TYMED_FILE:
1572         TRACE("TYMED_FILE\n");
1573         if (pStgMedium->u.lpszFileName)
1574         {
1575             DWORD len;
1576             len = strlenW(pStgMedium->u.lpszFileName);
1577             /* conformance */
1578             *(DWORD *)pBuffer = len + 1;
1579             pBuffer += sizeof(DWORD);
1580             /* offset */
1581             *(DWORD *)pBuffer = 0;
1582             pBuffer += sizeof(DWORD);
1583             /* variance */
1584             *(DWORD *)pBuffer = len + 1;
1585             pBuffer += sizeof(DWORD);
1586
1587             TRACE("file name is %s\n", debugstr_w(pStgMedium->u.lpszFileName));
1588             memcpy(pBuffer, pStgMedium->u.lpszFileName, (len + 1) * sizeof(WCHAR));
1589         }
1590         break;
1591     case TYMED_ISTREAM:
1592         TRACE("TYMED_ISTREAM\n");
1593         if (pStgMedium->u.pstm)
1594         {
1595             FIXME("not implemented for IStream %p\n", pStgMedium->u.pstm);
1596         }
1597         break;
1598     case TYMED_ISTORAGE:
1599         TRACE("TYMED_ISTORAGE\n");
1600         if (pStgMedium->u.pstg)
1601         {
1602             FIXME("not implemented for IStorage %p\n", pStgMedium->u.pstg);
1603         }
1604         break;
1605     case TYMED_GDI:
1606         TRACE("TYMED_GDI\n");
1607         if (pStgMedium->u.hBitmap)
1608         {
1609             FIXME("not implemented for GDI object %p\n", pStgMedium->u.hBitmap);
1610         }
1611         break;
1612     case TYMED_MFPICT:
1613         TRACE("TYMED_MFPICT\n");
1614         if (pStgMedium->u.hMetaFilePict)
1615             pBuffer = HMETAFILEPICT_UserMarshal(pFlags, pBuffer, &pStgMedium->u.hMetaFilePict);
1616         break;
1617     case TYMED_ENHMF:
1618         TRACE("TYMED_ENHMF\n");
1619         if (pStgMedium->u.hEnhMetaFile)
1620             pBuffer = HENHMETAFILE_UserMarshal(pFlags, pBuffer, &pStgMedium->u.hEnhMetaFile);
1621         break;
1622     default:
1623         RaiseException(DV_E_TYMED, 0, 0, NULL);
1624     }
1625
1626     if (pStgMedium->pUnkForRelease)
1627         FIXME("marshal pUnkForRelease\n");
1628
1629     return pBuffer;
1630 }
1631
1632 /******************************************************************************
1633  *           STGMEDIUM_UserUnmarshal [OLE32.@]
1634  *
1635  * Unmarshals a STGMEDIUM from a buffer.
1636  *
1637  * PARAMS
1638  *  pFlags     [I] Flags. See notes.
1639  *  pBuffer    [I] Buffer to marshal the clip format from.
1640  *  pStgMedium [O] Address that receive the unmarshaled STGMEDIUM.
1641  *
1642  * RETURNS
1643  *  The end of the marshaled data in the buffer.
1644  *
1645  * NOTES
1646  *  Even though the function is documented to take a pointer to an ULONG in
1647  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of which
1648  *  the first parameter is an ULONG.
1649  *  This function is only intended to be called by the RPC runtime.
1650  */
1651 unsigned char * __RPC_USER STGMEDIUM_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, STGMEDIUM *pStgMedium)
1652 {
1653     DWORD content = 0;
1654     DWORD releaseunk;
1655
1656     ALIGN_POINTER(pBuffer, 3);
1657
1658     TRACE("(%s, %p, %p\n", debugstr_user_flags(pFlags), pBuffer, pStgMedium);
1659
1660     pStgMedium->tymed = *(DWORD *)pBuffer;
1661     pBuffer += sizeof(DWORD);
1662     if (pStgMedium->tymed != TYMED_NULL)
1663     {
1664         content = *(DWORD *)pBuffer;
1665         pBuffer += sizeof(DWORD);
1666     }
1667     releaseunk = *(DWORD *)pBuffer;
1668     pBuffer += sizeof(DWORD);
1669
1670     switch (pStgMedium->tymed)
1671     {
1672     case TYMED_NULL:
1673         TRACE("TYMED_NULL\n");
1674         break;
1675     case TYMED_HGLOBAL:
1676         TRACE("TYMED_HGLOBAL\n");
1677         if (content)
1678             pBuffer = HGLOBAL_UserUnmarshal(pFlags, pBuffer, &pStgMedium->u.hGlobal);
1679         break;
1680     case TYMED_FILE:
1681         TRACE("TYMED_FILE\n");
1682         if (content)
1683         {
1684             DWORD conformance;
1685             DWORD variance;
1686             conformance = *(DWORD *)pBuffer;
1687             pBuffer += sizeof(DWORD);
1688             if (*(DWORD *)pBuffer != 0)
1689             {
1690                 ERR("invalid offset %d\n", *(DWORD *)pBuffer);
1691                 RpcRaiseException(RPC_S_INVALID_BOUND);
1692                 return NULL;
1693             }
1694             pBuffer += sizeof(DWORD);
1695             variance = *(DWORD *)pBuffer;
1696             pBuffer += sizeof(DWORD);
1697             if (conformance != variance)
1698             {
1699                 ERR("conformance (%d) and variance (%d) should be equal\n",
1700                     conformance, variance);
1701                 RpcRaiseException(RPC_S_INVALID_BOUND);
1702                 return NULL;
1703             }
1704             if (conformance > 0x7fffffff)
1705             {
1706                 ERR("conformance 0x%x too large\n", conformance);
1707                 RpcRaiseException(RPC_S_INVALID_BOUND);
1708                 return NULL;
1709             }
1710             pStgMedium->u.lpszFileName = CoTaskMemAlloc(conformance * sizeof(WCHAR));
1711             if (!pStgMedium->u.lpszFileName) RpcRaiseException(ERROR_OUTOFMEMORY);
1712             TRACE("unmarshalled file name is %s\n", debugstr_wn((const WCHAR *)pBuffer, variance));
1713             memcpy(pStgMedium->u.lpszFileName, pBuffer, variance * sizeof(WCHAR));
1714             pBuffer += variance * sizeof(WCHAR);
1715         }
1716         else
1717             pStgMedium->u.lpszFileName = NULL;
1718         break;
1719     case TYMED_ISTREAM:
1720         TRACE("TYMED_ISTREAM\n");
1721         if (content)
1722         {
1723             FIXME("not implemented for IStream\n");
1724         }
1725         else
1726             pStgMedium->u.pstm = NULL;
1727         break;
1728     case TYMED_ISTORAGE:
1729         TRACE("TYMED_ISTORAGE\n");
1730         if (content)
1731         {
1732             FIXME("not implemented for IStorage\n");
1733         }
1734         else
1735             pStgMedium->u.pstg = NULL;
1736         break;
1737     case TYMED_GDI:
1738         TRACE("TYMED_GDI\n");
1739         if (content)
1740         {
1741             FIXME("not implemented for GDI object\n");
1742         }
1743         else
1744             pStgMedium->u.hBitmap = NULL;
1745         break;
1746     case TYMED_MFPICT:
1747         TRACE("TYMED_MFPICT\n");
1748         if (content)
1749             pBuffer = HMETAFILEPICT_UserUnmarshal(pFlags, pBuffer, &pStgMedium->u.hMetaFilePict);
1750         else
1751             pStgMedium->u.hMetaFilePict = NULL;
1752         break;
1753     case TYMED_ENHMF:
1754         TRACE("TYMED_ENHMF\n");
1755         if (content)
1756             pBuffer = HENHMETAFILE_UserUnmarshal(pFlags, pBuffer, &pStgMedium->u.hEnhMetaFile);
1757         else
1758             pStgMedium->u.hEnhMetaFile = NULL;
1759         break;
1760     default:
1761         RaiseException(DV_E_TYMED, 0, 0, NULL);
1762     }
1763
1764     pStgMedium->pUnkForRelease = NULL;
1765     if (releaseunk)
1766         FIXME("unmarshal pUnkForRelease\n");
1767
1768     return pBuffer;
1769 }
1770
1771 /******************************************************************************
1772  *           STGMEDIUM_UserFree [OLE32.@]
1773  *
1774  * Frees an unmarshaled STGMEDIUM.
1775  *
1776  * PARAMS
1777  *  pFlags     [I] Flags. See notes.
1778  *  pStgmedium [I] STGMEDIUM to free.
1779  *
1780  * RETURNS
1781  *  The end of the marshaled data in the buffer.
1782  *
1783  * NOTES
1784  *  Even though the function is documented to take a pointer to a ULONG in
1785  *  pFlags, it actually takes a pointer to a USER_MARSHAL_CB structure, of
1786  *  which the first parameter is a ULONG.
1787  *  This function is only intended to be called by the RPC runtime.
1788  */
1789 void __RPC_USER STGMEDIUM_UserFree(ULONG *pFlags, STGMEDIUM *pStgMedium)
1790 {
1791     TRACE("(%s, %p\n", debugstr_user_flags(pFlags), pStgMedium);
1792
1793     ReleaseStgMedium(pStgMedium);
1794 }
1795
1796 ULONG __RPC_USER ASYNC_STGMEDIUM_UserSize(ULONG *pFlags, ULONG StartingSize, ASYNC_STGMEDIUM *pStgMedium)
1797 {
1798     FIXME(":stub\n");
1799     return StartingSize;
1800 }
1801
1802 unsigned char * __RPC_USER ASYNC_STGMEDIUM_UserMarshal(  ULONG *pFlags, unsigned char *pBuffer, ASYNC_STGMEDIUM *pStgMedium)
1803 {
1804     FIXME(":stub\n");
1805     return pBuffer;
1806 }
1807
1808 unsigned char * __RPC_USER ASYNC_STGMEDIUM_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, ASYNC_STGMEDIUM *pStgMedium)
1809 {
1810     FIXME(":stub\n");
1811     return pBuffer;
1812 }
1813
1814 void __RPC_USER ASYNC_STGMEDIUM_UserFree(ULONG *pFlags, ASYNC_STGMEDIUM *pStgMedium)
1815 {
1816     FIXME(":stub\n");
1817 }
1818
1819 ULONG __RPC_USER FLAG_STGMEDIUM_UserSize(ULONG *pFlags, ULONG StartingSize, FLAG_STGMEDIUM *pStgMedium)
1820 {
1821     FIXME(":stub\n");
1822     return StartingSize;
1823 }
1824
1825 unsigned char * __RPC_USER FLAG_STGMEDIUM_UserMarshal(  ULONG *pFlags, unsigned char *pBuffer, FLAG_STGMEDIUM *pStgMedium)
1826 {
1827     FIXME(":stub\n");
1828     return pBuffer;
1829 }
1830
1831 unsigned char * __RPC_USER FLAG_STGMEDIUM_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, FLAG_STGMEDIUM *pStgMedium)
1832 {
1833     FIXME(":stub\n");
1834     return pBuffer;
1835 }
1836
1837 void __RPC_USER FLAG_STGMEDIUM_UserFree(ULONG *pFlags, FLAG_STGMEDIUM *pStgMedium)
1838 {
1839     FIXME(":stub\n");
1840 }
1841
1842 ULONG __RPC_USER SNB_UserSize(ULONG *pFlags, ULONG StartingSize, SNB *pSnb)
1843 {
1844     FIXME(":stub\n");
1845     return StartingSize;
1846 }
1847
1848 unsigned char * __RPC_USER SNB_UserMarshal(  ULONG *pFlags, unsigned char *pBuffer, SNB *pSnb)
1849 {
1850     FIXME(":stub\n");
1851     return pBuffer;
1852 }
1853
1854 unsigned char * __RPC_USER SNB_UserUnmarshal(ULONG *pFlags, unsigned char *pBuffer, SNB *pSnb)
1855 {
1856     FIXME(":stub\n");
1857     return pBuffer;
1858 }
1859
1860 void __RPC_USER SNB_UserFree(ULONG *pFlags, SNB *pSnb)
1861 {
1862     FIXME(":stub\n");
1863 }