ndr_typelib.c File Reference

#include <assert.h>
#include "oaidl.h"
#include "rpcproxy.h"
#include "ndrtypes.h"
#include "wine/debug.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)
#define	ROUND_SIZE(size, alignment)   (((size) + ((alignment) - 1)) & ~((alignment) - 1))

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_INFO *	get_ndr_types_proxy_info (void)
static const NDR_PARAM_OIF *	get_ndr_types_params (unsigned int *nb_params)
static unsigned short	get_tfs_offset (int param)
static const unsigned char *	get_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, unsigned int *align_ret)
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 int	get_stack_size (ITypeInfo *typeinfo, TYPEDESC *desc, unsigned int *align, int *by_value)
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, int by_val, 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, ITypeInfo **real_typeinfo)
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.

ROUND_SIZE

#define ROUND_SIZE	(		size,
			alignment
	)		(((size) + ((alignment) - 1)) & ~((alignment) - 1))

Definition at line 49 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 43 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 47 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 45 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 1355 of file ndr_typelib.c.

{
    size_t tfs_size;
    const unsigned char *tfs = get_type_format_string( &tfs_size );
    size_t typelen = tfs_size, proclen = 0;
    unsigned char *type, *proc;
    unsigned short *offset;
    HRESULT hr;
 
    hr = write_iface_fs(typeinfo, funcs, parentfuncs, NULL, &typelen, NULL, &proclen, NULL);
    if (FAILED(hr)) return hr;
 
    type = malloc(typelen);
    proc = malloc(proclen);
    offset = malloc((parentfuncs + funcs - 3) * sizeof(*offset));
    if (!type || !proc || !offset)
    {
        ERR("Failed to allocate format strings.\n");
        hr = E_OUTOFMEMORY;
        goto err;
    }
 
    memcpy(type, tfs, tfs_size);
    typelen = tfs_size;
    proclen = 0;
 
    hr = write_iface_fs(typeinfo, funcs, parentfuncs, type, &typelen, proc, &proclen, offset);
    if (SUCCEEDED(hr))
    {
        *type_ret = type;
        *proc_ret = proc;
        *offset_ret = offset;
        return S_OK;
    }
 
err:
    free(type);
    free(proc);
    free(offset);
    return hr;
}

Referenced by CreateProxyFromTypeInfo(), and CreateStubFromTypeInfo().

CreateProxyFromTypeInfo()

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

Definition at line 1556 of file ndr_typelib.c.

{
    struct typelib_proxy *proxy;
    WORD funcs, parentfuncs, i;
    ITypeInfo *real_typeinfo;
    GUID parentiid;
    HRESULT hr;
 
    TRACE("typeinfo %p, outer %p, iid %s, proxy_buffer %p, out %p.\n",
            typeinfo, outer, debugstr_guid(iid), proxy_buffer, out);
 
    hr = get_iface_info(typeinfo, &funcs, &parentfuncs, &parentiid, &real_typeinfo);
    if (FAILED(hr))
        return hr;
 
    if (!(proxy = calloc(1, sizeof(*proxy))))
    {
        ERR("Failed to allocate proxy object.\n");
        ITypeInfo_Release(real_typeinfo);
        return E_OUTOFMEMORY;
    }
 
    init_stub_desc(&proxy->stub_desc);
    proxy->proxy_info.pStubDesc = &proxy->stub_desc;
 
    proxy->proxy_vtbl = calloc(1, sizeof(proxy->proxy_vtbl->header) + (funcs + parentfuncs) * sizeof(void *));
    if (!proxy->proxy_vtbl)
    {
        ERR("Failed to allocate proxy vtbl.\n");
        free(proxy);
        ITypeInfo_Release(real_typeinfo);
        return E_OUTOFMEMORY;
    }
    proxy->proxy_vtbl->header.pStublessProxyInfo = &proxy->proxy_info;
    proxy->iid = *iid;
    proxy->proxy_vtbl->header.piid = &proxy->iid;
    fill_delegated_proxy_table((IUnknownVtbl *)proxy->proxy_vtbl->Vtbl, parentfuncs);
    for (i = 0; i < funcs; i++)
        proxy->proxy_vtbl->Vtbl[parentfuncs + i] = (void *)-1;
 
    hr = build_format_strings(real_typeinfo, funcs, parentfuncs, &proxy->stub_desc.pFormatTypes,
            &proxy->proxy_info.ProcFormatString, &proxy->offset_table);
    ITypeInfo_Release(real_typeinfo);
    if (FAILED(hr))
    {
        free(proxy->proxy_vtbl);
        free(proxy);
        return hr;
    }
    proxy->proxy_info.FormatStringOffset = &proxy->offset_table[-3];
 
    hr = typelib_proxy_init(proxy, outer, funcs + parentfuncs, &parentiid, proxy_buffer, out);
    if (FAILED(hr))
    {
        free((void *)proxy->stub_desc.pFormatTypes);
        free((void *)proxy->proxy_info.ProcFormatString);
        free((void *)proxy->offset_table);
        free(proxy->proxy_vtbl);
        free(proxy);
    }
 
    return hr;
}

Referenced by dispatch_typelib_ps_CreateProxy().

CreateStubFromTypeInfo()

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

Definition at line 1693 of file ndr_typelib.c.

{
    WORD funcs, parentfuncs, i;
    struct typelib_stub *stub;
    ITypeInfo *real_typeinfo;
    GUID parentiid;
    HRESULT hr;
 
    TRACE("typeinfo %p, iid %s, server %p, stub_buffer %p.\n",
            typeinfo, debugstr_guid(iid), server, stub_buffer);
 
    hr = get_iface_info(typeinfo, &funcs, &parentfuncs, &parentiid, &real_typeinfo);
    if (FAILED(hr))
        return hr;
 
    if (!(stub = calloc(1, sizeof(*stub))))
    {
        ERR("Failed to allocate stub object.\n");
        ITypeInfo_Release(real_typeinfo);
        return E_OUTOFMEMORY;
    }
 
    init_stub_desc(&stub->stub_desc);
    stub->server_info.pStubDesc = &stub->stub_desc;
 
    hr = build_format_strings(real_typeinfo, funcs, parentfuncs, &stub->stub_desc.pFormatTypes,
            &stub->server_info.ProcString, &stub->offset_table);
    ITypeInfo_Release(real_typeinfo);
    if (FAILED(hr))
    {
        free(stub);
        return hr;
    }
    stub->server_info.FmtStringOffset = &stub->offset_table[-3];
 
    stub->iid = *iid;
    stub->stub_vtbl.header.piid = &stub->iid;
    stub->stub_vtbl.header.pServerInfo = &stub->server_info;
    stub->stub_vtbl.header.DispatchTableCount = funcs + parentfuncs;
 
    if (!IsEqualGUID(&parentiid, &IID_IUnknown))
    {
        stub->dispatch_table = malloc((funcs + parentfuncs) * sizeof(void *));
        for (i = 3; i < parentfuncs; i++)
            stub->dispatch_table[i - 3] = NdrStubForwardingFunction;
        for (; i < funcs + parentfuncs; i++)
            stub->dispatch_table[i - 3] = (PRPC_STUB_FUNCTION)NdrStubCall2;
        stub->stub_vtbl.header.pDispatchTable = &stub->dispatch_table[-3];
        stub->stub_vtbl.Vtbl = CStdStubBuffer_Delegating_Vtbl;
    }
    else
        stub->stub_vtbl.Vtbl = CStdStubBuffer_Vtbl;
    stub->stub_vtbl.Vtbl.Release = typelib_stub_Release;
 
    hr = typelib_stub_init(stub, server, &parentiid, stub_buffer);
    if (FAILED(hr))
    {
        free((void *)stub->stub_desc.pFormatTypes);
        free((void *)stub->server_info.ProcString);
        free(stub->offset_table);
        free(stub);
    }
 
    return hr;
}

Referenced by dispatch_typelib_ps_CreateStub().

get_array_fc()

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

static

Definition at line 341 of file ndr_typelib.c.

{
    switch (desc->vt)
    {
    case VT_CY:
        return FC_LGFARRAY;
    case VT_CARRAY:
        return get_array_fc(typeinfo, &desc->lpadesc->tdescElem);
    case VT_USERDEFINED:
    {
        ITypeInfo *refinfo;
        TYPEATTR *attr;
        unsigned char fc;
 
        ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        if (attr->typekind == TKIND_ENUM)
            fc = FC_LGFARRAY;
        else if (attr->typekind == TKIND_RECORD && get_struct_fc(refinfo, attr) == FC_STRUCT)
            fc = FC_LGFARRAY;
        else if (attr->typekind == TKIND_ALIAS)
            fc = get_array_fc(refinfo, &attr->tdescAlias);
        else
            fc = FC_BOGUS_ARRAY;
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
 
        return fc;
    }
    default:
        return get_basetype(typeinfo, desc) ? FC_LGFARRAY : FC_BOGUS_ARRAY;
    }
}

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.

{
    ITypeInfo *refinfo;
    unsigned char ret;
    TYPEATTR *attr;
 
    switch (desc->vt)
    {
    case VT_I1:     return FC_SMALL;
    case VT_BOOL:
    case VT_I2:     return FC_SHORT;
    case VT_INT:
    case VT_ERROR:
    case VT_HRESULT:
    case VT_I4:     return FC_LONG;
    case VT_I8:
    case VT_UI8:    return FC_HYPER;
    case VT_UI1:    return FC_USMALL;
    case VT_UI2:    return FC_USHORT;
    case VT_UINT:
    case VT_UI4:    return FC_ULONG;
    case VT_R4:     return FC_FLOAT;
    case VT_DATE:
    case VT_R8:     return FC_DOUBLE;
    case VT_USERDEFINED:
        ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
        if (attr->typekind == TKIND_ENUM)
            ret = FC_ENUM32;
        else if (attr->typekind == TKIND_ALIAS)
            ret = get_basetype(refinfo, &attr->tdescAlias);
        else
            ret = 0;
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
        return ret;
    default:        return 0;
    }
}

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 690 of file ndr_typelib.c.

{
    ITypeInfo *refinfo;
    HREFTYPE reftype;
    TYPEATTR *attr;
    int flags, i;
 
    for (i = 0; i < count; ++i)
    {
        ITypeInfo_GetImplTypeFlags(typeinfo, i, &flags);
        if (flags & IMPLTYPEFLAG_FDEFAULT)
            break;
    }
 
    /* If no interface was explicitly marked default, choose the first one. */
    if (i == count)
        i = 0;
 
    ITypeInfo_GetRefTypeOfImplType(typeinfo, i, &reftype);
    ITypeInfo_GetRefTypeInfo(typeinfo, reftype, &refinfo);
    ITypeInfo_GetTypeAttr(refinfo, &attr);
    *iid = attr->guid;
    ITypeInfo_ReleaseTypeAttr(refinfo, attr);
    ITypeInfo_Release(refinfo);
}

Referenced by write_pointer_tfs(), and write_type_tfs().

get_iface_info()

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

static

Definition at line 1400 of file ndr_typelib.c.

{
    ITypeInfo *parentinfo;
    TYPEATTR *typeattr;
    ITypeLib *typelib;
    TLIBATTR *libattr;
    TYPEKIND typekind;
    HREFTYPE reftype;
    SYSKIND syskind;
    HRESULT hr;
 
    /* Dual interfaces report their size to be sizeof(IDispatchVtbl) and their
     * implemented type to be IDispatch. We need to retrieve the underlying
     * interface to get that information. */
    hr = ITypeInfo_GetTypeAttr(typeinfo, &typeattr);
    if (FAILED(hr))
        return hr;
    typekind = typeattr->typekind;
    ITypeInfo_ReleaseTypeAttr(typeinfo, typeattr);
    if (typekind == TKIND_DISPATCH)
    {
        hr = ITypeInfo_GetRefTypeOfImplType(typeinfo, -1, &reftype);
        if (FAILED(hr))
            return hr;
 
        hr = ITypeInfo_GetRefTypeInfo(typeinfo, reftype, real_typeinfo);
        if (FAILED(hr))
            return hr;
    }
    else
        ITypeInfo_AddRef(*real_typeinfo = typeinfo);
 
    hr = ITypeInfo_GetContainingTypeLib(*real_typeinfo, &typelib, NULL);
    if (FAILED(hr))
        goto err;
 
    hr = ITypeLib_GetLibAttr(typelib, &libattr);
    if (FAILED(hr))
    {
        ITypeLib_Release(typelib);
        goto err;
    }
    syskind = libattr->syskind;
    ITypeLib_ReleaseTLibAttr(typelib, libattr);
    ITypeLib_Release(typelib);
 
    hr = ITypeInfo_GetTypeAttr(*real_typeinfo, &typeattr);
    if (FAILED(hr))
        goto err;
    *funcs = typeattr->cFuncs;
    *parentfuncs = typeattr->cbSizeVft / (syskind == SYS_WIN64 ? 8 : 4) - *funcs;
    ITypeInfo_ReleaseTypeAttr(*real_typeinfo, typeattr);
 
    hr = ITypeInfo_GetRefTypeOfImplType(*real_typeinfo, 0, &reftype);
    if (FAILED(hr))
        goto err;
    hr = ITypeInfo_GetRefTypeInfo(*real_typeinfo, reftype, &parentinfo);
    if (FAILED(hr))
        goto err;
 
    hr = ITypeInfo_GetTypeAttr(parentinfo, &typeattr);
    if (SUCCEEDED(hr))
    {
        *parentiid = typeattr->guid;
        ITypeInfo_ReleaseTypeAttr(parentinfo, typeattr);
    }
    ITypeInfo_Release(parentinfo);
    if (SUCCEEDED(hr))
        return hr;
 
err:
    ITypeInfo_Release(*real_typeinfo);
    return hr;
}

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.

{
    const MIDL_STUBLESS_PROXY_INFO *proxy = get_ndr_types_proxy_info();
    const unsigned char *format = proxy->ProcFormatString + proxy->FormatStringOffset[3];
    const NDR_PROC_HEADER *proc = (const NDR_PROC_HEADER *)format;
    const NDR_PROC_PARTIAL_OIF_HEADER *header;
 
    if (proc->Oi_flags & Oi_HAS_RPCFLAGS)
        format += sizeof(NDR_PROC_HEADER_RPC);
    else
        format += sizeof(NDR_PROC_HEADER);
 
    header = (const NDR_PROC_PARTIAL_OIF_HEADER *)format;
    format += sizeof(*header);
    if (header->Oi2Flags.HasExtensions)
    {
        const NDR_PROC_HEADER_EXTS *ext = (const NDR_PROC_HEADER_EXTS *)format;
        format += ext->Size;
    }
    *nb_params = header->number_of_params;
    return (const NDR_PARAM_OIF *)format;
}

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.

{
    return ndr_types_ProxyFileInfo.pProxyVtblList[0]->header.pStublessProxyInfo;
}

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, int  by_val, unsigned short *  server_size, unsigned short *  flags, unsigned char *  basetype, TYPEDESC **  tfs_tdesc  )

static

Definition at line 996 of file ndr_typelib.c.

{
    ITypeInfo *refinfo;
    HRESULT hr = S_OK;
    TYPEATTR *attr;
 
    *server_size = 0;
    *flags = MustSize;
    *basetype = 0;
    *tfs_tdesc = tdesc;
 
    TRACE("vt %u\n", tdesc->vt);
 
    switch (tdesc->vt)
    {
    case VT_VARIANT:
    case VT_BSTR:
    case VT_SAFEARRAY:
    case VT_CY:
        *flags |= (by_val ? IsByValue : IsSimpleRef) | MustFree;
        break;
    case VT_UNKNOWN:
    case VT_DISPATCH:
    case VT_CARRAY:
        *flags |= MustFree;
        break;
    case VT_PTR:
        return get_param_pointer_info(typeinfo, tdesc->lptdesc, is_in, is_out,
                server_size, flags, basetype, tfs_tdesc);
    case VT_USERDEFINED:
        ITypeInfo_GetRefTypeInfo(typeinfo, tdesc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        switch (attr->typekind)
        {
        case TKIND_ENUM:
            *flags |= IsBasetype;
            *basetype = FC_ENUM32;
            break;
        case TKIND_RECORD:
            *flags |= (by_val ? IsByValue : IsSimpleRef) | MustFree;
            break;
        case TKIND_ALIAS:
            hr = get_param_info(refinfo, &attr->tdescAlias, is_in, is_out, 0,
                    server_size, flags, basetype, tfs_tdesc);
            break;
 
        case TKIND_INTERFACE:
        case TKIND_DISPATCH:
        case TKIND_COCLASS:
            /* These are treated as if they were interface pointers. */
            *flags |= MustFree;
            break;
 
        default:
            FIXME("unhandled kind %#x\n", attr->typekind);
            hr = E_NOTIMPL;
            break;
        }
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
        break;
    default:
        if ((*basetype = get_basetype(typeinfo, tdesc)))
            *flags |= IsBasetype;
        else
        {
            FIXME("unhandled type %u\n", tdesc->vt);
            return E_NOTIMPL;
        }
        break;
    }
 
    return hr;
}

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 914 of file ndr_typelib.c.

{
    ITypeInfo *refinfo;
    HRESULT hr = S_OK;
    TYPEATTR *attr;
 
    switch (tdesc->vt)
    {
    case VT_UNKNOWN:
    case VT_DISPATCH:
        *flags |= MustFree;
        if (is_in && is_out)
            *server_size = sizeof(void *);
        break;
    case VT_PTR:
        *flags |= MustFree;
        if (type_pointer_is_iface(typeinfo, tdesc->lptdesc))
        {
            if (is_in && is_out)
                *server_size = sizeof(void *);
        }
        else
            *server_size = sizeof(void *);
        break;
    case VT_CARRAY:
        *flags |= IsSimpleRef | MustFree;
        *server_size = type_memsize(typeinfo, tdesc, NULL);
        *tfs_tdesc = tdesc;
        break;
    case VT_USERDEFINED:
        ITypeInfo_GetRefTypeInfo(typeinfo, tdesc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        switch (attr->typekind)
        {
        case TKIND_ENUM:
            *flags |= IsSimpleRef | IsBasetype;
            if (!is_in && is_out)
                *server_size = sizeof(void *);
            *basetype = FC_ENUM32;
            break;
        case TKIND_RECORD:
            *flags |= IsSimpleRef | MustFree;
            if (!is_in && is_out)
                *server_size = attr->cbSizeInstance;
            *tfs_tdesc = tdesc;
            break;
        case TKIND_INTERFACE:
        case TKIND_DISPATCH:
        case TKIND_COCLASS:
            *flags |= MustFree;
            break;
        case TKIND_ALIAS:
            hr = get_param_pointer_info(refinfo, &attr->tdescAlias, is_in,
                    is_out, server_size, flags, basetype, tfs_tdesc);
            break;
        default:
            FIXME("unhandled kind %#x\n", attr->typekind);
            hr = E_NOTIMPL;
            break;
        }
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
        break;
    default:
        *flags |= IsSimpleRef;
        *tfs_tdesc = tdesc;
        if (!is_in && is_out)
            *server_size = type_memsize(typeinfo, tdesc, NULL);
        if ((*basetype = get_basetype(typeinfo, tdesc)))
            *flags |= IsBasetype;
        else
            *flags |= MustFree;
        break;
    }
 
    return hr;
}

Referenced by get_param_info(), and get_param_pointer_info().

get_stack_size()

static unsigned int get_stack_size ( ITypeInfo *  typeinfo, TYPEDESC *  desc, unsigned int *  align, int *  by_value  )

static

Definition at line 857 of file ndr_typelib.c.

{
    unsigned int size = *align = sizeof(void *);
    int byval = 1;
 
    switch (desc->vt)
    {
    case VT_R8:
    case VT_I8:
    case VT_UI8:
    case VT_DATE:
#ifdef __arm__
    case VT_R4:
        *align = 8;
#endif
        size = 8;
        break;
    case VT_PTR:
    case VT_UNKNOWN:
    case VT_DISPATCH:
    case VT_CARRAY:
        byval = 0;
        break;
    case VT_VARIANT:
    case VT_USERDEFINED:
        size = type_memsize(typeinfo, desc, align);
        break;
    default:
        break;
    }
 
#ifdef __i386__
    *align = sizeof(void *);
#endif
    if (byval)
    {
#ifdef __x86_64__
        byval = (size == 1 || size == 2 || size == 4 || size == 8);
#elif defined __aarch64__
        byval = (size <= 16);
#endif
    }
    if (!byval) size = *align = sizeof(void *);
    else if (*align < sizeof(void *)) *align = sizeof(void *);
    if (by_value) *by_value = byval;
    return ROUND_SIZE( size, *align );
}

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 319 of file ndr_typelib.c.

{
    unsigned char fc = FC_STRUCT, member_fc;
    VARDESC *desc;
    WORD i;
 
    for (i = 0; i < attr->cVars; i++)
    {
        ITypeInfo_GetVarDesc(typeinfo, i, &desc);
 
        member_fc = get_struct_member_fc(typeinfo, &desc->elemdescVar.tdesc);
        if (member_fc == FC_BOGUS_STRUCT)
            fc = FC_BOGUS_STRUCT;
        else if (member_fc == FC_PSTRUCT && fc != FC_BOGUS_STRUCT)
            fc = FC_PSTRUCT;
 
        ITypeInfo_ReleaseVarDesc(typeinfo, desc);
    }
 
    return fc;
}

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 250 of file ndr_typelib.c.

{
    unsigned char fc;
    ITypeInfo *refinfo;
    TYPEATTR *attr;
 
    switch (tdesc->vt)
    {
    case VT_BSTR:
    case VT_SAFEARRAY:
        return (sizeof(void *) == 4) ? FC_PSTRUCT : FC_BOGUS_STRUCT;
    case VT_CY:
        return FC_STRUCT;
    case VT_VARIANT:
    case VT_UNKNOWN:
    case VT_DISPATCH:
        return FC_BOGUS_STRUCT;
    case VT_CARRAY:
        if (get_array_fc(typeinfo, &tdesc->lpadesc->tdescElem) == FC_BOGUS_ARRAY)
            return FC_BOGUS_STRUCT;
        return FC_STRUCT;
    case VT_PTR:
        if (type_pointer_is_iface(typeinfo, tdesc))
            fc = FC_BOGUS_STRUCT;
        else
            fc = (sizeof(void *) == 4) ? FC_PSTRUCT : FC_BOGUS_STRUCT;
        break;
    case VT_USERDEFINED:
        ITypeInfo_GetRefTypeInfo(typeinfo, tdesc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        switch (attr->typekind)
        {
        case TKIND_ENUM:
            fc = FC_STRUCT;
            break;
        case TKIND_RECORD:
            fc = get_struct_fc(refinfo, attr);
            break;
        case TKIND_INTERFACE:
        case TKIND_DISPATCH:
        case TKIND_COCLASS:
            fc = FC_BOGUS_STRUCT;
            break;
        case TKIND_ALIAS:
            fc = get_struct_member_fc(refinfo, &attr->tdescAlias);
            break;
        default:
            FIXME("Unhandled kind %#x.\n", attr->typekind);
            fc = FC_BOGUS_STRUCT;
            break;
        }
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
        break;
    default:
        if (get_basetype(typeinfo, tdesc))
            return FC_STRUCT;
        else
        {
            FIXME("Unhandled type %u.\n", tdesc->vt);
            return FC_BOGUS_STRUCT;
        }
    }
 
    return fc;
}

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.

{
    unsigned int nb_params;
    const NDR_PARAM_OIF *params = get_ndr_types_params( &nb_params );
 
    assert( param < nb_params );
    return params[param].u.type_offset;
}

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.

{
    unsigned int nb_params;
    const NDR_PARAM_OIF *params = get_ndr_types_params( &nb_params );
 
    *size = params[nb_params - 1].u.type_offset;
    return get_ndr_types_proxy_info()->pStubDesc->pFormatTypes;
}

Referenced by build_format_strings().

init_stub_desc()

static void init_stub_desc ( MIDL_STUB_DESC *  desc )

static

Definition at line 1476 of file ndr_typelib.c.

{
    desc->pfnAllocate = NdrOleAllocate;
    desc->pfnFree = NdrOleFree;
    desc->Version = 0x50002;
    desc->aUserMarshalQuadruple = get_ndr_types_proxy_info()->pStubDesc->aUserMarshalQuadruple;
    /* type format string is initialized with proc format string and offset table */
}

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 377 of file ndr_typelib.c.

{
    if (desc->vt == VT_PTR)
        return !type_pointer_is_iface(typeinfo, desc->lptdesc);
    else if (desc->vt == VT_USERDEFINED)
    {
        ITypeInfo *refinfo;
        TYPEATTR *attr;
        BOOL ret;
 
        ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        if (attr->typekind == TKIND_ALIAS)
            ret = type_is_non_iface_pointer(refinfo, &attr->tdescAlias);
        else
            ret = FALSE;
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
 
        return ret;
    }
    else
        return FALSE;
}

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, unsigned int *  align_ret  )

static

Definition at line 152 of file ndr_typelib.c.

{
    unsigned int size, align;
 
    switch (desc->vt)
    {
    case VT_I1:
    case VT_UI1:
        size = align = 1;
        break;
    case VT_I2:
    case VT_UI2:
    case VT_BOOL:
        size = align = 2;
        break;
    case VT_I4:
    case VT_UI4:
    case VT_R4:
    case VT_INT:
    case VT_UINT:
    case VT_ERROR:
    case VT_HRESULT:
        size = align = 4;
        break;
    case VT_I8:
    case VT_UI8:
    case VT_R8:
    case VT_DATE:
        size = align = 8;
        break;
    case VT_BSTR:
    case VT_SAFEARRAY:
    case VT_PTR:
    case VT_UNKNOWN:
    case VT_DISPATCH:
        size = align = sizeof(void *);
        break;
    case VT_VARIANT:
        align = 8;
        size = sizeof(VARIANT);
        break;
    case VT_CARRAY:
    {
        unsigned int i;
        size = type_memsize(typeinfo, &desc->lpadesc->tdescElem, &align);
        for (i = 0; i < desc->lpadesc->cDims; i++)
            size *= desc->lpadesc->rgbounds[i].cElements;
        break;
    }
    case VT_USERDEFINED:
    {
        ITypeInfo *refinfo;
        TYPEATTR *attr;
 
        ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
        size = attr->cbSizeInstance;
        align = attr->cbAlignment;
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
        break;
    }
    default:
        FIXME("unhandled type %u\n", desc->vt);
        return 0;
    }
    if (align_ret) *align_ret = align;
    return size;
}

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 446 of file ndr_typelib.c.

{
    if (desc->vt == VT_PTR || desc->vt == VT_UNKNOWN || desc->vt == VT_DISPATCH)
        return TRUE;
    else if (desc->vt == VT_USERDEFINED)
    {
        ITypeInfo *refinfo;
        BOOL ret = FALSE;
        TYPEATTR *attr;
 
        ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        if (attr->typekind == TKIND_ALIAS)
            ret = type_needs_pointer_deref(refinfo, &attr->tdescAlias);
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
 
        return ret;
    }
    else
        return FALSE;
}

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 222 of file ndr_typelib.c.

{
    ITypeInfo *refinfo;
    BOOL ret = FALSE;
    TYPEATTR *attr;
 
    if (tdesc->vt == VT_USERDEFINED)
    {
        ITypeInfo_GetRefTypeInfo(typeinfo, tdesc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        if (attr->typekind == TKIND_INTERFACE
                || attr->typekind == TKIND_DISPATCH
                || attr->typekind == TKIND_COCLASS)
            ret = TRUE;
        else if (attr->typekind == TKIND_ALIAS)
            ret = type_pointer_is_iface(refinfo, &attr->tdescAlias);
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
    }
 
    return ret;
}

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 1528 of file ndr_typelib.c.

{
    if (!fill_stubless_table((IUnknownVtbl *)proxy->proxy_vtbl->Vtbl, count))
        return E_OUTOFMEMORY;
 
    if (!outer) outer = (IUnknown *)&proxy->proxy;
 
    proxy->proxy.IRpcProxyBuffer_iface.lpVtbl = &typelib_proxy_vtbl;
    proxy->proxy.PVtbl = proxy->proxy_vtbl->Vtbl;
    proxy->proxy.RefCount = 1;
    proxy->proxy.piid = proxy->proxy_vtbl->header.piid;
    proxy->proxy.pUnkOuter = outer;
 
    if (!IsEqualGUID(parentiid, &IID_IUnknown))
    {
        HRESULT hr = create_proxy(parentiid, NULL, &proxy->proxy.base_proxy,
                (void **)&proxy->proxy.base_object);
        if (FAILED(hr)) return hr;
    }
 
    *proxy_buffer = &proxy->proxy.IRpcProxyBuffer_iface;
    *out = &proxy->proxy.PVtbl;
    IUnknown_AddRef((IUnknown *)*out);
 
    return S_OK;
}

Referenced by CreateProxyFromTypeInfo().

typelib_proxy_Release()

static ULONG WINAPI typelib_proxy_Release ( IRpcProxyBuffer *  iface )

static

Definition at line 1495 of file ndr_typelib.c.

{
    struct typelib_proxy *proxy = CONTAINING_RECORD(iface, struct typelib_proxy, proxy.IRpcProxyBuffer_iface);
    ULONG refcount = InterlockedDecrement(&proxy->proxy.RefCount);
 
    TRACE("(%p) decreasing refs to %ld\n", proxy, refcount);
 
    if (!refcount)
    {
        if (proxy->proxy.pChannel)
            IRpcProxyBuffer_Disconnect(&proxy->proxy.IRpcProxyBuffer_iface);
        if (proxy->proxy.base_object)
            IUnknown_Release(proxy->proxy.base_object);
        if (proxy->proxy.base_proxy)
            IRpcProxyBuffer_Release(proxy->proxy.base_proxy);
        free((void *)proxy->stub_desc.pFormatTypes);
        free((void *)proxy->proxy_info.ProcFormatString);
        free(proxy->offset_table);
        free(proxy->proxy_vtbl);
        free(proxy);
    }
    return refcount;
}

typelib_stub_init()

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

static

Definition at line 1660 of file ndr_typelib.c.

{
    HRESULT hr;
 
    hr = IUnknown_QueryInterface(server, stub->stub_vtbl.header.piid,
            (void **)&stub->stub.stub_buffer.pvServerObject);
    if (FAILED(hr))
    {
        WARN("Failed to get interface %s, hr %#lx.\n",
                debugstr_guid(stub->stub_vtbl.header.piid), hr);
        stub->stub.stub_buffer.pvServerObject = server;
        IUnknown_AddRef(server);
    }
 
    if (!IsEqualGUID(parentiid, &IID_IUnknown))
    {
        stub->stub.base_obj.lpVtbl = get_delegating_vtbl(stub->stub_vtbl.header.DispatchTableCount);
        hr = create_stub(parentiid, &stub->stub.base_obj, &stub->stub.base_stub);
        if (FAILED(hr))
        {
            IUnknown_Release(stub->stub.stub_buffer.pvServerObject);
            return hr;
        }
    }
 
    stub->stub.stub_buffer.lpVtbl = &stub->stub_vtbl.Vtbl;
    stub->stub.stub_buffer.RefCount = 1;
 
    *stub_buffer = (IRpcStubBuffer *)&stub->stub.stub_buffer;
    return S_OK;
}

Referenced by CreateStubFromTypeInfo().

typelib_stub_Release()

static ULONG WINAPI typelib_stub_Release ( IRpcStubBuffer *  iface )

static

Definition at line 1632 of file ndr_typelib.c.

{
    struct typelib_stub *stub = CONTAINING_RECORD(iface, struct typelib_stub, stub.stub_buffer);
    ULONG refcount = InterlockedDecrement(&stub->stub.stub_buffer.RefCount);
 
    TRACE("(%p) decreasing refs to %ld\n", stub, refcount);
 
    if (!refcount)
    {
        /* test_Release shows that native doesn't call Disconnect here.
           We'll leave it in for the time being. */
        IRpcStubBuffer_Disconnect(iface);
 
        if (stub->stub.base_stub)
        {
            IRpcStubBuffer_Release(stub->stub.base_stub);
            free(stub->dispatch_table);
        }
 
        free((void *)stub->stub_desc.pFormatTypes);
        free((void *)stub->server_info.ProcString);
        free(stub->offset_table);
        free(stub);
    }
 
    return refcount;
}

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 627 of file ndr_typelib.c.

{
    unsigned char fc = get_array_fc(typeinfo, &desc->tdescElem);
    unsigned char basetype;
    size_t ref = 0, off;
    ULONG size = 1;
    USHORT i;
 
    if (!(basetype = get_basetype(typeinfo, &desc->tdescElem)))
        ref = write_type_tfs(typeinfo, str, len, &desc->tdescElem, FALSE, FALSE);
 
    /* In theory arrays should be nested, but there's no reason not to marshal
     * [x][y] as [x*y]. */
    for (i = 0; i < desc->cDims; i++) size *= desc->rgbounds[i].cElements;
 
    off = *len;
 
    WRITE_CHAR(str, *len, fc);
    WRITE_CHAR(str, *len, 0);
    if (fc == FC_BOGUS_ARRAY)
    {
        WRITE_SHORT(str, *len, size);
        WRITE_INT(str, *len, 0xffffffff); /* conformance */
        WRITE_SHORT(str, *len, 0);
        WRITE_INT(str, *len, 0xffffffff); /* variance */
        WRITE_SHORT(str, *len, 0);
    }
    else
    {
        size *= type_memsize(typeinfo, &desc->tdescElem, NULL);
        WRITE_INT(str, *len, size);
    }
 
    if (basetype)
        WRITE_CHAR(str, *len, basetype);
    else
    {
        WRITE_CHAR (str, *len, FC_EMBEDDED_COMPLEX);
        WRITE_CHAR (str, *len, 0);
        WRITE_SHORT(str, *len, ref - *len);
        WRITE_CHAR (str, *len, FC_PAD);
    }
    WRITE_CHAR(str, *len, FC_END);
 
    return off;
}

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 471 of file ndr_typelib.c.

{
    unsigned char basetype;
 
    if (desc->vt == VT_PTR && !type_pointer_is_iface(typeinfo, desc->lptdesc))
    {
        WRITE_CHAR(str, *len, FC_UP);
        if ((basetype = get_basetype(typeinfo, desc->lptdesc)))
        {
            WRITE_CHAR(str, *len, FC_SIMPLE_POINTER);
            WRITE_CHAR(str, *len, basetype);
            WRITE_CHAR(str, *len, FC_PAD);
        }
        else
        {
            if (type_needs_pointer_deref(typeinfo, desc->lptdesc))
                WRITE_CHAR(str, *len, FC_POINTER_DEREF);
            else
                WRITE_CHAR(str, *len, 0);
            WRITE_SHORT(str, *len, 0);
        }
    }
    else if (desc->vt == VT_USERDEFINED)
    {
        ITypeInfo *refinfo;
        TYPEATTR *attr;
 
        ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        if (attr->typekind == TKIND_ALIAS)
            write_complex_struct_pointer_layout(refinfo, &attr->tdescAlias, str, len);
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
    }
}

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 510 of file ndr_typelib.c.

{
    if (desc->vt == VT_PTR && !type_pointer_is_iface(typeinfo, desc->lptdesc)
            && !get_basetype(typeinfo, desc->lptdesc))
    {
        return write_type_tfs(typeinfo, str, len, desc->lptdesc, FALSE, FALSE);
    }
    else if (desc->vt == VT_USERDEFINED)
    {
        ITypeInfo *refinfo;
        TYPEATTR *attr;
        size_t ret = 0;
 
        ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        if (attr->typekind == TKIND_ALIAS)
            ret = write_complex_struct_pointer_ref(refinfo, &attr->tdescAlias, str, len);
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
 
        return ret;
    }
 
    return 0;
}

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 539 of file ndr_typelib.c.

{
    size_t pointer_layout_offset, pointer_layout, member_layout, ref;
    unsigned int struct_offset = 0;
    TYPEDESC *tdesc;
    VARDESC *desc;
    WORD i;
 
    WRITE_SHORT(str, *len, 0);  /* conformant array description */
    pointer_layout_offset = *len;
    WRITE_SHORT(str, *len, 0);  /* pointer layout; will be filled in later */
    member_layout = *len;
 
    /* First pass: write the struct members and pointer layout, but do not yet
     * write the offsets for embedded complexes and pointer refs. These must be
     * handled after we write the whole struct description, since it must be
     * contiguous. */
 
    write_struct_members(typeinfo, str, len, attr);
 
    pointer_layout = *len;
    if (str) *((short *)(str + pointer_layout_offset)) = pointer_layout - pointer_layout_offset;
 
    for (i = 0; i < attr->cVars; i++)
    {
        ITypeInfo_GetVarDesc(typeinfo, i, &desc);
        write_complex_struct_pointer_layout(typeinfo, &desc->elemdescVar.tdesc, str, len);
        ITypeInfo_ReleaseVarDesc(typeinfo, desc);
    }
 
    /* Second pass: write types for embedded complexes and non-simple pointers. */
 
    struct_offset = 0;
 
    for (i = 0; i < attr->cVars; i++)
    {
        ITypeInfo_GetVarDesc(typeinfo, i, &desc);
        tdesc = &desc->elemdescVar.tdesc;
 
        if (struct_offset != desc->oInst)
            member_layout++; /* alignment directive */
        struct_offset = desc->oInst + type_memsize(typeinfo, tdesc, NULL);
 
        if (get_basetype(typeinfo, tdesc))
            member_layout++;
        else if (type_is_non_iface_pointer(typeinfo, tdesc))
        {
            member_layout++;
            if ((ref = write_complex_struct_pointer_ref(typeinfo, tdesc, str, len)))
            {
                if (str) *((short *)(str + pointer_layout + 2)) = ref - (pointer_layout + 2);
            }
            pointer_layout += 4;
        }
        else
        {
            ref = write_type_tfs(typeinfo, str, len, tdesc, FALSE, FALSE);
            if (str) *((short *)(str + member_layout + 2)) = ref - (member_layout + 2);
            member_layout += 4;
        }
 
        ITypeInfo_ReleaseVarDesc(typeinfo, desc);
    }
}

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 1306 of file ndr_typelib.c.

{
    unsigned short stack_offset;
    WORD proc_idx, param_idx;
    FUNCDESC *desc;
    HRESULT hr;
 
    for (proc_idx = 3; proc_idx < parentfuncs; proc_idx++)
    {
        if (offset)
            offset[proc_idx - 3] = -1;
    }
 
    for (proc_idx = 0; proc_idx < funcs; proc_idx++)
    {
        TRACE("Writing procedure %d.\n", proc_idx);
 
        hr = ITypeInfo_GetFuncDesc(typeinfo, proc_idx, &desc);
        if (FAILED(hr)) return hr;
 
        if (offset)
            offset[proc_idx + parentfuncs - 3] = *proclen;
 
        write_proc_func_header(typeinfo, desc, proc_idx + parentfuncs, proc, proclen);
 
        stack_offset = sizeof(void *);  /* This */
        for (param_idx = 0; param_idx < desc->cParams; param_idx++)
        {
            TRACE("Writing parameter %d.\n", param_idx);
            hr = write_param_fs(typeinfo, type, typelen, proc, proclen,
                    &desc->lprgelemdescParam[param_idx], FALSE, &stack_offset);
            if (FAILED(hr))
            {
                ITypeInfo_ReleaseFuncDesc(typeinfo, desc);
                return hr;
            }
        }
 
        hr = write_param_fs(typeinfo, type, typelen, proc, proclen,
                &desc->elemdescFunc, TRUE, &stack_offset);
        ITypeInfo_ReleaseFuncDesc(typeinfo, desc);
        if (FAILED(hr)) return hr;
    }
 
    return S_OK;
}

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 675 of file ndr_typelib.c.

{
    size_t off = *len;
 
    if (str)
    {
        str[*len] = FC_IP;
        str[*len+1] = FC_CONSTANT_IID;
        memcpy(str + *len + 2, iid, sizeof(*iid));
    }
    *len += 2 + sizeof(*iid);
 
    return off;
}

Referenced by write_pointer_tfs(), and write_type_tfs().

write_oleaut_tfs()

static unsigned short write_oleaut_tfs ( VARTYPE  vt )

static

Definition at line 99 of file ndr_typelib.c.

{
    switch (vt)
    {
    case VT_BSTR:       return get_tfs_offset( 0 );
    case VT_UNKNOWN:    return get_tfs_offset( 1 );
    case VT_DISPATCH:   return get_tfs_offset( 2 );
    case VT_VARIANT:    return get_tfs_offset( 3 );
    case VT_SAFEARRAY:  return get_tfs_offset( 4 );
    }
    return 0;
}

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 1075 of file ndr_typelib.c.

{
    USHORT param_flags = desc->paramdesc.wParamFlags;
    TYPEDESC *tdesc = &desc->tdesc, *tfs_tdesc;
    unsigned short server_size;
    int byval;
    unsigned int align, stack_size = get_stack_size(typeinfo, tdesc, &align, &byval);
    unsigned char basetype;
    unsigned short flags;
    int is_in, is_out;
    size_t off = 0;
    HRESULT hr;
 
    is_out = param_flags & PARAMFLAG_FOUT;
    is_in = (param_flags & PARAMFLAG_FIN) || (!is_out && !is_return);
 
    hr = get_param_info(typeinfo, tdesc, is_in, is_out, byval, &server_size, &flags,
            &basetype, &tfs_tdesc);
 
    if (is_in)      flags |= IsIn;
    if (is_out)     flags |= IsOut;
    if (is_return)  flags |= IsOut | IsReturn;
 
    server_size = (server_size + 7) / 8;
    if (server_size >= 8) server_size = 0;
    flags |= server_size << 13;
 
    if (!basetype)
        off = write_type_tfs(typeinfo, type, typelen, tfs_tdesc, TRUE, server_size != 0);
 
    if (SUCCEEDED(hr))
    {
        *stack_offset = ROUND_SIZE( *stack_offset, align );
 
        WRITE_SHORT(proc, *proclen, flags);
        WRITE_SHORT(proc, *proclen, *stack_offset);
        WRITE_SHORT(proc, *proclen, basetype ? basetype : off);
 
        *stack_offset += stack_size;
    }
 
    return hr;
}

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 716 of file ndr_typelib.c.

{
    unsigned char basetype, flags = 0;
    size_t ref, off = *len;
    ITypeInfo *refinfo;
    TYPEATTR *attr;
    GUID guid;
 
    if (desc->vt == VT_USERDEFINED)
    {
        ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        switch (attr->typekind)
        {
        case TKIND_ENUM:
            assert(!toplevel);  /* toplevel base-type pointers should use IsSimpleRef */
            WRITE_CHAR(str, *len, FC_UP);
            WRITE_CHAR(str, *len, FC_SIMPLE_POINTER);
            WRITE_CHAR(str, *len, FC_ENUM32);
            WRITE_CHAR(str, *len, FC_PAD);
            break;
        case TKIND_RECORD:
            assert(!toplevel);  /* toplevel struct pointers should use IsSimpleRef */
            ref = write_struct_tfs(refinfo, str, len, attr);
            off = *len;
            WRITE_CHAR (str, *len, FC_UP);
            WRITE_CHAR (str, *len, 0);
            WRITE_SHORT(str, *len, ref - *len);
            break;
        case TKIND_INTERFACE:
        case TKIND_DISPATCH:
            write_ip_tfs(str, len, &attr->guid);
            break;
        case TKIND_COCLASS:
            get_default_iface(refinfo, attr->cImplTypes, &guid);
            write_ip_tfs(str, len, &guid);
            break;
        case TKIND_ALIAS:
            off = write_pointer_tfs(refinfo, str, len, &attr->tdescAlias, toplevel, onstack);
            break;
        default:
            FIXME("unhandled kind %#x\n", attr->typekind);
            WRITE_SHORT(str, *len, 0);
            break;
        }
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
    }
    else if ((basetype = get_basetype(typeinfo, desc)))
    {
        assert(!toplevel); /* toplevel base-type pointers should use IsSimpleRef */
        WRITE_CHAR(str, *len, FC_UP);
        WRITE_CHAR(str, *len, FC_SIMPLE_POINTER);
        WRITE_CHAR(str, *len, basetype);
        WRITE_CHAR(str, *len, FC_PAD);
    }
    else
    {
        ref = write_type_tfs(typeinfo, str, len, desc, FALSE, FALSE);
 
        if (onstack) flags |= FC_ALLOCED_ON_STACK;
        if (desc->vt == VT_PTR || desc->vt == VT_UNKNOWN || desc->vt == VT_DISPATCH)
            flags |= FC_POINTER_DEREF;
 
        off = *len;
 
        WRITE_CHAR (str, *len, toplevel ? FC_RP : FC_UP);
        WRITE_CHAR (str, *len, flags);
        WRITE_SHORT(str, *len, ref - *len);
    }
 
    return off;
}

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 1239 of file ndr_typelib.c.

{
    unsigned int i, align, size, stack_size = sizeof(void *); /* This */
 
    for (i = 0; i < desc->cParams; i++)
    {
        size = get_stack_size(typeinfo, &desc->lprgelemdescParam[i].tdesc, &align, NULL );
        stack_size = ROUND_SIZE( stack_size, align );
        stack_size += size;
    }
    stack_size += sizeof(void *);  /* return */
 
    WRITE_CHAR (proc, *proclen, FC_AUTO_HANDLE);
    WRITE_CHAR (proc, *proclen, Oi_OBJECT_PROC | Oi_OBJ_USE_V2_INTERPRETER);
    WRITE_SHORT(proc, *proclen, proc_idx);
    WRITE_SHORT(proc, *proclen, stack_size);
 
    WRITE_SHORT(proc, *proclen, 0); /* constant_client_buffer_size */
    WRITE_SHORT(proc, *proclen, 0); /* constant_server_buffer_size */
    WRITE_CHAR (proc, *proclen, 0x47);  /* HasExtensions | HasReturn | ClientMustSize | ServerMustSize */
    WRITE_CHAR (proc, *proclen, desc->cParams + 1); /* incl. return value */
 
#ifdef __i386__
    WRITE_CHAR (proc, *proclen, 8);  /* extension size */
    WRITE_CHAR (proc, *proclen, 1);  /* HasNewCorrDesc */
    WRITE_SHORT(proc, *proclen, 0);  /* ClientCorrHint */
    WRITE_SHORT(proc, *proclen, 0);  /* ServerCorrHint */
    WRITE_SHORT(proc, *proclen, 0);  /* NotifyIndex */
#elif defined __x86_64__
    {
        unsigned short float_mask = 0;
 
        for (i = 0; i < desc->cParams && i < 3; i++)
        {
            unsigned char basetype = get_basetype(typeinfo, &desc->lprgelemdescParam[i].tdesc);
            if (basetype == FC_FLOAT) float_mask |= (1 << ((i + 1) * 2));
            else if (basetype == FC_DOUBLE) float_mask |= (2 << ((i + 1) * 2));
        }
        WRITE_CHAR (proc, *proclen, 10); /* extension size */
        WRITE_CHAR (proc, *proclen, 1);  /* HasNewCorrDesc */
        WRITE_SHORT(proc, *proclen, 0);  /* ClientCorrHint */
        WRITE_SHORT(proc, *proclen, 0);  /* ServerCorrHint */
        WRITE_SHORT(proc, *proclen, 0);  /* NotifyIndex */
        WRITE_SHORT(proc, *proclen, float_mask);
    }
#else
    {
        unsigned int len, count = stack_size / sizeof(void *);
        unsigned char *params = malloc( count );
 
        count = fill_params_array( typeinfo, desc, params, count );
        len = compress_params_array( params, count );
        WRITE_CHAR (proc, *proclen, 8 + 3 + len + !(len % 2) ); /* extension size */
        WRITE_CHAR (proc, *proclen, 1);  /* HasNewCorrDesc */
        WRITE_SHORT(proc, *proclen, 0);  /* ClientCorrHint */
        WRITE_SHORT(proc, *proclen, 0);  /* ServerCorrHint */
        WRITE_SHORT(proc, *proclen, 0);  /* NotifyIndex */
        WRITE_SHORT(proc, *proclen, count);
        WRITE_CHAR (proc, *proclen, len);
        for (i = 0; i < len; i++) WRITE_CHAR (proc, *proclen, params[i]);
        if (!(len % 2)) WRITE_CHAR (proc, *proclen, 0);
        free( params );
    }
#endif
}

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 440 of file ndr_typelib.c.

{
    write_struct_members(typeinfo, str, len, attr);
}

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 404 of file ndr_typelib.c.

{
    unsigned int struct_offset = 0;
    unsigned char basetype;
    TYPEDESC *tdesc;
    VARDESC *desc;
    WORD i;
 
    for (i = 0; i < attr->cVars; i++)
    {
        ITypeInfo_GetVarDesc(typeinfo, i, &desc);
        tdesc = &desc->elemdescVar.tdesc;
 
        if (struct_offset != desc->oInst)
            WRITE_CHAR(str, *len, FC_STRUCTPAD1 + desc->oInst - struct_offset - 1);
        struct_offset = desc->oInst + type_memsize(typeinfo, tdesc, NULL);
 
        if ((basetype = get_basetype(typeinfo, tdesc)))
            WRITE_CHAR(str, *len, basetype);
        else if (type_is_non_iface_pointer(typeinfo, tdesc))
            WRITE_CHAR(str, *len, FC_POINTER);
        else
        {
            WRITE_CHAR(str, *len, FC_EMBEDDED_COMPLEX);
            WRITE_CHAR(str, *len, 0);
            WRITE_SHORT(str, *len, 0);
        }
 
        ITypeInfo_ReleaseVarDesc(typeinfo, desc);
    }
    if (!(*len & 1))
        WRITE_CHAR (str, *len, FC_PAD);
    WRITE_CHAR (str, *len, FC_END);
}

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 605 of file ndr_typelib.c.

{
    unsigned char fc = get_struct_fc(typeinfo, attr);
    size_t off = *len;
 
    /* For the sake of simplicity, write pointer structs as complex structs. */
    if (fc == FC_PSTRUCT)
        fc = FC_BOGUS_STRUCT;
 
    WRITE_CHAR (str, *len, fc);
    WRITE_CHAR (str, *len, attr->cbAlignment - 1);
    WRITE_SHORT(str, *len, attr->cbSizeInstance);
 
    if (fc == FC_STRUCT)
        write_simple_struct_tfs(typeinfo, str, len, attr);
    else if (fc == FC_BOGUS_STRUCT)
        write_complex_struct_tfs(typeinfo, str, len, attr);
 
    return off;
}

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 793 of file ndr_typelib.c.

{
    ITypeInfo *refinfo;
    TYPEATTR *attr;
    size_t off;
    GUID guid;
 
    TRACE("vt %d%s\n", desc->vt, toplevel ? " (toplevel)" : "");
 
    if ((off = write_oleaut_tfs(desc->vt)))
        return off;
 
    switch (desc->vt)
    {
    case VT_PTR:
        return write_pointer_tfs(typeinfo, str, len, desc->lptdesc, toplevel, onstack);
    case VT_CARRAY:
        return write_array_tfs(typeinfo, str, len, desc->lpadesc);
    case VT_USERDEFINED:
        ITypeInfo_GetRefTypeInfo(typeinfo, desc->hreftype, &refinfo);
        ITypeInfo_GetTypeAttr(refinfo, &attr);
 
        switch (attr->typekind)
        {
        case TKIND_RECORD:
            off = write_struct_tfs(refinfo, str, len, attr);
            break;
        case TKIND_INTERFACE:
        case TKIND_DISPATCH:
            /* These are treated as if they were interface pointers. */
            off = *len;
            write_ip_tfs(str, len, &attr->guid);
            break;
        case TKIND_COCLASS:
            off = *len;
            get_default_iface(refinfo, attr->cImplTypes, &guid);
            write_ip_tfs(str, len, &guid);
            break;
        case TKIND_ALIAS:
            off = write_type_tfs(refinfo, str, len, &attr->tdescAlias, toplevel, onstack);
            break;
        default:
            FIXME("unhandled kind %u\n", attr->typekind);
            off = *len;
            WRITE_SHORT(str, *len, 0);
            break;
        }
 
        ITypeInfo_ReleaseTypeAttr(refinfo, attr);
        ITypeInfo_Release(refinfo);
        break;
    default:
        /* base types are always embedded directly */
        assert(!get_basetype(typeinfo, desc));
        FIXME("unhandled type %u\n", desc->vt);
        off = *len;
        WRITE_SHORT(str, *len, 0);
        break;
    }
 
    return off;
}

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 910 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 911 of file ndr_typelib.c.

Referenced by get_param_info().

IsIn

const unsigned short IsIn = 0x0008

static

Definition at line 907 of file ndr_typelib.c.

Referenced by write_param_fs().

IsOut

const unsigned short IsOut = 0x0010

static

Definition at line 908 of file ndr_typelib.c.

Referenced by write_param_fs().

IsReturn

const unsigned short IsReturn = 0x0020

static

Definition at line 909 of file ndr_typelib.c.

Referenced by write_param_fs().

IsSimpleRef

const unsigned short IsSimpleRef = 0x0100

static

Definition at line 912 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 906 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 905 of file ndr_typelib.c.

Referenced by get_param_info().

ndr_types_ProxyFileInfo

const ExtendedProxyFileInfo ndr_types_ProxyFileInfo

extern

Referenced by get_ndr_types_proxy_info().

typelib_proxy_vtbl

const IRpcProxyBufferVtbl typelib_proxy_vtbl

static

Initial value:

=
{
    StdProxy_QueryInterface,
    StdProxy_AddRef,
    typelib_proxy_Release,
    StdProxy_Connect,
    StdProxy_Disconnect,
}

Definition at line 1519 of file ndr_typelib.c.

Referenced by typelib_proxy_init().