ReactOS 0.4.16-dev-91-g764881a
ndr_typelib.c File Reference
#include <assert.h>
#include "oaidl.h"
#include "rpcproxy.h"
#include "ndrtypes.h"
#include "wine/debug.h"
#include "wine/heap.h"
#include "cpsf.h"
#include "initguid.h"
#include "ndr_types.h"
#include "ndr_stubless.h"
Include dependency graph for ndr_typelib.c:

Go to the source code of this file.

Classes

struct  typelib_proxy
 
struct  typelib_stub
 

Macros

#define COBJMACROS
 
#define USE_STUBLESS_PROXY
 
#define WRITE_CHAR(str, len, val)    do { if ((str)) (str)[(len)] = (val); (len)++; } while (0)
 
#define WRITE_SHORT(str, len, val)    do { if ((str)) *((short *)((str) + (len))) = (val); (len) += 2; } while (0)
 
#define WRITE_INT(str, len, val)    do { if ((str)) *((int *)((str) + (len))) = (val); (len) += 4; } while (0)
 

Functions

 WINE_DEFAULT_DEBUG_CHANNEL (ole)
 
static size_t write_type_tfs (ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEDESC *desc, BOOL toplevel, BOOL onstack)
 
static const MIDL_STUBLESS_PROXY_INFOget_ndr_types_proxy_info (void)
 
static const NDR_PARAM_OIFget_ndr_types_params (unsigned int *nb_params)
 
static unsigned short get_tfs_offset (int param)
 
static const unsigned charget_type_format_string (size_t *size)
 
static unsigned short write_oleaut_tfs (VARTYPE vt)
 
static unsigned char get_basetype (ITypeInfo *typeinfo, TYPEDESC *desc)
 
static unsigned int type_memsize (ITypeInfo *typeinfo, TYPEDESC *desc)
 
static BOOL type_pointer_is_iface (ITypeInfo *typeinfo, TYPEDESC *tdesc)
 
static unsigned char get_array_fc (ITypeInfo *typeinfo, TYPEDESC *desc)
 
static unsigned char get_struct_fc (ITypeInfo *typeinfo, TYPEATTR *attr)
 
static unsigned char get_struct_member_fc (ITypeInfo *typeinfo, TYPEDESC *tdesc)
 
static BOOL type_is_non_iface_pointer (ITypeInfo *typeinfo, TYPEDESC *desc)
 
static void write_struct_members (ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEATTR *attr)
 
static void write_simple_struct_tfs (ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEATTR *attr)
 
static BOOL type_needs_pointer_deref (ITypeInfo *typeinfo, TYPEDESC *desc)
 
static void write_complex_struct_pointer_layout (ITypeInfo *typeinfo, TYPEDESC *desc, unsigned char *str, size_t *len)
 
static size_t write_complex_struct_pointer_ref (ITypeInfo *typeinfo, TYPEDESC *desc, unsigned char *str, size_t *len)
 
static void write_complex_struct_tfs (ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEATTR *attr)
 
static size_t write_struct_tfs (ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEATTR *attr)
 
static size_t write_array_tfs (ITypeInfo *typeinfo, unsigned char *str, size_t *len, ARRAYDESC *desc)
 
static size_t write_ip_tfs (unsigned char *str, size_t *len, const GUID *iid)
 
static void get_default_iface (ITypeInfo *typeinfo, WORD count, GUID *iid)
 
static size_t write_pointer_tfs (ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEDESC *desc, BOOL toplevel, BOOL onstack)
 
static unsigned short get_stack_size (ITypeInfo *typeinfo, TYPEDESC *desc)
 
static HRESULT get_param_pointer_info (ITypeInfo *typeinfo, TYPEDESC *tdesc, int is_in, int is_out, unsigned short *server_size, unsigned short *flags, unsigned char *basetype, TYPEDESC **tfs_tdesc)
 
static HRESULT get_param_info (ITypeInfo *typeinfo, TYPEDESC *tdesc, int is_in, int is_out, unsigned short *server_size, unsigned short *flags, unsigned char *basetype, TYPEDESC **tfs_tdesc)
 
static HRESULT write_param_fs (ITypeInfo *typeinfo, unsigned char *type, size_t *typelen, unsigned char *proc, size_t *proclen, ELEMDESC *desc, BOOL is_return, unsigned short *stack_offset)
 
static void write_proc_func_header (ITypeInfo *typeinfo, FUNCDESC *desc, WORD proc_idx, unsigned char *proc, size_t *proclen)
 
static HRESULT write_iface_fs (ITypeInfo *typeinfo, WORD funcs, WORD parentfuncs, unsigned char *type, size_t *typelen, unsigned char *proc, size_t *proclen, unsigned short *offset)
 
static HRESULT build_format_strings (ITypeInfo *typeinfo, WORD funcs, WORD parentfuncs, const unsigned char **type_ret, const unsigned char **proc_ret, unsigned short **offset_ret)
 
static HRESULT get_iface_info (ITypeInfo **typeinfo, WORD *funcs, WORD *parentfuncs, GUID *parentiid)
 
static void init_stub_desc (MIDL_STUB_DESC *desc)
 
static ULONG WINAPI typelib_proxy_Release (IRpcProxyBuffer *iface)
 
static HRESULT typelib_proxy_init (struct typelib_proxy *proxy, IUnknown *outer, ULONG count, const GUID *parentiid, IRpcProxyBuffer **proxy_buffer, void **out)
 
HRESULT WINAPI CreateProxyFromTypeInfo (ITypeInfo *typeinfo, IUnknown *outer, REFIID iid, IRpcProxyBuffer **proxy_buffer, void **out)
 
static ULONG WINAPI typelib_stub_Release (IRpcStubBuffer *iface)
 
static HRESULT typelib_stub_init (struct typelib_stub *stub, IUnknown *server, const GUID *parentiid, IRpcStubBuffer **stub_buffer)
 
HRESULT WINAPI CreateStubFromTypeInfo (ITypeInfo *typeinfo, REFIID iid, IUnknown *server, IRpcStubBuffer **stub_buffer)
 

Variables

const ExtendedProxyFileInfo ndr_types_ProxyFileInfo
 
static const unsigned short MustSize = 0x0001
 
static const unsigned short MustFree = 0x0002
 
static const unsigned short IsIn = 0x0008
 
static const unsigned short IsOut = 0x0010
 
static const unsigned short IsReturn = 0x0020
 
static const unsigned short IsBasetype = 0x0040
 
static const unsigned short IsByValue = 0x0080
 
static const unsigned short IsSimpleRef = 0x0100
 
static const IRpcProxyBufferVtbl typelib_proxy_vtbl
 

Macro Definition Documentation

◆ COBJMACROS

#define COBJMACROS

Definition at line 23 of file ndr_typelib.c.

◆ USE_STUBLESS_PROXY

#define USE_STUBLESS_PROXY

Definition at line 28 of file ndr_typelib.c.

◆ WRITE_CHAR

#define WRITE_CHAR (   str,
  len,
  val 
)     do { if ((str)) (str)[(len)] = (val); (len)++; } while (0)

Definition at line 44 of file ndr_typelib.c.

◆ WRITE_INT

#define WRITE_INT (   str,
  len,
  val 
)     do { if ((str)) *((int *)((str) + (len))) = (val); (len) += 4; } while (0)

Definition at line 48 of file ndr_typelib.c.

◆ WRITE_SHORT

#define WRITE_SHORT (   str,
  len,
  val 
)     do { if ((str)) *((short *)((str) + (len))) = (val); (len) += 2; } while (0)

Definition at line 46 of file ndr_typelib.c.

Function Documentation

◆ build_format_strings()

static HRESULT build_format_strings ( ITypeInfo typeinfo,
WORD  funcs,
WORD  parentfuncs,
const unsigned char **  type_ret,
const unsigned char **  proc_ret,
unsigned short **  offset_ret 
)
static

Definition at line 1162 of file ndr_typelib.c.

1165{
1166 size_t tfs_size;
1167 const unsigned char *tfs = get_type_format_string( &tfs_size );
1168 size_t typelen = tfs_size, proclen = 0;
1169 unsigned char *type, *proc;
1170 unsigned short *offset;
1171 HRESULT hr;
1172
1173 hr = write_iface_fs(typeinfo, funcs, parentfuncs, NULL, &typelen, NULL, &proclen, NULL);
1174 if (FAILED(hr)) return hr;
1175
1176 type = heap_alloc(typelen);
1177 proc = heap_alloc(proclen);
1178 offset = heap_alloc((parentfuncs + funcs - 3) * sizeof(*offset));
1179 if (!type || !proc || !offset)
1180 {
1181 ERR("Failed to allocate format strings.\n");
1182 hr = E_OUTOFMEMORY;
1183 goto err;
1184 }
1185
1186 memcpy(type, tfs, tfs_size);
1187 typelen = tfs_size;
1188 proclen = 0;
1189
1190 hr = write_iface_fs(typeinfo, funcs, parentfuncs, type, &typelen, proc, &proclen, offset);
1191 if (SUCCEEDED(hr))
1192 {
1193 *type_ret = type;
1194 *proc_ret = proc;
1195 *offset_ret = offset;
1196 return S_OK;
1197 }
1198
1199err:
1200 heap_free(type);
1201 heap_free(proc);
1203 return hr;
1204}
static void * heap_alloc(size_t len)
Definition: appwiz.h:66
static BOOL heap_free(void *mem)
Definition: appwiz.h:76
#define ERR(fmt,...)
Definition: precomp.h:57
#define E_OUTOFMEMORY
Definition: ddrawi.h:100
#define NULL
Definition: types.h:112
GLuint GLuint GLsizei GLenum type
Definition: gl.h:1545
GLintptr offset
Definition: glext.h:5920
#define S_OK
Definition: intsafe.h:52
#define SUCCEEDED(hr)
Definition: intsafe.h:50
#define FAILED(hr)
Definition: intsafe.h:51
#define memcpy(s1, s2, n)
Definition: mkisofs.h:878
static HRESULT write_iface_fs(ITypeInfo *typeinfo, WORD funcs, WORD parentfuncs, unsigned char *type, size_t *typelen, unsigned char *proc, size_t *proclen, unsigned short *offset)
Definition: ndr_typelib.c:1113
static const unsigned char * get_type_format_string(size_t *size)
Definition: ndr_typelib.c:90
static HANDLE proc()
Definition: pdb.c:34
#define err(...)
static struct __wine_debug_functions funcs
Definition: debug.c:59
HRESULT hr
Definition: shlfolder.c:183

Referenced by CreateProxyFromTypeInfo(), and CreateStubFromTypeInfo().

◆ CreateProxyFromTypeInfo()

HRESULT WINAPI CreateProxyFromTypeInfo ( ITypeInfo typeinfo,
IUnknown outer,
REFIID  iid,
IRpcProxyBuffer **  proxy_buffer,
void **  out 
)

Definition at line 1358 of file ndr_typelib.c.

1360{
1361 struct typelib_proxy *proxy;
1362 WORD funcs, parentfuncs, i;
1363 GUID parentiid;
1364 HRESULT hr;
1365
1366 TRACE("typeinfo %p, outer %p, iid %s, proxy_buffer %p, out %p.\n",
1367 typeinfo, outer, debugstr_guid(iid), proxy_buffer, out);
1368
1369 hr = get_iface_info(&typeinfo, &funcs, &parentfuncs, &parentiid);
1370 if (FAILED(hr))
1371 return hr;
1372
1373 if (!(proxy = heap_alloc_zero(sizeof(*proxy))))
1374 {
1375 ERR("Failed to allocate proxy object.\n");
1376 return E_OUTOFMEMORY;
1377 }
1378
1379 init_stub_desc(&proxy->stub_desc);
1380 proxy->proxy_info.pStubDesc = &proxy->stub_desc;
1381
1382 proxy->proxy_vtbl = heap_alloc_zero(sizeof(proxy->proxy_vtbl->header) + (funcs + parentfuncs) * sizeof(void *));
1383 if (!proxy->proxy_vtbl)
1384 {
1385 ERR("Failed to allocate proxy vtbl.\n");
1387 return E_OUTOFMEMORY;
1388 }
1389 proxy->proxy_vtbl->header.pStublessProxyInfo = &proxy->proxy_info;
1390 proxy->iid = *iid;
1391 proxy->proxy_vtbl->header.piid = &proxy->iid;
1392 fill_delegated_proxy_table((IUnknownVtbl *)proxy->proxy_vtbl->Vtbl, parentfuncs);
1393 for (i = 0; i < funcs; i++)
1394 proxy->proxy_vtbl->Vtbl[parentfuncs + i] = (void *)-1;
1395
1396 hr = build_format_strings(typeinfo, funcs, parentfuncs, &proxy->stub_desc.pFormatTypes,
1397 &proxy->proxy_info.ProcFormatString, &proxy->offset_table);
1398 if (FAILED(hr))
1399 {
1400 heap_free(proxy->proxy_vtbl);
1402 return hr;
1403 }
1404 proxy->proxy_info.FormatStringOffset = &proxy->offset_table[-3];
1405
1406 hr = typelib_proxy_init(proxy, outer, funcs + parentfuncs, &parentiid, proxy_buffer, out);
1407 if (FAILED(hr))
1408 {
1409 heap_free((void *)proxy->stub_desc.pFormatTypes);
1410 heap_free((void *)proxy->proxy_info.ProcFormatString);
1411 heap_free((void *)proxy->offset_table);
1412 heap_free(proxy->proxy_vtbl);
1414 }
1415
1416 return hr;
1417}
BOOL fill_delegated_proxy_table(IUnknownVtbl *vtbl, DWORD num) DECLSPEC_HIDDEN
Definition: cstub.c:266
unsigned short WORD
Definition: ntddk_ex.h:93
int proxy
Definition: main.c:67
GLsizei GLenum const GLvoid GLsizei GLenum GLbyte GLbyte GLbyte GLdouble GLdouble GLdouble GLfloat GLfloat GLfloat GLint GLint GLint GLshort GLshort GLshort GLubyte GLubyte GLubyte GLuint GLuint GLuint GLushort GLushort GLushort GLbyte GLbyte GLbyte GLbyte GLdouble GLdouble GLdouble GLdouble GLfloat GLfloat GLfloat GLfloat GLint GLint GLint GLint GLshort GLshort GLshort GLshort GLubyte GLubyte GLubyte GLubyte GLuint GLuint GLuint GLuint GLushort GLushort GLushort GLushort GLboolean const GLdouble const GLfloat const GLint const GLshort const GLbyte const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLdouble const GLfloat const GLfloat const GLint const GLint const GLshort const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort const GLdouble const GLfloat const GLint const GLshort GLenum GLenum GLenum GLfloat GLenum GLint GLenum GLenum GLenum GLfloat GLenum GLenum GLint GLenum GLfloat GLenum GLint GLint GLushort GLenum GLenum GLfloat GLenum GLenum GLint GLfloat const GLubyte GLenum GLenum GLenum const GLfloat GLenum GLenum const GLint GLenum GLint GLint GLsizei GLsizei GLint GLenum GLenum const GLvoid GLenum GLenum const GLfloat GLenum GLenum const GLint GLenum GLenum const GLdouble GLenum GLenum const GLfloat GLenum GLenum const GLint GLsizei GLuint GLfloat GLuint GLbitfield GLfloat GLint GLuint GLboolean GLenum GLfloat GLenum GLbitfield GLenum GLfloat GLfloat GLint GLint const GLfloat GLenum GLfloat GLfloat GLint GLint GLfloat GLfloat GLint GLint const GLfloat GLint GLfloat GLfloat GLint GLfloat GLfloat GLint GLfloat GLfloat const GLdouble const GLfloat const GLdouble const GLfloat GLint i
Definition: glfuncs.h:248
#define debugstr_guid
Definition: kernel32.h:35
static HRESULT build_format_strings(ITypeInfo *typeinfo, WORD funcs, WORD parentfuncs, const unsigned char **type_ret, const unsigned char **proc_ret, unsigned short **offset_ret)
Definition: ndr_typelib.c:1162
static HRESULT get_iface_info(ITypeInfo **typeinfo, WORD *funcs, WORD *parentfuncs, GUID *parentiid)
Definition: ndr_typelib.c:1207
static void init_stub_desc(MIDL_STUB_DESC *desc)
Definition: ndr_typelib.c:1278
static HRESULT typelib_proxy_init(struct typelib_proxy *proxy, IUnknown *outer, ULONG count, const GUID *parentiid, IRpcProxyBuffer **proxy_buffer, void **out)
Definition: ndr_typelib.c:1330
static FILE * out
Definition: regtests2xml.c:44
#define TRACE(s)
Definition: solgame.cpp:4

Referenced by dispatch_typelib_ps_CreateProxy().

◆ CreateStubFromTypeInfo()

HRESULT WINAPI CreateStubFromTypeInfo ( ITypeInfo typeinfo,
REFIID  iid,
IUnknown server,
IRpcStubBuffer **  stub_buffer 
)

Definition at line 1493 of file ndr_typelib.c.

1495{
1496 WORD funcs, parentfuncs, i;
1497 struct typelib_stub *stub;
1498 GUID parentiid;
1499 HRESULT hr;
1500
1501 TRACE("typeinfo %p, iid %s, server %p, stub_buffer %p.\n",
1502 typeinfo, debugstr_guid(iid), server, stub_buffer);
1503
1504 hr = get_iface_info(&typeinfo, &funcs, &parentfuncs, &parentiid);
1505 if (FAILED(hr))
1506 return hr;
1507
1508 if (!(stub = heap_alloc_zero(sizeof(*stub))))
1509 {
1510 ERR("Failed to allocate stub object.\n");
1511 return E_OUTOFMEMORY;
1512 }
1513
1514 init_stub_desc(&stub->stub_desc);
1515 stub->server_info.pStubDesc = &stub->stub_desc;
1516
1517 hr = build_format_strings(typeinfo, funcs, parentfuncs, &stub->stub_desc.pFormatTypes,
1518 &stub->server_info.ProcString, &stub->offset_table);
1519 if (FAILED(hr))
1520 {
1521 heap_free(stub);
1522 return hr;
1523 }
1524 stub->server_info.FmtStringOffset = &stub->offset_table[-3];
1525
1526 stub->iid = *iid;
1527 stub->stub_vtbl.header.piid = &stub->iid;
1528 stub->stub_vtbl.header.pServerInfo = &stub->server_info;
1529 stub->stub_vtbl.header.DispatchTableCount = funcs + parentfuncs;
1530
1531 if (!IsEqualGUID(&parentiid, &IID_IUnknown))
1532 {
1533 stub->dispatch_table = heap_alloc((funcs + parentfuncs) * sizeof(void *));
1534 for (i = 3; i < parentfuncs; i++)
1535 stub->dispatch_table[i - 3] = NdrStubForwardingFunction;
1536 for (; i < funcs + parentfuncs; i++)
1537 stub->dispatch_table[i - 3] = (PRPC_STUB_FUNCTION)NdrStubCall2;
1538 stub->stub_vtbl.header.pDispatchTable = &stub->dispatch_table[-3];
1539 stub->stub_vtbl.Vtbl = CStdStubBuffer_Delegating_Vtbl;
1540 }
1541 else
1542 stub->stub_vtbl.Vtbl = CStdStubBuffer_Vtbl;
1543 stub->stub_vtbl.Vtbl.Release = typelib_stub_Release;
1544
1545 hr = typelib_stub_init(stub, server, &parentiid, stub_buffer);
1546 if (FAILED(hr))
1547 {
1548 heap_free((void *)stub->stub_desc.pFormatTypes);
1549 heap_free((void *)stub->server_info.ProcString);
1550 heap_free(stub->offset_table);
1551 heap_free(stub);
1552 }
1553
1554 return hr;
1555}
const GUID IID_IUnknown
const IRpcStubBufferVtbl CStdStubBuffer_Delegating_Vtbl
Definition: cstub.c:601
void __RPC_STUB NdrStubForwardingFunction(IRpcStubBuffer *iface, IRpcChannelBuffer *pChannel, PRPC_MESSAGE pMsg, DWORD *pdwStubPhase)
Definition: cstub.c:624
const IRpcStubBufferVtbl CStdStubBuffer_Vtbl
Definition: cstub.c:552
#define for
Definition: utility.h:88
LONG WINAPI NdrStubCall2(struct IRpcStubBuffer *pThis, struct IRpcChannelBuffer *pChannel, PRPC_MESSAGE pRpcMsg, DWORD *pdwStubPhase)
static ULONG WINAPI typelib_stub_Release(IRpcStubBuffer *iface)
Definition: ndr_typelib.c:1430
static HRESULT typelib_stub_init(struct typelib_stub *stub, IUnknown *server, const GUID *parentiid, IRpcStubBuffer **stub_buffer)
Definition: ndr_typelib.c:1459
#define IsEqualGUID(rguid1, rguid2)
Definition: guiddef.h:147
void(__RPC_STUB * PRPC_STUB_FUNCTION)(IRpcStubBuffer *This, IRpcChannelBuffer *_pRpcChannelBuffer, PRPC_MESSAGE _pRpcMessage, DWORD *pdwStubPhase)
Definition: rpcproxy.h:88
Definition: stubgen.c:11
struct _stub stub
static rfbScreenInfoPtr server
Definition: vnc.c:74

Referenced by dispatch_typelib_ps_CreateStub().

◆ get_array_fc()

static unsigned char get_array_fc ( ITypeInfo typeinfo,
TYPEDESC *  desc 
)
static

Definition at line 330 of file ndr_typelib.c.

331{
332 switch (desc->vt)
333 {
334 case VT_CY:
335 return FC_LGFARRAY;
336 case VT_CARRAY:
337 return get_array_fc(typeinfo, &desc->lpadesc->tdescElem);
338 case VT_USERDEFINED:
339 {
340 ITypeInfo *refinfo;
341 TYPEATTR *attr;
342 unsigned char fc;
343
344 ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
345 ITypeInfo_GetTypeAttr(refinfo, &attr);
346
347 if (attr->typekind == TKIND_ENUM)
348 fc = FC_LGFARRAY;
349 else if (attr->typekind == TKIND_RECORD && get_struct_fc(refinfo, attr) == FC_STRUCT)
350 fc = FC_LGFARRAY;
351 else if (attr->typekind == TKIND_ALIAS)
352 fc = get_array_fc(refinfo, &attr->tdescAlias);
353 else
355
356 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
357 ITypeInfo_Release(refinfo);
358
359 return fc;
360 }
361 default:
363 }
364}
PFOR_CONTEXT fc
Definition: for.c:57
@ VT_CY
Definition: compat.h:2301
@ VT_USERDEFINED
Definition: compat.h:2323
@ VT_CARRAY
Definition: compat.h:2322
static const WCHAR desc[]
Definition: protectdata.c:36
static unsigned char get_array_fc(ITypeInfo *typeinfo, TYPEDESC *desc)
Definition: ndr_typelib.c:330
static unsigned char get_basetype(ITypeInfo *typeinfo, TYPEDESC *desc)
Definition: ndr_typelib.c:112
static unsigned char get_struct_fc(ITypeInfo *typeinfo, TYPEATTR *attr)
Definition: ndr_typelib.c:308
@ FC_STRUCT
Definition: ndrtypes.h:157
@ FC_BOGUS_ARRAY
Definition: ndrtypes.h:170
@ FC_LGFARRAY
Definition: ndrtypes.h:167
Definition: cookie.c:202
@ TKIND_RECORD
Definition: widltypes.h:220
@ TKIND_ENUM
Definition: widltypes.h:219
@ TKIND_ALIAS
Definition: widltypes.h:225

Referenced by get_array_fc(), get_struct_member_fc(), and write_array_tfs().

◆ get_basetype()

static unsigned char get_basetype ( ITypeInfo typeinfo,
TYPEDESC *  desc 
)
static

Definition at line 112 of file ndr_typelib.c.

113{
114 ITypeInfo *refinfo;
115 unsigned char ret;
116 TYPEATTR *attr;
117
118 switch (desc->vt)
119 {
120 case VT_I1: return FC_SMALL;
121 case VT_BOOL:
122 case VT_I2: return FC_SHORT;
123 case VT_INT:
124 case VT_ERROR:
125 case VT_HRESULT:
126 case VT_I4: return FC_LONG;
127 case VT_I8:
128 case VT_UI8: return FC_HYPER;
129 case VT_UI1: return FC_USMALL;
130 case VT_UI2: return FC_USHORT;
131 case VT_UINT:
132 case VT_UI4: return FC_ULONG;
133 case VT_R4: return FC_FLOAT;
134 case VT_DATE:
135 case VT_R8: return FC_DOUBLE;
136 case VT_USERDEFINED:
137 ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
138 ITypeInfo_GetTypeAttr(refinfo, &attr);
139 if (attr->typekind == TKIND_ENUM)
140 ret = FC_ENUM32;
141 else if (attr->typekind == TKIND_ALIAS)
142 ret = get_basetype(refinfo, &attr->tdescAlias);
143 else
144 ret = 0;
145 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
146 ITypeInfo_Release(refinfo);
147 return ret;
148 default: return 0;
149 }
150}
@ VT_UI8
Definition: compat.h:2315
@ VT_INT
Definition: compat.h:2316
@ VT_R4
Definition: compat.h:2299
@ VT_UI2
Definition: compat.h:2312
@ VT_ERROR
Definition: compat.h:2305
@ VT_R8
Definition: compat.h:2300
@ VT_I8
Definition: compat.h:2314
@ VT_I1
Definition: compat.h:2310
@ VT_I4
Definition: compat.h:2298
@ VT_HRESULT
Definition: compat.h:2319
@ VT_DATE
Definition: compat.h:2302
@ VT_BOOL
Definition: compat.h:2306
@ VT_I2
Definition: compat.h:2297
@ VT_UI4
Definition: compat.h:2313
@ VT_UINT
Definition: compat.h:2317
@ VT_UI1
Definition: compat.h:2311
@ FC_USMALL
Definition: ndrtypes.h:138
@ FC_SMALL
Definition: ndrtypes.h:137
@ FC_DOUBLE
Definition: ndrtypes.h:146
@ FC_USHORT
Definition: ndrtypes.h:141
@ FC_LONG
Definition: ndrtypes.h:142
@ FC_HYPER
Definition: ndrtypes.h:145
@ FC_ULONG
Definition: ndrtypes.h:143
@ FC_FLOAT
Definition: ndrtypes.h:144
@ FC_ENUM32
Definition: ndrtypes.h:148
@ FC_SHORT
Definition: ndrtypes.h:140
int ret

Referenced by get_array_fc(), get_basetype(), get_param_info(), get_param_pointer_info(), get_struct_member_fc(), write_array_tfs(), write_complex_struct_pointer_layout(), write_complex_struct_pointer_ref(), write_complex_struct_tfs(), write_pointer_tfs(), write_proc_func_header(), write_struct_members(), and write_type_tfs().

◆ get_default_iface()

static void get_default_iface ( ITypeInfo typeinfo,
WORD  count,
GUID iid 
)
static

Definition at line 684 of file ndr_typelib.c.

685{
686 ITypeInfo *refinfo;
687 HREFTYPE reftype;
688 TYPEATTR *attr;
689 int flags, i;
690
691 for (i = 0; i < count; ++i)
692 {
693 ITypeInfo_GetImplTypeFlags(typeinfo, i, &flags);
694 if (flags & IMPLTYPEFLAG_FDEFAULT)
695 break;
696 }
697
698 /* If no interface was explicitly marked default, choose the first one. */
699 if (i == count)
700 i = 0;
701
702 ITypeInfo_GetRefTypeOfImplType(typeinfo, i, &reftype);
703 ITypeInfo_GetRefTypeInfo(typeinfo, reftype, &refinfo);
704 ITypeInfo_GetTypeAttr(refinfo, &attr);
705 *iid = attr->guid;
706 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
707 ITypeInfo_Release(refinfo);
708}
GLuint GLuint GLsizei count
Definition: gl.h:1545
GLbitfield flags
Definition: glext.h:7161

Referenced by write_pointer_tfs().

◆ get_iface_info()

static HRESULT get_iface_info ( ITypeInfo **  typeinfo,
WORD funcs,
WORD parentfuncs,
GUID parentiid 
)
static

Definition at line 1207 of file ndr_typelib.c.

1209{
1210 ITypeInfo *real_typeinfo, *parentinfo;
1211 TYPEATTR *typeattr;
1213 TLIBATTR *libattr;
1214 TYPEKIND typekind;
1215 HREFTYPE reftype;
1216 SYSKIND syskind;
1217 HRESULT hr;
1218
1219 /* Dual interfaces report their size to be sizeof(IDispatchVtbl) and their
1220 * implemented type to be IDispatch. We need to retrieve the underlying
1221 * interface to get that information. */
1222 hr = ITypeInfo_GetTypeAttr(*typeinfo, &typeattr);
1223 if (FAILED(hr))
1224 return hr;
1225 typekind = typeattr->typekind;
1226 ITypeInfo_ReleaseTypeAttr(*typeinfo, typeattr);
1227 if (typekind == TKIND_DISPATCH)
1228 {
1229 hr = ITypeInfo_GetRefTypeOfImplType(*typeinfo, -1, &reftype);
1230 if (FAILED(hr))
1231 return hr;
1232
1233 hr = ITypeInfo_GetRefTypeInfo(*typeinfo, reftype, &real_typeinfo);
1234 if (FAILED(hr))
1235 return hr;
1236
1237 ITypeInfo_Release(*typeinfo);
1238 *typeinfo = real_typeinfo;
1239 }
1240
1241 hr = ITypeInfo_GetContainingTypeLib(*typeinfo, &typelib, NULL);
1242 if (FAILED(hr))
1243 return hr;
1244
1245 hr = ITypeLib_GetLibAttr(typelib, &libattr);
1246 if (FAILED(hr))
1247 {
1248 ITypeLib_Release(typelib);
1249 return hr;
1250 }
1251 syskind = libattr->syskind;
1252 ITypeLib_ReleaseTLibAttr(typelib, libattr);
1253 ITypeLib_Release(typelib);
1254
1255 hr = ITypeInfo_GetTypeAttr(*typeinfo, &typeattr);
1256 if (FAILED(hr))
1257 return hr;
1258 *funcs = typeattr->cFuncs;
1259 *parentfuncs = typeattr->cbSizeVft / (syskind == SYS_WIN64 ? 8 : 4) - *funcs;
1260 ITypeInfo_ReleaseTypeAttr(*typeinfo, typeattr);
1261
1262 hr = ITypeInfo_GetRefTypeOfImplType(*typeinfo, 0, &reftype);
1263 if (FAILED(hr))
1264 return hr;
1265 hr = ITypeInfo_GetRefTypeInfo(*typeinfo, reftype, &parentinfo);
1266 if (FAILED(hr))
1267 return hr;
1268 hr = ITypeInfo_GetTypeAttr(parentinfo, &typeattr);
1269 if (FAILED(hr))
1270 return hr;
1271 *parentiid = typeattr->guid;
1272 ITypeInfo_ReleaseTypeAttr(parentinfo, typeattr);
1273 ITypeInfo_Release(parentinfo);
1274
1275 return hr;
1276}
static OLECHAR OLECHAR *static SYSKIND
Definition: typelib.c:80
@ TKIND_DISPATCH
Definition: widltypes.h:223
@ SYS_WIN64
Definition: widltypes.h:554

Referenced by CreateProxyFromTypeInfo(), and CreateStubFromTypeInfo().

◆ get_ndr_types_params()

static const NDR_PARAM_OIF * get_ndr_types_params ( unsigned int nb_params)
static

Definition at line 58 of file ndr_typelib.c.

59{
61 const unsigned char *format = proxy->ProcFormatString + proxy->FormatStringOffset[3];
64
65 if (proc->Oi_flags & Oi_HAS_RPCFLAGS)
66 format += sizeof(NDR_PROC_HEADER_RPC);
67 else
68 format += sizeof(NDR_PROC_HEADER);
69
71 format += sizeof(*header);
72 if (header->Oi2Flags.HasExtensions)
73 {
75 format += ext->Size;
76 }
77 *nb_params = header->number_of_params;
78 return (const NDR_PARAM_OIF *)format;
79}
static const WCHAR *const ext[]
Definition: module.c:53
struct _NDR_PROC_HEADER_RPC NDR_PROC_HEADER_RPC
struct _NDR_PROC_HEADER NDR_PROC_HEADER
static const MIDL_STUBLESS_PROXY_INFO * get_ndr_types_proxy_info(void)
Definition: ndr_typelib.c:53
#define Oi_HAS_RPCFLAGS
Definition: ndrtypes.h:293
Definition: format.c:58

Referenced by get_tfs_offset(), and get_type_format_string().

◆ get_ndr_types_proxy_info()

static const MIDL_STUBLESS_PROXY_INFO * get_ndr_types_proxy_info ( void  )
static

Definition at line 53 of file ndr_typelib.c.

54{
55 return ndr_types_ProxyFileInfo.pProxyVtblList[0]->header.pStublessProxyInfo;
56}
const ExtendedProxyFileInfo ndr_types_ProxyFileInfo
CInterfaceProxyHeader header
Definition: rpcproxy.h:80
const PCInterfaceProxyVtblList * pProxyVtblList
Definition: rpcproxy.h:48

Referenced by get_ndr_types_params(), get_type_format_string(), and init_stub_desc().

◆ get_param_info()

static HRESULT get_param_info ( ITypeInfo typeinfo,
TYPEDESC *  tdesc,
int  is_in,
int  is_out,
unsigned short server_size,
unsigned short flags,
unsigned char basetype,
TYPEDESC **  tfs_tdesc 
)
static

Definition at line 944 of file ndr_typelib.c.

947{
948 ITypeInfo *refinfo;
949 HRESULT hr = S_OK;
950 TYPEATTR *attr;
951
952 *server_size = 0;
953 *flags = MustSize;
954 *basetype = 0;
955 *tfs_tdesc = tdesc;
956
957 TRACE("vt %u\n", tdesc->vt);
958
959 switch (tdesc->vt)
960 {
961 case VT_VARIANT:
962#if !defined(__i386__) && !defined(__arm__)
964 break;
965#endif
966 /* otherwise fall through */
967 case VT_BSTR:
968 case VT_SAFEARRAY:
969 case VT_CY:
971 break;
972 case VT_UNKNOWN:
973 case VT_DISPATCH:
974 case VT_CARRAY:
975 *flags |= MustFree;
976 break;
977 case VT_PTR:
978 return get_param_pointer_info(typeinfo, tdesc->lptdesc, is_in, is_out,
979 server_size, flags, basetype, tfs_tdesc);
980 case VT_USERDEFINED:
981 ITypeInfo_GetRefTypeInfo(typeinfo, tdesc->hreftype, &refinfo);
982 ITypeInfo_GetTypeAttr(refinfo, &attr);
983
984 switch (attr->typekind)
985 {
986 case TKIND_ENUM:
987 *flags |= IsBasetype;
988 *basetype = FC_ENUM32;
989 break;
990 case TKIND_RECORD:
991#if defined(__i386__) || defined(__arm__)
993#else
994 if (attr->cbSizeInstance <= 8)
996 else
998#endif
999 break;
1000 case TKIND_ALIAS:
1001 hr = get_param_info(refinfo, &attr->tdescAlias, is_in, is_out,
1002 server_size, flags, basetype, tfs_tdesc);
1003 break;
1004 default:
1005 FIXME("unhandled kind %#x\n", attr->typekind);
1006 hr = E_NOTIMPL;
1007 break;
1008 }
1009
1010 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
1011 ITypeInfo_Release(refinfo);
1012 break;
1013 default:
1014 if ((*basetype = get_basetype(typeinfo, tdesc)))
1015 *flags |= IsBasetype;
1016 else
1017 {
1018 FIXME("unhandled type %u\n", tdesc->vt);
1019 return E_NOTIMPL;
1020 }
1021 break;
1022 }
1023
1024 return hr;
1025}
#define FIXME(fmt,...)
Definition: precomp.h:53
#define E_NOTIMPL
Definition: ddrawi.h:99
@ VT_BSTR
Definition: compat.h:2303
@ VT_UNKNOWN
Definition: compat.h:2308
@ VT_PTR
Definition: compat.h:2320
@ VT_SAFEARRAY
Definition: compat.h:2321
@ VT_VARIANT
Definition: compat.h:2307
@ VT_DISPATCH
Definition: compat.h:2304
static const unsigned short IsBasetype
Definition: ndr_typelib.c:860
static const unsigned short IsSimpleRef
Definition: ndr_typelib.c:862
static const unsigned short MustSize
Definition: ndr_typelib.c:855
static const unsigned short MustFree
Definition: ndr_typelib.c:856
static const unsigned short IsByValue
Definition: ndr_typelib.c:861
static HRESULT get_param_pointer_info(ITypeInfo *typeinfo, TYPEDESC *tdesc, int is_in, int is_out, unsigned short *server_size, unsigned short *flags, unsigned char *basetype, TYPEDESC **tfs_tdesc)
Definition: ndr_typelib.c:864
static HRESULT get_param_info(ITypeInfo *typeinfo, TYPEDESC *tdesc, int is_in, int is_out, unsigned short *server_size, unsigned short *flags, unsigned char *basetype, TYPEDESC **tfs_tdesc)
Definition: ndr_typelib.c:944

Referenced by get_param_info(), and write_param_fs().

◆ get_param_pointer_info()

static HRESULT get_param_pointer_info ( ITypeInfo typeinfo,
TYPEDESC *  tdesc,
int  is_in,
int  is_out,
unsigned short server_size,
unsigned short flags,
unsigned char basetype,
TYPEDESC **  tfs_tdesc 
)
static

Definition at line 864 of file ndr_typelib.c.

867{
868 ITypeInfo *refinfo;
869 HRESULT hr = S_OK;
870 TYPEATTR *attr;
871
872 switch (tdesc->vt)
873 {
874 case VT_UNKNOWN:
875 case VT_DISPATCH:
876 *flags |= MustFree;
877 if (is_in && is_out)
878 *server_size = sizeof(void *);
879 break;
880 case VT_PTR:
881 *flags |= MustFree;
882 if (type_pointer_is_iface(typeinfo, tdesc->lptdesc))
883 {
884 if (is_in && is_out)
885 *server_size = sizeof(void *);
886 }
887 else
888 *server_size = sizeof(void *);
889 break;
890 case VT_CARRAY:
892 *server_size = type_memsize(typeinfo, tdesc);
893 *tfs_tdesc = tdesc;
894 break;
895 case VT_USERDEFINED:
896 ITypeInfo_GetRefTypeInfo(typeinfo, tdesc->hreftype, &refinfo);
897 ITypeInfo_GetTypeAttr(refinfo, &attr);
898
899 switch (attr->typekind)
900 {
901 case TKIND_ENUM:
903 if (!is_in && is_out)
904 *server_size = sizeof(void *);
905 *basetype = FC_ENUM32;
906 break;
907 case TKIND_RECORD:
909 if (!is_in && is_out)
910 *server_size = attr->cbSizeInstance;
911 *tfs_tdesc = tdesc;
912 break;
913 case TKIND_INTERFACE:
914 case TKIND_DISPATCH:
915 case TKIND_COCLASS:
916 *flags |= MustFree;
917 break;
918 case TKIND_ALIAS:
919 hr = get_param_pointer_info(refinfo, &attr->tdescAlias, is_in,
920 is_out, server_size, flags, basetype, tfs_tdesc);
921 break;
922 default:
923 FIXME("unhandled kind %#x\n", attr->typekind);
924 hr = E_NOTIMPL;
925 break;
926 }
927
928 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
929 ITypeInfo_Release(refinfo);
930 break;
931 default:
932 *flags |= IsSimpleRef;
933 *tfs_tdesc = tdesc;
934 if (!is_in && is_out)
935 *server_size = type_memsize(typeinfo, tdesc);
936 if ((*basetype = get_basetype(typeinfo, tdesc)))
937 *flags |= IsBasetype;
938 break;
939 }
940
941 return hr;
942}
static BOOL type_pointer_is_iface(ITypeInfo *typeinfo, TYPEDESC *tdesc)
Definition: ndr_typelib.c:211
static unsigned int type_memsize(ITypeInfo *typeinfo, TYPEDESC *desc)
Definition: ndr_typelib.c:152
@ TKIND_COCLASS
Definition: widltypes.h:224
@ TKIND_INTERFACE
Definition: widltypes.h:222

Referenced by get_param_info(), and get_param_pointer_info().

◆ get_stack_size()

static unsigned short get_stack_size ( ITypeInfo typeinfo,
TYPEDESC *  desc 
)
static

Definition at line 844 of file ndr_typelib.c.

845{
846#if defined(__i386__) || defined(__arm__)
847 if (desc->vt == VT_CARRAY)
848 return sizeof(void *);
849 return (type_memsize(typeinfo, desc) + 3) & ~3;
850#else
851 return sizeof(void *);
852#endif
853}

Referenced by write_param_fs(), and write_proc_func_header().

◆ get_struct_fc()

static unsigned char get_struct_fc ( ITypeInfo typeinfo,
TYPEATTR *  attr 
)
static

Definition at line 308 of file ndr_typelib.c.

309{
310 unsigned char fc = FC_STRUCT, member_fc;
311 VARDESC *desc;
312 WORD i;
313
314 for (i = 0; i < attr->cVars; i++)
315 {
316 ITypeInfo_GetVarDesc(typeinfo, i, &desc);
317
318 member_fc = get_struct_member_fc(typeinfo, &desc->elemdescVar.tdesc);
319 if (member_fc == FC_BOGUS_STRUCT)
321 else if (member_fc == FC_PSTRUCT && fc != FC_BOGUS_STRUCT)
322 fc = FC_PSTRUCT;
323
324 ITypeInfo_ReleaseVarDesc(typeinfo, desc);
325 }
326
327 return fc;
328}
static unsigned char get_struct_member_fc(ITypeInfo *typeinfo, TYPEDESC *tdesc)
Definition: ndr_typelib.c:239
@ FC_BOGUS_STRUCT
Definition: ndrtypes.h:162
@ FC_PSTRUCT
Definition: ndrtypes.h:158

Referenced by free_variable(), get_array_fc(), get_struct_member_fc(), and write_struct_tfs().

◆ get_struct_member_fc()

static unsigned char get_struct_member_fc ( ITypeInfo typeinfo,
TYPEDESC *  tdesc 
)
static

Definition at line 239 of file ndr_typelib.c.

240{
241 unsigned char fc;
242 ITypeInfo *refinfo;
243 TYPEATTR *attr;
244
245 switch (tdesc->vt)
246 {
247 case VT_BSTR:
248 case VT_SAFEARRAY:
249 return (sizeof(void *) == 4) ? FC_PSTRUCT : FC_BOGUS_STRUCT;
250 case VT_CY:
251 return FC_STRUCT;
252 case VT_VARIANT:
253 case VT_UNKNOWN:
254 case VT_DISPATCH:
255 return FC_BOGUS_STRUCT;
256 case VT_CARRAY:
257 if (get_array_fc(typeinfo, &tdesc->lpadesc->tdescElem) == FC_BOGUS_ARRAY)
258 return FC_BOGUS_STRUCT;
259 return FC_STRUCT;
260 case VT_PTR:
263 else
264 fc = (sizeof(void *) == 4) ? FC_PSTRUCT : FC_BOGUS_STRUCT;
265 break;
266 case VT_USERDEFINED:
267 ITypeInfo_GetRefTypeInfo(typeinfo, tdesc->hreftype, &refinfo);
268 ITypeInfo_GetTypeAttr(refinfo, &attr);
269
270 switch (attr->typekind)
271 {
272 case TKIND_ENUM:
273 fc = FC_STRUCT;
274 break;
275 case TKIND_RECORD:
276 fc = get_struct_fc(refinfo, attr);
277 break;
278 case TKIND_INTERFACE:
279 case TKIND_DISPATCH:
280 case TKIND_COCLASS:
282 break;
283 case TKIND_ALIAS:
284 fc = get_struct_member_fc(refinfo, &attr->tdescAlias);
285 break;
286 default:
287 FIXME("Unhandled kind %#x.\n", attr->typekind);
289 break;
290 }
291
292 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
293 ITypeInfo_Release(refinfo);
294 break;
295 default:
296 if (get_basetype(typeinfo, tdesc))
297 return FC_STRUCT;
298 else
299 {
300 FIXME("Unhandled type %u.\n", tdesc->vt);
301 return FC_BOGUS_STRUCT;
302 }
303 }
304
305 return fc;
306}

Referenced by get_struct_fc(), and get_struct_member_fc().

◆ get_tfs_offset()

static unsigned short get_tfs_offset ( int  param)
static

Definition at line 81 of file ndr_typelib.c.

82{
83 unsigned int nb_params;
84 const NDR_PARAM_OIF *params = get_ndr_types_params( &nb_params );
85
86 assert( param < nb_params );
87 return params[param].u.type_offset;
88}
#define assert(x)
Definition: debug.h:53
GLenum const GLfloat * params
Definition: glext.h:5645
GLfloat param
Definition: glext.h:5796
static const NDR_PARAM_OIF * get_ndr_types_params(unsigned int *nb_params)
Definition: ndr_typelib.c:58

Referenced by write_oleaut_tfs().

◆ get_type_format_string()

static const unsigned char * get_type_format_string ( size_t size)
static

Definition at line 90 of file ndr_typelib.c.

91{
92 unsigned int nb_params;
93 const NDR_PARAM_OIF *params = get_ndr_types_params( &nb_params );
94
95 *size = params[nb_params - 1].u.type_offset;
97}
GLsizeiptr size
Definition: glext.h:5919
PMIDL_STUB_DESC pStubDesc
Definition: rpcndr.h:433
const unsigned char * pFormatTypes
Definition: rpcndr.h:374

Referenced by build_format_strings().

◆ init_stub_desc()

static void init_stub_desc ( MIDL_STUB_DESC desc)
static

Definition at line 1278 of file ndr_typelib.c.

1279{
1280 desc->pfnAllocate = NdrOleAllocate;
1281 desc->pfnFree = NdrOleFree;
1282 desc->Version = 0x50002;
1283 desc->aUserMarshalQuadruple = get_ndr_types_proxy_info()->pStubDesc->aUserMarshalQuadruple;
1284 /* type format string is initialized with proc format string and offset table */
1285}
void *WINAPI NdrOleAllocate(SIZE_T Size)
Definition: ndr_ole.c:423
void WINAPI NdrOleFree(void *NodeToFree)
Definition: ndr_ole.c:432
const USER_MARSHAL_ROUTINE_QUADRUPLE * aUserMarshalQuadruple
Definition: rpcndr.h:380

Referenced by CreateProxyFromTypeInfo(), and CreateStubFromTypeInfo().

◆ type_is_non_iface_pointer()

static BOOL type_is_non_iface_pointer ( ITypeInfo typeinfo,
TYPEDESC *  desc 
)
static

Definition at line 366 of file ndr_typelib.c.

367{
368 if (desc->vt == VT_PTR)
369 return !type_pointer_is_iface(typeinfo, desc->lptdesc);
370 else if (desc->vt == VT_USERDEFINED)
371 {
372 ITypeInfo *refinfo;
373 TYPEATTR *attr;
374 BOOL ret;
375
376 ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
377 ITypeInfo_GetTypeAttr(refinfo, &attr);
378
379 if (attr->typekind == TKIND_ALIAS)
380 ret = type_is_non_iface_pointer(refinfo, &attr->tdescAlias);
381 else
382 ret = FALSE;
383
384 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
385 ITypeInfo_Release(refinfo);
386
387 return ret;
388 }
389 else
390 return FALSE;
391}
#define FALSE
Definition: types.h:117
unsigned int BOOL
Definition: ntddk_ex.h:94
static BOOL type_is_non_iface_pointer(ITypeInfo *typeinfo, TYPEDESC *desc)
Definition: ndr_typelib.c:366

Referenced by type_is_non_iface_pointer(), write_complex_struct_tfs(), and write_struct_members().

◆ type_memsize()

static unsigned int type_memsize ( ITypeInfo typeinfo,
TYPEDESC *  desc 
)
static

Definition at line 152 of file ndr_typelib.c.

153{
154 switch (desc->vt)
155 {
156 case VT_I1:
157 case VT_UI1:
158 return 1;
159 case VT_I2:
160 case VT_UI2:
161 case VT_BOOL:
162 return 2;
163 case VT_I4:
164 case VT_UI4:
165 case VT_R4:
166 case VT_INT:
167 case VT_UINT:
168 case VT_ERROR:
169 case VT_HRESULT:
170 return 4;
171 case VT_I8:
172 case VT_UI8:
173 case VT_R8:
174 case VT_DATE:
175 return 8;
176 case VT_BSTR:
177 case VT_SAFEARRAY:
178 case VT_PTR:
179 case VT_UNKNOWN:
180 case VT_DISPATCH:
181 return sizeof(void *);
182 case VT_VARIANT:
183 return sizeof(VARIANT);
184 case VT_CARRAY:
185 {
186 unsigned int size = type_memsize(typeinfo, &desc->lpadesc->tdescElem);
187 unsigned int i;
188 for (i = 0; i < desc->lpadesc->cDims; i++)
189 size *= desc->lpadesc->rgbounds[i].cElements;
190 return size;
191 }
192 case VT_USERDEFINED:
193 {
194 unsigned int size = 0;
195 ITypeInfo *refinfo;
196 TYPEATTR *attr;
197
198 ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
199 ITypeInfo_GetTypeAttr(refinfo, &attr);
200 size = attr->cbSizeInstance;
201 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
202 ITypeInfo_Release(refinfo);
203 return size;
204 }
205 default:
206 FIXME("unhandled type %u\n", desc->vt);
207 return 0;
208 }
209}
struct tagVARIANT VARIANT
Definition: compat.h:2377

Referenced by get_param_pointer_info(), get_stack_size(), make_exprt(), type_memsize(), write_array_tfs(), write_complex_struct_tfs(), and write_struct_members().

◆ type_needs_pointer_deref()

static BOOL type_needs_pointer_deref ( ITypeInfo typeinfo,
TYPEDESC *  desc 
)
static

Definition at line 442 of file ndr_typelib.c.

443{
444 if (desc->vt == VT_PTR || desc->vt == VT_UNKNOWN || desc->vt == VT_DISPATCH)
445 return TRUE;
446 else if (desc->vt == VT_USERDEFINED)
447 {
448 ITypeInfo *refinfo;
449 BOOL ret = FALSE;
450 TYPEATTR *attr;
451
452 ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
453 ITypeInfo_GetTypeAttr(refinfo, &attr);
454
455 if (attr->typekind == TKIND_ALIAS)
456 ret = type_needs_pointer_deref(refinfo, &attr->tdescAlias);
457
458 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
459 ITypeInfo_Release(refinfo);
460
461 return ret;
462 }
463 else
464 return FALSE;
465}
#define TRUE
Definition: types.h:120
static BOOL type_needs_pointer_deref(ITypeInfo *typeinfo, TYPEDESC *desc)
Definition: ndr_typelib.c:442

Referenced by type_needs_pointer_deref(), and write_complex_struct_pointer_layout().

◆ type_pointer_is_iface()

static BOOL type_pointer_is_iface ( ITypeInfo typeinfo,
TYPEDESC *  tdesc 
)
static

Definition at line 211 of file ndr_typelib.c.

212{
213 ITypeInfo *refinfo;
214 BOOL ret = FALSE;
215 TYPEATTR *attr;
216
217 if (tdesc->vt == VT_USERDEFINED)
218 {
219 ITypeInfo_GetRefTypeInfo(typeinfo, tdesc->hreftype, &refinfo);
220 ITypeInfo_GetTypeAttr(refinfo, &attr);
221
222 if (attr->typekind == TKIND_INTERFACE
223 || attr->typekind == TKIND_DISPATCH
224 || attr->typekind == TKIND_COCLASS)
225 ret = TRUE;
226 else if (attr->typekind == TKIND_ALIAS)
227 ret = type_pointer_is_iface(refinfo, &attr->tdescAlias);
228
229 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
230 ITypeInfo_Release(refinfo);
231 }
232
233 return ret;
234}

Referenced by get_param_pointer_info(), get_struct_member_fc(), type_is_non_iface_pointer(), type_pointer_is_iface(), write_complex_struct_pointer_layout(), and write_complex_struct_pointer_ref().

◆ typelib_proxy_init()

static HRESULT typelib_proxy_init ( struct typelib_proxy proxy,
IUnknown outer,
ULONG  count,
const GUID parentiid,
IRpcProxyBuffer **  proxy_buffer,
void **  out 
)
static

Definition at line 1330 of file ndr_typelib.c.

1332{
1333 if (!fill_stubless_table((IUnknownVtbl *)proxy->proxy_vtbl->Vtbl, count))
1334 return E_OUTOFMEMORY;
1335
1336 if (!outer) outer = (IUnknown *)&proxy->proxy;
1337
1338 proxy->proxy.IRpcProxyBuffer_iface.lpVtbl = &typelib_proxy_vtbl;
1339 proxy->proxy.PVtbl = proxy->proxy_vtbl->Vtbl;
1340 proxy->proxy.RefCount = 1;
1341 proxy->proxy.piid = proxy->proxy_vtbl->header.piid;
1342 proxy->proxy.pUnkOuter = outer;
1343
1344 if (!IsEqualGUID(parentiid, &IID_IUnknown))
1345 {
1346 HRESULT hr = create_proxy(parentiid, NULL, &proxy->proxy.base_proxy,
1347 (void **)&proxy->proxy.base_object);
1348 if (FAILED(hr)) return hr;
1349 }
1350
1351 *proxy_buffer = &proxy->proxy.IRpcProxyBuffer_iface;
1352 *out = &proxy->proxy.PVtbl;
1353 IUnknown_AddRef((IUnknown *)*out);
1354
1355 return S_OK;
1356}
BOOL fill_stubless_table(IUnknownVtbl *vtbl, DWORD num)
Definition: cproxy.c:285
HRESULT create_proxy(REFIID iid, IUnknown *pUnkOuter, IRpcProxyBuffer **pproxy, void **ppv) DECLSPEC_HIDDEN
Definition: ndr_ole.c:442
if(dx< 0)
Definition: linetemp.h:194
static const IRpcProxyBufferVtbl typelib_proxy_vtbl
Definition: ndr_typelib.c:1321

Referenced by CreateProxyFromTypeInfo().

◆ typelib_proxy_Release()

static ULONG WINAPI typelib_proxy_Release ( IRpcProxyBuffer iface)
static

Definition at line 1297 of file ndr_typelib.c.

1298{
1299 struct typelib_proxy *proxy = CONTAINING_RECORD(iface, struct typelib_proxy, proxy.IRpcProxyBuffer_iface);
1300 ULONG refcount = InterlockedDecrement(&proxy->proxy.RefCount);
1301
1302 TRACE("(%p) decreasing refs to %d\n", proxy, refcount);
1303
1304 if (!refcount)
1305 {
1306 if (proxy->proxy.pChannel)
1307 IRpcProxyBuffer_Disconnect(&proxy->proxy.IRpcProxyBuffer_iface);
1308 if (proxy->proxy.base_object)
1309 IUnknown_Release(proxy->proxy.base_object);
1310 if (proxy->proxy.base_proxy)
1311 IRpcProxyBuffer_Release(proxy->proxy.base_proxy);
1312 heap_free((void *)proxy->stub_desc.pFormatTypes);
1313 heap_free((void *)proxy->proxy_info.ProcFormatString);
1314 heap_free(proxy->offset_table);
1315 heap_free(proxy->proxy_vtbl);
1317 }
1318 return refcount;
1319}
#define InterlockedDecrement
Definition: armddk.h:52
#define CONTAINING_RECORD(address, type, field)
Definition: typedefs.h:260
uint32_t ULONG
Definition: typedefs.h:59

◆ typelib_stub_init()

static HRESULT typelib_stub_init ( struct typelib_stub stub,
IUnknown server,
const GUID parentiid,
IRpcStubBuffer **  stub_buffer 
)
static

Definition at line 1459 of file ndr_typelib.c.

1461{
1462 HRESULT hr;
1463
1464 hr = IUnknown_QueryInterface(server, stub->stub_vtbl.header.piid,
1465 (void **)&stub->stub.stub_buffer.pvServerObject);
1466 if (FAILED(hr))
1467 {
1468 WARN("Failed to get interface %s, hr %#x.\n",
1469 debugstr_guid(stub->stub_vtbl.header.piid), hr);
1470 stub->stub.stub_buffer.pvServerObject = server;
1471 IUnknown_AddRef(server);
1472 }
1473
1474 if (!IsEqualGUID(parentiid, &IID_IUnknown))
1475 {
1476 stub->stub.base_obj = get_delegating_vtbl(stub->stub_vtbl.header.DispatchTableCount);
1477 hr = create_stub(parentiid, (IUnknown *)&stub->stub.base_obj, &stub->stub.base_stub);
1478 if (FAILED(hr))
1479 {
1480 release_delegating_vtbl(stub->stub.base_obj);
1481 IUnknown_Release(stub->stub.stub_buffer.pvServerObject);
1482 return hr;
1483 }
1484 }
1485
1486 stub->stub.stub_buffer.lpVtbl = &stub->stub_vtbl.Vtbl;
1487 stub->stub.stub_buffer.RefCount = 1;
1488
1489 *stub_buffer = (IRpcStubBuffer *)&stub->stub.stub_buffer;
1490 return S_OK;
1491}
#define WARN(fmt,...)
Definition: precomp.h:61
void release_delegating_vtbl(IUnknownVtbl *vtbl) DECLSPEC_HIDDEN
Definition: cstub.c:325
IUnknownVtbl * get_delegating_vtbl(DWORD num_methods) DECLSPEC_HIDDEN
Definition: cstub.c:289
HRESULT create_stub(REFIID iid, IUnknown *pUnk, IRpcStubBuffer **ppstub) DECLSPEC_HIDDEN
Definition: ndr_ole.c:466

Referenced by CreateStubFromTypeInfo().

◆ typelib_stub_Release()

static ULONG WINAPI typelib_stub_Release ( IRpcStubBuffer iface)
static

Definition at line 1430 of file ndr_typelib.c.

1431{
1432 struct typelib_stub *stub = CONTAINING_RECORD(iface, struct typelib_stub, stub.stub_buffer);
1433 ULONG refcount = InterlockedDecrement(&stub->stub.stub_buffer.RefCount);
1434
1435 TRACE("(%p) decreasing refs to %d\n", stub, refcount);
1436
1437 if (!refcount)
1438 {
1439 /* test_Release shows that native doesn't call Disconnect here.
1440 We'll leave it in for the time being. */
1441 IRpcStubBuffer_Disconnect(iface);
1442
1443 if (stub->stub.base_stub)
1444 {
1445 IRpcStubBuffer_Release(stub->stub.base_stub);
1446 release_delegating_vtbl(stub->stub.base_obj);
1447 heap_free(stub->dispatch_table);
1448 }
1449
1450 heap_free((void *)stub->stub_desc.pFormatTypes);
1451 heap_free((void *)stub->server_info.ProcString);
1452 heap_free(stub->offset_table);
1453 heap_free(stub);
1454 }
1455
1456 return refcount;
1457}

Referenced by CreateStubFromTypeInfo().

◆ WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL ( ole  )

◆ write_array_tfs()

static size_t write_array_tfs ( ITypeInfo typeinfo,
unsigned char str,
size_t len,
ARRAYDESC *  desc 
)
static

Definition at line 623 of file ndr_typelib.c.

625{
626 unsigned char fc = get_array_fc(typeinfo, &desc->tdescElem);
627 unsigned char basetype;
628 size_t ref = 0, off;
629 ULONG size = 1;
630 USHORT i;
631
632 if (!(basetype = get_basetype(typeinfo, &desc->tdescElem)))
633 ref = write_type_tfs(typeinfo, str, len, &desc->tdescElem, FALSE, FALSE);
634
635 /* In theory arrays should be nested, but there's no reason not to marshal
636 * [x][y] as [x*y]. */
637 for (i = 0; i < desc->cDims; i++) size *= desc->rgbounds[i].cElements;
638
639 off = *len;
640
641 WRITE_CHAR(str, *len, fc);
642 WRITE_CHAR(str, *len, 0);
643 if (fc == FC_BOGUS_ARRAY)
644 {
646 WRITE_INT(str, *len, 0xffffffff); /* conformance */
647 WRITE_INT(str, *len, 0xffffffff); /* variance */
648 }
649 else
650 {
651 size *= type_memsize(typeinfo, &desc->tdescElem);
652 WRITE_INT(str, *len, size);
653 }
654
655 if (basetype)
656 WRITE_CHAR(str, *len, basetype);
657 else
658 {
660 WRITE_CHAR (str, *len, 0);
661 WRITE_SHORT(str, *len, ref - *len);
663 }
665
666 return off;
667}
GLenum GLsizei len
Definition: glext.h:6722
#define WRITE_CHAR(str, len, val)
Definition: ndr_typelib.c:44
#define WRITE_SHORT(str, len, val)
Definition: ndr_typelib.c:46
#define WRITE_INT(str, len, val)
Definition: ndr_typelib.c:48
static size_t write_type_tfs(ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEDESC *desc, BOOL toplevel, BOOL onstack)
Definition: ndr_typelib.c:787
unsigned short USHORT
Definition: pedump.c:61
@ FC_EMBEDDED_COMPLEX
Definition: ndrtypes.h:233
@ FC_PAD
Definition: ndrtypes.h:254
@ FC_END
Definition: ndrtypes.h:253
const WCHAR * str
Definition: send.c:48

Referenced by write_type_tfs().

◆ write_complex_struct_pointer_layout()

static void write_complex_struct_pointer_layout ( ITypeInfo typeinfo,
TYPEDESC *  desc,
unsigned char str,
size_t len 
)
static

Definition at line 467 of file ndr_typelib.c.

469{
470 unsigned char basetype;
471
472 if (desc->vt == VT_PTR && !type_pointer_is_iface(typeinfo, desc->lptdesc))
473 {
475 if ((basetype = get_basetype(typeinfo, desc->lptdesc)))
476 {
478 WRITE_CHAR(str, *len, basetype);
480 }
481 else
482 {
485 else
486 WRITE_CHAR(str, *len, 0);
487 WRITE_SHORT(str, *len, 0);
488 }
489 }
490 else if (desc->vt == VT_USERDEFINED)
491 {
492 ITypeInfo *refinfo;
493 TYPEATTR *attr;
494
495 ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
496 ITypeInfo_GetTypeAttr(refinfo, &attr);
497
498 if (attr->typekind == TKIND_ALIAS)
499 write_complex_struct_pointer_layout(refinfo, &attr->tdescAlias, str, len);
500
501 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
502 ITypeInfo_Release(refinfo);
503 }
504}
static void write_complex_struct_pointer_layout(ITypeInfo *typeinfo, TYPEDESC *desc, unsigned char *str, size_t *len)
Definition: ndr_typelib.c:467
#define FC_POINTER_DEREF
Definition: ndrtypes.h:276
@ FC_UP
Definition: ndrtypes.h:153
#define FC_SIMPLE_POINTER
Definition: ndrtypes.h:275

Referenced by write_complex_struct_pointer_layout(), and write_complex_struct_tfs().

◆ write_complex_struct_pointer_ref()

static size_t write_complex_struct_pointer_ref ( ITypeInfo typeinfo,
TYPEDESC *  desc,
unsigned char str,
size_t len 
)
static

Definition at line 506 of file ndr_typelib.c.

508{
509 if (desc->vt == VT_PTR && !type_pointer_is_iface(typeinfo, desc->lptdesc)
510 && !get_basetype(typeinfo, desc->lptdesc))
511 {
512 return write_type_tfs(typeinfo, str, len, desc->lptdesc, FALSE, FALSE);
513 }
514 else if (desc->vt == VT_USERDEFINED)
515 {
516 ITypeInfo *refinfo;
517 TYPEATTR *attr;
518 size_t ret = 0;
519
520 ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
521 ITypeInfo_GetTypeAttr(refinfo, &attr);
522
523 if (attr->typekind == TKIND_ALIAS)
524 ret = write_complex_struct_pointer_ref(refinfo, &attr->tdescAlias, str, len);
525
526 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
527 ITypeInfo_Release(refinfo);
528
529 return ret;
530 }
531
532 return 0;
533}
static size_t write_complex_struct_pointer_ref(ITypeInfo *typeinfo, TYPEDESC *desc, unsigned char *str, size_t *len)
Definition: ndr_typelib.c:506

Referenced by write_complex_struct_pointer_ref(), and write_complex_struct_tfs().

◆ write_complex_struct_tfs()

static void write_complex_struct_tfs ( ITypeInfo typeinfo,
unsigned char str,
size_t len,
TYPEATTR *  attr 
)
static

Definition at line 535 of file ndr_typelib.c.

537{
538 size_t pointer_layout_offset, pointer_layout, member_layout, ref;
539 unsigned int struct_offset = 0;
540 TYPEDESC *tdesc;
541 VARDESC *desc;
542 WORD i;
543
544 WRITE_SHORT(str, *len, 0); /* conformant array description */
545 pointer_layout_offset = *len;
546 WRITE_SHORT(str, *len, 0); /* pointer layout; will be filled in later */
547 member_layout = *len;
548
549 /* First pass: write the struct members and pointer layout, but do not yet
550 * write the offsets for embedded complexes and pointer refs. These must be
551 * handled after we write the whole struct description, since it must be
552 * contiguous. */
553
555
556 pointer_layout = *len;
557 if (str) *((short *)(str + pointer_layout_offset)) = pointer_layout - pointer_layout_offset;
558
559 for (i = 0; i < attr->cVars; i++)
560 {
561 ITypeInfo_GetVarDesc(typeinfo, i, &desc);
563 ITypeInfo_ReleaseVarDesc(typeinfo, desc);
564 }
565
566 /* Second pass: write types for embedded complexes and non-simple pointers. */
567
568 struct_offset = 0;
569
570 for (i = 0; i < attr->cVars; i++)
571 {
572 ITypeInfo_GetVarDesc(typeinfo, i, &desc);
573 tdesc = &desc->elemdescVar.tdesc;
574
575 if (struct_offset != desc->oInst)
576 member_layout++; /* alignment directive */
577 struct_offset = desc->oInst + type_memsize(typeinfo, tdesc);
578
579 if (get_basetype(typeinfo, tdesc))
580 member_layout++;
581 else if (type_is_non_iface_pointer(typeinfo, tdesc))
582 {
583 member_layout++;
585 {
586 if (str) *((short *)(str + pointer_layout + 2)) = ref - (pointer_layout + 2);
587 }
588 pointer_layout += 4;
589 }
590 else
591 {
593 if (str) *((short *)(str + member_layout + 2)) = ref - (member_layout + 2);
594 member_layout += 4;
595 }
596
597 ITypeInfo_ReleaseVarDesc(typeinfo, desc);
598 }
599}
static void write_struct_members(ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEATTR *attr)
Definition: ndr_typelib.c:393

Referenced by write_struct_tfs().

◆ write_iface_fs()

static HRESULT write_iface_fs ( ITypeInfo typeinfo,
WORD  funcs,
WORD  parentfuncs,
unsigned char type,
size_t typelen,
unsigned char proc,
size_t proclen,
unsigned short offset 
)
static

Definition at line 1113 of file ndr_typelib.c.

1116{
1117 unsigned short stack_offset;
1118 WORD proc_idx, param_idx;
1119 FUNCDESC *desc;
1120 HRESULT hr;
1121
1122 for (proc_idx = 3; proc_idx < parentfuncs; proc_idx++)
1123 {
1124 if (offset)
1125 offset[proc_idx - 3] = -1;
1126 }
1127
1128 for (proc_idx = 0; proc_idx < funcs; proc_idx++)
1129 {
1130 TRACE("Writing procedure %d.\n", proc_idx);
1131
1132 hr = ITypeInfo_GetFuncDesc(typeinfo, proc_idx, &desc);
1133 if (FAILED(hr)) return hr;
1134
1135 if (offset)
1136 offset[proc_idx + parentfuncs - 3] = *proclen;
1137
1138 write_proc_func_header(typeinfo, desc, proc_idx + parentfuncs, proc, proclen);
1139
1140 stack_offset = sizeof(void *); /* This */
1141 for (param_idx = 0; param_idx < desc->cParams; param_idx++)
1142 {
1143 TRACE("Writing parameter %d.\n", param_idx);
1144 hr = write_param_fs(typeinfo, type, typelen, proc, proclen,
1145 &desc->lprgelemdescParam[param_idx], FALSE, &stack_offset);
1146 if (FAILED(hr))
1147 {
1148 ITypeInfo_ReleaseFuncDesc(typeinfo, desc);
1149 return hr;
1150 }
1151 }
1152
1153 hr = write_param_fs(typeinfo, type, typelen, proc, proclen,
1154 &desc->elemdescFunc, TRUE, &stack_offset);
1155 ITypeInfo_ReleaseFuncDesc(typeinfo, desc);
1156 if (FAILED(hr)) return hr;
1157 }
1158
1159 return S_OK;
1160}
static HRESULT write_param_fs(ITypeInfo *typeinfo, unsigned char *type, size_t *typelen, unsigned char *proc, size_t *proclen, ELEMDESC *desc, BOOL is_return, unsigned short *stack_offset)
Definition: ndr_typelib.c:1027
static void write_proc_func_header(ITypeInfo *typeinfo, FUNCDESC *desc, WORD proc_idx, unsigned char *proc, size_t *proclen)
Definition: ndr_typelib.c:1070
static unsigned stack_offset(compile_ctx_t *ctx)
Definition: compile.c:349

Referenced by build_format_strings().

◆ write_ip_tfs()

static size_t write_ip_tfs ( unsigned char str,
size_t len,
const GUID iid 
)
static

Definition at line 669 of file ndr_typelib.c.

670{
671 size_t off = *len;
672
673 if (str)
674 {
675 str[*len] = FC_IP;
676 str[*len+1] = FC_CONSTANT_IID;
677 memcpy(str + *len + 2, iid, sizeof(*iid));
678 }
679 *len += 2 + sizeof(*iid);
680
681 return off;
682}
@ FC_CONSTANT_IID
Definition: ndrtypes.h:251
@ FC_IP
Definition: ndrtypes.h:189

Referenced by write_pointer_tfs().

◆ write_oleaut_tfs()

static unsigned short write_oleaut_tfs ( VARTYPE  vt)
static

Definition at line 99 of file ndr_typelib.c.

100{
101 switch (vt)
102 {
103 case VT_BSTR: return get_tfs_offset( 0 );
104 case VT_UNKNOWN: return get_tfs_offset( 1 );
105 case VT_DISPATCH: return get_tfs_offset( 2 );
106 case VT_VARIANT: return get_tfs_offset( 3 );
107 case VT_SAFEARRAY: return get_tfs_offset( 4 );
108 }
109 return 0;
110}
static REFPROPVARIANT PROPVAR_CHANGE_FLAGS VARTYPE vt
Definition: suminfo.c:91
static unsigned short get_tfs_offset(int param)
Definition: ndr_typelib.c:81

Referenced by write_type_tfs().

◆ write_param_fs()

static HRESULT write_param_fs ( ITypeInfo typeinfo,
unsigned char type,
size_t typelen,
unsigned char proc,
size_t proclen,
ELEMDESC *  desc,
BOOL  is_return,
unsigned short stack_offset 
)
static

Definition at line 1027 of file ndr_typelib.c.

1030{
1031 USHORT param_flags = desc->paramdesc.wParamFlags;
1032 TYPEDESC *tdesc = &desc->tdesc, *tfs_tdesc;
1033 unsigned short server_size;
1034 unsigned short stack_size = get_stack_size(typeinfo, tdesc);
1035 unsigned char basetype;
1036 unsigned short flags;
1037 int is_in, is_out;
1038 size_t off = 0;
1039 HRESULT hr;
1040
1041 is_out = param_flags & PARAMFLAG_FOUT;
1042 is_in = (param_flags & PARAMFLAG_FIN) || (!is_out && !is_return);
1043
1044 hr = get_param_info(typeinfo, tdesc, is_in, is_out, &server_size, &flags,
1045 &basetype, &tfs_tdesc);
1046
1047 if (is_in) flags |= IsIn;
1048 if (is_out) flags |= IsOut;
1049 if (is_return) flags |= IsOut | IsReturn;
1050
1051 server_size = (server_size + 7) / 8;
1052 if (server_size >= 8) server_size = 0;
1053 flags |= server_size << 13;
1054
1055 if (!basetype)
1056 off = write_type_tfs(typeinfo, type, typelen, tfs_tdesc, TRUE, server_size != 0);
1057
1058 if (SUCCEEDED(hr))
1059 {
1060 WRITE_SHORT(proc, *proclen, flags);
1061 WRITE_SHORT(proc, *proclen, *stack_offset);
1062 WRITE_SHORT(proc, *proclen, basetype ? basetype : off);
1063
1064 *stack_offset += stack_size;
1065 }
1066
1067 return hr;
1068}
static const unsigned short IsReturn
Definition: ndr_typelib.c:859
static const unsigned short IsOut
Definition: ndr_typelib.c:858
static unsigned short get_stack_size(ITypeInfo *typeinfo, TYPEDESC *desc)
Definition: ndr_typelib.c:844
static const unsigned short IsIn
Definition: ndr_typelib.c:857

Referenced by write_iface_fs().

◆ write_pointer_tfs()

static size_t write_pointer_tfs ( ITypeInfo typeinfo,
unsigned char str,
size_t len,
TYPEDESC *  desc,
BOOL  toplevel,
BOOL  onstack 
)
static

Definition at line 710 of file ndr_typelib.c.

712{
713 unsigned char basetype, flags = 0;
714 size_t ref, off = *len;
715 ITypeInfo *refinfo;
716 TYPEATTR *attr;
717 GUID guid;
718
719 if (desc->vt == VT_USERDEFINED)
720 {
721 ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
722 ITypeInfo_GetTypeAttr(refinfo, &attr);
723
724 switch (attr->typekind)
725 {
726 case TKIND_ENUM:
727 assert(!toplevel); /* toplevel base-type pointers should use IsSimpleRef */
732 break;
733 case TKIND_RECORD:
734 assert(!toplevel); /* toplevel struct pointers should use IsSimpleRef */
735 ref = write_struct_tfs(refinfo, str, len, attr);
736 off = *len;
737 WRITE_CHAR (str, *len, FC_UP);
738 WRITE_CHAR (str, *len, 0);
739 WRITE_SHORT(str, *len, ref - *len);
740 break;
741 case TKIND_INTERFACE:
742 case TKIND_DISPATCH:
743 write_ip_tfs(str, len, &attr->guid);
744 break;
745 case TKIND_COCLASS:
746 get_default_iface(refinfo, attr->cImplTypes, &guid);
748 break;
749 case TKIND_ALIAS:
750 off = write_pointer_tfs(refinfo, str, len, &attr->tdescAlias, toplevel, onstack);
751 break;
752 default:
753 FIXME("unhandled kind %#x\n", attr->typekind);
754 WRITE_SHORT(str, *len, 0);
755 break;
756 }
757
758 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
759 ITypeInfo_Release(refinfo);
760 }
761 else if ((basetype = get_basetype(typeinfo, desc)))
762 {
763 assert(!toplevel); /* toplevel base-type pointers should use IsSimpleRef */
766 WRITE_CHAR(str, *len, basetype);
768 }
769 else
770 {
772
773 if (onstack) flags |= FC_ALLOCED_ON_STACK;
774 if (desc->vt == VT_PTR || desc->vt == VT_UNKNOWN || desc->vt == VT_DISPATCH)
776
777 off = *len;
778
780 WRITE_CHAR (str, *len, flags);
781 WRITE_SHORT(str, *len, ref - *len);
782 }
783
784 return off;
785}
jmp_buf toplevel
Definition: main.c:95
const GUID * guid
static size_t write_ip_tfs(unsigned char *str, size_t *len, const GUID *iid)
Definition: ndr_typelib.c:669
static size_t write_struct_tfs(ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEATTR *attr)
Definition: ndr_typelib.c:601
static size_t write_pointer_tfs(ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEDESC *desc, BOOL toplevel, BOOL onstack)
Definition: ndr_typelib.c:710
static void get_default_iface(ITypeInfo *typeinfo, WORD count, GUID *iid)
Definition: ndr_typelib.c:684
@ FC_RP
Definition: ndrtypes.h:152
#define FC_ALLOCED_ON_STACK
Definition: ndrtypes.h:274

Referenced by write_pointer_tfs(), and write_type_tfs().

◆ write_proc_func_header()

static void write_proc_func_header ( ITypeInfo typeinfo,
FUNCDESC *  desc,
WORD  proc_idx,
unsigned char proc,
size_t proclen 
)
static

Definition at line 1070 of file ndr_typelib.c.

1072{
1073 unsigned short stack_size = 2 * sizeof(void *); /* This + return */
1074#ifdef __x86_64__
1075 unsigned short float_mask = 0;
1076 unsigned char basetype;
1077#endif
1078 WORD param_idx;
1079
1080 WRITE_CHAR (proc, *proclen, FC_AUTO_HANDLE);
1082 WRITE_SHORT(proc, *proclen, proc_idx);
1083 for (param_idx = 0; param_idx < desc->cParams; param_idx++)
1084 stack_size += get_stack_size(typeinfo, &desc->lprgelemdescParam[param_idx].tdesc);
1085 WRITE_SHORT(proc, *proclen, stack_size);
1086
1087 WRITE_SHORT(proc, *proclen, 0); /* constant_client_buffer_size */
1088 WRITE_SHORT(proc, *proclen, 0); /* constant_server_buffer_size */
1089#ifdef __x86_64__
1090 WRITE_CHAR (proc, *proclen, 0x47); /* HasExtensions | HasReturn | ClientMustSize | ServerMustSize */
1091#else
1092 WRITE_CHAR (proc, *proclen, 0x07); /* HasReturn | ClientMustSize | ServerMustSize */
1093#endif
1094 WRITE_CHAR (proc, *proclen, desc->cParams + 1); /* incl. return value */
1095#ifdef __x86_64__
1096 WRITE_CHAR (proc, *proclen, 10); /* extension size */
1097 WRITE_CHAR (proc, *proclen, 0); /* INTERPRETER_OPT_FLAGS2 */
1098 WRITE_SHORT(proc, *proclen, 0); /* ClientCorrHint */
1099 WRITE_SHORT(proc, *proclen, 0); /* ServerCorrHint */
1100 WRITE_SHORT(proc, *proclen, 0); /* NotifyIndex */
1101 for (param_idx = 0; param_idx < desc->cParams && param_idx < 3; param_idx++)
1102 {
1103 basetype = get_basetype(typeinfo, &desc->lprgelemdescParam[param_idx].tdesc);
1104 if (basetype == FC_FLOAT)
1105 float_mask |= (1 << ((param_idx + 1) * 2));
1106 else if (basetype == FC_DOUBLE)
1107 float_mask |= (2 << ((param_idx + 1) * 2));
1108 }
1109 WRITE_SHORT(proc, *proclen, float_mask);
1110#endif
1111}
@ FC_AUTO_HANDLE
Definition: ndrtypes.h:195
#define Oi_OBJ_USE_V2_INTERPRETER
Definition: ndrtypes.h:294
#define Oi_OBJECT_PROC
Definition: ndrtypes.h:292

Referenced by write_iface_fs().

◆ write_simple_struct_tfs()

static void write_simple_struct_tfs ( ITypeInfo typeinfo,
unsigned char str,
size_t len,
TYPEATTR *  attr 
)
static

Definition at line 436 of file ndr_typelib.c.

Referenced by write_struct_tfs().

◆ write_struct_members()

static void write_struct_members ( ITypeInfo typeinfo,
unsigned char str,
size_t len,
TYPEATTR *  attr 
)
static

Definition at line 393 of file ndr_typelib.c.

395{
396 unsigned int struct_offset = 0;
397 unsigned char basetype;
398 TYPEDESC *tdesc;
399 VARDESC *desc;
400 WORD i;
401
402 for (i = 0; i < attr->cVars; i++)
403 {
404 ITypeInfo_GetVarDesc(typeinfo, i, &desc);
405 tdesc = &desc->elemdescVar.tdesc;
406
407 /* This may not match the intended alignment, but we don't have enough
408 * information to determine that. This should always give the correct
409 * layout. */
410 if ((struct_offset & 7) && !(desc->oInst & 7))
412 else if ((struct_offset & 3) && !(desc->oInst & 3))
414 else if ((struct_offset & 1) && !(desc->oInst & 1))
416 struct_offset = desc->oInst + type_memsize(typeinfo, tdesc);
417
418 if ((basetype = get_basetype(typeinfo, tdesc)))
419 WRITE_CHAR(str, *len, basetype);
420 else if (type_is_non_iface_pointer(typeinfo, tdesc))
422 else
423 {
425 WRITE_CHAR(str, *len, 0);
426 WRITE_SHORT(str, *len, 0);
427 }
428
429 ITypeInfo_ReleaseVarDesc(typeinfo, desc);
430 }
431 if (!(*len & 1))
434}
@ FC_ALIGNM4
Definition: ndrtypes.h:203
@ FC_ALIGNM2
Definition: ndrtypes.h:202
@ FC_ALIGNM8
Definition: ndrtypes.h:204
@ FC_POINTER
Definition: ndrtypes.h:200

Referenced by write_complex_struct_tfs(), and write_simple_struct_tfs().

◆ write_struct_tfs()

static size_t write_struct_tfs ( ITypeInfo typeinfo,
unsigned char str,
size_t len,
TYPEATTR *  attr 
)
static

Definition at line 601 of file ndr_typelib.c.

603{
604 unsigned char fc = get_struct_fc(typeinfo, attr);
605 size_t off = *len;
606
607 /* For the sake of simplicity, write pointer structs as complex structs. */
608 if (fc == FC_PSTRUCT)
610
611 WRITE_CHAR (str, *len, fc);
612 WRITE_CHAR (str, *len, attr->cbAlignment - 1);
613 WRITE_SHORT(str, *len, attr->cbSizeInstance);
614
615 if (fc == FC_STRUCT)
617 else if (fc == FC_BOGUS_STRUCT)
619
620 return off;
621}
static void write_complex_struct_tfs(ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEATTR *attr)
Definition: ndr_typelib.c:535
static void write_simple_struct_tfs(ITypeInfo *typeinfo, unsigned char *str, size_t *len, TYPEATTR *attr)
Definition: ndr_typelib.c:436

Referenced by write_pointer_tfs(), and write_type_tfs().

◆ write_type_tfs()

static size_t write_type_tfs ( ITypeInfo typeinfo,
unsigned char str,
size_t len,
TYPEDESC *  desc,
BOOL  toplevel,
BOOL  onstack 
)
static

Definition at line 787 of file ndr_typelib.c.

789{
790 ITypeInfo *refinfo;
791 TYPEATTR *attr;
792 size_t off;
793
794 TRACE("vt %d%s\n", desc->vt, toplevel ? " (toplevel)" : "");
795
796 if ((off = write_oleaut_tfs(desc->vt)))
797 return off;
798
799 switch (desc->vt)
800 {
801 case VT_PTR:
802 return write_pointer_tfs(typeinfo, str, len, desc->lptdesc, toplevel, onstack);
803 case VT_CARRAY:
804 return write_array_tfs(typeinfo, str, len, desc->lpadesc);
805 case VT_USERDEFINED:
806 ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
807 ITypeInfo_GetTypeAttr(refinfo, &attr);
808
809 switch (attr->typekind)
810 {
811 case TKIND_RECORD:
812 off = write_struct_tfs(refinfo, str, len, attr);
813 break;
814 case TKIND_INTERFACE:
815 case TKIND_DISPATCH:
816 case TKIND_COCLASS:
817 assert(0);
818 break;
819 case TKIND_ALIAS:
820 off = write_type_tfs(refinfo, str, len, &attr->tdescAlias, toplevel, onstack);
821 break;
822 default:
823 FIXME("unhandled kind %u\n", attr->typekind);
824 off = *len;
825 WRITE_SHORT(str, *len, 0);
826 break;
827 }
828
829 ITypeInfo_ReleaseTypeAttr(refinfo, attr);
830 ITypeInfo_Release(refinfo);
831 break;
832 default:
833 /* base types are always embedded directly */
835 FIXME("unhandled type %u\n", desc->vt);
836 off = *len;
837 WRITE_SHORT(str, *len, 0);
838 break;
839 }
840
841 return off;
842}
static unsigned short write_oleaut_tfs(VARTYPE vt)
Definition: ndr_typelib.c:99
static size_t write_array_tfs(ITypeInfo *typeinfo, unsigned char *str, size_t *len, ARRAYDESC *desc)
Definition: ndr_typelib.c:623

Referenced by write_array_tfs(), write_complex_struct_pointer_ref(), write_complex_struct_tfs(), write_param_fs(), write_pointer_tfs(), and write_type_tfs().

Variable Documentation

◆ IsBasetype

const unsigned short IsBasetype = 0x0040
static

Definition at line 860 of file ndr_typelib.c.

Referenced by get_param_info(), and get_param_pointer_info().

◆ IsByValue

const unsigned short IsByValue = 0x0080
static

Definition at line 861 of file ndr_typelib.c.

Referenced by get_param_info().

◆ IsIn

const unsigned short IsIn = 0x0008
static

Definition at line 857 of file ndr_typelib.c.

Referenced by write_param_fs().

◆ IsOut

const unsigned short IsOut = 0x0010
static

Definition at line 858 of file ndr_typelib.c.

Referenced by write_param_fs().

◆ IsReturn

const unsigned short IsReturn = 0x0020
static

Definition at line 859 of file ndr_typelib.c.

Referenced by write_param_fs().

◆ IsSimpleRef

const unsigned short IsSimpleRef = 0x0100
static

Definition at line 862 of file ndr_typelib.c.

Referenced by get_param_info(), and get_param_pointer_info().

◆ MustFree

const unsigned short MustFree = 0x0002
static

Definition at line 856 of file ndr_typelib.c.

Referenced by get_param_info(), and get_param_pointer_info().

◆ MustSize

const unsigned short MustSize = 0x0001
static

Definition at line 855 of file ndr_typelib.c.

Referenced by get_param_info().

◆ ndr_types_ProxyFileInfo

const ExtendedProxyFileInfo ndr_types_ProxyFileInfo
extern

◆ typelib_proxy_vtbl

const IRpcProxyBufferVtbl typelib_proxy_vtbl
static
Initial value:
=
{
}
HRESULT WINAPI StdProxy_QueryInterface(IRpcProxyBuffer *iface, REFIID riid, void **obj)
Definition: cproxy.c:369
void WINAPI StdProxy_Disconnect(IRpcProxyBuffer *iface)
Definition: cproxy.c:431
HRESULT WINAPI StdProxy_Connect(IRpcProxyBuffer *iface, IRpcChannelBuffer *pChannel)
Definition: cproxy.c:420
ULONG WINAPI StdProxy_AddRef(IRpcProxyBuffer *iface)
Definition: cproxy.c:390
static ULONG WINAPI typelib_proxy_Release(IRpcProxyBuffer *iface)
Definition: ndr_typelib.c:1297

Definition at line 1321 of file ndr_typelib.c.

Referenced by typelib_proxy_init().