MSVCRT___RTDynamicCast: Reject a NULL cppobj.
[wine] / dlls / rpcrt4 / ndr_marshall.c
1 /*
2  * NDR data marshalling
3  *
4  * Copyright 2002 Greg Turner
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  *  - figure out whether we *really* got this right
22  *  - check for errors and throw exceptions
23  */
24
25 #include <stdarg.h>
26 #include <stdio.h>
27 #include <string.h>
28 #include <assert.h>
29
30 #include "windef.h"
31 #include "winbase.h"
32 #include "winerror.h"
33 #include "winreg.h"
34
35 #include "ndr_misc.h"
36 #include "rpcndr.h"
37
38 #include "wine/unicode.h"
39 #include "wine/rpcfc.h"
40
41 #include "wine/debug.h"
42
43 WINE_DEFAULT_DEBUG_CHANNEL(ole);
44
45 #define BUFFER_PARANOIA 20
46
47 #if defined(__i386__)
48   #define LITTLE_ENDIAN_UINT32_WRITE(pchar, uint32) \
49     (*((UINT32 *)(pchar)) = (uint32))
50
51   #define LITTLE_ENDIAN_UINT32_READ(pchar) \
52     (*((UINT32 *)(pchar)))
53 #else
54   /* these would work for i386 too, but less efficient */
55   #define LITTLE_ENDIAN_UINT32_WRITE(pchar, uint32) \
56     (*(pchar)     = LOBYTE(LOWORD(uint32)), \
57      *((pchar)+1) = HIBYTE(LOWORD(uint32)), \
58      *((pchar)+2) = LOBYTE(HIWORD(uint32)), \
59      *((pchar)+3) = HIBYTE(HIWORD(uint32)), \
60      (uint32)) /* allow as r-value */
61
62   #define LITTLE_ENDIAN_UINT32_READ(pchar) \
63     (MAKELONG( \
64       MAKEWORD(*(pchar), *((pchar)+1)), \
65       MAKEWORD(*((pchar)+2), *((pchar)+3))))
66 #endif
67
68 #define BIG_ENDIAN_UINT32_WRITE(pchar, uint32) \
69   (*((pchar)+3) = LOBYTE(LOWORD(uint32)), \
70    *((pchar)+2) = HIBYTE(LOWORD(uint32)), \
71    *((pchar)+1) = LOBYTE(HIWORD(uint32)), \
72    *(pchar)     = HIBYTE(HIWORD(uint32)), \
73    (uint32)) /* allow as r-value */
74
75 #define BIG_ENDIAN_UINT32_READ(pchar) \
76   (MAKELONG( \
77     MAKEWORD(*((pchar)+3), *((pchar)+2)), \
78     MAKEWORD(*((pchar)+1), *(pchar))))
79
80 #ifdef NDR_LOCAL_IS_BIG_ENDIAN
81   #define NDR_LOCAL_UINT32_WRITE(pchar, uint32) \
82     BIG_ENDIAN_UINT32_WRITE(pchar, uint32)
83   #define NDR_LOCAL_UINT32_READ(pchar) \
84     BIG_ENDIAN_UINT32_READ(pchar)
85 #else
86   #define NDR_LOCAL_UINT32_WRITE(pchar, uint32) \
87     LITTLE_ENDIAN_UINT32_WRITE(pchar, uint32)
88   #define NDR_LOCAL_UINT32_READ(pchar) \
89     LITTLE_ENDIAN_UINT32_READ(pchar)
90 #endif
91
92 /* _Align must be the desired alignment minus 1,
93  * e.g. ALIGN_LENGTH(len, 3) to align on a dword boundary. */
94 #define ALIGNED_LENGTH(_Len, _Align) (((_Len)+(_Align))&~(_Align))
95 #define ALIGNED_POINTER(_Ptr, _Align) ((LPVOID)ALIGNED_LENGTH((ULONG_PTR)(_Ptr), _Align))
96 #define ALIGN_LENGTH(_Len, _Align) _Len = ALIGNED_LENGTH(_Len, _Align)
97 #define ALIGN_POINTER(_Ptr, _Align) _Ptr = ALIGNED_POINTER(_Ptr, _Align)
98
99 #define STD_OVERFLOW_CHECK(_Msg) do { \
100     TRACE("buffer=%d/%ld\n", _Msg->Buffer - _Msg->BufferStart, _Msg->BufferLength); \
101     if (_Msg->Buffer > _Msg->BufferEnd) ERR("buffer overflow %d bytes\n", _Msg->Buffer - _Msg->BufferEnd); \
102   } while (0)
103
104 #define NDR_TABLE_SIZE 128
105 #define NDR_TABLE_MASK 127
106
107 NDR_MARSHALL NdrMarshaller[NDR_TABLE_SIZE] = {
108   0, 0, 0, 0, 0, 0, 0, 0,
109   0, 0, 0, 0, 0, 0, 0, 0,
110   /* 0x10 */
111   0,
112   /* 0x11 */
113   NdrPointerMarshall, NdrPointerMarshall,
114   NdrPointerMarshall, NdrPointerMarshall,
115   /* 0x15 */
116   NdrSimpleStructMarshall, NdrSimpleStructMarshall,
117   0, 0, 0,
118   NdrComplexStructMarshall,
119   /* 0x1b */
120   NdrConformantArrayMarshall, 0, 0, 0, 0, 0,
121   NdrComplexArrayMarshall,
122   /* 0x22 */
123   NdrConformantStringMarshall, 0, 0,
124   NdrConformantStringMarshall, 0, 0, 0, 0,
125   /* 0x2a */
126   0, 0, 0, 0, 0,
127   /* 0x2f */
128   NdrInterfacePointerMarshall,
129   /* 0xb0 */
130   0, 0, 0, 0,
131   NdrUserMarshalMarshall
132 };
133 NDR_UNMARSHALL NdrUnmarshaller[NDR_TABLE_SIZE] = {
134   0, 0, 0, 0, 0, 0, 0, 0,
135   0, 0, 0, 0, 0, 0, 0, 0,
136   /* 0x10 */
137   0,
138   /* 0x11 */
139   NdrPointerUnmarshall, NdrPointerUnmarshall,
140   NdrPointerUnmarshall, NdrPointerUnmarshall,
141   /* 0x15 */
142   NdrSimpleStructUnmarshall, NdrSimpleStructUnmarshall,
143   0, 0, 0,
144   NdrComplexStructUnmarshall,
145   /* 0x1b */
146   NdrConformantArrayUnmarshall, 0, 0, 0, 0, 0,
147   NdrComplexArrayUnmarshall,
148   /* 0x22 */
149   NdrConformantStringUnmarshall, 0, 0,
150   NdrConformantStringUnmarshall, 0, 0, 0, 0,
151   /* 0x2a */
152   0, 0, 0, 0, 0,
153   /* 0x2f */
154   NdrInterfacePointerUnmarshall,
155   /* 0xb0 */
156   0, 0, 0, 0,
157   NdrUserMarshalUnmarshall
158 };
159 NDR_BUFFERSIZE NdrBufferSizer[NDR_TABLE_SIZE] = {
160   0, 0, 0, 0, 0, 0, 0, 0,
161   0, 0, 0, 0, 0, 0, 0, 0,
162   /* 0x10 */
163   0,
164   /* 0x11 */
165   NdrPointerBufferSize, NdrPointerBufferSize,
166   NdrPointerBufferSize, NdrPointerBufferSize,
167   /* 0x15 */
168   NdrSimpleStructBufferSize, NdrSimpleStructBufferSize,
169   0, 0, 0,
170   NdrComplexStructBufferSize,
171   /* 0x1b */
172   NdrConformantArrayBufferSize, 0, 0, 0, 0, 0,
173   NdrComplexArrayBufferSize,
174   /* 0x22 */
175   NdrConformantStringBufferSize, 0, 0,
176   NdrConformantStringBufferSize, 0, 0, 0, 0,
177   /* 0x2a */
178   0, 0, 0, 0, 0,
179   /* 0x2f */
180   NdrInterfacePointerBufferSize,
181   /* 0xb0 */
182   0, 0, 0, 0,
183   NdrUserMarshalBufferSize
184 };
185 NDR_MEMORYSIZE NdrMemorySizer[NDR_TABLE_SIZE] = {
186   0, 0, 0, 0, 0, 0, 0, 0,
187   0, 0, 0, 0, 0, 0, 0, 0,
188   /* 0x10 */
189   0,
190   /* 0x11 */
191   NdrPointerMemorySize, NdrPointerMemorySize,
192   NdrPointerMemorySize, NdrPointerMemorySize,
193   /* 0x15 */
194   NdrSimpleStructMemorySize, NdrSimpleStructMemorySize,
195   0, 0, 0,
196   NdrComplexStructMemorySize,
197   /* 0x1b */
198   NdrConformantArrayMemorySize, 0, 0, 0, 0, 0,
199   NdrComplexArrayMemorySize,
200   /* 0x22 */
201   NdrConformantStringMemorySize, 0, 0,
202   NdrConformantStringMemorySize, 0, 0, 0, 0,
203   /* 0x2a */
204   0, 0, 0, 0, 0,
205   /* 0x2f */
206   NdrInterfacePointerMemorySize,
207   /* 0xb0 */
208   0, 0, 0, 0,
209   NdrUserMarshalMemorySize
210 };
211 NDR_FREE NdrFreer[NDR_TABLE_SIZE] = {
212   0, 0, 0, 0, 0, 0, 0, 0,
213   0, 0, 0, 0, 0, 0, 0, 0,
214   /* 0x10 */
215   0,
216   /* 0x11 */
217   NdrPointerFree, NdrPointerFree,
218   NdrPointerFree, NdrPointerFree,
219   /* 0x15 */
220   NdrSimpleStructFree, NdrSimpleStructFree,
221   0, 0, 0,
222   NdrComplexStructFree,
223   /* 0x1b */
224   NdrConformantArrayFree, 0, 0, 0, 0, 0,
225   NdrComplexArrayFree,
226   /* 0x22 */
227   0, 0, 0, 0, 0, 0, 0, 0,
228   /* 0x2a */
229   0, 0, 0, 0, 0,
230   /* 0x2f */
231   NdrInterfacePointerFree,
232   /* 0xb0 */
233   0, 0, 0, 0,
234   NdrUserMarshalFree
235 };
236
237 void * WINAPI NdrAllocate(MIDL_STUB_MESSAGE *pStubMsg, size_t len)
238 {
239   /* hmm, this is probably supposed to do more? */
240   return pStubMsg->pfnAllocate(len);
241 }
242
243 static void WINAPI NdrFree(MIDL_STUB_MESSAGE *pStubMsg, unsigned char *Pointer)
244 {
245   pStubMsg->pfnFree(Pointer);
246 }
247
248 PFORMAT_STRING ReadConformance(MIDL_STUB_MESSAGE *pStubMsg, PFORMAT_STRING pFormat)
249 {
250   pStubMsg->MaxCount = NDR_LOCAL_UINT32_READ(pStubMsg->Buffer);
251   pStubMsg->Buffer += 4;
252   TRACE("unmarshalled conformance is %ld\n", pStubMsg->MaxCount);
253   return pFormat+4;
254 }
255
256 PFORMAT_STRING ComputeConformance(MIDL_STUB_MESSAGE *pStubMsg, unsigned char *pMemory,
257                                   PFORMAT_STRING pFormat, ULONG_PTR def)
258 {
259   BYTE dtype = pFormat[0] & 0xf;
260   DWORD ofs = (DWORD)pFormat[2] | ((DWORD)pFormat[3] << 8);
261   LPVOID ptr = NULL;
262   DWORD data = 0;
263
264   if (pFormat[0] == 0xff) {
265     /* null descriptor */
266     pStubMsg->MaxCount = def;
267     goto finish_conf;
268   }
269
270   switch (pFormat[0] & 0xf0) {
271   case RPC_FC_NORMAL_CONFORMANCE:
272     TRACE("normal conformance, ofs=%ld\n", ofs);
273     ptr = pMemory + ofs;
274     break;
275   case RPC_FC_POINTER_CONFORMANCE:
276     TRACE("pointer conformance, ofs=%ld\n", ofs);
277     ptr = pStubMsg->Memory + ofs;
278     break;
279   case RPC_FC_TOP_LEVEL_CONFORMANCE:
280     TRACE("toplevel conformance, ofs=%ld\n", ofs);
281     if (pStubMsg->StackTop) {
282       ptr = pStubMsg->StackTop + ofs;
283     }
284     else {
285       /* -Os mode, MaxCount is already set */
286       goto finish_conf;
287     }
288     break;
289   case RPC_FC_CONSTANT_CONFORMANCE:
290     data = ofs | ((DWORD)pFormat[1] << 16);
291     TRACE("constant conformance, val=%ld\n", data);
292     pStubMsg->MaxCount = data;
293     goto finish_conf;
294   case RPC_FC_TOP_LEVEL_MULTID_CONFORMANCE:
295     FIXME("toplevel multidimensional conformance, ofs=%ld\n", ofs);
296     if (pStubMsg->StackTop) {
297       ptr = pStubMsg->StackTop + ofs;
298     }
299     else {
300       /* ? */
301       goto done_conf_grab;
302     }
303     break;
304   default:
305     FIXME("unknown conformance type %x\n", pFormat[0] & 0xf0);
306   }
307
308   switch (pFormat[1]) {
309   case RPC_FC_DEREFERENCE:
310     ptr = *(LPVOID*)ptr;
311     break;
312   case RPC_FC_CALLBACK:
313     /* ofs is index into StubDesc->apfnExprEval */
314     FIXME("handle callback\n");
315     goto finish_conf;
316   default:
317     break;
318   }
319
320   switch (dtype) {
321   case RPC_FC_LONG:
322   case RPC_FC_ULONG:
323     data = *(DWORD*)ptr;
324     break;
325   case RPC_FC_SHORT:
326     data = *(SHORT*)ptr;
327     break;
328   case RPC_FC_USHORT:
329     data = *(USHORT*)ptr;
330     break;
331   case RPC_FC_SMALL:
332     data = *(CHAR*)ptr;
333     break;
334   case RPC_FC_USMALL:
335     data = *(UCHAR*)ptr;
336     break;
337   default:
338     FIXME("unknown conformance data type %x\n", dtype);
339     goto done_conf_grab;
340   }
341   TRACE("dereferenced data type %x at %p, got %ld\n", dtype, ptr, data);
342
343 done_conf_grab:
344   switch (pFormat[1]) {
345   case 0: /* no op */
346     pStubMsg->MaxCount = data;
347     break;
348   case RPC_FC_DEREFERENCE:
349     /* already handled */
350     break;
351   default:
352     FIXME("unknown conformance op %d\n", pFormat[1]);
353     goto finish_conf;
354   }
355
356 finish_conf:
357   TRACE("resulting conformance is %ld\n", pStubMsg->MaxCount);
358   return pFormat+4;
359 }
360
361
362 /*
363  * NdrConformantString:
364  * 
365  * What MS calls a ConformantString is, in DCE terminology,
366  * a Varying-Conformant String.
367  * [
368  *   maxlen: DWORD (max # of CHARTYPE characters, inclusive of '\0')
369  *   offset: DWORD (actual string data begins at (offset) CHARTYPE's
370  *           into unmarshalled string) 
371  *   length: DWORD (# of CHARTYPE characters, inclusive of '\0')
372  *   [ 
373  *     data: CHARTYPE[maxlen]
374  *   ] 
375  * ], where CHARTYPE is the appropriate character type (specified externally)
376  *
377  */
378
379 /***********************************************************************
380  *            NdrConformantStringMarshall [RPCRT4.@]
381  */
382 unsigned char *WINAPI NdrConformantStringMarshall(MIDL_STUB_MESSAGE *pStubMsg,
383   unsigned char *pszMessage, PFORMAT_STRING pFormat)
384
385   unsigned long len, esize;
386   unsigned char *c;
387
388   TRACE("(pStubMsg == ^%p, pszMessage == ^%p, pFormat == ^%p)\n", pStubMsg, pszMessage, pFormat);
389   
390   assert(pFormat);
391   if (*pFormat == RPC_FC_C_CSTRING) {
392     TRACE("string=%s\n", debugstr_a(pszMessage));
393     len = strlen(pszMessage)+1;
394     esize = 1;
395   }
396   else if (*pFormat == RPC_FC_C_WSTRING) {
397     TRACE("string=%s\n", debugstr_w((LPWSTR)pszMessage));
398     len = strlenW((LPWSTR)pszMessage)+1;
399     esize = 2;
400   }
401   else {
402     ERR("Unhandled string type: %#x\n", *pFormat); 
403     /* FIXME: raise an exception. */
404     return NULL;
405   }
406
407   if (pFormat[1] != RPC_FC_PAD) {
408     FIXME("sized string format=%d\n", pFormat[1]);
409   }
410
411   assert( (pStubMsg->BufferLength >= (len*esize + 13)) && (pStubMsg->Buffer != NULL) );
412
413   c = pStubMsg->Buffer;
414   memset(c, 0, 12);
415   NDR_LOCAL_UINT32_WRITE(c, len); /* max length: strlen + 1 (for '\0') */
416   c += 8;                         /* offset: 0 */
417   NDR_LOCAL_UINT32_WRITE(c, len); /* actual length: (same) */
418   c += 4;
419   memcpy(c, pszMessage, len*esize); /* the string itself */
420   c += len*esize;
421   pStubMsg->Buffer = c;
422
423   STD_OVERFLOW_CHECK(pStubMsg);
424
425   /* success */
426   return NULL; /* is this always right? */
427 }
428
429 /***********************************************************************
430  *           NdrConformantStringBufferSize [RPCRT4.@]
431  */
432 void WINAPI NdrConformantStringBufferSize(PMIDL_STUB_MESSAGE pStubMsg,
433   unsigned char* pMemory, PFORMAT_STRING pFormat)
434 {
435   TRACE("(pStubMsg == ^%p, pMemory == ^%p, pFormat == ^%p)\n", pStubMsg, pMemory, pFormat);
436
437   assert(pFormat);
438   if (*pFormat == RPC_FC_C_CSTRING) {
439     /* we need 12 octets for the [maxlen, offset, len] DWORDS, + 1 octet for '\0' */
440     TRACE("string=%s\n", debugstr_a(pMemory));
441     pStubMsg->BufferLength += strlen(pMemory) + 13 + BUFFER_PARANOIA;
442   }
443   else if (*pFormat == RPC_FC_C_WSTRING) {
444     /* we need 12 octets for the [maxlen, offset, len] DWORDS, + 2 octets for L'\0' */
445     TRACE("string=%s\n", debugstr_w((LPWSTR)pMemory));
446     pStubMsg->BufferLength += strlenW((LPWSTR)pMemory)*2 + 14 + BUFFER_PARANOIA;
447   }
448   else {
449     ERR("Unhandled string type: %#x\n", *pFormat); 
450     /* FIXME: raise an exception */
451   }
452
453   if (pFormat[1] != RPC_FC_PAD) {
454     FIXME("sized string format=%d\n", pFormat[1]);
455   }
456 }
457
458 /************************************************************************
459  *            NdrConformantStringMemorySize [RPCRT4.@]
460  */
461 unsigned long WINAPI NdrConformantStringMemorySize( PMIDL_STUB_MESSAGE pStubMsg,
462   PFORMAT_STRING pFormat )
463 {
464   unsigned long rslt = 0;
465
466   TRACE("(pStubMsg == ^%p, pFormat == ^%p)\n", pStubMsg, pFormat);
467    
468   assert(pStubMsg && pFormat);
469
470   if (*pFormat == RPC_FC_C_CSTRING) {
471     rslt = NDR_LOCAL_UINT32_READ(pStubMsg->Buffer); /* maxlen */
472   }
473   else if (*pFormat == RPC_FC_C_WSTRING) {
474     rslt = NDR_LOCAL_UINT32_READ(pStubMsg->Buffer)*2; /* maxlen */
475   }
476   else {
477     ERR("Unhandled string type: %#x\n", *pFormat);
478     /* FIXME: raise an exception */
479   }
480
481   if (pFormat[1] != RPC_FC_PAD) {
482     FIXME("sized string format=%d\n", pFormat[1]);
483   }
484
485   TRACE("  --> %lu\n", rslt);
486   return rslt;
487 }
488
489 /************************************************************************
490  *           NdrConformantStringUnmarshall [RPCRT4.@]
491  */
492 unsigned char *WINAPI NdrConformantStringUnmarshall( PMIDL_STUB_MESSAGE pStubMsg,
493   unsigned char** ppMemory, PFORMAT_STRING pFormat, unsigned char fMustAlloc )
494 {
495   unsigned long len, esize, ofs;
496   unsigned char *pMem;
497
498   TRACE("(pStubMsg == ^%p, *pMemory == ^%p, pFormat == ^%p, fMustAlloc == %u)\n",
499     pStubMsg, *ppMemory, pFormat, fMustAlloc);
500
501   assert(pFormat && ppMemory && pStubMsg);
502
503   pStubMsg->Buffer += 4;
504   ofs = NDR_LOCAL_UINT32_READ(pStubMsg->Buffer);
505   pStubMsg->Buffer += 4;
506   len = NDR_LOCAL_UINT32_READ(pStubMsg->Buffer);
507   pStubMsg->Buffer += 4;
508
509   if (*pFormat == RPC_FC_C_CSTRING) esize = 1;
510   else if (*pFormat == RPC_FC_C_WSTRING) esize = 2;
511   else {
512     ERR("Unhandled string type: %#x\n", *pFormat);
513     /* FIXME: raise an exception */
514     esize = 0;
515   }
516
517   if (pFormat[1] != RPC_FC_PAD) {
518     FIXME("sized string format=%d\n", pFormat[1]);
519   }
520
521   if (fMustAlloc) {
522     *ppMemory = NdrAllocate(pStubMsg, len*esize + BUFFER_PARANOIA);
523   } else {
524     if (pStubMsg->ReuseBuffer && !*ppMemory)
525       /* for servers, we may just point straight into the RPC buffer, I think
526        * (I guess that's what MS does since MIDL code doesn't try to free) */
527       *ppMemory = pStubMsg->Buffer - ofs*esize;
528     /* for clients, memory should be provided by caller */
529   }
530
531   pMem = *ppMemory + ofs*esize;
532
533   if (pMem != pStubMsg->Buffer)
534     memcpy(pMem, pStubMsg->Buffer, len*esize);
535
536   pStubMsg->Buffer += len*esize;
537
538   if (*pFormat == RPC_FC_C_CSTRING) {
539     TRACE("string=%s\n", debugstr_a(pMem));
540   }
541   else if (*pFormat == RPC_FC_C_WSTRING) {
542     TRACE("string=%s\n", debugstr_w((LPWSTR)pMem));
543   }
544
545   return NULL; /* FIXME: is this always right? */
546 }
547
548 /***********************************************************************
549  *           PointerMarshall
550  */
551 void WINAPI PointerMarshall(PMIDL_STUB_MESSAGE pStubMsg,
552                             unsigned char *Buffer,
553                             unsigned char *Pointer,
554                             PFORMAT_STRING pFormat)
555 {
556   unsigned type = pFormat[0], attr = pFormat[1];
557   PFORMAT_STRING desc;
558   NDR_MARSHALL m;
559
560   TRACE("(%p,%p,%p,%p)\n", pStubMsg, Buffer, Pointer, pFormat);
561   TRACE("type=%d, attr=%d\n", type, attr);
562   pFormat += 2;
563   if (attr & RPC_FC_P_SIMPLEPOINTER) desc = pFormat;
564   else desc = pFormat + *(SHORT*)pFormat;
565   if (attr & RPC_FC_P_DEREF) {
566     Pointer = *(unsigned char**)Pointer;
567     TRACE("deref => %p\n", Pointer);
568   }
569
570   *(LPVOID*)Buffer = 0;
571
572   switch (type) {
573   case RPC_FC_RP: /* ref pointer (always non-null) */
574     break;
575   default:
576     FIXME("unhandled ptr type=%02x\n", type);
577   }
578
579   m = NdrMarshaller[*desc & NDR_TABLE_MASK];
580   if (m) m(pStubMsg, Pointer, desc);
581   else FIXME("no marshaller for data type=%02x\n", *desc);
582
583   STD_OVERFLOW_CHECK(pStubMsg);
584 }
585
586 /***********************************************************************
587  *           PointerUnmarshall
588  */
589 void WINAPI PointerUnmarshall(PMIDL_STUB_MESSAGE pStubMsg,
590                               unsigned char *Buffer,
591                               unsigned char **pPointer,
592                               PFORMAT_STRING pFormat,
593                               unsigned char fMustAlloc)
594 {
595   unsigned type = pFormat[0], attr = pFormat[1];
596   PFORMAT_STRING desc;
597   NDR_UNMARSHALL m;
598
599   TRACE("(%p,%p,%p,%p,%d)\n", pStubMsg, Buffer, pPointer, pFormat, fMustAlloc);
600   TRACE("type=%d, attr=%d\n", type, attr);
601   pFormat += 2;
602   if (attr & RPC_FC_P_SIMPLEPOINTER) desc = pFormat;
603   else desc = pFormat + *(SHORT*)pFormat;
604   if (attr & RPC_FC_P_DEREF) {
605     pPointer = *(unsigned char***)pPointer;
606     TRACE("deref => %p\n", pPointer);
607   }
608
609   switch (type) {
610   case RPC_FC_RP: /* ref pointer (always non-null) */
611     break;
612   default:
613     FIXME("unhandled ptr type=%02x\n", type);
614   }
615
616   *pPointer = NULL;
617
618   m = NdrUnmarshaller[*desc & NDR_TABLE_MASK];
619   if (m) m(pStubMsg, pPointer, desc, fMustAlloc);
620   else FIXME("no unmarshaller for data type=%02x\n", *desc);
621   TRACE("pointer=%p\n", *pPointer);
622 }
623
624 /***********************************************************************
625  *           PointerBufferSize
626  */
627 void WINAPI PointerBufferSize(PMIDL_STUB_MESSAGE pStubMsg,
628                               unsigned char *Pointer,
629                               PFORMAT_STRING pFormat)
630 {
631   unsigned type = pFormat[0], attr = pFormat[1];
632   PFORMAT_STRING desc;
633   NDR_BUFFERSIZE m;
634
635   TRACE("(%p,%p,%p)\n", pStubMsg, Pointer, pFormat);
636   TRACE("type=%d, attr=%d\n", type, attr);
637   pFormat += 2;
638   if (attr & RPC_FC_P_SIMPLEPOINTER) desc = pFormat;
639   else desc = pFormat + *(SHORT*)pFormat;
640   if (attr & RPC_FC_P_DEREF) {
641     Pointer = *(unsigned char**)Pointer;
642     TRACE("deref => %p\n", Pointer);
643   }
644
645   switch (type) {
646   case RPC_FC_RP: /* ref pointer (always non-null) */
647     break;
648   default:
649     FIXME("unhandled ptr type=%02x\n", type);
650   }
651
652   m = NdrBufferSizer[*desc & NDR_TABLE_MASK];
653   if (m) m(pStubMsg, Pointer, desc);
654   else FIXME("no buffersizer for data type=%02x\n", *desc);
655 }
656
657 /***********************************************************************
658  *           PointerMemorySize [RPCRT4.@]
659  */
660 unsigned long WINAPI PointerMemorySize(PMIDL_STUB_MESSAGE pStubMsg,
661                                        unsigned char *Buffer,
662                                        PFORMAT_STRING pFormat)
663 {
664   unsigned type = pFormat[0], attr = pFormat[1];
665   PFORMAT_STRING desc;
666   NDR_MEMORYSIZE m;
667
668   FIXME("(%p,%p,%p): stub\n", pStubMsg, Buffer, pFormat);
669   TRACE("type=%d, attr=%d\n", type, attr);
670   pFormat += 2;
671   if (attr & RPC_FC_P_SIMPLEPOINTER) desc = pFormat;
672   else desc = pFormat + *(SHORT*)pFormat;
673   if (attr & RPC_FC_P_DEREF) {
674     TRACE("deref\n");
675   }
676
677   switch (type) {
678   case RPC_FC_RP: /* ref pointer (always non-null) */
679     break;
680   default:
681     FIXME("unhandled ptr type=%02x\n", type);
682   }
683
684   m = NdrMemorySizer[*desc & NDR_TABLE_MASK];
685   if (m) m(pStubMsg, desc);
686   else FIXME("no memorysizer for data type=%02x\n", *desc);
687
688   return 0;
689 }
690
691 /***********************************************************************
692  *           PointerFree [RPCRT4.@]
693  */
694 void WINAPI PointerFree(PMIDL_STUB_MESSAGE pStubMsg,
695                         unsigned char *Pointer,
696                         PFORMAT_STRING pFormat)
697 {
698   unsigned type = pFormat[0], attr = pFormat[1];
699   PFORMAT_STRING desc;
700   NDR_FREE m;
701
702   TRACE("(%p,%p,%p)\n", pStubMsg, Pointer, pFormat);
703   TRACE("type=%d, attr=%d\n", type, attr);
704   if (attr & RPC_FC_P_DONTFREE) return;
705   pFormat += 2;
706   if (attr & RPC_FC_P_SIMPLEPOINTER) desc = pFormat;
707   else desc = pFormat + *(SHORT*)pFormat;
708   if (attr & RPC_FC_P_DEREF) {
709     Pointer = *(unsigned char**)Pointer;
710     TRACE("deref => %p\n", Pointer);
711   }
712
713   if (!Pointer) return;
714
715   m = NdrFreer[*desc & NDR_TABLE_MASK];
716   if (m) m(pStubMsg, Pointer, desc);
717
718   /* hmm... is this sensible?
719    * perhaps we should check if the memory comes from NdrAllocate,
720    * and deallocate only if so - checking if the pointer is between
721    * BufferStart and BufferEnd is probably no good since the buffer
722    * may be reallocated when the server wants to marshal the reply */
723   switch (*desc) {
724   case RPC_FC_BOGUS_STRUCT:
725   case RPC_FC_BOGUS_ARRAY:
726   case RPC_FC_USER_MARSHAL:
727     break;
728   default:
729     FIXME("unhandled data type=%02x\n", *desc);
730   case RPC_FC_CARRAY:
731   case RPC_FC_C_CSTRING:
732   case RPC_FC_C_WSTRING:
733     if (pStubMsg->ReuseBuffer) goto notfree;
734     break;
735   case RPC_FC_IP:
736     goto notfree;
737   }
738
739   if (attr & RPC_FC_P_ONSTACK) {
740     TRACE("not freeing stack ptr %p\n", Pointer);
741     return;
742   }
743   TRACE("freeing %p\n", Pointer);
744   NdrFree(pStubMsg, Pointer);
745   return;
746 notfree:
747   TRACE("not freeing %p\n", Pointer);
748 }
749
750 /***********************************************************************
751  *           EmbeddedPointerMarshall
752  */
753 unsigned char * WINAPI EmbeddedPointerMarshall(PMIDL_STUB_MESSAGE pStubMsg,
754                                                unsigned char *pMemory,
755                                                PFORMAT_STRING pFormat)
756 {
757   unsigned char *Mark = pStubMsg->BufferMark;
758   unsigned long Offset = pStubMsg->Offset;
759   unsigned ofs, rep, count, stride, xofs;
760
761   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
762
763   if (*pFormat != RPC_FC_PP) return NULL;
764   pFormat += 2;
765
766   while (pFormat[0] != RPC_FC_END) {
767     switch (pFormat[0]) {
768     default:
769       FIXME("unknown repeat type %d\n", pFormat[0]);
770     case RPC_FC_NO_REPEAT:
771       rep = 1;
772       stride = 0;
773       ofs = 0;
774       count = 1;
775       xofs = 0;
776       pFormat += 2;
777       break;
778     case RPC_FC_FIXED_REPEAT:
779       rep = *(WORD*)&pFormat[2];
780       stride = *(WORD*)&pFormat[4];
781       ofs = *(WORD*)&pFormat[6];
782       count = *(WORD*)&pFormat[8];
783       xofs = 0;
784       pFormat += 10;
785       break;
786     case RPC_FC_VARIABLE_REPEAT:
787       rep = pStubMsg->MaxCount;
788       stride = *(WORD*)&pFormat[2];
789       ofs = *(WORD*)&pFormat[4];
790       count = *(WORD*)&pFormat[6];
791       xofs = (pFormat[1] == RPC_FC_VARIABLE_OFFSET) ? Offset * stride : 0;
792       pFormat += 8;
793       break;
794     }
795     /* ofs doesn't seem to matter in this context */
796     while (rep) {
797       PFORMAT_STRING info = pFormat;
798       unsigned char *membase = pMemory + xofs;
799       unsigned u;
800       for (u=0; u<count; u++,info+=8) {
801         unsigned char *memptr = membase + *(SHORT*)&info[0];
802         unsigned char *bufptr = Mark + *(SHORT*)&info[2];
803         PointerMarshall(pStubMsg, bufptr, *(unsigned char**)memptr, info+4);
804       }
805       rep--;
806     }
807     pFormat += 8 * count;
808   }
809
810   STD_OVERFLOW_CHECK(pStubMsg);
811
812   return NULL;
813 }
814
815 /***********************************************************************
816  *           EmbeddedPointerUnmarshall
817  */
818 unsigned char * WINAPI EmbeddedPointerUnmarshall(PMIDL_STUB_MESSAGE pStubMsg,
819                                                  unsigned char **ppMemory,
820                                                  PFORMAT_STRING pFormat,
821                                                  unsigned char fMustAlloc)
822 {
823   unsigned char *Mark = pStubMsg->BufferMark;
824   unsigned long Offset = pStubMsg->Offset;
825   unsigned ofs, rep, count, stride, xofs;
826
827   TRACE("(%p,%p,%p,%d)\n", pStubMsg, ppMemory, pFormat, fMustAlloc);
828
829   if (*pFormat != RPC_FC_PP) return NULL;
830   pFormat += 2;
831
832   while (pFormat[0] != RPC_FC_END) {
833     switch (pFormat[0]) {
834     default:
835       FIXME("unknown repeat type %d\n", pFormat[0]);
836     case RPC_FC_NO_REPEAT:
837       rep = 1;
838       stride = 0;
839       ofs = 0;
840       count = 1;
841       xofs = 0;
842       pFormat += 2;
843       break;
844     case RPC_FC_FIXED_REPEAT:
845       rep = *(WORD*)&pFormat[2];
846       stride = *(WORD*)&pFormat[4];
847       ofs = *(WORD*)&pFormat[6];
848       count = *(WORD*)&pFormat[8];
849       xofs = 0;
850       pFormat += 10;
851       break;
852     case RPC_FC_VARIABLE_REPEAT:
853       rep = pStubMsg->MaxCount;
854       stride = *(WORD*)&pFormat[2];
855       ofs = *(WORD*)&pFormat[4];
856       count = *(WORD*)&pFormat[6];
857       xofs = (pFormat[1] == RPC_FC_VARIABLE_OFFSET) ? Offset * stride : 0;
858       pFormat += 8;
859       break;
860     }
861     /* ofs doesn't seem to matter in this context */
862     while (rep) {
863       PFORMAT_STRING info = pFormat;
864       unsigned char *membase = *ppMemory + xofs;
865       unsigned u;
866       for (u=0; u<count; u++,info+=8) {
867         unsigned char *memptr = membase + *(SHORT*)&info[0];
868         unsigned char *bufptr = Mark + *(SHORT*)&info[2];
869         PointerUnmarshall(pStubMsg, bufptr, (unsigned char**)memptr, info+4, fMustAlloc);
870       }
871       rep--;
872     }
873     pFormat += 8 * count;
874   }
875
876   return NULL;
877 }
878
879 /***********************************************************************
880  *           EmbeddedPointerBufferSize
881  */
882 void WINAPI EmbeddedPointerBufferSize(PMIDL_STUB_MESSAGE pStubMsg,
883                                       unsigned char *pMemory,
884                                       PFORMAT_STRING pFormat)
885 {
886   unsigned long Offset = pStubMsg->Offset;
887   unsigned ofs, rep, count, stride, xofs;
888
889   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
890   if (*pFormat != RPC_FC_PP) return;
891   pFormat += 2;
892
893   while (pFormat[0] != RPC_FC_END) {
894     switch (pFormat[0]) {
895     default:
896       FIXME("unknown repeat type %d\n", pFormat[0]);
897     case RPC_FC_NO_REPEAT:
898       rep = 1;
899       stride = 0;
900       ofs = 0;
901       count = 1;
902       xofs = 0;
903       pFormat += 2;
904       break;
905     case RPC_FC_FIXED_REPEAT:
906       rep = *(WORD*)&pFormat[2];
907       stride = *(WORD*)&pFormat[4];
908       ofs = *(WORD*)&pFormat[6];
909       count = *(WORD*)&pFormat[8];
910       xofs = 0;
911       pFormat += 10;
912       break;
913     case RPC_FC_VARIABLE_REPEAT:
914       rep = pStubMsg->MaxCount;
915       stride = *(WORD*)&pFormat[2];
916       ofs = *(WORD*)&pFormat[4];
917       count = *(WORD*)&pFormat[6];
918       xofs = (pFormat[1] == RPC_FC_VARIABLE_OFFSET) ? Offset * stride : 0;
919       pFormat += 8;
920       break;
921     }
922     /* ofs doesn't seem to matter in this context */
923     while (rep) {
924       PFORMAT_STRING info = pFormat;
925       unsigned char *membase = pMemory + xofs;
926       unsigned u;
927       for (u=0; u<count; u++,info+=8) {
928         unsigned char *memptr = membase + *(SHORT*)&info[0];
929         PointerBufferSize(pStubMsg, *(unsigned char**)memptr, info+4);
930       }
931       rep--;
932     }
933     pFormat += 8 * count;
934   }
935 }
936
937 /***********************************************************************
938  *           EmbeddedPointerMemorySize
939  */
940 unsigned long WINAPI EmbeddedPointerMemorySize(PMIDL_STUB_MESSAGE pStubMsg,
941                                                PFORMAT_STRING pFormat)
942 {
943   unsigned long Offset = pStubMsg->Offset;
944   unsigned char *Mark = pStubMsg->BufferMark;
945   unsigned ofs, rep, count, stride, xofs;
946
947   FIXME("(%p,%p): stub\n", pStubMsg, pFormat);
948   if (*pFormat != RPC_FC_PP) return 0;
949   pFormat += 2;
950
951   while (pFormat[0] != RPC_FC_END) {
952     switch (pFormat[0]) {
953     default:
954       FIXME("unknown repeat type %d\n", pFormat[0]);
955     case RPC_FC_NO_REPEAT:
956       rep = 1;
957       stride = 0;
958       ofs = 0;
959       count = 1;
960       xofs = 0;
961       pFormat += 2;
962       break;
963     case RPC_FC_FIXED_REPEAT:
964       rep = *(WORD*)&pFormat[2];
965       stride = *(WORD*)&pFormat[4];
966       ofs = *(WORD*)&pFormat[6];
967       count = *(WORD*)&pFormat[8];
968       xofs = 0;
969       pFormat += 10;
970       break;
971     case RPC_FC_VARIABLE_REPEAT:
972       rep = pStubMsg->MaxCount;
973       stride = *(WORD*)&pFormat[2];
974       ofs = *(WORD*)&pFormat[4];
975       count = *(WORD*)&pFormat[6];
976       xofs = (pFormat[1] == RPC_FC_VARIABLE_OFFSET) ? Offset * stride : 0;
977       pFormat += 8;
978       break;
979     }
980     /* ofs doesn't seem to matter in this context */
981     while (rep) {
982       PFORMAT_STRING info = pFormat;
983       unsigned u;
984       for (u=0; u<count; u++,info+=8) {
985         unsigned char *bufptr = Mark + *(SHORT*)&info[2];
986         PointerMemorySize(pStubMsg, bufptr, info+4);
987       }
988       rep--;
989     }
990     pFormat += 8 * count;
991   }
992
993   return 0;
994 }
995
996 /***********************************************************************
997  *           EmbeddedPointerFree
998  */
999 void WINAPI EmbeddedPointerFree(PMIDL_STUB_MESSAGE pStubMsg,
1000                                 unsigned char *pMemory,
1001                                 PFORMAT_STRING pFormat)
1002 {
1003   unsigned long Offset = pStubMsg->Offset;
1004   unsigned ofs, rep, count, stride, xofs;
1005
1006   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1007   if (*pFormat != RPC_FC_PP) return;
1008   pFormat += 2;
1009
1010   while (pFormat[0] != RPC_FC_END) {
1011     switch (pFormat[0]) {
1012     default:
1013       FIXME("unknown repeat type %d\n", pFormat[0]);
1014     case RPC_FC_NO_REPEAT:
1015       rep = 1;
1016       stride = 0;
1017       ofs = 0;
1018       count = 1;
1019       xofs = 0;
1020       pFormat += 2;
1021       break;
1022     case RPC_FC_FIXED_REPEAT:
1023       rep = *(WORD*)&pFormat[2];
1024       stride = *(WORD*)&pFormat[4];
1025       ofs = *(WORD*)&pFormat[6];
1026       count = *(WORD*)&pFormat[8];
1027       xofs = 0;
1028       pFormat += 10;
1029       break;
1030     case RPC_FC_VARIABLE_REPEAT:
1031       rep = pStubMsg->MaxCount;
1032       stride = *(WORD*)&pFormat[2];
1033       ofs = *(WORD*)&pFormat[4];
1034       count = *(WORD*)&pFormat[6];
1035       xofs = (pFormat[1] == RPC_FC_VARIABLE_OFFSET) ? Offset * stride : 0;
1036       pFormat += 8;
1037       break;
1038     }
1039     /* ofs doesn't seem to matter in this context */
1040     while (rep) {
1041       PFORMAT_STRING info = pFormat;
1042       unsigned char *membase = pMemory + xofs;
1043       unsigned u;
1044       for (u=0; u<count; u++,info+=8) {
1045         unsigned char *memptr = membase + *(SHORT*)&info[0];
1046         PointerFree(pStubMsg, *(unsigned char**)memptr, info+4);
1047       }
1048       rep--;
1049     }
1050     pFormat += 8 * count;
1051   }
1052 }
1053
1054 /***********************************************************************
1055  *           NdrPointerMarshall [RPCRT4.@]
1056  */
1057 unsigned char * WINAPI NdrPointerMarshall(PMIDL_STUB_MESSAGE pStubMsg,
1058                                           unsigned char *pMemory,
1059                                           PFORMAT_STRING pFormat)
1060 {
1061   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1062
1063   pStubMsg->BufferMark = pStubMsg->Buffer;
1064   PointerMarshall(pStubMsg, pStubMsg->Buffer, pMemory, pFormat);
1065   pStubMsg->Buffer += 4;
1066
1067   STD_OVERFLOW_CHECK(pStubMsg);
1068
1069   return NULL;
1070 }
1071
1072 /***********************************************************************
1073  *           NdrPointerUnmarshall [RPCRT4.@]
1074  */
1075 unsigned char * WINAPI NdrPointerUnmarshall(PMIDL_STUB_MESSAGE pStubMsg,
1076                                             unsigned char **ppMemory,
1077                                             PFORMAT_STRING pFormat,
1078                                             unsigned char fMustAlloc)
1079 {
1080   TRACE("(%p,%p,%p,%d)\n", pStubMsg, ppMemory, pFormat, fMustAlloc);
1081
1082   pStubMsg->BufferMark = pStubMsg->Buffer;
1083   PointerUnmarshall(pStubMsg, pStubMsg->Buffer, ppMemory, pFormat, fMustAlloc);
1084   pStubMsg->Buffer += 4;
1085
1086   return NULL;
1087 }
1088
1089 /***********************************************************************
1090  *           NdrPointerBufferSize [RPCRT4.@]
1091  */
1092 void WINAPI NdrPointerBufferSize(PMIDL_STUB_MESSAGE pStubMsg,
1093                                       unsigned char *pMemory,
1094                                       PFORMAT_STRING pFormat)
1095 {
1096   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1097   pStubMsg->BufferLength += 4;
1098   PointerBufferSize(pStubMsg, pMemory, pFormat);
1099 }
1100
1101 /***********************************************************************
1102  *           NdrPointerMemorySize [RPCRT4.@]
1103  */
1104 unsigned long WINAPI NdrPointerMemorySize(PMIDL_STUB_MESSAGE pStubMsg,
1105                                           PFORMAT_STRING pFormat)
1106 {
1107   /* unsigned size = *(LPWORD)(pFormat+2); */
1108   FIXME("(%p,%p): stub\n", pStubMsg, pFormat);
1109   PointerMemorySize(pStubMsg, pStubMsg->Buffer, pFormat);
1110   return 0;
1111 }
1112
1113 /***********************************************************************
1114  *           NdrPointerFree [RPCRT4.@]
1115  */
1116 void WINAPI NdrPointerFree(PMIDL_STUB_MESSAGE pStubMsg,
1117                            unsigned char *pMemory,
1118                            PFORMAT_STRING pFormat)
1119 {
1120   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1121   PointerFree(pStubMsg, pMemory, pFormat);
1122 }
1123
1124 /***********************************************************************
1125  *           NdrSimpleStructMarshall [RPCRT4.@]
1126  */
1127 unsigned char * WINAPI NdrSimpleStructMarshall(PMIDL_STUB_MESSAGE pStubMsg,
1128                                                unsigned char *pMemory,
1129                                                PFORMAT_STRING pFormat)
1130 {
1131   unsigned size = *(LPWORD)(pFormat+2);
1132   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1133
1134   memcpy(pStubMsg->Buffer, pMemory, size);
1135   pStubMsg->BufferMark = pStubMsg->Buffer;
1136   pStubMsg->Buffer += size;
1137
1138   if (pFormat[0] != RPC_FC_STRUCT)
1139     EmbeddedPointerMarshall(pStubMsg, pMemory, pFormat+4);
1140
1141   STD_OVERFLOW_CHECK(pStubMsg);
1142
1143   return NULL;
1144 }
1145
1146 /***********************************************************************
1147  *           NdrSimpleStructUnmarshall [RPCRT4.@]
1148  */
1149 unsigned char * WINAPI NdrSimpleStructUnmarshall(PMIDL_STUB_MESSAGE pStubMsg,
1150                                                  unsigned char **ppMemory,
1151                                                  PFORMAT_STRING pFormat,
1152                                                  unsigned char fMustAlloc)
1153 {
1154   unsigned size = *(LPWORD)(pFormat+2);
1155   TRACE("(%p,%p,%p,%d)\n", pStubMsg, ppMemory, pFormat, fMustAlloc);
1156
1157   if (fMustAlloc) {
1158     *ppMemory = NdrAllocate(pStubMsg, size);
1159     memcpy(*ppMemory, pStubMsg->Buffer, size);
1160   } else {
1161     if (pStubMsg->ReuseBuffer && !*ppMemory)
1162       /* for servers, we may just point straight into the RPC buffer, I think
1163        * (I guess that's what MS does since MIDL code doesn't try to free) */
1164       *ppMemory = pStubMsg->Buffer;
1165     else
1166       /* for clients, memory should be provided by caller */
1167       memcpy(*ppMemory, pStubMsg->Buffer, size);
1168   }
1169
1170   pStubMsg->BufferMark = pStubMsg->Buffer;
1171   pStubMsg->Buffer += size;
1172
1173   if (pFormat[0] != RPC_FC_STRUCT)
1174     EmbeddedPointerUnmarshall(pStubMsg, ppMemory, pFormat+4, fMustAlloc);
1175
1176   return NULL;
1177 }
1178
1179
1180 /***********************************************************************
1181  *           NdrSimpleStructUnmarshall [RPCRT4.@]
1182  */
1183 void WINAPI NdrSimpleTypeMarshall( PMIDL_STUB_MESSAGE pStubMsg, unsigned char* pMemory,
1184                                    unsigned char FormatChar )
1185 {
1186     FIXME("stub\n");
1187 }
1188
1189
1190 /***********************************************************************
1191  *           NdrSimpleStructUnmarshall [RPCRT4.@]
1192  */
1193 void WINAPI NdrSimpleTypeUnmarshall( PMIDL_STUB_MESSAGE pStubMsg, unsigned char* pMemory,
1194                                      unsigned char FormatChar )
1195 {
1196     FIXME("stub\n");
1197 }
1198
1199
1200 /***********************************************************************
1201  *           NdrSimpleStructBufferSize [RPCRT4.@]
1202  */
1203 void WINAPI NdrSimpleStructBufferSize(PMIDL_STUB_MESSAGE pStubMsg,
1204                                       unsigned char *pMemory,
1205                                       PFORMAT_STRING pFormat)
1206 {
1207   unsigned size = *(LPWORD)(pFormat+2);
1208   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1209   pStubMsg->BufferLength += size;
1210   if (pFormat[0] != RPC_FC_STRUCT)
1211     EmbeddedPointerBufferSize(pStubMsg, pMemory, pFormat+4);
1212 }
1213
1214 /***********************************************************************
1215  *           NdrSimpleStructMemorySize [RPCRT4.@]
1216  */
1217 unsigned long WINAPI NdrSimpleStructMemorySize(PMIDL_STUB_MESSAGE pStubMsg,
1218                                                PFORMAT_STRING pFormat)
1219 {
1220   /* unsigned size = *(LPWORD)(pFormat+2); */
1221   FIXME("(%p,%p): stub\n", pStubMsg, pFormat);
1222   if (pFormat[0] != RPC_FC_STRUCT)
1223     EmbeddedPointerMemorySize(pStubMsg, pFormat+4);
1224   return 0;
1225 }
1226
1227 /***********************************************************************
1228  *           NdrSimpleStructFree [RPCRT4.@]
1229  */
1230 void WINAPI NdrSimpleStructFree(PMIDL_STUB_MESSAGE pStubMsg,
1231                                 unsigned char *pMemory,
1232                                 PFORMAT_STRING pFormat)
1233 {
1234   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1235   if (pFormat[0] != RPC_FC_STRUCT)
1236     EmbeddedPointerFree(pStubMsg, pMemory, pFormat+4);
1237 }
1238
1239
1240 unsigned long WINAPI EmbeddedComplexSize(PMIDL_STUB_MESSAGE pStubMsg,
1241                                          PFORMAT_STRING pFormat)
1242 {
1243   switch (*pFormat) {
1244   case RPC_FC_STRUCT:
1245   case RPC_FC_PSTRUCT:
1246   case RPC_FC_CSTRUCT:
1247   case RPC_FC_BOGUS_STRUCT:
1248     return *(WORD*)&pFormat[2];
1249   case RPC_FC_USER_MARSHAL:
1250     return *(WORD*)&pFormat[4];
1251   default:
1252     FIXME("unhandled embedded type %02x\n", *pFormat);
1253   }
1254   return 0;
1255 }
1256
1257
1258 unsigned char * WINAPI ComplexMarshall(PMIDL_STUB_MESSAGE pStubMsg,
1259                                        unsigned char *pMemory,
1260                                        PFORMAT_STRING pFormat,
1261                                        PFORMAT_STRING pPointer)
1262 {
1263   PFORMAT_STRING desc;
1264   NDR_MARSHALL m;
1265   unsigned long size;
1266
1267   while (*pFormat != RPC_FC_END) {
1268     switch (*pFormat) {
1269     case RPC_FC_SHORT:
1270     case RPC_FC_USHORT:
1271       TRACE("short=%d <= %p\n", *(WORD*)pMemory, pMemory);
1272       memcpy(pStubMsg->Buffer, pMemory, 2);
1273       pStubMsg->Buffer += 2;
1274       pMemory += 2;
1275       break;
1276     case RPC_FC_LONG:
1277     case RPC_FC_ULONG:
1278       TRACE("long=%ld <= %p\n", *(DWORD*)pMemory, pMemory);
1279       memcpy(pStubMsg->Buffer, pMemory, 4);
1280       pStubMsg->Buffer += 4;
1281       pMemory += 4;
1282       break;
1283     case RPC_FC_POINTER:
1284       TRACE("pointer=%p <= %p\n", *(unsigned char**)pMemory, pMemory);
1285       NdrPointerMarshall(pStubMsg, *(unsigned char**)pMemory, pPointer);
1286       pPointer += 4;
1287       pMemory += 4;
1288       break;
1289     case RPC_FC_ALIGNM4:
1290       ALIGN_POINTER(pMemory, 3);
1291       break;
1292     case RPC_FC_ALIGNM8:
1293       ALIGN_POINTER(pMemory, 7);
1294       break;
1295     case RPC_FC_EMBEDDED_COMPLEX:
1296       pMemory += pFormat[1];
1297       pFormat += 2;
1298       desc = pFormat + *(SHORT*)pFormat;
1299       size = EmbeddedComplexSize(pStubMsg, desc);
1300       TRACE("embedded complex (size=%ld) <= %p\n", size, pMemory);
1301       m = NdrMarshaller[*desc & NDR_TABLE_MASK];
1302       if (m) m(pStubMsg, pMemory, desc);
1303       else FIXME("no marshaller for embedded type %02x\n", *desc);
1304       pMemory += size;
1305       pFormat += 2;
1306       continue;
1307     case RPC_FC_PAD:
1308       break;
1309     default:
1310       FIXME("unhandled format %02x\n", *pFormat);
1311     }
1312     pFormat++;
1313   }
1314
1315   return pMemory;
1316 }
1317
1318 unsigned char * WINAPI ComplexUnmarshall(PMIDL_STUB_MESSAGE pStubMsg,
1319                                          unsigned char *pMemory,
1320                                          PFORMAT_STRING pFormat,
1321                                          PFORMAT_STRING pPointer,
1322                                          unsigned char fMustAlloc)
1323 {
1324   PFORMAT_STRING desc;
1325   NDR_UNMARSHALL m;
1326   unsigned long size;
1327
1328   while (*pFormat != RPC_FC_END) {
1329     switch (*pFormat) {
1330     case RPC_FC_SHORT:
1331     case RPC_FC_USHORT:
1332       memcpy(pMemory, pStubMsg->Buffer, 2);
1333       TRACE("short=%d => %p\n", *(WORD*)pMemory, pMemory);
1334       pStubMsg->Buffer += 2;
1335       pMemory += 2;
1336       break;
1337     case RPC_FC_LONG:
1338     case RPC_FC_ULONG:
1339       memcpy(pMemory, pStubMsg->Buffer, 4);
1340       TRACE("long=%ld => %p\n", *(DWORD*)pMemory, pMemory);
1341       pStubMsg->Buffer += 4;
1342       pMemory += 4;
1343       break;
1344     case RPC_FC_POINTER:
1345       *(unsigned char**)pMemory = NULL;
1346       TRACE("pointer => %p\n", pMemory);
1347       NdrPointerUnmarshall(pStubMsg, (unsigned char**)pMemory, pPointer, fMustAlloc);
1348       pPointer += 4;
1349       pMemory += 4;
1350       break;
1351     case RPC_FC_ALIGNM4:
1352       ALIGN_POINTER(pMemory, 3);
1353       break;
1354     case RPC_FC_ALIGNM8:
1355       ALIGN_POINTER(pMemory, 7);
1356       break;
1357     case RPC_FC_EMBEDDED_COMPLEX:
1358       pMemory += pFormat[1];
1359       pFormat += 2;
1360       desc = pFormat + *(SHORT*)pFormat;
1361       size = EmbeddedComplexSize(pStubMsg, desc);
1362       TRACE("embedded complex (size=%ld) => %p\n", size, pMemory);
1363       m = NdrUnmarshaller[*desc & NDR_TABLE_MASK];
1364       memset(pMemory, 0, size); /* just in case */
1365       if (m) m(pStubMsg, &pMemory, desc, fMustAlloc);
1366       else FIXME("no unmarshaller for embedded type %02x\n", *desc);
1367       pMemory += size;
1368       pFormat += 2;
1369       continue;
1370     case RPC_FC_PAD:
1371       break;
1372     default:
1373       FIXME("unhandled format %d\n", *pFormat);
1374     }
1375     pFormat++;
1376   }
1377
1378   return pMemory;
1379 }
1380
1381 unsigned char * WINAPI ComplexBufferSize(PMIDL_STUB_MESSAGE pStubMsg,
1382                                          unsigned char *pMemory,
1383                                          PFORMAT_STRING pFormat,
1384                                          PFORMAT_STRING pPointer)
1385 {
1386   PFORMAT_STRING desc;
1387   NDR_BUFFERSIZE m;
1388   unsigned long size;
1389
1390   while (*pFormat != RPC_FC_END) {
1391     switch (*pFormat) {
1392     case RPC_FC_SHORT:
1393     case RPC_FC_USHORT:
1394       pStubMsg->BufferLength += 2;
1395       pMemory += 2;
1396       break;
1397     case RPC_FC_LONG:
1398     case RPC_FC_ULONG:
1399       pStubMsg->BufferLength += 4;
1400       pMemory += 4;
1401       break;
1402     case RPC_FC_POINTER:
1403       NdrPointerBufferSize(pStubMsg, *(unsigned char**)pMemory, pPointer);
1404       pPointer += 4;
1405       pMemory += 4;
1406       break;
1407     case RPC_FC_ALIGNM4:
1408       ALIGN_POINTER(pMemory, 3);
1409       break;
1410     case RPC_FC_ALIGNM8:
1411       ALIGN_POINTER(pMemory, 7);
1412       break;
1413     case RPC_FC_EMBEDDED_COMPLEX:
1414       pMemory += pFormat[1];
1415       pFormat += 2;
1416       desc = pFormat + *(SHORT*)pFormat;
1417       size = EmbeddedComplexSize(pStubMsg, desc);
1418       m = NdrBufferSizer[*desc & NDR_TABLE_MASK];
1419       if (m) m(pStubMsg, pMemory, desc);
1420       else FIXME("no buffersizer for embedded type %02x\n", *desc);
1421       pMemory += size;
1422       pFormat += 2;
1423       continue;
1424     case RPC_FC_PAD:
1425       break;
1426     default:
1427       FIXME("unhandled format %d\n", *pFormat);
1428     }
1429     pFormat++;
1430   }
1431
1432   return pMemory;
1433 }
1434
1435 unsigned char * WINAPI ComplexFree(PMIDL_STUB_MESSAGE pStubMsg,
1436                                    unsigned char *pMemory,
1437                                    PFORMAT_STRING pFormat,
1438                                    PFORMAT_STRING pPointer)
1439 {
1440   PFORMAT_STRING desc;
1441   NDR_FREE m;
1442   unsigned long size;
1443
1444   while (*pFormat != RPC_FC_END) {
1445     switch (*pFormat) {
1446     case RPC_FC_SHORT:
1447     case RPC_FC_USHORT:
1448       pMemory += 2;
1449       break;
1450     case RPC_FC_LONG:
1451     case RPC_FC_ULONG:
1452       pMemory += 4;
1453       break;
1454     case RPC_FC_POINTER:
1455       NdrPointerFree(pStubMsg, *(unsigned char**)pMemory, pPointer);
1456       pPointer += 4;
1457       pMemory += 4;
1458       break;
1459     case RPC_FC_ALIGNM4:
1460       ALIGN_POINTER(pMemory, 3);
1461       break;
1462     case RPC_FC_ALIGNM8:
1463       ALIGN_POINTER(pMemory, 7);
1464       break;
1465     case RPC_FC_EMBEDDED_COMPLEX:
1466       pMemory += pFormat[1];
1467       pFormat += 2;
1468       desc = pFormat + *(SHORT*)pFormat;
1469       size = EmbeddedComplexSize(pStubMsg, desc);
1470       m = NdrFreer[*desc & NDR_TABLE_MASK];
1471       if (m) m(pStubMsg, pMemory, desc);
1472       else FIXME("no freer for embedded type %02x\n", *desc);
1473       pMemory += size;
1474       pFormat += 2;
1475       continue;
1476     case RPC_FC_PAD:
1477       break;
1478     default:
1479       FIXME("unhandled format %d\n", *pFormat);
1480     }
1481     pFormat++;
1482   }
1483
1484   return pMemory;
1485 }
1486
1487 unsigned long WINAPI ComplexStructSize(PMIDL_STUB_MESSAGE pStubMsg,
1488                                        PFORMAT_STRING pFormat)
1489 {
1490   PFORMAT_STRING desc;
1491   unsigned long size = 0;
1492
1493   while (*pFormat != RPC_FC_END) {
1494     switch (*pFormat) {
1495     case RPC_FC_SHORT:
1496     case RPC_FC_USHORT:
1497       size += 2;
1498       break;
1499     case RPC_FC_LONG:
1500     case RPC_FC_ULONG:
1501       size += 4;
1502       break;
1503     case RPC_FC_POINTER:
1504       size += 4;
1505       break;
1506     case RPC_FC_ALIGNM4:
1507       ALIGN_LENGTH(size, 3);
1508       break;
1509     case RPC_FC_ALIGNM8:
1510       ALIGN_LENGTH(size, 7);
1511       break;
1512     case RPC_FC_EMBEDDED_COMPLEX:
1513       size += pFormat[1];
1514       pFormat += 2;
1515       desc = pFormat + *(SHORT*)pFormat;
1516       size += EmbeddedComplexSize(pStubMsg, desc);
1517       pFormat += 2;
1518       continue;
1519     case RPC_FC_PAD:
1520       break;
1521     default:
1522       FIXME("unhandled format %d\n", *pFormat);
1523     }
1524     pFormat++;
1525   }
1526
1527   return size;
1528 }
1529
1530 /***********************************************************************
1531  *           NdrComplexStructMarshall [RPCRT4.@]
1532  */
1533 unsigned char * WINAPI NdrComplexStructMarshall(PMIDL_STUB_MESSAGE pStubMsg,
1534                                                 unsigned char *pMemory,
1535                                                 PFORMAT_STRING pFormat)
1536 {
1537   PFORMAT_STRING conf_array = NULL;
1538   PFORMAT_STRING pointer_desc = NULL;
1539   unsigned char *OldMemory = pStubMsg->Memory;
1540
1541   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1542
1543   pFormat += 4;
1544   if (*(WORD*)pFormat) conf_array = pFormat + *(WORD*)pFormat;
1545   pFormat += 2;
1546   if (*(WORD*)pFormat) pointer_desc = pFormat + *(WORD*)pFormat;
1547   pFormat += 2;
1548
1549   pStubMsg->Memory = pMemory;
1550
1551   ComplexMarshall(pStubMsg, pMemory, pFormat, pointer_desc);
1552
1553   if (conf_array)
1554     NdrConformantArrayMarshall(pStubMsg, pMemory, conf_array);
1555
1556   pStubMsg->Memory = OldMemory;
1557
1558   STD_OVERFLOW_CHECK(pStubMsg);
1559
1560   return NULL;
1561 }
1562
1563 /***********************************************************************
1564  *           NdrComplexStructUnmarshall [RPCRT4.@]
1565  */
1566 unsigned char * WINAPI NdrComplexStructUnmarshall(PMIDL_STUB_MESSAGE pStubMsg,
1567                                                   unsigned char **ppMemory,
1568                                                   PFORMAT_STRING pFormat,
1569                                                   unsigned char fMustAlloc)
1570 {
1571   unsigned size = *(LPWORD)(pFormat+2);
1572   PFORMAT_STRING conf_array = NULL;
1573   PFORMAT_STRING pointer_desc = NULL;
1574   unsigned char *pMemory;
1575
1576   TRACE("(%p,%p,%p,%d)\n", pStubMsg, ppMemory, pFormat, fMustAlloc);
1577
1578   if (fMustAlloc || !*ppMemory)
1579     *ppMemory = NdrAllocate(pStubMsg, size);
1580
1581   pFormat += 4;
1582   if (*(WORD*)pFormat) conf_array = pFormat + *(WORD*)pFormat;
1583   pFormat += 2;
1584   if (*(WORD*)pFormat) pointer_desc = pFormat + *(WORD*)pFormat;
1585   pFormat += 2;
1586
1587   pMemory = ComplexUnmarshall(pStubMsg, *ppMemory, pFormat, pointer_desc, fMustAlloc);
1588
1589   if (conf_array)
1590     NdrConformantArrayUnmarshall(pStubMsg, &pMemory, conf_array, fMustAlloc);
1591
1592   return NULL;
1593 }
1594
1595 /***********************************************************************
1596  *           NdrComplexStructBufferSize [RPCRT4.@]
1597  */
1598 void WINAPI NdrComplexStructBufferSize(PMIDL_STUB_MESSAGE pStubMsg,
1599                                        unsigned char *pMemory,
1600                                        PFORMAT_STRING pFormat)
1601 {
1602   PFORMAT_STRING conf_array = NULL;
1603   PFORMAT_STRING pointer_desc = NULL;
1604   unsigned char *OldMemory = pStubMsg->Memory;
1605
1606   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1607
1608   pFormat += 4;
1609   if (*(WORD*)pFormat) conf_array = pFormat + *(WORD*)pFormat;
1610   pFormat += 2;
1611   if (*(WORD*)pFormat) pointer_desc = pFormat + *(WORD*)pFormat;
1612   pFormat += 2;
1613
1614   pStubMsg->Memory = pMemory;
1615
1616   pMemory = ComplexBufferSize(pStubMsg, pMemory, pFormat, pointer_desc);
1617
1618   if (conf_array)
1619     NdrConformantArrayBufferSize(pStubMsg, pMemory, conf_array);
1620
1621   pStubMsg->Memory = OldMemory;
1622 }
1623
1624 /***********************************************************************
1625  *           NdrComplexStructMemorySize [RPCRT4.@]
1626  */
1627 unsigned long WINAPI NdrComplexStructMemorySize(PMIDL_STUB_MESSAGE pStubMsg,
1628                                                 PFORMAT_STRING pFormat)
1629 {
1630   /* unsigned size = *(LPWORD)(pFormat+2); */
1631   PFORMAT_STRING conf_array = NULL;
1632   PFORMAT_STRING pointer_desc = NULL;
1633
1634   FIXME("(%p,%p): stub\n", pStubMsg, pFormat);
1635
1636   pFormat += 4;
1637   if (*(WORD*)pFormat) conf_array = pFormat + *(WORD*)pFormat;
1638   pFormat += 2;
1639   if (*(WORD*)pFormat) pointer_desc = pFormat + *(WORD*)pFormat;
1640   pFormat += 2;
1641
1642   return 0;
1643 }
1644
1645 /***********************************************************************
1646  *           NdrComplexStructFree [RPCRT4.@]
1647  */
1648 void WINAPI NdrComplexStructFree(PMIDL_STUB_MESSAGE pStubMsg,
1649                                  unsigned char *pMemory,
1650                                  PFORMAT_STRING pFormat)
1651 {
1652   PFORMAT_STRING conf_array = NULL;
1653   PFORMAT_STRING pointer_desc = NULL;
1654   unsigned char *OldMemory = pStubMsg->Memory;
1655
1656   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1657
1658   pFormat += 4;
1659   if (*(WORD*)pFormat) conf_array = pFormat + *(WORD*)pFormat;
1660   pFormat += 2;
1661   if (*(WORD*)pFormat) pointer_desc = pFormat + *(WORD*)pFormat;
1662   pFormat += 2;
1663
1664   pStubMsg->Memory = pMemory;
1665
1666   pMemory = ComplexFree(pStubMsg, pMemory, pFormat, pointer_desc);
1667
1668   if (conf_array)
1669     NdrConformantArrayFree(pStubMsg, pMemory, conf_array);
1670
1671   pStubMsg->Memory = OldMemory;
1672 }
1673
1674 /***********************************************************************
1675  *           NdrConformantArrayMarshall [RPCRT4.@]
1676  */
1677 unsigned char * WINAPI NdrConformantArrayMarshall(PMIDL_STUB_MESSAGE pStubMsg,
1678                                                   unsigned char *pMemory,
1679                                                   PFORMAT_STRING pFormat)
1680 {
1681   DWORD size = 0, esize = *(LPWORD)(pFormat+2);
1682   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1683   if (pFormat[0] != RPC_FC_CARRAY) FIXME("format=%d\n", pFormat[0]);
1684
1685   pFormat = ComputeConformance(pStubMsg, pMemory, pFormat+4, 0);
1686   size = pStubMsg->MaxCount;
1687
1688   NDR_LOCAL_UINT32_WRITE(pStubMsg->Buffer, size);
1689   pStubMsg->Buffer += 4;
1690
1691   memcpy(pStubMsg->Buffer, pMemory, size*esize);
1692   pStubMsg->BufferMark = pStubMsg->Buffer;
1693   pStubMsg->Buffer += size*esize;
1694
1695   EmbeddedPointerMarshall(pStubMsg, pMemory, pFormat);
1696
1697   STD_OVERFLOW_CHECK(pStubMsg);
1698
1699   return NULL;
1700 }
1701
1702 /***********************************************************************
1703  *           NdrConformantArrayUnmarshall [RPCRT4.@]
1704  */
1705 unsigned char * WINAPI NdrConformantArrayUnmarshall(PMIDL_STUB_MESSAGE pStubMsg,
1706                                                     unsigned char **ppMemory,
1707                                                     PFORMAT_STRING pFormat,
1708                                                     unsigned char fMustAlloc)
1709 {
1710   DWORD size = 0, esize = *(LPWORD)(pFormat+2);
1711   TRACE("(%p,%p,%p,%d)\n", pStubMsg, ppMemory, pFormat, fMustAlloc);
1712   if (pFormat[0] != RPC_FC_CARRAY) FIXME("format=%d\n", pFormat[0]);
1713
1714   pFormat = ReadConformance(pStubMsg, pFormat+4);
1715   size = pStubMsg->MaxCount;
1716
1717   if (fMustAlloc) {
1718     *ppMemory = NdrAllocate(pStubMsg, size*esize);
1719     memcpy(*ppMemory, pStubMsg->Buffer, size*esize);
1720   } else {
1721     if (pStubMsg->ReuseBuffer && !*ppMemory)
1722       /* for servers, we may just point straight into the RPC buffer, I think
1723        * (I guess that's what MS does since MIDL code doesn't try to free) */
1724       *ppMemory = pStubMsg->Buffer;
1725     else
1726       /* for clients, memory should be provided by caller */
1727       memcpy(*ppMemory, pStubMsg->Buffer, size*esize);
1728   }
1729
1730   pStubMsg->BufferMark = pStubMsg->Buffer;
1731   pStubMsg->Buffer += size*esize;
1732
1733   EmbeddedPointerUnmarshall(pStubMsg, ppMemory, pFormat, fMustAlloc);
1734
1735   return NULL;
1736 }
1737
1738 /***********************************************************************
1739  *           NdrConformantArrayBufferSize [RPCRT4.@]
1740  */
1741 void WINAPI NdrConformantArrayBufferSize(PMIDL_STUB_MESSAGE pStubMsg,
1742                                          unsigned char *pMemory,
1743                                          PFORMAT_STRING pFormat)
1744 {
1745   DWORD size = 0, esize = *(LPWORD)(pFormat+2);
1746   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1747   if (pFormat[0] != RPC_FC_CARRAY) FIXME("format=%d\n", pFormat[0]);
1748
1749   pFormat = ComputeConformance(pStubMsg, pMemory, pFormat+4, 0);
1750   size = pStubMsg->MaxCount;
1751
1752   pStubMsg->BufferLength += size*esize;
1753
1754   EmbeddedPointerBufferSize(pStubMsg, pMemory, pFormat);
1755 }
1756
1757 /***********************************************************************
1758  *           NdrConformantArrayMemorySize [RPCRT4.@]
1759  */
1760 unsigned long WINAPI NdrConformantArrayMemorySize(PMIDL_STUB_MESSAGE pStubMsg,
1761                                                   PFORMAT_STRING pFormat)
1762 {
1763   DWORD size = 0;
1764   FIXME("(%p,%p): stub\n", pStubMsg, pFormat);
1765   if (pFormat[0] != RPC_FC_CARRAY) FIXME("format=%d\n", pFormat[0]);
1766
1767   pFormat = ReadConformance(pStubMsg, pFormat+4);
1768   size = pStubMsg->MaxCount;
1769
1770   EmbeddedPointerMemorySize(pStubMsg, pFormat);
1771
1772   return 0;
1773 }
1774
1775 /***********************************************************************
1776  *           NdrConformantArrayFree [RPCRT4.@]
1777  */
1778 void WINAPI NdrConformantArrayFree(PMIDL_STUB_MESSAGE pStubMsg,
1779                                    unsigned char *pMemory,
1780                                    PFORMAT_STRING pFormat)
1781 {
1782   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1783   if (pFormat[0] != RPC_FC_CARRAY) FIXME("format=%d\n", pFormat[0]);
1784
1785   EmbeddedPointerFree(pStubMsg, pMemory, pFormat);
1786 }
1787
1788
1789 /***********************************************************************
1790  *           NdrConformantVaryingArrayMarshall  [RPCRT4.@]
1791  */
1792 unsigned char* WINAPI NdrConformantVaryingArrayMarshall( PMIDL_STUB_MESSAGE pStubMsg,
1793                                                          unsigned char* pMemory,
1794                                                          PFORMAT_STRING pFormat )
1795 {
1796     FIXME( "stub\n" );
1797     return NULL;
1798 }
1799
1800
1801 /***********************************************************************
1802  *           NdrConformantVaryingArrayUnmarshall  [RPCRT4.@]
1803  */
1804 unsigned char* WINAPI NdrConformantVaryingArrayUnmarshall( PMIDL_STUB_MESSAGE pStubMsg,
1805                                                            unsigned char** ppMemory,
1806                                                            PFORMAT_STRING pFormat,
1807                                                            unsigned char fMustAlloc )
1808 {
1809     FIXME( "stub\n" );
1810     return NULL;
1811 }
1812
1813
1814 /***********************************************************************
1815  *           NdrConformantVaryingArrayFree  [RPCRT4.@]
1816  */
1817 void WINAPI NdrConformantVaryingArrayFree( PMIDL_STUB_MESSAGE pStubMsg,
1818                                            unsigned char* pMemory,
1819                                            PFORMAT_STRING pFormat )
1820 {
1821     FIXME( "stub\n" );
1822 }
1823
1824
1825 /***********************************************************************
1826  *           NdrConformantVaryingArrayBufferSize  [RPCRT4.@]
1827  */
1828 void WINAPI NdrConformantVaryingArrayBufferSize( PMIDL_STUB_MESSAGE pStubMsg,
1829                                                  unsigned char* pMemory, PFORMAT_STRING pFormat )
1830 {
1831     FIXME( "stub\n" );
1832 }
1833
1834
1835 /***********************************************************************
1836  *           NdrConformantVaryingArrayMemorySize  [RPCRT4.@]
1837  */
1838 unsigned long WINAPI NdrConformantVaryingArrayMemorySize( PMIDL_STUB_MESSAGE pStubMsg,
1839                                                           PFORMAT_STRING pFormat )
1840 {
1841     FIXME( "stub\n" );
1842     return 0;
1843 }
1844
1845
1846 /***********************************************************************
1847  *           NdrComplexArrayMarshall [RPCRT4.@]
1848  */
1849 unsigned char * WINAPI NdrComplexArrayMarshall(PMIDL_STUB_MESSAGE pStubMsg,
1850                                                unsigned char *pMemory,
1851                                                PFORMAT_STRING pFormat)
1852 {
1853   DWORD size = 0, count, def;
1854   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1855
1856   def = *(WORD*)&pFormat[2];
1857   pFormat += 4;
1858
1859   pFormat = ComputeConformance(pStubMsg, pMemory, pFormat, def);
1860   size = pStubMsg->MaxCount;
1861   TRACE("conformance=%ld\n", size);
1862
1863   if (*(DWORD*)pFormat != 0xffffffff)
1864     FIXME("compute variance\n");
1865   pFormat += 4;
1866
1867   NDR_LOCAL_UINT32_WRITE(pStubMsg->Buffer, size);
1868   pStubMsg->Buffer += 4;
1869
1870   for (count=0; count<size; count++)
1871     pMemory = ComplexMarshall(pStubMsg, pMemory, pFormat, NULL);
1872
1873   STD_OVERFLOW_CHECK(pStubMsg);
1874
1875   return NULL;
1876 }
1877
1878 /***********************************************************************
1879  *           NdrComplexArrayUnmarshall [RPCRT4.@]
1880  */
1881 unsigned char * WINAPI NdrComplexArrayUnmarshall(PMIDL_STUB_MESSAGE pStubMsg,
1882                                                  unsigned char **ppMemory,
1883                                                  PFORMAT_STRING pFormat,
1884                                                  unsigned char fMustAlloc)
1885 {
1886   DWORD size = 0, count, esize;
1887   unsigned char *pMemory;
1888   TRACE("(%p,%p,%p,%d)\n", pStubMsg, ppMemory, pFormat, fMustAlloc);
1889
1890   pFormat += 4;
1891
1892   pFormat = ReadConformance(pStubMsg, pFormat);
1893   size = pStubMsg->MaxCount;
1894   TRACE("conformance=%ld\n", size);
1895
1896   pFormat += 4;
1897
1898   esize = ComplexStructSize(pStubMsg, pFormat);
1899
1900   if (fMustAlloc || !*ppMemory)
1901     *ppMemory = NdrAllocate(pStubMsg, size*esize);
1902
1903   pMemory = *ppMemory;
1904   for (count=0; count<size; count++)
1905     pMemory = ComplexUnmarshall(pStubMsg, pMemory, pFormat, NULL, fMustAlloc);
1906
1907   return NULL;
1908 }
1909
1910 /***********************************************************************
1911  *           NdrComplexArrayBufferSize [RPCRT4.@]
1912  */
1913 void WINAPI NdrComplexArrayBufferSize(PMIDL_STUB_MESSAGE pStubMsg,
1914                                       unsigned char *pMemory,
1915                                       PFORMAT_STRING pFormat)
1916 {
1917   DWORD size = 0, count, def;
1918   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1919
1920   def = *(WORD*)&pFormat[2];
1921   pFormat += 4;
1922
1923   pFormat = ComputeConformance(pStubMsg, pMemory, pFormat, def);
1924   size = pStubMsg->MaxCount;
1925   TRACE("conformance=%ld\n", size);
1926
1927   if (*(DWORD*)pFormat != 0xffffffff)
1928     FIXME("compute variance\n");
1929   pFormat += 4;
1930
1931   for (count=0; count<size; count++)
1932     pMemory = ComplexBufferSize(pStubMsg, pMemory, pFormat, NULL);
1933 }
1934
1935 /***********************************************************************
1936  *           NdrComplexArrayMemorySize [RPCRT4.@]
1937  */
1938 unsigned long WINAPI NdrComplexArrayMemorySize(PMIDL_STUB_MESSAGE pStubMsg,
1939                                                PFORMAT_STRING pFormat)
1940 {
1941   DWORD size = 0;
1942   FIXME("(%p,%p): stub\n", pStubMsg, pFormat);
1943
1944   pFormat += 4;
1945
1946   pFormat = ReadConformance(pStubMsg, pFormat);
1947   size = pStubMsg->MaxCount;
1948   TRACE("conformance=%ld\n", size);
1949
1950   pFormat += 4;
1951
1952   return 0;
1953 }
1954
1955 /***********************************************************************
1956  *           NdrComplexArrayFree [RPCRT4.@]
1957  */
1958 void WINAPI NdrComplexArrayFree(PMIDL_STUB_MESSAGE pStubMsg,
1959                                 unsigned char *pMemory,
1960                                 PFORMAT_STRING pFormat)
1961 {
1962   DWORD size = 0, count, def;
1963   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1964
1965   def = *(WORD*)&pFormat[2];
1966   pFormat += 4;
1967
1968   pFormat = ComputeConformance(pStubMsg, pMemory, pFormat, def);
1969   size = pStubMsg->MaxCount;
1970   TRACE("conformance=%ld\n", size);
1971
1972   if (*(DWORD*)pFormat != 0xffffffff)
1973     FIXME("compute variance\n");
1974   pFormat += 4;
1975
1976   for (count=0; count<size; count++)
1977     pMemory = ComplexFree(pStubMsg, pMemory, pFormat, NULL);
1978 }
1979
1980 unsigned long UserMarshalFlags(PMIDL_STUB_MESSAGE pStubMsg)
1981 {
1982   return MAKELONG(pStubMsg->dwDestContext,
1983                   pStubMsg->RpcMsg->DataRepresentation);
1984 }
1985
1986 /***********************************************************************
1987  *           NdrUserMarshalMarshall [RPCRT4.@]
1988  */
1989 unsigned char * WINAPI NdrUserMarshalMarshall(PMIDL_STUB_MESSAGE pStubMsg,
1990                                               unsigned char *pMemory,
1991                                               PFORMAT_STRING pFormat)
1992 {
1993 /*  unsigned flags = pFormat[1]; */
1994   unsigned index = *(WORD*)&pFormat[2];
1995   unsigned long uflag = UserMarshalFlags(pStubMsg);
1996   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
1997   TRACE("index=%d\n", index);
1998
1999   pStubMsg->Buffer =
2000     pStubMsg->StubDesc->aUserMarshalQuadruple[index].pfnMarshall(
2001       &uflag, pStubMsg->Buffer, pMemory);
2002
2003   STD_OVERFLOW_CHECK(pStubMsg);
2004
2005   return NULL;
2006 }
2007
2008 /***********************************************************************
2009  *           NdrUserMarshalUnmarshall [RPCRT4.@]
2010  */
2011 unsigned char * WINAPI NdrUserMarshalUnmarshall(PMIDL_STUB_MESSAGE pStubMsg,
2012                                                  unsigned char **ppMemory,
2013                                                  PFORMAT_STRING pFormat,
2014                                                  unsigned char fMustAlloc)
2015 {
2016 /*  unsigned flags = pFormat[1];*/
2017   unsigned index = *(WORD*)&pFormat[2];
2018   DWORD memsize = *(WORD*)&pFormat[4];
2019   unsigned long uflag = UserMarshalFlags(pStubMsg);
2020   TRACE("(%p,%p,%p,%d)\n", pStubMsg, ppMemory, pFormat, fMustAlloc);
2021   TRACE("index=%d\n", index);
2022
2023   if (fMustAlloc || !*ppMemory)
2024     *ppMemory = NdrAllocate(pStubMsg, memsize);
2025
2026   pStubMsg->Buffer =
2027     pStubMsg->StubDesc->aUserMarshalQuadruple[index].pfnUnmarshall(
2028       &uflag, pStubMsg->Buffer, *ppMemory);
2029
2030   return NULL;
2031 }
2032
2033 /***********************************************************************
2034  *           NdrUserMarshalBufferSize [RPCRT4.@]
2035  */
2036 void WINAPI NdrUserMarshalBufferSize(PMIDL_STUB_MESSAGE pStubMsg,
2037                                       unsigned char *pMemory,
2038                                       PFORMAT_STRING pFormat)
2039 {
2040 /*  unsigned flags = pFormat[1];*/
2041   unsigned index = *(WORD*)&pFormat[2];
2042   DWORD bufsize = *(WORD*)&pFormat[6];
2043   unsigned long uflag = UserMarshalFlags(pStubMsg);
2044   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
2045   TRACE("index=%d\n", index);
2046
2047   if (bufsize) {
2048     TRACE("size=%ld\n", bufsize);
2049     pStubMsg->BufferLength += bufsize;
2050     return;
2051   }
2052
2053   pStubMsg->BufferLength =
2054     pStubMsg->StubDesc->aUserMarshalQuadruple[index].pfnBufferSize(
2055       &uflag, pStubMsg->BufferLength, pMemory);
2056 }
2057
2058 /***********************************************************************
2059  *           NdrUserMarshalMemorySize [RPCRT4.@]
2060  */
2061 unsigned long WINAPI NdrUserMarshalMemorySize(PMIDL_STUB_MESSAGE pStubMsg,
2062                                               PFORMAT_STRING pFormat)
2063 {
2064   unsigned index = *(WORD*)&pFormat[2];
2065 /*  DWORD memsize = *(WORD*)&pFormat[4]; */
2066   FIXME("(%p,%p): stub\n", pStubMsg, pFormat);
2067   TRACE("index=%d\n", index);
2068
2069   return 0;
2070 }
2071
2072 /***********************************************************************
2073  *           NdrUserMarshalFree [RPCRT4.@]
2074  */
2075 void WINAPI NdrUserMarshalFree(PMIDL_STUB_MESSAGE pStubMsg,
2076                                 unsigned char *pMemory,
2077                                 PFORMAT_STRING pFormat)
2078 {
2079 /*  unsigned flags = pFormat[1]; */
2080   unsigned index = *(WORD*)&pFormat[2];
2081   unsigned long uflag = UserMarshalFlags(pStubMsg);
2082   TRACE("(%p,%p,%p)\n", pStubMsg, pMemory, pFormat);
2083   TRACE("index=%d\n", index);
2084
2085   pStubMsg->StubDesc->aUserMarshalQuadruple[index].pfnFree(
2086     &uflag, pMemory);
2087 }
2088
2089 /***********************************************************************
2090  *           NdrClearOutParameters [RPCRT4.@]
2091  */
2092 void WINAPI NdrClearOutParameters(PMIDL_STUB_MESSAGE pStubMsg,
2093                                   PFORMAT_STRING pFormat,
2094                                   void *ArgAddr)
2095 {
2096   FIXME("(%p,%p,%p): stub\n", pStubMsg, pFormat, ArgAddr);
2097 }
2098
2099 /***********************************************************************
2100  *           NdrConvert [RPCRT4.@]
2101  */
2102 void WINAPI NdrConvert( PMIDL_STUB_MESSAGE pStubMsg, PFORMAT_STRING pFormat )
2103 {
2104   FIXME("(pStubMsg == ^%p, pFormat == ^%p): stub.\n", pStubMsg, pFormat);
2105   /* FIXME: since this stub doesn't do any converting, the proper behavior
2106      is to raise an exception */
2107 }
2108
2109 /***********************************************************************
2110  *           NdrConvert2 [RPCRT4.@]
2111  */
2112 void WINAPI NdrConvert2( PMIDL_STUB_MESSAGE pStubMsg, PFORMAT_STRING pFormat, long NumberParams )
2113 {
2114   FIXME("(pStubMsg == ^%p, pFormat == ^%p, NumberParams == %ld): stub.\n",
2115     pStubMsg, pFormat, NumberParams);
2116   /* FIXME: since this stub doesn't do any converting, the proper behavior
2117      is to raise an exception */
2118 }